长途汽车管理系统设计数据库课程设计报告含程序.docx
《长途汽车管理系统设计数据库课程设计报告含程序.docx》由会员分享，可在线阅读，更多相关《长途汽车管理系统设计数据库课程设计报告含程序.docx（30页珍藏版）》请在冰点文库上搜索。
长途汽车管理系统设计数据库课程设计报告含程序
（此文档为word格式，下载后您可任意编辑修改！
）
课程设计报告
专业信息管理与信息系统
课程名称数据库原理与应用
设计题目长途汽车管理系统设计
设计题目:
长途汽车管理系统设计
设计主要内容:
一、开发平台：
VB+SQLSERVER2000
二、功能要求：
1、设计内容
设计一个长途汽车管理系统，该系统的用户由一般用户和管理员和司机组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。
用sqlserver2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。
2、长途汽车管理信息系统主要功能
（1）登录界面、本用户密码的修改界面。
（2）普通用户管理：
长途汽车路线查询界面（按照起点或者终点查询）
（2）汽车管理（司机）：
长途汽车查询界面（按照车牌号或者司机名查询）。
（3）管理员管理：
管理员登录界面、长途汽车登记界面（包括查询，添加、修改、删除等操作）、司机信息管理界面（包括查询、删除、修改）、长途路线界面（包括查询、添加、修改、删除等操作）。
3、长途汽车管理信息系统数据库表单（可以按照需求增加）
（1）用户信息表单，主要字段有：
用户名、密码、用户身份（管理员和普通用户、司机）
（2）司机信息表单，主要字段有：
车牌号（外码）、司机名、驾驶证号、性别、宅电、手机、出生日期、、邮编、地址、备注、
（3）长途汽车管理表单，主要字段有：
车牌号、路线编号（外码）、司机名
（4）长途路线详细表单，主要字段有：
路线编号、发车时间、沿途停靠点、到达时间、票价、起点、终点
三、课程设计报告主要内容：
1长途汽车管理系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍）
2长途汽车管理系统界面设计（给出界面截图及其主要控件的属性设置表格）
3长途汽车管理系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）
4长途汽车管理系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句的注释）
1长途汽车信息管理系统需求分析
图1.1长途汽车信息管理系统
1.1系统登录
在登陆界面中选择登陆用户身份。
按照用户权限相应的拥有进入相应界面的权利：
长途汽车路线查询，长途汽车查询，长途汽车路线信息管理，司机信息管理，长途汽车管理、用户信息管理。
1.2用户管理
1.2.1新用户注册
通过新用户注册界面，注册一个新的用户。
权限为普通用户。
1.2.2用户信息管理
利用VB界面可以将你要查询的用户信息内容从数据库的表单中用户信息查找出来。
而只有管理员才可以进入的用户信息更新界面可以通过VB界面来修改和删除你存储在数据库中的用户信息。
1.3.1用户信息添加
利用VB界面输入一部分信息来可以将你用户信息添加到数据库中
1.3.2用户信息删除
通过VB界面来添加或修改你所存储在数据库中的用户信息。
1.4长途汽车路线查询
利用VB界面输入路线号来可以把有关该路线号的所有信息都显示出来
1.5长途汽车路线管理
管理员可以通过这个界面对长途汽车各路线的发车时间、沿途停靠点、到达时间、票价及起点和终点进行增、删、改、查。
1.6长途汽车管理
管理员可以通过这部分界面对长途汽车的车牌号、路线编号、司机名进行增、删、改、查。
1.7司机信息管理
管理员可以通过这部分界面对司机的司机名、车牌号、驾驶证号、性别、宅电、手机号、出生年月、邮编、地址等进行增、删、改、查。
1.8退出
退出系统
2长途汽车管理系统界面设计
图2.1欢迎界面
表2.1欢迎界面属性表
对象
属性
属性值
Form1
caption
长途汽车管理系统
Label1
caption
欢迎进入长途汽车管理系统
backstyle
0
Combo1
list
管理员
司机
用户
Image1
caption
确定
Image2
caption
注册
图2.2登录界面
表2.2司机、管理员、用户登陆属性表
对象
属性
属性值
Label1
caption
帐号
Label2
caption
密码
Text1
text
NULL
Text2
text
NULL
Image1
Picture
确定
Image2
Picture
取消
图2.3长途汽车路线查询界面
表2.3长途汽车路线查询属性表
对象
属性
属性值
Label1
caption
长途汽车路线信息
Label2
caption
路线基本信息
Label3
caption
路线编号
Label4
caption
发车时间
Label5
caption
沿途停靠点
Label6
caption
到达时间
Label7
caption
票价
Label8
caption
起点
Label9
caption
终点
line
borderwidth
1
frame
caption
NULL
Command1
caption
查询
Text1
text
NULL
Text2
text
NULL
Text3
text
NULL
Text4
text
NULL
Text5
text
NULL
Text6
text
NULL
Combo1
list
x01、x02、x03、x04
Adodclline
Caption
Adodclline
recordsource
longline
CommandType
2-adCmdTable
Visible
False
图2.4管理员造作界面
图2.5用户信息管理界面
表2.5用户信息管理界面属性表
对象
属性
属性值
SSTab1
caption
添加、删除、查询
Label1
caption
用户名
Label2
caption
密码
Label3
caption
身份
Image1
Picture
确定
Image2
Picture
取消
图2.6用户信息管理界面
表2.6用户信息管理界面属性表：
对象
属性
属性值
datagrid
datasource
Adodc1
Adodc1
recordsource
longline
CommandType
2-adCmdTable
Visible
False
Frame1
Image1
Picture
添加
Image2
Picture
更新
Image3
Picture
退出
图2.7用户注册界面
表2.7用户注册界面属性表：
对象
属性
属性值
datagrid
datasource
Adodc1
Adodc1
recordsource
User_table
CommandType
2-adCmdTable
Visible
False
Text1
text
NULL
Text2
text
NULL
Text2
text
NULL
Image1
Picture
确定
Image2
Picture
退出
Timer1
Interval
300
Label1
Caption
图2.8司机信息管理界面
表2.8司机信息管理界面属性表：
对象
属性
属性值
SSTab1
caption
添加、删除、查询
Label1
caption
车牌号
Label2
caption
司机名
Label3
caption
驾驶证号
Image1
Picture
添加
Image2
Picture
退出
Image3
Picture
更新
datagrid
datasource
Adodc1
Adodc1
datasource
driver
CommandType
2-adCmdTable
Visible
False
图2.8用户密码修改界面
表2.8用户密码修改界面属性表：
对象
属性
属性值
Label1
caption
用户名
Label2
caption
旧密码
Label3
caption
新密码
Label3
caption
确认密码
Image1
Picture
确定
Image2
Picture
退出
datagrid
datasource
Adodc1
Adodc1
datasource
User_table
CommandType
2-adCmdTable
Visible
False
图2.9司机查询界面
表2.9司机查询界面属性表：
对象
属性
属性值
Image1
Picture
退出
datagrid
datasource
Adodc1
Adodc1
datasource
Car
CommandType
2-adCmdTable
Visible
False
3长途汽车信息管理数据库设计
3.1用户信息表单
此表单包含用户的基本登录信息，如表3.1所示:
表3.1用户信息表单
列名
含义
数据类型
约束
username
用户
Char（10）
主码
code
密码
Char（10）
NotNULL
identities
身份
Char（8）
管理员、司机、用户
3.2司机信息表单
此表单包司机的基本信息，如表3.2所示:
表3.2司机信息表单
列名
含义
数据类型
约束
cnum
车牌号
Char（10）
外码
dname
司机名
Char（10）
外码
jnum
驾驶证号
Char（18）
主码
sex
性别
Char
（2）
NotNULL
hnum
宅电
Char（8）
NotNULL
mbnum
手机
Char（11）
NotNULL
bdate
出生日期
datetime
pnum
邮编
Char（6）
NotNULL
adress
地址
Char（50）
remark
备注
Char（80）
3.3长途汽车路线信息表单
此表单包含长途路线的信息，如表3.3所示:
表3.3长途汽车路线信息表单
列名
含义
数据类型
约束
lnum
路线编号
Char（10）
主码
fctime
发车时间
datetime
NotNULL
stoppoint
沿途停靠点
Chat（80）
arime
到达时间
datetime
NotNULL
tprice
票价
money
NotNULL
start
起点
Char（10）
NotNULL
ends
终点
Char（10）
NotNULL
3.4长途汽车管理表单
此表单包含长途汽车的信息，如表3.4所示
:
表3.4长途汽车管理表单
列名
含义
数据类型
约束
cnum
车牌号
Char（10）
主码
lnum
路线编号
Char（10）
外码
dname
司机名
Char（10）
NotNULL
4长途汽车信息管理程序设计
4.1欢迎界面
使用单选按钮选择用户身份，然后单击“确定”按钮，触发Comman1_Click事件分别启动相应的登录界面。
单击“退出”按钮，将触发Command2_Click事件，直接退出系统。
4.2新用户注册界面
输入注册信息后，就可以注册一个新的用户。
4.3普通用户登录界面
单击“登录“按钮，将触发Command1_Click事件，进入用户登陆界面
单击“退出“按钮，将触发Command2_Click事件，进入欢迎界面
具体代码如下：
IfText1.Text=""Then
MsgBox"请输入用户名！
"
Text1.SetFocus
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"请输入密码！
"
Text2.SetFocus
ExitSub
EndIf
'将用户名和密码赋给全局变量
zname=Text1.Text
zkey=Text2.Text
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromuser_tablewhereusername='"&Trim（Text1.Text）&"'andcode='"&Trim（Text2.Text）&"'"
Adodc1.Refresh
'判断管理员所填信息是否正确
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"用户名与密码不相符，请重新输入！
"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
Else
MsgBox"登陆成功！
"
userup.Hide
selectline.Show
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubImage2_Click（）
userup.Hide
EndSub
PrivateSubImage3_Click（）
modify.Show
EndSub
4.4司机登录界面
PrivateSubImage1_Click（）
IfText1.Text=""Then
MsgBox"请输入用户名！
"
Text1.SetFocus
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"请输入密码！
"
Text2.SetFocus
ExitSub
EndIf
'将用户名和密码赋给全局变量
zname=Text1.Text
zkey=Text2.Text
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromuser_tablewhereusername='"&Trim（Text1.Text）&"'andcode='"&Trim（Text2.Text）&"'"
Adodc1.Refresh
'判断管理员所填信息是否正确
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"帐号与密码不相符，请重新输入！
"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
Else
MsgBox"登陆成功！
"
driverup.Hide
sijicx.Show
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubImage2_Click（）
driverup.Hide
EndSub
4.6管理员登录界面
与普通用户登录界面基本相似。
4.7管理员管理界面
点击主界面上的菜单编辑器上的“用户信息管理”，将触发usergl_Click（）_事件可以通过连接到用户信息管理界面。
点击主界面上的菜单编辑器上“长途路线管理”，将触发linegl_Click（）事件可以通过连接到长途路线管理界面。
点击主界面上的菜单编辑器上“司机信息管理”，将触发drivergl_Click（）事件可以通过连接到司机信息管理界面。
点击主界面上的菜单编辑器上“退出”，将触发end_Click（）事件可以退出该界面界面。
4.8用户信息查询界面
确定了用户的用户名密码正确后，就可以显示出该用户的信息内容。
并且可以通过按钮“密码修改”修改该用户的密码信息。
部分代码如下:
PrivateSubCommand2_Click（）
Text4.Locked=False
Adodc1.Recordset.Update
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）
MsgBox"修改成功！
"
EndSub
PrivateSubForm_Load（）
Text3.Text=""
Text4.Text=""
Text5.Text=""
EndSub
……
4.9长途汽车路线查询界面
普通用户在成功登陆后，将进入长途汽车路线查询界面，永固可以通过combo选择路线进行查询。
部分代码如下:
PrivateSubCommand1_Click（）
IfCombo1.Text<>""Then
Adodclline.CommandType=adCmdText
Adodclline.RecordSource="select*fromlonglinewherelnum='"&Trim（Combo1.Text）&"'"
Adodclline.Refresh
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
EndSub
PrivateSubImage1_Click（）
IfCombo1.Text<>""Then
Adodclline.CommandType=adCmdText
Adodclline.RecordSource="select*fromlonglinewherelnum='"&Trim（Combo1.Text）&"'"
Adodclline.Refresh
EndIf
EndSub
PrivateSubImage2_Click（）
UnloadMe
EndSub
4.10司机信息查询界面
司机在成功登陆后可以直接进入司机查询界面，通过datagrad中的图表直接对司机信息进行查询。
4.11用户信息管理界面
管理员进入管理界面后，点击菜单编辑器上的“用户信息管理”，进入用户信息管理界面，在这里，管理员可以对用户信息进行管理。
部分代码如下：
PrivateSubImage1_Click（）
IfText1.Text=""Then
MsgBox"请输入用户名"
Text1.SetFocus
ExitSub
EndIf
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromuser_tablewhereusername='"&Trim（Text1.Text）&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"已经存在此用户名，请重新输入！
"
Text1.SetFocus
Text1.Text=""
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"请输入密码"
Text2.SetFocus
ExitSub
EndIf
IfText3.Text=""Then
MsgBox"请输入身份"
Text3.SetFocus
ExitSub
EndIf
DimresAsInteger
res=MsgBox（"确实添加此记录!
",vbExclamation+vbYesNo+vbDefaultButton2）'提示用户
Ifres=vbYesThen'如果确实要添加
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"username"）.Value=Trim（Text1.Text）
Adodc1.Recordset.Fields（"code"）.Value=Trim（Text2.Text）
Adodc1.Recordset.Fields（"identities"）.Value=Trim（Text3.Text）
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"添加成功"
Text1.SetFocus
Text2.SetFocus
Text3.SetFocus
ExitSub
EndIf
EndSub
PrivateSubImage2_Click（）
UnloadMe
EndSub
PrivateSubImage3_Click（）
IfText4.Text=""Then
MsgBox"请输入用户名"
Text4.Text=""
Text4.SetFocus
ExitSub
EndIf
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromuser_tablewhereusername='"&Trim（Text4.Text）&"'"
Adodc1.Refresh
DimresAsInteger
res=MsgBox（"确认要删除此记录吗？
",vbExclamation+vbYesNo+vbDefaultButton2）
Ifres=vbYesThen
Adodc1.Recordset.Delete
MsgBox（"删除成功"）
Adodc1.Recordset.MoveNext
EndIf
Text4.Text=""
Text5.Text=""
Text6.Text=""
EndSub
PrivateSubImage4_Click（）
UnloadMe
EndSub
PrivateSubImage5_Click（）
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=
升级会员 