车辆信息管理系统报告数据库C#Word下载.docx

1、17 4、删除用户18 5、添加用户20一、摘要本次课程设计报告主要论述了公司车队信息管理系统的分析、设计与开发,并在此基础上对其在Windows平台上的实现做了一定程度的研究。公司车队信息管理系统是运用在公司部门的系统工具，方便公司车队管理部门工作人员的工作，该系统主要根据公司车队的特点建立的，主要是记录和查询驾驶员信息、机动车信息。本次课程设计报告结合工程项目,具体论述了机动车驾驶员管理系统、机动车登记系统的需求分析,其中包括实体关系图、功能结构图以及数据流程图的分析和描述。 然后,报告着重讨论了车队驾驶员管理系统、车辆登记系统的数据库设计,文中详细论述了驾驶证管理系统数据库实现的各个步骤

2、。并讨论了车辆/驾驶员信息管理系统在J2EE平台上的具体实现及其部署。 最后,此报告对本次系统开发中遇到的几个关键问题进行了详细的阐述。包括驾驶证管理系统和机动车登记系统与其他系统的接口设计,IBM Websphere应用服务器的安全策略及系统访问控制方法的实现,以及基于PC服务器平台windows操作系统上Access数据库的性能优化问题。关键词：公司车队信息管理系统、Access数据库、Java二、需求分析1、课程设计任务出于经济方面的考虑，很多公司都会选择拥有自己的车队而不是租赁车辆。因此，公司需要有效的管理车队尤其是规模较大的车队，车队信息管理系统就是运用在公司的系统工具。该系统是根据

3、公司的特点建立的，主要是记录和查询驾驶员信息、机动车信息。早期的公司的车队信息主要是人工记录和人工管理的，不仅不容易记录，而且还不容易保存，耗时费力效果不佳。随着市场经济的不断发展，交通道路环境的不断改善，人口流动量不断增加，人们的出行愈加频繁，车站信息量迅猛增长，车辆方面的信息管理系统在人们的日常生活中发挥着越来越重要的作用。此次的车队信息管理系统实现了机动车辆驾驶员信息的管理，机动车信息的增加、删除、修改、查询，以满足人们的需求。车队信息管理系统主要分为三大部分：驾驶员信息管理、机动车信息管理和车辆信息查询驾驶员信息管理：此功能主要面向管理员。管理员可以在驾驶员信息管理模块实现对驾驶员信息

4、的管理。管理员首先应该建立驾驶员信息数据库，输入原始的数据信息，当有新的驾驶员信息的时候或者管理员需要修改某个驾驶员的相关信息以及想要删除某个驾驶员信息的时候，就可以完成相应的操作。管理员也可以在整个数据库中查寻相关驾驶员信息。机动车信息管理：管理员可以在机动车信息管理模块实现对机动车信息的管理。管理员首先应该建立机动车信息数据库，输入原始的数据信息，当有新的机动车信息的时候或者管理员需要修改某个机动车的相关信息以及想以在整个数据库中查寻相关机动车信息。车辆信息查询：此功能面向公司所有职员。公司职员可以查询公司车队中的车辆信息，以用于预订车辆进行商务活动。2、功能描述程序分为登陆界面，选择界面

5、，线路信息界面，机动车辆信息界面，车票信息这几个主体界面。使用时应先知道管理员帐号和密码，登陆进入系统主菜单界面，里面包括汽车信息、退出程序菜单项选择项，所需时间等。可以对它们进行添加,查询，删除。需要特别说明的是，当对数据进行操作时，在查询框内输入提示数据内容，对话框的表中和提示栏中都会出现所查询的数据，我们可以在提示栏中对数据进行删除和修改操作。在Java中利用ODBC访问技术操作数据库，建立到数据库中的映射类，在对话框类中通过引用映射类完成对数据库的操作。三、概要设计1、功能模块图退出2、实体图3、数据项表1: 高级用户数据表属性名存储代码类型长度备注用户编号char用户varchar用

6、户登录名密码5登录密码用户等级登陆者等级表2: 普通用户数据表用户登记表3：驾驶员数据表车主车牌车牌号码车辆牌号性别车主性别籍贯车主籍贯表4：车辆数据表车辆型号车型驾驶员车色车辆颜色发动机号发动机3车辆购买时间装载人数int载人数表5：车辆情况数据表外出时间车辆外出时间datetime回归时间车辆回归时间4、系统用户管理图5、数据流图四、调试测试1、数据库演示（2）程序各模块演示五、代码重要部分1、登录Public Class 登陆 Dim s As Integer = 3 Dim sqlstr As String Private Sub Button2_Click（ByVal sender

7、As System.Object, ByVal e As System.EventArgs） Handles 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 TextBox

8、1.Focus（） If TextBox1.Text And TextBox2.Text = Then MessageBox.Show（密码不能为空！） ElseIf TextBox1.Text = And TextBox2.Text 用户名不能为空！用户名和密码不能为空！ Else Call DBopen（） sqlstr = Select * From 高级用户登陆表Where = & TextBox1.Text & And 密码= TextBox2.Text & Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand（s

9、qlstr, conn） Dim dr As If dr.Read = True Then dr.Close（） 登录提示.Show（） TextBox1.Text = TextBox2.Text = Me.Visible = False Call DBclose（）Select * From 普通用户登陆表Where = Dim sqlcmd1 As SqlClient.SqlCommand = New SqlClient.SqlCommand（sqlstr, conn） Dim dr1 As If dr1.Read = True Then dr1.Close（） ElseIf s 判断有没

10、有被选中的项 index = ListView1.SelectedItems（0）.Index selectITem = ListView1.SelectedItems（0）.Text sel = select * from 普通用户登陆表 where = selectITem & Dim cmdname As New SqlClient.SqlCommand（sel, conn） If dr.HasRows Then dr.Read（） TextBox1.Text = dr（）.ToString TextBox1.ReadOnly = True Dim sd As SqlDataReader

11、select * from 普通用户登陆表 Dim dr As New SqlCommand（str, conn） For i As Integer = 0 To sd.FieldCount - 1 ListView1.Columns.Add（sd.GetName（i） Do While Dim item As New ListViewItem（sd（0）.ToString） For i As Integer = 1 To sd.FieldCount - 1 item.SubItems.Add（sd.Item（i）.ToString） ListView1.Items.Add（item） Loo

12、p Button1.Enabled = False If TextBox1.Text = 没有用户删除！你确定要删除用户名为:的用户？, MessageBoxButtons.OKCancel, MessageBoxIcon.Information） = Windows.Forms.DialogResult.OK Then Dim del As New String（delete from 普通用户登陆表 where = Dim cmd As New SqlClient.SqlCommand（del, conn） cmd.ExecuteNonQuery（） MsgBox（删除成功!, , But

13、ton1.Enabled = True ListView1.Clear（） Private Sub Button3_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles5、添加用户Public Class 添加用户1 Private Sub Label4_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） ElseIf TextBox2.Text = ElseIf TextBox3.Text = 确定密码不能为空！ ElseIf TextBox2.Text TextBox3.Text Then两次输入的密码不同！ Dim strcmd As String strcmd = insert into 高级用户登陆表（,密码） values strcmd = strcmd &（, TextBox3.Text &） Dim cmd As Ne