长途汽车管理系统设计数据库课程设计报告(含程序).doc

数据库课程设计报告课程设计报告专 业 信息管理与信息系统 课程名称 数据库原理与应用 设计题目 长途汽车管理系统设计 设计题目:长途汽车管理系统设计设计主要内容:一、开发平台：VB+ SQL SERVER 2000二、功能要求：1、设计内容设计一个长途汽车管理系统，该系统的用户由一般用户和管理员和司机组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sql server2000创建后台数据库，然后利用程序设计语言（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欢迎界面属性表对象属性属性值Form1caption长途汽车管理系统Label1caption欢迎进入长途汽车管理系统backstyle0Combo1list管理员司机用户Image1caption确定Image2caption注册图2.2 登录界面表2.2司机、管理员、用户登陆属性表对象属性属性值Label1caption帐号Label2caption密码Text1textNULLText2textNULLImage1Picture确定Image2Picture取消图2.3 长途汽车路线查询界面表2.3长途汽车路线查询属性表对象属性属性值Label1caption长途汽车路线信息Label2caption路线基本信息Label3caption路线编号Label4caption发车时间Label5caption沿途停靠点Label6caption到达时间Label7caption票价Label8caption起点Label9caption终点lineborderwidth1framecaptionNULLCommand1caption查询Text1textNULLText2textNULLText3textNULLText4textNULLText5textNULLText6textNULLCombo1listx01、x02、 x03、 x04AdodcllineCaptionAdodcllinerecordsourcelonglineCommandType2-adCmdTableVisibleFalse图2.4 管理员造作界面图2.5 用户信息管理界面表2.5用户信息管理界面属性表对象属性属性值SSTab1caption添加、删除、查询Label1caption用户名Label2caption密码Label3caption身份Image1Picture确定Image2Picture取消图2.6 用户信息管理界面表2.6 用户信息管理界面属性表：对象属性属性值datagriddatasourceAdodc1Adodc1recordsourcelonglineCommandType2-adCmdTableVisibleFalseFrame1Image1Picture添加Image2Picture更新Image3Picture退出 图2.7 用户注册界面表2.7 用户注册界面属性表：对象属性属性值datagriddatasourceAdodc1Adodc1recordsourceUser_tableCommandType2-adCmdTableVisibleFalseText1textNULLText2textNULLText2textNULLImage1Picture确定Image2Picture退出Timer1Interval300Label1Caption 图2.8 司机信息管理界面表2.8 司机信息管理界面属性表：对象属性属性值SSTab1caption添加、删除、查询Label1caption车牌号Label2caption司机名Label3caption驾驶证号Image1Picture添加Image2Picture退出Image3Picture更新datagriddatasourceAdodc1Adodc1datasourcedriverCommandType2-adCmdTableVisibleFalse图2.8用户密码修改界面表2.8用户密码修改界面属性表：对象属性属性值Label1caption用户名Label2caption旧密码Label3caption新密码Label3caption确认密码Image1Picture确定Image2Picture退出datagriddatasourceAdodc1Adodc1datasourceUser_tableCommandType2-adCmdTableVisibleFalse图2.9 司机查询界面表2.9司机查询界面属性表：对象属性属性值Image1Picture退出datagriddatasourceAdodc1Adodc1datasourceCarCommandType2-adCmdTableVisibleFalse3长途汽车信息管理数据库设计3.1 用户信息表单此表单包含用户的基本登录信息，如表3.1所示:表3.1 用户信息表单列名含义数据类型约束username用户Char （10）主码code密码Char (10)Not NULLidentities身份Char (8)管理员、司机、用户3.2司机信息表单此表单包司机的基本信息，如表3.2所示:表3.2 司机信息表单列名含义数据类型约束cnum车牌号Char(10)外码dname司机名Char(10)外码jnum驾驶证号Char(18)主码sex性别Char(2)Not NULLhnum宅电Char(8)Not NULLmbnum手机Char(11)Not NULLbdate出生日期datetimepnum邮编Char(6)Not NULLadress地址Char(50)remark备注Char(80)3.3长途汽车路线信息表单此表单包含长途路线的信息，如表3.3所示:表3.3 长途汽车路线信息表单列名含义数据类型约束lnum路线编号Char(10)主码fctime发车时间datetimeNot NULLstoppoint沿途停靠点Chat(80)arime到达时间datetimeNot NULLtprice票价moneyNot NULLstart起点Char(10)Not NULLends终点Char(10)Not NULL3.4长途汽车管理表单此表单包含长途汽车的信息，如表3.4所示:表3.4长途汽车管理表单列名含义数据类型约束cnum车牌号Char(10)主码lnum路线编号Char(10)外码dname司机名Char(10)Not NULL4长途汽车信息管理程序设计4.1 欢迎界面使用单选按钮选择用户身份，然后单击“确定”按钮，触发Comman1_Click事件分别启动相应的登录界面。单击“退出”按钮，将触发Command2_Click事件，直接退出系统。4.2 新用户注册界面 输入注册信息后，就可以注册一个新的用户。4.3 普通用户登录界面单击“登录“ 按钮，将触发Command1_Click事件，进入用户登陆界面单击“退出“ 按钮，将触发Command2_Click事件，进入欢迎界面具体代码如下：22If Text1.Text = Then MsgBox 请输入用户名！ Text1.SetFocus Exit Sub End IfIf Text2.Text = Then MsgBox 请输入密码！ Text2.SetFocus Exit Sub End If 将用户名和密码赋给全局变量 zname = Text1.Text zkey = Text2.Text Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from user_table where username= & Trim(Text1.Text) & and code= & Trim(Text2.Text) & Adodc1.Refresh判断管理员所填信息是否正确If Adodc1.Recordset.EOF = True Then MsgBox 用户名与密码不相符，请重新输入！ Text1.Text = Text2.Text = Text1.SetFocusElseMsgBox 登陆成功！userup.Hideselectline.ShowText1.Text = Text2.Text = End IfEnd SubPrivate Sub Image2_Click()userup.HideEnd SubPrivate Sub Image3_Click()modify.ShowEnd Sub4.4 司机登录界面Private Sub Image1_Click()If Text1.Text = Then MsgBox 请输入用户名！ Text1.SetFocus Exit Sub End IfIf Text2.Text = Then MsgBox 请输入密码！ Text2.SetFocus Exit Sub End If 将用户名和密码赋给全局变量 zname = Text1.Text zkey = Text2.Text Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from user_table where username= & Trim(Text1.Text) & and code= & Trim(Text2.Text) & Adodc1.Refresh判断管理员所填信息是否正确If Adodc1.Recordset.EOF = True Then MsgBox 帐号与密码不相符，请重新输入！ Text1.Text = Text2.Text = Text1.SetFocusElseMsgBox 登陆成功！driverup.Hidesijicx.ShowText1.Text = Text2.Text = End IfEnd SubPrivate Sub Image2_Click()driverup.HideEnd Sub4.6 管理员登录界面与普通用户登录界面基本相似。4.7 管理员管理界面点击主界面上的菜单编辑器上的“用户信息管理”，将触发usergl_Click()_事件可以通过连接到用户信息管理界面。点击主界面上的菜单编辑器上“长途路线管理”，将触发linegl_Click()事件可以通过连接到长途路线管理界面。点击主界面上的菜单编辑器上“司机信息管理”，将触发drivergl_Click()事件可以通过连接到司机信息管理界面。点击主界面上的菜单编辑器上“退出”，将触发end_Click()事件可以退出该界面界面。4.8 用户信息查询界面确定了用户的用户名密码正确后，就可以显示出该用户的信息内容。并且可以通过按钮“密码修改”修改该用户的密码信息。部分代码如下:Private Sub Command2_Click()Text4.Locked = FalseAdodc1.Recordset.UpdateAdodc1.RefreshEnd SubPrivate Sub Command3_Click()MsgBox 修改成功！End SubPrivate Sub Form_Load()Text3.Text = Text4.Text = Text5.Text = End Sub4.9 长途汽车路线查询界面普通用户在成功登陆后，将进入长途汽车路线查询界面，永固可以通过combo选择路线进行查询。部分代码如下:Private Sub Command1_Click()If Combo1.Text ThenAdodclline.CommandType = adCmdTextAdodclline.RecordSource = select * from longline where lnum= & Trim(Combo1.Text) & Adodclline.RefreshEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub Image1_Click()If Combo1.Text ThenAdodclline.CommandType = adCmdTextAdodclline.RecordSource = select * from longline where lnum= & Trim(Combo1.Text) & Adodclline.RefreshEnd IfEnd SubPrivate Sub Image2_Click()Unload MeEnd Sub4.10 司机信息查询界面司机在成功登陆后可以直接进入司机查询界面，通过datagrad中的图表直接对司机信息进行查询。4.11 用户信息管理界面管理员进入管理界面后，点击菜单编辑器上的“用户信息管理”，进入用户信息管理界面，在这里，管理员可以对用户信息进行管理。部分代码如下：Private Sub Image1_Click()If Text1.Text = ThenMsgBox 请输入用户名Text1.SetFocusExit SubEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from user_table where username = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 已经存在此用户名，请重新输入！Text1.SetFocusText1.Text = Exit SubEnd IfIf Text2.Text = ThenMsgBox 请输入密码Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入身份Text3.SetFocusExit SubEnd IfDim res As Integerres = MsgBox(确实添加此记录!, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如果确实要添加Adodc1.Recordset.AddNewAdodc1.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.UpdateAdodc1.RefreshMsgBox 添加成功Text1.SetFocusText2.SetFocusText3.SetFocusExit SubEnd IfEnd SubPrivate Sub Image2_Click()Unload MeEnd SubPrivate Sub Image3_Click()If Text4.Text = ThenMsgBox 请输入用户名Text4.Text = Text4.SetFocusExit SubEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from user_table where username = & Trim(Text4.Text) & Adodc1.RefreshDim res As Integer res = MsgBox(确认要删除此记录吗？, vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes Then Adodc1.Recordset.Delete MsgBox (删除成功) Adodc1.Recordset.MoveNext End IfText4.Text = Text5.Text = Text6.Text = End SubPrivate Sub Image4_Click()Unload MeEnd SubPrivate Sub Image5_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from user_table Adodc1.RefreshEnd Sub4.12 长途路线管理界面管理员进入管理界面后，点击菜单编辑器上的“长途路线管理”，进入用户信息管理界面，在这里，管理员可以对长途汽车路线进行管理。点击添加按钮，弹出添加路线信息界面。部分代码如下：Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入路线编号Text1.SetFocusExit SubEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from longline where lnum = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 路线编号已存在，请重新输入！Text1.SetFocusText1.Text = Exit SubEnd IfIf Text2.Text = ThenMsgBox 请输入发出时间Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入沿途停靠点Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 请输入到达时间Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请输入票价Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox 请输入起点Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox 请输入终点Text7.SetFocusExit SubEnd IfDim res As Integerres = MsgBox(确实添加此记录!, vbExclamation + vbYesNo + vbDefaultButton2) 提示用户If res = vbYes Then 如果确实要添加Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(lnum).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(fctime).Value = Trim(Text2.Text)Adodc1.Recordset.Fields(stoppoint).Value = Trim(Text3.Text)Adodc1.Recordset.Fields(arime).Value = Trim(Text4.Text)Adodc1.Recordset.Fields(tprice).Value = Trim(Text5.Text)Adodc1.Recordset.Fields(start).Value = Trim(Text6.Text)Adodc1.Recordset.Fields(ends).Value = Trim(Text7.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox 添加成功Text1.SetFocusText2.SetFocusText3.SetFocusText4.SetFocusText5.SetFocusText6.SetFocusText7.SetFocusExit SubEnd IfUnload MeEnd Sub4.13 用户密码修改界面用户进入登陆界面后，可以选择修改密码。部分代码如下：Private Sub Image1_Click()If Trim(Text2.Text) = ThenMsgBox 请填旧密码！Text2.Text = Text2.SetFocusExit SubEnd If判断新密码是否为空If Trim(Text3.Text) = ThenMsgBox 请填写新密码！Text3.SetFocusExit SubEnd If判断确认密码是否为空If Trim(Text4.Text) = ThenMsgBox 请再次确认密码！Text4.Text = Text4.SetFocusExit SubEnd If判断密码长度是否符合要求If Len(Text3.Text) 10 ThenMsgBox 新密码不符合要求，为2-10个字符！Text3.Text = Text3.SetFocusExit SubEnd If判断两次输入是否相同!If Text3.Text Text4.Text Th