车辆信息管理系统报告数据库C#Word下载.docx
《车辆信息管理系统报告数据库C#Word下载.docx》由会员分享，可在线阅读，更多相关《车辆信息管理系统报告数据库C#Word下载.docx（21页珍藏版）》请在冰点文库上搜索。
17
4、删除用户·
18
5、添加用户·
20
一、摘要
本次课程设计报告主要论述了公司车队信息管理系统的分析、设计与开发,并在此基础上对其在Windows平台上的实现做了一定程度的研究。
公司车队信息管理系统是运用在公司部门的系统工具，方便公司车队管理部门工作人员的工作，该系统主要根据公司车队的特点建立的，主要是记录和查询驾驶员信息、机动车信息。
本次课程设计报告结合工程项目,具体论述了机动车驾驶员管理系统、机动车登记系统的需求分析,其中包括实体关系图、功能结构图以及数据流程图的分析和描述。
然后,报告着重讨论了车队驾驶员管理系统、车辆登记系统的数据库设计,文中详细论述了驾驶证管理系统数据库实现的各个步骤。
并讨论了车辆/驾驶员信息管理系统在J2EE平台上的具体实现及其部署。
最后,此报告对本次系统开发中遇到的几个关键问题进行了详细的阐述。
包括驾驶证管理系统和机动车登记系统与其他系统的接口设计,IBMWebsphere应用服务器的安全策略及系统访问控制方法的实现,以及基于PC服务器平台windows操作系统上Access数据库的性能优化问题。
关键词：
公司车队信息管理系统、Access数据库、Java
二、需求分析
1、课程设计任务
出于经济方面的考虑，很多公司都会选择拥有自己的车队而不是租赁车辆。
因此，公司需要有效的管理车队尤其是规模较大的车队，车队信息管理系统就是运用在公司的系统工具。
该系统是根据公司的特点建立的，主要是记录和查询驾驶员信息、机动车信息。
早期的公司的车队信息主要是人工记录和人工管理的，不仅不容易记录，而且还不容易保存，耗时费力效果不佳。
随着市场经济的不断发展，交通道路环境的不断改善，人口流动量不断增加，人们的出行愈加频繁，车站信息量迅猛增长，车辆方面的信息管理系统在人们的日常生活中发挥着越来越重要的作用。
此次的车队信息管理系统实现了机动车辆驾驶员信息的管理，机动车信息的增加、删除、修改、查询，以满足人们的需求。
车队信息管理系统主要分为三大部分：
驾驶员信息管理、机动车信息管理和车辆信息查询
驾驶员信息管理：
此功能主要面向管理员。
管理员可以在驾驶员信息管理模块实现对驾驶员信息的管理。
管理员首先应该建立驾驶员信息数据库，输入原始的数据信息，当有新的驾驶员信息的时候或者管理员需要修改某个驾驶员的相关信息以及想要删除某个驾驶员信息的时候，就可以完成相应的操作。
管理员也可以在整个数据库中查寻相关驾驶员信息。
机动车信息管理：
管理员可以在机动车信息管理模块实现对机动车信息的管理。
管理员首先应该建立机动车信息数据库，输入原始的数据信息，当有新的机动车信息的时候或者管理员需要修改某个机动车的相关信息以及想以在整个数据库中查寻相关机动车信息。
车辆信息查询：
此功能面向公司所有职员。
公司职员可以查询公司车队中的车辆信息，以用于预订车辆进行商务活动。
2、功能描述
程序分为登陆界面，选择界面，线路信息界面，机动车辆信息界面，车票信息这几个主体界面。
使用时应先知道管理员帐号和密码，登陆进入系统主菜单界面，里面包括汽车信息、退出程序菜单项选择项，所需时间等。
可以对它们进行添加,查询，删除。
需要特别说明的是，当对数据进行操作时，在查询框内输入提示数据内容，对话框的表中和提示栏中都会出现所查询的数据，我们可以在提示栏中对数据进行删除和修改操作。
在Java中利用ODBC访问技术操作数据库，建立到数据库中的映射类，在对话框类中通过引用映射类完成对数据库的操作。
三、概要设计
1、功能模块图
退出
2、实体图
3、数据项
表1:
高级用户数据表
属性名
存储代码
类型
长度
备注
用户编号
char
用户
varchar
用户登录名
密码
5
登录密码
用户等级
登陆者等级
表2:
普通用户数据表
用户登记
表3：
驾驶员数据表
车主
车牌
车牌号码
车辆牌号
性别
车主性别
籍贯
车主籍贯
表4：
车辆数据表
车辆型号
车型
驾驶员
车色
车辆颜色
发动机号
发动机
3
车辆购买时间
装载人数
int
载人数
表5：
车辆情况数据表
外出时间
车辆外出时间
datetime
回归时间
车辆回归时间
4、系统用户管理图
5、数据流图
四、调试测试
〔1〕、数据库演示
（2）程序各模块演示
五、代码〔重要部分〕
1、登录
PublicClass登陆
DimsAsInteger=3
DimsqlstrAsString
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles
IfMessageBox.Show（"
你确定是否退出登录界面？
"
"
提示"
MessageBoxButtons.YesNo,MessageBoxIcon.Question）=Windows.Forms.DialogResult.YesThen
End
EndIf
EndSub
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles
TextBox1.Focus（）
IfTextBox1.Text<
>
"
AndTextBox2.Text="
Then
MessageBox.Show（"
密码不能为空！
）
ElseIfTextBox1.Text="
AndTextBox2.Text<
用户名不能为空！
用户名和密码不能为空！
Else
CallDBopen（）
sqlstr="
Select*From高级用户登陆表Where='
&
TextBox1.Text&
'
And密码='
TextBox2.Text&
DimsqlcmdAsSqlClient.SqlCommand=NewSqlClient.SqlCommand（sqlstr,conn）
DimdrAs
Ifdr.Read=TrueThen
dr.Close（）
登录提示.Show（）
TextBox1.Text="
TextBox2.Text="
Me.Visible=False
CallDBclose（）
Select*From普通用户登陆表Where='
Dimsqlcmd1AsSqlClient.SqlCommand=NewSqlClient.SqlCommand（sqlstr,conn）
Dimdr1As
Ifdr1.Read=TrueThen
dr1.Close（）
ElseIfs<
0Then
输入信息有误！
MessageBoxButtons.OKCancel,MessageBoxIcon.Information）
用户和密码输入错误次数过多！
）=Windows.Forms.DialogResult.OKThen
s=s-1
EndClass
2、车辆查询
Imports
PublicClass车辆查询
PrivatetaAsNewDataTable
Private车牌AsInteger
Me.Close（）
DimclAsNewDataSet
DimdaAsSqlDataAdapter
DimstrAsString
CallDBopen（）'
打开数据库
str="
select*from车辆信息表where车牌='
da=NewSqlDataAdapter（str,conn）
da.Fill（cl,"
车辆信息表"
）'
将查询的内容填充到数据集中
DataGridView1.DataSource=cl.Tables（"
获取数据源
DataGridView1.CurrentCell=Nothing
DimiAsInteger
Fori=1ToDataGridView1.RowCount'
将每一行的数据显现出来
Next
ta=cl.Tables（"
与表的内容显示出来
CallDBclose（）'
关闭数据库
IfDataGridView1.RowCount=1Then'
datagridview为空情况
对不起，没有符合你查找的内容！
显示"
请输入要查找的车牌号！
3、车辆信息管理
4、删除用户
PublicClass删除用户
PrivateSubListView1_SelectedIndexChanged（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles
DimindexAsInteger
DimselectITemAsString
DimselAsString
DimdrAsSqlDataReader
IfListView1.SelectedItems.Count>
'
判断有没有被选中的项
index=ListView1.SelectedItems（0）.Index
selectITem=ListView1.SelectedItems（0）.Text
sel="
select*from普通用户登陆表where='
selectITem&
DimcmdnameAsNewSqlClient.SqlCommand（sel,conn）
Ifdr.HasRowsThen
dr.Read（）
TextBox1.Text=dr（"
）.ToString
TextBox1.ReadOnly=True
DimsdAsSqlDataReader
select*from普通用户登陆表"
DimdrAsNewSqlCommand（str,conn）
ForiAsInteger=0Tosd.FieldCount-1
ListView1.Columns.Add（sd.GetName（i））
DoWhile
DimitemAsNewListViewItem（sd（0）.ToString）
ForiAsInteger=1Tosd.FieldCount-1
item.SubItems.Add（sd.Item（i）.ToString）
ListView1.Items.Add（item）
Loop
Button1.Enabled=False
IfTextBox1.Text="
没有用户删除！
你确定要删除用户名为:
的用户？
MessageBoxButtons.OKCancel,MessageBoxIcon.Information）=Windows.Forms.DialogResult.OKThen
DimdelAsNewString（"
deletefrom普通用户登陆表where='
DimcmdAsNewSqlClient.SqlCommand（del,conn）
cmd.ExecuteNonQuery（）
MsgBox（"
删除成功!
,"
Button1.Enabled=True
ListView1.Clear（）
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles
5、添加用户
PublicClass添加用户1
PrivateSubLabel4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）
ElseIfTextBox2.Text="
ElseIfTextBox3.Text="
确定密码不能为空！
ElseIfTextBox2.Text<
TextBox3.TextThen
两次输入的密码不同！
DimstrcmdAsString
strcmd="
insertinto高级用户登陆表（,密码）values"
strcmd=strcmd&
（'
'
TextBox3.Text&
）"
DimcmdAsNe
升级会员 