《车辆信息管理系统-报告(数据库、C#)(共23页).doc》由会员分享，可在线阅读，更多相关《车辆信息管理系统-报告(数据库、C#)(共23页).doc（23页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上专心-专注-专业数据库原理及应用数据库原理及应用课程设计课程设计设计题目：设计题目： 公司车队公司车队/ /辆信息管理系统辆信息管理系统 班班 级：级： * 姓姓 名：名： * 学学 号：号： * 指导教师：指导教师： * 成成 绩：绩： 20142014 年年 5 5 月月目录目录精选优质文档-倾情为你奉上专心-专注-专业1、数据库演示9 2、程序各功能演示10五、代码（重要部分）五、代码（重要部分）14141、登录152、车辆查精选优质文档-倾情为你奉上专心-专注-专业询16 3、车辆信息管理17 4、删除用户18 5、添加用户20一、摘要一、摘要本次课程设计报告
2、主要论述了公司车队信息管理系统的分析、设计与开发,并在此基础上对其在 Windows 平台上的实现做了一定程度的研究。公司车队信息管理系统是运用在公司部门的系统工具，方便公司车队管理部门工作人员的工作，该系统主要根据公司车队的特点建立的，主要是记录和查询驾驶员信息、机动车信息。本次课程设计报告结合工程项目,具体论述了机动车驾驶员管理系统、机动车登记系统的需求分析,其中包括实体关系图、功能结构图以及数据流程图的分析和描述。 然后,报告着重讨论了车队驾驶员管理系统、车辆登记系精选优质文档-倾情为你奉上专心-专注-专业统的数据库设计,文中详细论述了驾驶证管理系统数据库实现的各个步骤。并讨论了车辆/驾
3、驶员信息管理系统在 J2EE 平台上的具体实现及其部署。 最后,此报告对本次系统开发中遇到的几个关键问题进行了详细的阐述。包括驾驶证管理系统和机动车登记系统与其他系统的接口设计,IBM Websphere 应用服务器的安全策略及系统访问控制方法的实现,以及基于 PC 服务器平台 windows 操作系统上 Access 数据库的性能优化问题。关键词：公司车队信息管理系统、关键词：公司车队信息管理系统、AccessAccess 数据库、数据库、JavaJava二、需求分析二、需求分析1 1、课程设计任务课程设计任务出于经济方面的考虑，很多公司都会选择拥有自己的车队而不是租赁车辆。因此，公司需要有
4、效的管理车队尤其是规模较大的车队，车队信息管理系统就是运用在公司的系统工具。该系统是根据公司的特点建立的，主要是记录和查询驾驶员信息、机动车信息。早期的公司的车队信息主要是人工记录和人工管理的，不仅不容易记录，而且还不容易保存，耗时费力效果不佳。随着市场经济的不断发展，交通道路环境的不断改善，人口流动量不断增加，人们的出行愈加频繁，车站信息量迅猛增长，车辆方面的信息管理系统在人们的日常生活中发挥着越来越重要的作用。此次的车队信息管理系统实现了机动车辆驾驶员信息的管理，机动车信息的增加、删除、修改、查询，以满足人们的需求。车队信息管理系统主要分为三大部分：驾驶员信息管理、机动车信息管理和车辆信息
5、查询驾驶员信息管理：此功能主要面向管理员。管理员可以在驾驶员信息管理模块实现对驾驶员信息的管理。管理员首先应该建立驾驶员信息数据库，输入原始的数据信息，当有新的驾驶员信息的时候或者管理员需要修改某个驾驶员的相关信息以及想要删除某个驾驶员信息的时候，就可以完成相应的操作。管理员也可以在整个数据库中查寻相关驾驶员信息。机动车信息管理：此功能主要面向管理员。管理员可以在机动车信息管理模块实现对机动车信息的管理。管理员首先应该建立机动车信息数据库，输入原始的数据信息，当有新的机动车信息的时候或者管理员需要修改某个机动车的相关信息以及想以在整个数据库中查寻相关机动车信息。车辆信息查询：此功能面向公司所有
6、职员。公司职员可以查询公司车队中的车辆信息，以用于预订车辆进行商务活动。精选优质文档-倾情为你奉上专心-专注-专业2 2、功能描述功能描述程序分为登陆界面，选择界面，线路信息界面，机动车辆信息界面，车票信息这几个主体界面。使用时应先知道管理员帐号和密码，登陆进入系统主菜单界面，里面包括汽车信息、退出程序菜单选项，所需时间等。可以对它们进行添加,查询，删除。需要特别说明的是，当对数据进行操作时，在查询框内输入提示数据内容，对话框的表中和提示栏中都会出现所查询的数据，我们可以在提示栏中对数据进行删除和修改操作。在 Java 中利用 ODBC 访问技术操作数据库，建立到数据库中的映射类，在对话框类中
7、通过引用映射类完成对数据库的操作。3 3、概要设计概要设计1 1、功能模块图、功能模块图精选优质文档-倾情为你奉上专心-专注-专业车队信息管理系统驾驶员信息管理车辆信息管理车辆信息查询数据查询车辆信息查询驾驶员信息查询登陆数据处理驾驶员信息维护车辆信息维护退出精选优质文档-倾情为你奉上专心-专注-专业2 2、实体图、实体图驾驶员姓名性别年龄电话号码车辆编号驾驶员 ID用户姓名用户编号密码公司职员姓名职员 ID密码车辆编号车辆是否空闲驾驶员 ID精选优质文档-倾情为你奉上专心-专注-专业3 3、数据项、数据项表 1: 高级用户数据表属性名存储代码类型长度备注用户编号用户编号char10用户编号用
8、户姓名用户姓名varchar20用户登录名密码密码varchar5登录密码用户等级用户等级char5登陆者等级表 2: 普通用户数据表属性名存储代码类型长度备注用户编号用户编号char10用户编号用户姓名用户姓名varchar20用户登录名密码密码varchar5登录密码用户登记用户等级char5登陆者等级表 3：驾驶员数据表属性名存储代码类型长度备注姓名姓名char20车主姓名车牌车牌号码varchar10车辆牌号性别车主性别char5车主性别籍贯籍贯char10车主籍贯表 4：车辆数据表属性名存储代码类型长度备注车牌车牌char10车辆牌号车主车主varchar20车辆型号车型车型char
9、5驾驶员车色车色char5车辆颜色发动机号发动机char3车辆购买时间装载人数装载人数int载人数表 5：车辆情况数据表属性名存储代码类型长度备注车牌车牌char10车辆牌号车主车主varchar20车主姓名外出时间车辆外出时间datetime车辆外出时间回归时间车辆回归时间datetime车辆回归时间4 4、系统用户管理图、系统用户管理图精选优质文档-倾情为你奉上专心-专注-专业用户登录成功？用户管理界面是否精选优质文档-倾情为你奉上专心-专注-专业5 5、数据流图、数据流图查询车队信息身份验证管理车队信息管理员用户名密码系统管理公司职员用户名密码管理员表公司职员表驾驶员数据表管理员信息职员
10、信息车辆数据表驾驶员数据表车辆数据表职员信息验证成功密码错误管理员信息验证成功精选优质文档-倾情为你奉上专心-专注-专业4 4、调试测试调试测试（1 1） 、数据库演示、数据库演示（2 2）程序各模块演示程序各模块演示精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业5 5、代码（重要部分）代码（重要部分）1 1、登录、登录Public Class 登陆 Dim s As Integer = 3 Dim sqlstr As String
11、 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 Syste
12、m.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(用户名和密码不能为空！
13、, 提示) 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()
14、登录提示.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 = s
15、qlcmd1.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(用户和密码输入错
16、误次数过多！, 提示) = 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
17、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 车辆信
18、息表 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.To
19、String 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 Sub
20、End 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.Obje
21、ct, 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.D
22、ataSource = 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为空情
23、况 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_Selecte
24、dIndexChanged(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)
25、.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
26、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 In
27、teger = 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 Pr
28、ivate 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.OKC
29、ancel, 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 ListView
30、1.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.
31、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(用户名不能为
32、空！, 提示) 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 & ( &
33、 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 登录
34、提示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 S
35、ystem.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