车辆信息管理系统报告数据库C.doc

数据库原理及应用课程设计设计题目： 企业车队/辆信息管理系统 班 级： * 姓 名： * 学 号： * 指导教师： * 成 绩： 5月目录一、 摘要2二、 需求分析21、课程设计任务22、功能描述3三、 概要设计31、功能模块图42、实体图53、数据项64、系统顾客管理图75、数据流图8四、 调试测试91、数据库演示9 2、程序各功能演示10五、代码（重要部分）141、登录152、车辆查询16 3、车辆信息管理17 4、删除顾客18 5、添加顾客20一、摘要本次课程设计汇报重要论述了企业车队信息管理系统分析、设计与开发,并在此基础上对其在Windows平台上实现做了一定程度研究。企业车队信息管理系统是运用在企业部门系统工具，以便企业车队管理部门工作人员工作，该系统重要根据企业车队特点建立，重要是记录和查询驾驶员信息、机动车信息。本次课程设计汇报结合工程项目,详细论述了机动车驾驶员管理系统、机动车登记系统需求分析,其中包括实体关系图、功能构造图以及数据流程图分析和描述。 然后,汇报着重讨论了车队驾驶员管理系统、车辆登记系统数据库设计,文中详细论述了驾驶证管理系统数据库实现各个环节。并讨论了车辆/驾驶员信息管理系统在J2EE平台上详细实现及其布署。 最终,此汇报对本次系统开发中碰到几种关键问题进行了详细论述。包括驾驶证管理系统和机动车登记系统与其他系统接口设计,IBM Websphere应用服务器安全方略及系统访问控制措施实现,以及基于PC服务器平台windows操作系统上Access数据库性能优化问题。关键词：企业车队信息管理系统、Access数据库、Java二、需求分析1、 课程设计任务出于经济方面考虑，诸多企业都会选择拥有自己车队而不是租赁车辆。因此，企业需要有效管理车队尤其是规模较大车队，车队信息管理系统就是运用在企业系统工具。该系统是根据企业特点建立，重要是记录和查询驾驶员信息、机动车信息。初期企业车队信息重要是人工记录和人工管理，不仅不轻易记录，并且还不轻易保留，耗时费力效果不佳。伴随市场经济不停发展，交通道路环境不停改善，人口流动量不停增长，人们出行愈加频繁，车站信息量迅猛增长，车辆方面信息管理系统在人们平常生活中发挥着越来越重要作用。本次车队信息管理系统实现了机动车辆驾驶员信息管理，机动车信息增长、删除、修改、查询，以满足人们需求。车队信息管理系统重要分为三大部分：驾驶员信息管理、机动车信息管理和车辆信息查询驾驶员信息管理：此功能重要面向管理员。管理员可以在驾驶员信息管理模块实现对驾驶员信息管理。管理员首先应当建立驾驶员信息数据库，输入原始数据信息，当有新驾驶员信息时候或者管理员需要修改某个驾驶员有关信息以及想要删除某个驾驶员信息时候，就可以完毕对应操作。管理员也可以在整个数据库中查寻有关驾驶员信息。机动车信息管理：此功能重要面向管理员。管理员可以在机动车信息管理模块实现对机动车信息管理。管理员首先应当建立机动车信息数据库，输入原始数据信息，当有新机动车信息时候或者管理员需要修改某个机动车有关信息以及想以在整个数据库中查寻有关机动车信息。车辆信息查询：此功能面向企业所有职工。企业职工可以查询企业车队中车辆信息，以用于预订车辆进行商务活动。2、 功能描述程序分为登陆界面，选择界面，线路信息界面，机动车辆信息界面，车票信息这几种主体界面。使用时应先懂得管理员帐号和密码，登陆进入系统主菜单界面，里面包括汽车信息、退出程序菜单项选择项，所需时间等。可以对它们进行添加,查询，删除。需要尤其阐明是，当对数据进行操作时，在查询框内输入提醒数据内容，对话框表中和提醒栏中都会出现所查询数据，我们可以在提醒栏中对数据进行删除和修改操作。在Java中运用ODBC访问技术操作数据库，建立到数据库中映射类，在对话框类中通过引用映射类完毕对数据库操作。三、 概要设计1、功能模块图退出车队信息管理系统驾驶员信息管理车辆信息管理车辆信息查询数据查询车辆信息查询驾驶员信息查询登陆数据处理驾驶员信息维护车辆信息维护2、实体图驾驶员姓名性别年龄电话号码车辆编号驾驶员ID顾客姓名顾客编号密码企业职工姓名职工ID密码车辆编号车辆与否空闲驾驶员ID3、数据项表1: 高级顾客数据表属性名存储代码类型长度备注顾客编号顾客编号char10顾客编号顾客姓名顾客姓名varchar20顾客登录名密码密码varchar5登录密码顾客等级顾客等级char5登陆者等级表2: 一般顾客数据表属性名存储代码类型长度备注顾客编号顾客编号char10顾客编号顾客姓名顾客姓名varchar20顾客登录名密码密码varchar5登录密码顾客登记顾客等级char5登陆者等级表3：驾驶员数据表属性名存储代码类型长度备注姓名姓名char20车主姓名车牌车牌号码varchar10车辆牌号性别车主性别char5车主性别籍贯籍贯char10车主籍贯表4：车辆数据表属性名存储代码类型长度备注车牌车牌char10车辆牌号车主车主varchar20车辆型号车型车型char5驾驶员车色车色char5车辆颜色发动机号发动机char3车辆购置时间装载人数装载人数int载人数表5：车辆状况数据表属性名存储代码类型长度备注车牌车牌char10车辆牌号车主车主varchar20车主姓名外出时间车辆外出时间datetime车辆外出时间回归时间车辆回归时间datetime车辆回归时间4、系统顾客管理图顾客登录成功？顾客管理界面是否查询车队信息身份验证管理车队信息管理员顾客名密码系统管理企业职工顾客名密码管理员表企业职工表驾驶员数据表管理员信息职工信息车辆数据表驾驶员数据表车辆数据表职工信息验证成功密码错误管理员信息验证成功5、数据流图四、 调试测试（1）、数据库演示（2） 程序各模块演示五、 代码（重要部分）1、登录Public Class 登陆 Dim s As Integer = 3 Dim sqlstr As String Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If MessageBox.Show(你确定与否退出登录界面？, 提醒, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then End End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Focus() If TextBox1.Text And TextBox2.Text = Then MessageBox.Show(密码不能为空！, 提醒) ElseIf TextBox1.Text = And TextBox2.Text Then MessageBox.Show(顾客名不能为空！, 提醒) ElseIf TextBox1.Text = And TextBox2.Text = Then MessageBox.Show(顾客名和密码不能为空！, 提醒) Else Call DBopen() sqlstr = Select * From 高级顾客登陆表Where 姓名= & TextBox1.Text & And 密码= & TextBox2.Text & Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn) Dim dr As SqlClient.SqlDataReader dr = sqlcmd.ExecuteReader If dr.Read = True Then dr.Close() 登录提醒.Show() TextBox1.Text = TextBox2.Text = Me.Visible = False Call DBclose() Else Call DBopen() sqlstr = Select * From 一般顾客登陆表Where 姓名= & TextBox1.Text & And 密码= & TextBox2.Text & Dim sqlcmd1 As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn) Dim dr1 As SqlClient.SqlDataReader dr1 = sqlcmd1.ExecuteReader If dr1.Read = True Then 登录提醒.Show() TextBox1.Text = TextBox2.Text = Me.Visible = False dr1.Close() Call DBclose() ElseIf s 0 Then MessageBox.Show(输入信息有误！, 提醒, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) TextBox1.Text = TextBox2.Text = Else If MessageBox.Show(顾客和密码输入错误次数过多！, 提醒) = Windows.Forms.DialogResult.OK Then End End If End If End If End If s = s - 1 End SubEnd Class2、 车辆查询Imports System.Data.SqlClientPublic Class 车辆查询 Private ta As New DataTable Private 车牌 As Integer Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cl As New DataSet Dim da As SqlDataAdapter Dim str As String If TextBox1.Text Then Call DBopen() 打开数据库 str = select * from 车辆信息表 where 车牌 = & TextBox1.Text & da = New SqlDataAdapter(str, conn) da.Fill(cl, 车辆信息表) 将查询内容填充到数据集中 DataGridView1.DataSource = cl.Tables(车辆信息表) 获取数据源 DataGridView1.CurrentCell = Nothing Dim i As Integer For i = 1 To DataGridView1.RowCount 将每一行数据显现出来 DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToString Next ta = cl.Tables(车辆信息表) 与表内容显示出来 Call DBclose() 关闭数据库 If DataGridView1.RowCount = 1 Then datagridview为空状况 MessageBox.Show(对不起，没有符合你查找内容！, 显示) TextBox1.Text = TextBox1.Focus() End If Else MessageBox.Show(请输入要查找车牌号！, 提醒) TextBox1.Text = TextBox1.Focus() End If End SubEnd Class3、 车辆信息管理Imports System.Data.SqlClientPublic Class 车辆查询 Private ta As New DataTable Private 车牌 As Integer Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cl As New DataSet Dim da As SqlDataAdapter Dim str As String If TextBox1.Text Then Call DBopen() 打开数据库 str = select * from 车辆信息表 where 车牌 = & TextBox1.Text & da = New SqlDataAdapter(str, conn) da.Fill(cl, 车辆信息表) 将查询内容填充到数据集中 DataGridView1.DataSource = cl.Tables(车辆信息表) 获取数据源 DataGridView1.CurrentCell = Nothing Dim i As Integer For i = 1 To DataGridView1.RowCount 将每一行数据显现出来 DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToString Next ta = cl.Tables(车辆信息表) 与表内容显示出来 Call DBclose() 关闭数据库 If DataGridView1.RowCount = 1 Then datagridview为空状况 MessageBox.Show(对不起，没有符合你查找内容！, 显示) TextBox1.Text = TextBox1.Focus() End If Else MessageBox.Show(请输入要查找车牌号！, 提醒) TextBox1.Text = TextBox1.Focus() End If End SubEnd Class4、 删除顾客Imports System.Data.SqlClientImports System.DataPublic Class 删除顾客 Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged Call DBopen() Dim index As Integer Dim selectITem As String Dim sel As String Dim dr As SqlDataReader If ListView1.SelectedItems.Count 0 Then 判断有无被选中项 index = ListView1.SelectedItems(0).Index selectITem = ListView1.SelectedItems(0).Text sel = select * from 一般顾客登陆表 where 姓名 = & selectITem & Dim cmdname As New SqlClient.SqlCommand(sel, conn) dr = cmdname.ExecuteReader If dr.HasRows Then dr.Read() TextBox1.Text = dr(姓名).ToString TextBox1.ReadOnly = True dr.Close() End If End If Call DBclose() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Call DBopen() Dim str As String Dim sd As SqlDataReader str = select * from 一般顾客登陆表 Dim dr As New SqlCommand(str, conn) sd = dr.ExecuteReader For i As Integer = 0 To sd.FieldCount - 1 ListView1.Columns.Add(sd.GetName(i) Next Do While sd.Read Dim item As New ListViewItem(sd(0).ToString) For i As Integer = 1 To sd.FieldCount - 1 item.SubItems.Add(sd.Item(i).ToString) Next ListView1.Items.Add(item) Loop Button1.Enabled = False Call DBclose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1.Text = Then MessageBox.Show(没有顾客删除！, 提醒, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) Else If MessageBox.Show(你确定要删除顾客名为: & TextBox1.Text & 顾客？, 提醒, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then Call DBopen() Dim del As New String(delete from 一般顾客登陆表 where 姓名= & TextBox1.Text & ) Dim cmd As New SqlClient.SqlCommand(del, conn) cmd.ExecuteNonQuery() MsgBox(删除成功!, , 提醒) Call DBclose() End If Button1.Enabled = True ListView1.Clear() TextBox1.Text = End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End SubEnd Class5、 添加顾客Public Class 添加顾客1 Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MessageBox.Show(顾客名不能为空！, 提醒) ElseIf TextBox2.Text = Then MessageBox.Show(密码不能为空！, 提醒) ElseIf TextBox3.Text = Then MessageBox.Show(确定密码不能为空！, 提醒) ElseIf TextBox2.Text TextBox3.Text Then MessageBox.Show(两次输入密码不一样！, 提醒) Else Call DBopen() Dim strcmd As String strcmd = insert into 高级顾客登陆表(姓名,密码) values strcmd = strcmd & ( & TextBox1.Text & , & TextBox3.Text & ) Dim cmd As New SqlClient.SqlCommand(strcmd, conn) Try cmd.ExecuteNonQuery() MessageBox.Show(添加高级顾客成功!, 提醒) Catch ex As Exception MessageBox.Show(顾客名反复，请重新输入！, 提醒) TextBox1.Text = End Try Call DBclose() End If End SubEnd ClassPublic Class 登录提醒2 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() 登陆.Show() End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 主界面.Show() 主界面.MenuStrip1.Visible = False Me.Close() End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End SubEnd Class