火车站车票销售管理系统Word文档格式.docx

1、第二章 系统分析与设计2.1系统需求分析系统需要完成以下功能：1.系统登陆管理：工作人员登陆，修改密码。2.车次信息查询：查询指定的信息的车次的其他相关信息。3. 车票销售：对指定的车次的票数进行更新，完成售票功能。2.1.2 性能要求1.数据精确度查询时应保证查全率，所有相应域包含查询关键字的记录都应能查到。2.时间特性一般操作的响应时间应在12秒内，对软磁盘和打印机的操作也应在可接受的时间内完成。2.2数据库概念结构设计（E-R图）2.3数据流程图2.4数据库逻辑结构设计票数表：票数表（日期，车次，可售票数）票价表：票价表（车次，到站名，票价）发车时间表：发车时间表（车次，发车时间）系统用

2、户名和密码表：系统用户名和密码表（用户名，密码，登录状态）2.5数据库物理结构设计2.6 系统总体结构设计第三章 系统开发及实现我们小组的系统是采用Microsoft Office Access 2003来先建立数据库，再进行用户权限的设计和实施。而且是用Microsoft Office Access 2003 在本数据库中来创建界面，所以不存在界面连接数据库的功能。3.1建立表：3.2 设计查询3.3 窗体设计登陆界面：窗体属性：取消 按钮代码：Private Sub Command4_quxiao_Click（）DoCmd.CloseDoCmd.QuitEnd Sub确定 按钮代码：Pri

3、vate Sub Command5_ok_Click（）Dim r As QueryDefDim t As Integert = 1 If IsNull（Combo0_userID） = True Then MsgBox 请选择用户名！ Else If Text6_mima = DLookup（密码, 系统用户名和密码表用户名 = + Combo0_userID + ） Then Set r = CurrentDb.QueryDefs（登录状态更新查询） r.sql = UPDATE 系统用户名和密码表 SET 登录状态 = & t & WHERE 用户名 = r.Execute DoCmd.

4、Close DoCmd.OpenForm 登录成功窗体 Text6_mima = Text6_mima.SetFocus密码错误！ End If主界面窗体：查询按钮的代码：Private Sub Command1_chaxun_Click（）查询车票窗体打开售票 按钮的代码：Private Sub Command2_dakaimiapiao_Click（）On Error GoTo Err_Command2_dakaimiapiao_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW（20080

5、） & ChrW（31080） & ChrW（31383） & ChrW（20307） DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command2_dakaimiapiao_Click: Exit Sub打开买票窗体：Err_Command2_dakaimiapiao_Click: MsgBox Err.Description Resume Exit_Command2_dakaimiapiao_Click退出登录：Private Sub Command3_tuichudenglu_Click（） Dim r As QueryDef Dim

6、 t0, t1 As String t0 = 0 t1 = 1 t0 & WHERE 登录状态 = t1 &登录窗体修改密码：Private Sub Command5_xiugaimima_Click（）On Error GoTo Err_Command5_xiugaimima_Click stDocName = ChrW（20462） & ChrW（25913） & ChrW（23494） & ChrW（30721） &修改密码 窗口：Private Sub Command0_quxiao_Click（）Private Sub Command1_Click（）Dim s, t As Stri

7、ngt = 1 s = DLookup（登录状态 = If IsNull（s） False Then请先退出后重新登录，再修改密码！ If Text2_yuanmima s Then原密码错误！ Text2_yuanmima = Text4_xinmima1 = Text6_xinmima2 = Text2_yuanmima.SetFocusElse If IsNull（Text2_yuanmima） = True Then请输入密码！ If IsNull（Text4_xinmima1） = True Then请输入新密码！ Text4_xinmima1.SetFocus If IsNull（

8、Text6_xinmima2） = True Then请再输入一遍新密码！ Text6_xinmima2.SetFocus If Text4_xinmima1 Text6_xinmima2 Then新密码 2 次输入不一致！请重新输入！ UPDATE 系统用户名和密码表 SET 密码 = + Text4_xinmima1 + 密码修改成功！End If查询窗体：代开主窗口按钮代码：Private Sub query_fanhui_Click（）On Error GoTo Err_query_fanhui_ClickExit_query_fanhui_Click:Err_query_fanhui

9、_Click: Resume Exit_query_fanhui_Click查询：Private Sub Command12_Click（） t0 = 0 t1 = Private Sub query_ok_Click（）Dim R1 As QueryDefDim sql As StringDim s（3） As StringDim i, j As Integersql = select * from 总查询 where Set R1 = CurrentDb.QueryDefs（车票查询If IsNull（Combo0_riqi） = False Thens（0） = 总查询.日期 = + C

10、ombo0_riqi + If IsNull（Combo2_checi） = False Thens（1） = 总查询.车次 = + Combo2_checi + If IsNull（Combo4_daozhanming） = False Thens（2） = 总查询.到站名 = + Combo4_daozhanming + For i = 0 To 2 If s（i） Then For j = i + 1 To 2 If s（j） 999 Or Text12_maipiaoshu t0 Then m = CStr（t0）票数不足！ 此次列车目前还剩 + m + 张票 piaojia = DL

11、ookup（票价票价表 zongpiaojia = piaojia * t1 p = CStr（zongpiaojia） If MsgBox（总票价为 + p + 元，请付款后点击 是 ，否则请点击 否 。, vbYesNo） = vbNo Then Combo0_riqi = Combo2_checi = Combo4_daozhanming = Text12_maipiaoshu = 1 t2 = t0 - t1购买票数更新查询 UPDATE 票数表 SET 可售票数 = t2 & WHERE 车次 = 购买成功！ End IfPrivate Sub Command15_fanhuizhuchuangti_Click（）DoCmd.OpenForm 第四章 总结我们小组的火车站车票销售管理系统的设计和开发，历时近一个月。