车辆信息管理系统 报告(数据库、C#)

1、.数据库原理及应用课程设计设计题目： 公司车队/辆信息管理系统 班 级： * 姓 名： * 学 号： * 指导教师： * 成 绩： 2014年5月目录一、 摘要2二、 需求分析21、课程设计任务22、功能描述3三、 概要设计31、功能模块图42、实体图53、数据项64、系统用户管理图75、数据流图8四、 调试测试91、数据库演示······················

2、83;·················································

3、83;·····9 2、程序各功能演示··········································

4、3;····························10五、代码（重要部分）···················

5、3;·················································

6、3;·141、登录···············································

7、3;·········································152、车辆查询·······&#

8、183;·················································&#

9、183;························16 3、车辆信息管理·······················

10、83;·················································

11、83;17 4、删除用户················································

12、··································18 5、添加用户··············

13、83;·················································

14、83;·················20一、摘要本次课程设计报告主要论述了公司车队信息管理系统的分析、设计与开发,并在此基础上对其在Windows平台上的实现做了一定程度的研究。公司车队信息管理系统是运用在公司部门的系统工具，方便公司车队管理部门工作人员的工作，该系统主要根据公司车队的特点建立的，主要是记录和查询驾驶员信息、机动车信息。本次课程设计报告结合工程项目,具体论述了机动车驾驶员管理系统、机动车登记系统的需求分析,

15、其中包括实体关系图、功能结构图以及数据流程图的分析和描述。 然后,报告着重讨论了车队驾驶员管理系统、车辆登记系统的数据库设计,文中详细论述了驾驶证管理系统数据库实现的各个步骤。并讨论了车辆/驾驶员信息管理系统在J2EE平台上的具体实现及其部署。 最后,此报告对本次系统开发中遇到的几个关键问题进行了详细的阐述。包括驾驶证管理系统和机动车登记系统与其他系统的接口设计,IBM Websphere应用服务器的安全策略及系统访问控制方法的实现,以及基于PC服务器平台windows操作系统上Access数据库的性能优化问题。关键词：公司车队信息管理系统、Access数据库、Java二、需求分析1、 课程设

16、计任务出于经济方面的考虑，很多公司都会选择拥有自己的车队而不是租赁车辆。因此，公司需要有效的管理车队尤其是规模较大的车队，车队信息管理系统就是运用在公司的系统工具。该系统是根据公司的特点建立的，主要是记录和查询驾驶员信息、机动车信息。早期的公司的车队信息主要是人工记录和人工管理的，不仅不容易记录，而且还不容易保存，耗时费力效果不佳。随着市场经济的不断发展，交通道路环境的不断改善，人口流动量不断增加，人们的出行愈加频繁，车站信息量迅猛增长，车辆方面的信息管理系统在人们的日常生活中发挥着越来越重要的作用。此次的车队信息管理系统实现了机动车辆驾驶员信息的管理，机动车信息的增加、删除、修改、查询，以满

17、足人们的需求。车队信息管理系统主要分为三大部分：驾驶员信息管理、机动车信息管理和车辆信息查询驾驶员信息管理：此功能主要面向管理员。管理员可以在驾驶员信息管理模块实现对驾驶员信息的管理。管理员首先应该建立驾驶员信息数据库，输入原始的数据信息，当有新的驾驶员信息的时候或者管理员需要修改某个驾驶员的相关信息以及想要删除某个驾驶员信息的时候，就可以完成相应的操作。管理员也可以在整个数据库中查寻相关驾驶员信息。机动车信息管理：此功能主要面向管理员。管理员可以在机动车信息管理模块实现对机动车信息的管理。管理员首先应该建立机动车信息数据库，输入原始的数据信息，当有新的机动车信息的时候或者管理员需要修改某个机

18、动车的相关信息以及想以在整个数据库中查寻相关机动车信息。车辆信息查询：此功能面向公司所有职员。公司职员可以查询公司车队中的车辆信息，以用于预订车辆进行商务活动。2、 功能描述程序分为登陆界面，选择界面，线路信息界面，机动车辆信息界面，车票信息这几个主体界面。使用时应先知道管理员帐号和密码，登陆进入系统主菜单界面，里面包括汽车信息、退出程序菜单选项，所需时间等。可以对它们进行添加,查询，删除。需要特别说明的是，当对数据进行操作时，在查询框内输入提示数据内容，对话框的表中和提示栏中都会出现所查询的数据，我们可以在提示栏中对数据进行删除和修改操作。在Java中利用ODBC访问技术操作数据库，建立到数

19、据库中的映射类，在对话框类中通过引用映射类完成对数据库的操作。3、 概要设计1、功能模块图退出车队信息管理系统驾驶员信息管理车辆信息管理车辆信息查询数据查询车辆信息查询驾驶员信息查询登陆数据处理驾驶员信息维护车辆信息维护2、实体图驾驶员姓名性别年龄电话号码车辆编号驾驶员ID用户姓名用户编号密码公司职员姓名职员ID密码车辆编号车辆是否空闲驾驶员ID3、数据项表1: 高级用户数据表属性名存储代码类型长度备注用户编号用户编号char10用户编号用户姓名用户姓名varchar20用户登录名密码密码varchar5登录密码用户等级用户等级char5登陆者等级表2: 普通用户数据表属性名存储代码类型长度备

20、注用户编号用户编号char10用户编号用户姓名用户姓名varchar20用户登录名密码密码varchar5登录密码用户登记用户等级char5登陆者等级表3：驾驶员数据表属性名存储代码类型长度备注姓名姓名char20车主姓名车牌车牌号码varchar10车辆牌号性别车主性别char5车主性别籍贯籍贯char10车主籍贯表4：车辆数据表属性名存储代码类型长度备注车牌车牌char10车辆牌号车主车主varchar20车辆型号车型车型char5驾驶员车色车色char5车辆颜色发动机号发动机char3车辆购买时间装载人数装载人数int载人数表5：车辆情况数据表属性名存储代码类型长度备注车牌车牌char1

21、0车辆牌号车主车主varchar20车主姓名外出时间车辆外出时间datetime车辆外出时间回归时间车辆回归时间datetime车辆回归时间4、系统用户管理图用户登录成功？用户管理界面是否查询车队信息身份验证管理车队信息管理员用户名密码系统管理公司职员用户名密码管理员表公司职员表驾驶员数据表管理员信息职员信息车辆数据表驾驶员数据表车辆数据表职员信息验证成功密码错误管理员信息验证成功5、数据流图4、 调试测试（1）、数据库演示（2） 程序各模块演示5、 代码（重要部分）1、登录Public Class 登陆 Dim s As Integer = 3 Dim sqlstr As String Pr

22、ivate 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(

23、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 <> "&q

24、uot; Then MessageBox.Show("用户名不能为空！", "提示") ElseIf TextBox1.Text = "" And TextBox2.Text = "" Then MessageBox.Show("用户名和密码不能为空！", "提示") Else Call DBopen() sqlstr = "Select * From 高级用户登陆表Where 姓名='" & TextBox1.Text & &qu

25、ot;' 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 =

26、"" 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

27、) 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

28、.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.SqlClientPubl

29、ic 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 D

30、im 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, "车辆信息表") 

31、9;将查询的内容填充到数据集中 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("车辆信息表") '与表的内容显示出来 C

32、all DBclose() '关闭数据库 If DataGridView1.RowCount = 1 Then 'datagridview为空情况 MessageBox.Show("对不起，没有符合你查找的内容！", "显示") TextBox1.Text = "" TextBox1.Focus() End If Else MessageBox.Show("请输入要查找的车牌号！", "提示") TextBox1.Text = "" TextBox1.Focu

33、s() 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 A

34、s 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 & "'"

35、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

36、 = 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("请输入要查找的车

37、牌号！", "提示") 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.SelectedIn

38、dexChanged 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

39、姓名 = '" & 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 Button

40、1_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.Colu

41、mns.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 Syste

42、m.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 & "的用户？", &

43、quot;提示", 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.ExecuteNonQue

44、ry() 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、 添加用户Pu

45、blic 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("用户名不能为空！&quo