数据库原理及应用课程设计设计题目：公司车队/辆信息管理系统班级： ************* 姓名： ******* 学号： ********** 指导教师： ********* 成绩：2014年5月目录一、摘要 (2)二、需求分析 (2)1、课程设计任务 (2)2、功能描述 (3)三、概要设计 (3)1、功能模块图 (4)2、实体图 (5)3、数据项 (6)4、系统用户管理图 (7)5、数据流图 (8)四、调试测试 (9)1、数据库演示 (9)2、程序各功能演示 (10)五、代码（重要部分） (14)1、登录 (15)2、车辆查询 (16)3、车辆信息管理 (17)4、删除用户 (18)5、添加用户 (20)一、摘要本次课程设计报告主要论述了公司车队信息管理系统的分析、设计与开发,并在此基础上对其在Windows平台上的实现做了一定程度的研究。
公司车队信息管理系统是运用在公司部门的系统工具，方便公司车队管理部门工作人员的工作，该系统主要根据公司车队的特点建立的，主要是记录和查询驾驶员信息、机动车信息。
本次课程设计报告结合工程项目,具体论述了机动车驾驶员管理系统、机动车登记系统的需求分析,其中包括实体关系图、功能结构图以及数据流程图的分析和描述。
然后,报告着重讨论了车队驾驶员管理系统、车辆登记系统的数据库设计,文中详细论述了驾驶证管理系统数据库实现的各个步骤。
并讨论了车辆/驾驶员信息管理系统在J2EE平台上的具体实现及其部署。
最后,此报告对本次系统开发中遇到的几个关键问题进行了详细的阐述。
包括驾驶证管理系统和机动车登记系统与其他系统的接口设计,IBM Websphere应用服务器的安全策略及系统访问控制方法的实现,以及基于PC服务器平台windows操作系统上Access数据库的性能优化问题。
关键词：公司车队信息管理系统、Access数据库、Java二、需求分析1、课程设计任务出于经济方面的考虑，很多公司都会选择拥有自己的车队而不是租赁车辆。
因此，公司需要有效的管理车队尤其是规模较大的车队，车队信息管理系统就是运用在公司的系统工具。
该系统是根据公司的特点建立的，主要是记录和查询驾驶员信息、机动车信息。
早期的公司的车队信息主要是人工记录和人工管理的，不仅不容易记录，而且还不容易保存，耗时费力效果不佳。
随着市场经济的不断发展，交通道路环境的不断改善，人口流动量不断增加，人们的出行愈加频繁，车站信息量迅猛增长，车辆方面的信息管理系统在人们的日常生活中发挥着越来越重要的作用。
此次的车队信息管理系统实现了机动车辆驾驶员信息的管理，机动车信息的增加、删除、修改、查询，以满足人们的需求。
车队信息管理系统主要分为三大部分：驾驶员信息管理、机动车信息管理和车辆信息查询驾驶员信息管理：此功能主要面向管理员。
管理员可以在驾驶员信息管理模块实现对驾驶员信息的管理。
管理员首先应该建立驾驶员信息数据库，输入原始的数据信息，当有新的驾驶员信息的时候或者管理员需要修改某个驾驶员的相关信息以及想要删除某个驾驶员信息的时候，就可以完成相应的操作。
管理员也可以在整个数据库中查寻相关驾驶员信息。
机动车信息管理：此功能主要面向管理员。
管理员可以在机动车信息管理模块实现对机动车信息的管理。
管理员首先应该建立机动车信息数据库，输入原始的数据信息，当有新的机动车信息的时候或者管理员需要修改某个机动车的相关信息以及想以在整个数据库中查寻相关机动车信息。
车辆信息查询：此功能面向公司所有职员。
公司职员可以查询公司车队中的车辆信息，以用于预订车辆进行商务活动。
2、功能描述程序分为登陆界面，选择界面，线路信息界面，机动车辆信息界面，车票信息这几个主体界面。
使用时应先知道管理员帐号和密码，登陆进入系统主菜单界面，里面包括汽车信息、退出程序菜单选项，所需时间等。
可以对它们进行添加,查询，删除。
需要特别说明的是，当对数据进行操作时，在查询框内输入提示数据内容，对话框的表中和提示栏中都会出现所查询的数据，我们可以在提示栏中对数据进行删除和修改操作。
在Java中利用ODBC访问技术操作数据库，建立到数据库中的映射类，在对话框类中通过引用映射类完成对数据库的操作。
三、概要设计1、功能模块图2、实体图3、数据项表1: 高级用户数据表表2: 普通用户数据表表3：驾驶员数据表表4：车辆数据表表5：车辆情况数据表4、系统用户管理图5、数据流图四、调试测试（1）、数据库演示（2）程序各模块演示五、代码（重要部分）1、登录Public Class登陆Dim s As Integer = 3Dim sqlstr As StringPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf MessageBox.Show("你确定是否退出登录界面？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes ThenEndEnd IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox1.Focus()If TextBox1.Text <> ""And TextBox2.Text = ""ThenMessageBox.Show("密码不能为空！", "提示")ElseIf TextBox1.Text = ""And TextBox2.Text <> ""ThenMessageBox.Show("用户名不能为空！", "提示")ElseIf TextBox1.Text = ""And TextBox2.Text = ""ThenMessageBox.Show("用户名和密码不能为空！", "提示")ElseCall DBopen()sqlstr = "Select * From 高级用户登陆表Where 姓名='"& TextBox1.Text & "' And 密码= '"& TextBox2.Text & "'"Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)Dim dr As SqlClient.SqlDataReaderdr = sqlcmd.ExecuteReaderIf dr.Read = True Thendr.Close()登录提示.Show()TextBox1.Text = ""TextBox2.Text = ""Me.Visible = FalseCall DBclose()ElseCall DBopen()sqlstr = "Select * From 普通用户登陆表Where 姓名='" & TextBox1.Text & "' And 密码= '" & TextBox2.Text & "'"Dim sqlcmd1 As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)Dim dr1 As SqlClient.SqlDataReaderdr1 = sqlcmd1.ExecuteReaderIf dr1.Read = True Then登录提示.Show()TextBox1.Text = ""TextBox2.Text = ""Me.Visible = Falsedr1.Close()Call DBclose()ElseIf s <> 0 ThenMessageBox.Show("输入信息有误！", "提示", MessageBoxButtons.OKCancel, rmation)TextBox1.Text = ""TextBox2.Text = ""ElseIf MessageBox.Show("用户和密码输入错误次数过多！", "提示") = Windows.Forms.DialogResult.OK ThenEndEnd IfEnd IfEnd IfEnd Ifs = s - 1End SubEnd Class2、车辆查询Imports System.Data.SqlClientPublic Class车辆查询Private ta As New DataTablePrivate车牌As IntegerPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim cl As New DataSetDim da As SqlDataAdapterDim str As StringIf TextBox1.Text <> ""ThenCall DBopen() '打开数据库str = "select * from 车辆信息表where 车牌='" & TextBox1.Text & "'"da = New SqlDataAdapter(str, conn)da.Fill(cl, "车辆信息表") '将查询的内容填充到数据集中DataGridView1.DataSource = cl.Tables("车辆信息表") '获取数据源DataGridView1.CurrentCell = NothingDim i As IntegerFor i = 1 To DataGridView1.RowCount '将每一行的数据显现出来DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToStringNextta = cl.Tables("车辆信息表") '与表的内容显示出来Call DBclose() '关闭数据库If DataGridView1.RowCount = 1 Then'datagridview为空情况MessageBox.Show("对不起，没有符合你查找的内容！", "显示")TextBox1.Text = ""TextBox1.Focus()End IfElseMessageBox.Show("请输入要查找的车牌号！", "提示")TextBox1.Text = ""TextBox1.Focus()End IfEnd SubEnd Class3、车辆信息管理Imports System.Data.SqlClientPublic Class车辆查询Private ta As New DataTablePrivate车牌As IntegerPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim cl As New DataSetDim da As SqlDataAdapterDim str As StringIf TextBox1.Text <> ""ThenCall DBopen() '打开数据库str = "select * from 车辆信息表where 车牌='" & TextBox1.Text & "'"da = New SqlDataAdapter(str, conn)da.Fill(cl, "车辆信息表") '将查询的内容填充到数据集中DataGridView1.DataSource = cl.Tables("车辆信息表") '获取数据源DataGridView1.CurrentCell = NothingDim i As IntegerFor i = 1 To DataGridView1.RowCount '将每一行的数据显现出来DataGridView1.Rows(i - 1).HeaderCell.Value = i.ToStringNextta = cl.Tables("车辆信息表") '与表的内容显示出来Call DBclose() '关闭数据库If DataGridView1.RowCount = 1 Then'datagridview为空情况MessageBox.Show("对不起，没有符合你查找的内容！", "显示")TextBox1.Text = ""TextBox1.Focus()End IfElseMessageBox.Show("请输入要查找的车牌号！", "提示")TextBox1.Text = ""TextBox1.Focus()End IfEnd 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.SelectedIndexChangedCall DBopen()Dim index As IntegerDim selectITem As StringDim sel As StringDim dr As SqlDataReaderIf ListView1.SelectedItems.Count > 0 Then'判断有没有被选中的项index = ListView1.SelectedItems(0).IndexselectITem = ListView1.SelectedItems(0).Textsel = "select * from 普通用户登陆表where 姓名= '" & selectITem & "'"Dim cmdname As New SqlClient.SqlCommand(sel, conn)dr = cmdname.ExecuteReaderIf dr.HasRows Thendr.Read()TextBox1.Text = dr("姓名").ToStringTextBox1.ReadOnly = Truedr.Close()End IfEnd IfCall DBclose()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickCall DBopen()Dim str As StringDim sd As SqlDataReaderstr = "select * from 普通用户登陆表"Dim dr As New SqlCommand(str, conn)sd = dr.ExecuteReaderFor i As Integer = 0 To sd.FieldCount - 1ListView1.Columns.Add(sd.GetName(i))NextDo While sd.ReadDim item As New ListViewItem(sd(0).ToString)For i As Integer = 1 To sd.FieldCount - 1item.SubItems.Add(sd.Item(i).ToString)NextListView1.Items.Add(item)LoopButton1.Enabled = FalseCall DBclose()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf TextBox1.Text = ""ThenMessageBox.Show("没有用户删除！", "提示", MessageBoxButtons.OKCancel, rmation)ElseIf MessageBox.Show("你确定要删除用户名为:"& TextBox1.Text & "的用户？", "提示", MessageBoxButtons.OKCancel, rmation) = Windows.Forms.DialogResult.OK ThenCall 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 IfButton1.Enabled = TrueListView1.Clear()TextBox1.Text = ""End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickMe.Close()End SubEnd Class5、添加用户Public Class添加用户1Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf TextBox1.Text = ""ThenMessageBox.Show("用户名不能为空！", "提示")ElseIf TextBox2.Text = ""ThenMessageBox.Show("密码不能为空！", "提示")ElseIf TextBox3.Text = ""ThenMessageBox.Show("确定密码不能为空！", "提示")ElseIf TextBox2.Text <> TextBox3.Text ThenMessageBox.Show("两次输入的密码不同！", "提示")ElseCall DBopen()Dim strcmd As Stringstrcmd = "insert into 高级用户登陆表(姓名,密码) values "strcmd = strcmd & "('" & TextBox1.Text & "','" & TextBox3.Text & "')"Dim cmd As New SqlClient.SqlCommand(strcmd, conn)Trycmd.ExecuteNonQuery()MessageBox.Show("添加高级用户成功!", "提示")Catch ex As ExceptionMessageBox.Show("用户名重复，请重新输入！", "提示")TextBox1.Text = ""End TryCall DBclose()End IfEnd SubEnd ClassPublic Class登录提示2Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()登陆.Show()End SubPrivate Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.ClickEnd SubPrivate Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click主界面.Show()主界面.MenuStrip1.Visible = FalseMe.Close()End SubPrivate Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ClickEnd SubPrivate Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.ClickEnd SubEnd Class。