长途汽车管理系统方案数据库课程方案报告含程序.docx
- 文档编号:3360897
- 上传时间:2022-11-22
- 格式:DOCX
- 页数:27
- 大小:207.53KB
长途汽车管理系统方案数据库课程方案报告含程序.docx
《长途汽车管理系统方案数据库课程方案报告含程序.docx》由会员分享,可在线阅读,更多相关《长途汽车管理系统方案数据库课程方案报告含程序.docx(27页珍藏版)》请在冰豆网上搜索。
长途汽车管理系统方案数据库课程方案报告含程序
课程设计报告
专业信息管理与信息系统
课程名称数据库原理与应用
设计题目长途汽车管理系统设计
设计题目:
长途汽车管理系统设计
设计主要内容:
一、开发平台:
VB+SQLSERVER2000
二、功能要求:
1、设计内容
设计一个长途汽车管理系统,该系统的用户由一般用户和管理员和司机组成,然后不同的用户拥有不同的权限,各自完成各自的管理功能,首先是欢迎界面,然后选择登录,登录的时候首先要判断用户的身份,合法的用户然后进入到系统主界面中,不同的用户看到不同的系统功能。
用sqlserver2000创建后台数据库,然后利用程序设计语言 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="select*fromuser_table"'" Adodc1.Refresh EndSub 4.12长途路
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 长途汽车 管理 系统 方案 数据库 课程 报告 程序