火车售票管理系统

数据库原理及应用课程设计报告题目： 火车售票管理系统 所在学院： 班 级： 学 号： 姓 名： 指导老师： 2011年12月29日目录一、概述二、需求分析三、概念设计四、逻辑设计五、系统实现六、小结一、概述火车售票管理系统主要用于火车站日常的票务处理。系统应具有售票、订票、信息查询、系统维护等功能，系统管理员可以进行对车次的更改、票价的变动及调度功能，票价的修改可以通过修改运价来进行，车次调度可通过对发车时刻表的修改来进行，维护功能即可对表进行修改。为到达操作过程中的直观、方便、实用、平安等要求，我们在这个系统中采用模块化程序设计的方法，便于系统功能的组合和修改，以及扩充和维护。二、需求分析经过分析后确定系统应具备以下功能：1 售票管理功能任一售票员均可以售权限范围内车次的火车票，权限可按车次、始发站、终点站、发车时间、到达时间等属性由管理员设置。2订票管理功能预订票可在任一未停止售票的车次上进行操作，预订数量仅受剩余位数量限制。预订的火车票售票员不能售出。预订的火车票也可取消预订，取消预订的客票售票员可以售出。在订票人来取票时，售票员可将预订的火车票从电脑上售出3 信息查询功能1、车次查询，可以查询各个班次和票情况。2、座位号查询，可以查询座位等级和座位号3、时刻表查询：查询发车时期和发车时间4、售票情况查询：查询票价4系统维护功能1、车票表修改：管理员针对实际情况对车票表的修改和维护2、预订车票表修改：管理员根据车票的预定情况对该表进行修改和维护3、退票表修改：该功能由管理员根据退票情况进行修改4、密码修改：售票员可以根据个人修改自己的登入密码三、概念设计1、ER图站名 开往终点站始发站座位等级到达时间发车时间站名火车座位号 车型运价 选定 1价格乘车日期计费顾客姓名n站名 11nn顾客预订售票售票员车票车次 n预订号票价车次发车时间座位号座位等级发车日期四、逻辑设计1 关系模式1、车次信息表车次，始发站，终点站，发车时间，到达时间2、订票信息表车次，座位号，发车时期，发车时间，座位等级，票价3、车次座位等级分配及座位占用表车次，座位号，座位等级，票价，占用标志4、用户信息表用户名，密码，用户标识2 外模式：车次信息表：字段名类型长度是否主键是否必填车次Varchar5否始发站Varchar10是终点站Varchar10是发车时间Datetime8是到达时间Datetime8是订票信息表：字段名类型长度是否主键是否必填车次Varchar5否座位号smallInt2否发车时期Datetime8是发车时间Datetime8是座位等级Varchar2是票价Float8否车次座位等级分配及座位占用表：字段名类型长度是否主键是否必填车次Varchar5是座位号smallInt2是座位等级Varchar2是票价Int 8是占用标志Varchar10是用户信息表：字段名类型长度是否主键是否必填用户char8是密码Varchar6是用户标识Varchar10否五、系统实现(1)登陆窗体FrmLogin代码Public PasswordKey As StringPublic NameKey As StringPublic Try_times As Integer'取消键退出登陆界面Private Sub Cmd_Cancel_Click()Unload MeEnd SubPrivate Sub Cmd_OK_Click() '数据库有效性检查If Trim(txtUser) = "" Then MsgBox "请输入用户名" Exit SubEnd IfIf Trim(txtPwd) = "" Then MsgBox "请输入密码" Exit Sub End IfEnd SubPrivate Function MakeStr() As String NameKey = Str(txtUser) PasswordKey = Str(txtPwd) '判断用户是否存在 If MyUser.In_DB(NameKey) = Flase Then MsgBox "用户名不存在" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End Else Exit Function End If End If '判断密码是否正确 MyUser.GetINfo (NameKey) If MyUser.Pwd <> PasswordKey Then MsgBox "密码错误" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End Else Exit Function End IfEnd If '登陆成功，将当前用户的信息保存在CurUser中 '关闭自己并显示主窗体 Unload MeEnd Function2主窗体(FrmMain)代码'设置数据库连接字符串Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & " 火车站售票管理系统.mdb " & "Presist Security Info=False"'系统登陆界面End SubPrivate Sub PJCX_Click()End SubPrivate Sub PJGL_Click()End SubPrivate Sub SPGL_Click()End SubPrivate Sub TPGL_Click()End SubPrivate Sub XGMM_Click() With FrmUserEdit If CurUser.User_type = 1 Then .ComboType.AddItem "系统管理员" Else .ComboType.AddItem "普通用户" End If .ComboType.ListIndex = 0 .ComboType.Enabled = False .Modify = True .Show 1 End WithEnd SubPrivate Sub YHGL_Click() If CurUser.User_type = 1 Then Else MsgBox "没有权限" End IfEnd SubPrivate Sub ZKGL_Click()End Sub3售票窗体FrmTicketSell代码Private Sub Cmd_Cancel_Click() Unload MeEnd SubPrivate Sub Cmd_Search_Click() 'GridRsfresh '根据条件查询所有信息End SubPrivate Sub Cmd_Sell_Click() Dim ComboDate As String, TNPYCode As String, CarID As String Dim left As Integer Dim seatnumber As String Dim strseat As String Dim ticketinformation As String Dim informationbook As String Dim cost As Long ComboDate = Trim(ComboDate.Text) TNPY = Trim(txtTNPYCode) CarID = Trim(txtCarID) Dim strcnn init_ado strQuery = "Select CarID,OutStation,Terminal,OutSetTime,Date,Sno From Seat join Price on Seat.CarID=Price.CarID Where Seat.date='" & _ Trim(ComboDate) & "'" & " and Price.TNPYCode='" & Trim(txtTNPYCode) & "'" '根据输入的信息，从表里得出查询结果rsdata.Open strQuery, cnnrsdata, , , adCmdText If rsdata.EOF Then MsgBox "车次或拼音码输入有误，请重新输入！", , "Error!" ComboDate.Text = "" TNPYCode = "" txtCarID = "" ElseIf Len(TNPYCode) = 0 Then MsgBox "请输入拼音码" ElseIf Len(TNPYCode) > 4 Then MsgBox "拼音码过长，无效！" ElseIf Len(CarID) = 0 Then MsgBox "请输入车次编号！" ElseIf IsNumeric(Number) = False Then MsgBox "车次编号应为数字！" txtCarID.Text = "" Else strQuery = "select count(*) as total from Seat where Seat.sell=false and Seat.date='" & _ Trim(ComboDate.Text) & "'" & " and Seat.CarID='" & Trim(txtCarID.Text) & "'" rsdata.Open strQuery, cnnrsdata, , , adCmdText '统计本车次的剩余的座位数 left = rsdata!total If left = 0 Then MsgBox "本车次已经客满!" ComboDate.Text = "" ComboSNno.Text = "" txtTNPYCode.Text = "" txtCarID.Text = "" Else strQuery = "select count(*) as total from Seat where Seat.sell=false and Seat.date='" & _ Trim(ComboDate) & "'" & " and Seat.CarID='" & Trim(txtCarID) & "'" rsdata.Open strQuery, cnnrsdata, , , adCmdText '统计本车次的剩余的座位数 rsdata!Date = comdate rsdata!Seat = comSNno rsdata!CarID = CarID rsdata!TNPYCode = TNPYCode rsdata!sno = Trim(seatnumber) rsdata.Update '添加新记录 '更新 Seat 表 ，将刚卖出的座位号设为 false strQuery = "select * from Seat where Seat.sno='" & Trim(seatnumber) & _ "' and Seat.date='" & Trim(ComboDate) & "'" & _ " and SeatCarID='" & Trim(txtCarID) & "'" rsdata.Open strQuery, cnnrsdata, , , adCmdText If rsdata!sell = False Then rsdata!sell = True End If ComboDate = "" txtTNPYCode = "" txtCarID = "" cost = Val(Adodc3.Recordset.Fields(3) txtCharge = Val(txtMoney) - Val(Adodc3.Recordset.Fields(3) End Sub六、小结通过本次数据库课程设计，让我对数据库的知识进行了稳固，对数据库的开发有了进一步的了解，对数据库这门课有了进一步的掌握。本次课程设计我首先对设计要求进行分析，根据需要写出它的需求分析，然后画出E-R图。然后用SQL Server2000 根据E-R图设计数据库，然后根据设计理念，选择VB6.0来实现用户界面的建立和实现对数据库的操作。实验比拟顺利，也非常成功，在此感谢老师的教导。