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