《2022年2022年火车站车票销售管理系统 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年火车站车票销售管理系统 .pdf（27页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、数据库课程设计说明书题目：火车站车票销售管理系统学号姓名专业班级 2011年 10 月 22 日名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 27 页 - - - - - - - - - 数据库课程设计说明书1 第一章引言1.1 选题理由计算机在人们日常生活中日益普及，发挥着重大作用。强大的功能，使得计算机自然而然的就用于帮助人们工作。火车站售票管理是一个很好的与数据库相关联的实际问题。也在我们的实际能力范围内。而且对于火车站车票销售来说，有了计算机的帮助，可以说是极大
2、的帮助了车站工作人员的工作，提高了工作效率和准确性。1.2 设计目的：我们的设计目的是要实现以下功能：1能够管理用户，实现只对注册了的用户才能进入该系统2能够实现对对车站内车票信息进行查询3能够在车票售出时更新可售车票数4能够计算应付票价我们小组在深入考虑了火车站售票的相关流程后，去掉了一些不太相关的工作，保留了与售票紧密联系的功能，如查询车次信息，售票等。之后我们用数据库课上学到的设计数据库的方法，先设计好了数据库的表结构和系统结构，以及需要实现的功能，然后就开始选择工具开始了建立数据库和制作图形用户界面的工作。1.3 设计意义我们组设计的这个火车站车票销售管理系统，是对火车站售票工作的简洁
3、的模拟，达到了运用所学的数据库知识解决现实中的相关的数据库问题，锻炼了我们的设计数据库的能力，让我们对数据库有了更深的认识，而且，通过设计界面，也锻炼了我们的自学能力，让我们自学学会了 vb 语言，设计出了简洁明了有好的界面。1.4 设计开发及运行的软硬件环境我们小组采用较普及的Microsoft Office Access 2003 工具来创建数据库，以及使用Microsoft Office Access 2003 内的 VB 编辑器来开发图形用户界面以方便用户处理数据，具有较强的容错功能，使用非常方便。非常方便火车站的工作人员完成车票查询和销售的工作。系统的操作和界面非常友好，只需用鼠标进
4、行工作，很少使用键盘进行输入。因此只需对工作人员进行简单的培训就可投入实际的系统操作工作中。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 27 页 - - - - - - - - - 数据库课程设计说明书2 第二章系统分析与设计2.1 系统需求分析系统需要完成以下功能：1. 系统登陆管理：工作人员登陆，修改密码。2. 车次信息查询：查询指定的信息的车次的其他相关信息。3. 车票销售：对指定的车次的票数进行更新，完成售票功能。2.1.2 性能要求1. 数据精确度查询时应保
5、证查全率，所有相应域包含查询关键字的记录都应能查到。2. 时间特性一般操作的响应时间应在12 秒内，对软磁盘和打印机的操作也应在可接受的时间内完成。2.2 数据库概念结构设计（E-R 图）2.3 数据流程图名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 27 页 - - - - - - - - - 数据库课程设计说明书3 2.4 数据库逻辑结构设计票数表：票数表(日期，车次，可售票数) 票价表：票价表(车次，到站名，票价) 发车时间表：发车时间表(车次，发车时间) 系统用
6、户名和密码表：系统用户名和密码表(用户名，密码，登录状态) 2.5 数据库物理结构设计票数表：票价表：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 27 页 - - - - - - - - - 数据库课程设计说明书4 发车时间表：系统用户名和密码表：2.6 系统总体结构设计名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 27 页 - - - - -
7、 - - - - 数据库课程设计说明书5 第三章系统开发及实现我们小组的系统是采用Microsoft Office Access 2003 来先建立数据库， 再进行用户权限的设计和实施。而且是用Microsoft Office Access 2003 在本数据库中来创建界面，所以不存在界面连接数据库的功能。3.1 建立表：票数表：票价表：发车时间表：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 27 页 - - - - - - - - - 数据库课程设计说明书6 系统用
8、户名和密码表：3.2 设计查询3.3 窗体设计登陆界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 27 页 - - - - - - - - - 数据库课程设计说明书7 窗体属性：取消 按钮代码：Private Sub Command4_quxiao_Click() DoCmd.Close DoCmd.Quit End Sub 确定按钮代码：Private Sub Command5_ok_Click() Dim r As QueryDef Dim t As Integ
9、er t = 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 用户名= + Combo0_userID + r.Execute DoCmd.Close DoCmd.OpenForm 登录成功窗体 Else 名师资料总结
10、- - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 27 页 - - - - - - - - - 数据库课程设计说明书8 Text6_mima = Text6_mima.SetFocus MsgBox 密码错误！ ！ End If End If End Sub 主界面窗体：窗体属性：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 27 页 - - - - - - -
11、- - 数据库课程设计说明书9 查询按钮的代码：Private Sub Command1_chaxun_Click() DoCmd.Close DoCmd.OpenForm 查询车票窗体 End Sub 打开售票按钮的代码：Private Sub Command2_dakaimiapiao_Click() On Error GoTo Err_Command2_dakaimiapiao_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(20080) & ChrW(31080) & ChrW(31
12、383) & ChrW(20307) DoCmd.Close DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command2_dakaimiapiao_Click: Exit Sub 打开买票窗体：Err_Command2_dakaimiapiao_Click: MsgBox Err.Description Resume Exit_Command2_dakaimiapiao_Click End Sub 退出登录：Private Sub Command3_tuichudenglu_Click() Dim r As QueryDef Dim t
13、0, t1 As String t0 = 0 t1 = 1 Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDATE 系统用户名和密码表SET 登录状态= & t0 & WHERE 登录状态= & t1 & r.Execute DoCmd.Close DoCmd.OpenForm 登录窗体 End Sub 修改密码：Private Sub Command5_xiugaimima_Click() On Error GoTo Err_Command5_xiugaimima_Click Dim stDocName As String Dim stLi
14、nkCriteria As String stDocName = ChrW(20462) & ChrW(25913) & ChrW(23494) & ChrW(30721) & ChrW(31383) & ChrW(20307) DoCmd.Close End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 27 页 - - - - - - - - - 数据库课程设计说明书10 修改密码窗口：窗体属性：取消按钮代码：名师资料总结 - - -精品资料欢迎下载 -
15、- - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 27 页 - - - - - - - - - 数据库课程设计说明书11 Private Sub Command0_quxiao_Click() DoCmd.Close DoCmd.OpenForm 登录成功窗体 End Sub 确定按钮代码：Private Sub Command1_Click() Dim r As QueryDef Dim s, t As String t = 1 s = DLookup( 密码 , 系统用户名和密码表, 登录状态= & t & )
16、If IsNull(s) False Then MsgBox 请先退出后重新登录，再修改密码！ Else If Text2_yuanmima s Then MsgBox 原密码错误！ Text2_yuanmima = Text4_xinmima1 = Text6_xinmima2 = Text2_yuanmima.SetFocus Else If IsNull(Text2_yuanmima) = True Then MsgBox 请输入密码！ Text2_yuanmima.SetFocus Else If IsNull(Text4_xinmima1) = True Then MsgBox 请输
17、入新密码！ Text4_xinmima1.SetFocus Else If IsNull(Text6_xinmima2) = True Then MsgBox 请再输入一遍新密码！ Text6_xinmima2.SetFocus Else If Text4_xinmima1 Text6_xinmima2 Then MsgBox 新密码2 次输入不一致！请重新输入！ Text4_xinmima1 = Text6_xinmima2 = Text4_xinmima1.SetFocus Else Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDA T
18、E 系统用户名和密码表SET 密码= + Text4_xinmima1 + WHERE 登录状态= & t & r.Execute MsgBox 密码修改成功！ DoCmd.Close DoCmd.OpenForm 登录成功窗体 End If End If End If End If End If End If End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 27 页 - - - - - - - - - 数据库课程设计说明书12 查询窗体：窗体属性：代开
19、主窗口按钮代码：Private Sub query_fanhui_Click() On Error GoTo Err_query_fanhui_Click 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 27 页 - - - - - - - - - 数据库课程设计说明书13 DoCmd.Close Exit_query_fanhui_Click: Exit Sub Err_query_fanhui_Click: MsgBox Err.Description Resume
20、 Exit_query_fanhui_Click End Sub 查询：Private Sub Command12_Click() Dim r As QueryDef Dim t0, t1 As String t0 = 0 t1 = 1 Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDATE 系统用户名和密码表SET 登录状态= & t0 & WHERE 登录状态= & t1 & r.Execute DoCmd.Close DoCmd.OpenForm 登录窗体 End Sub Private Sub query_ok_Click() Dim
21、 R1 As QueryDef Dim sql As String Dim s(3) As String Dim i, j As Integer sql = select * from 总查询where Set R1 = CurrentDb.QueryDefs( 车票查询 ) If IsNull(Combo0_riqi) = False Then s(0) = 总查询 .日期= + Combo0_riqi + End If If IsNull(Combo2_checi) = False Then s(1) = 总查询 .车次 = + Combo2_checi + End If If IsNul
22、l(Combo4_daozhanming) = False Then s(2) = 总查询 .到站名= + Combo4_daozhanming + End If For i = 0 To 2 If s(i) Then For j = i + 1 To 2 If s(j) Then s(j) = and + s(j) End If Next j Exit For End If Next i If s(0) = And s(1) = And s(2) = Then MsgBox ( 请输入至少一个查询条件!) Else For i = 0 To 2 sql = sql + s(i) Next i
23、 R1.sql = sql DoCmd.Close DoCmd.OpenForm 显示查询结果窗体 Form_显示查询结果窗体.Form.Recordset.Close Set Form_显示查询结果窗体.Form.Recordset = R1.OpenRecordset 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 27 页 - - - - - - - - - 数据库课程设计说明书14 End If End Sub 返回主界面按钮代码：Private Sub Com
24、mand10_fanhuizhuchuangkou_Click() DoCmd.Close DoCmd.OpenForm 登录成功窗体 End Sub 打开买票：Private Sub Command11_dakaimaipiaochuangti_Click() On Error GoTo Err_Command11_dakaimaipiaochuangti_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(20080) & ChrW(31080) & ChrW(31383) & ChrW(2
25、0307) DoCmd.Close DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command11_dakaimaipiaochuangti_Clic: Exit Sub Err_Command11_dakaimaipiaochuangti_Click: MsgBox Err.Description Resume Exit_Command11_dakaimaipiaochuangti_Clic End Sub 显示查询结果：打开买票窗体按钮代码：Private Sub Command14_jinrumaipiaochuangkou_Cli
26、ck() DoCmd.Close DoCmd.OpenForm 买票窗体 End Sub 继续查询代码Private Sub Command17_jixuchaxun_Click() On Error GoTo Err_Command17_jixuchaxun_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(26597) & ChrW(-29726) & ChrW(-28826) & ChrW(31080) & ChrW(31383) & ChrW(20307) DoCmd.Close 名师
27、资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 27 页 - - - - - - - - - 数据库课程设计说明书15 DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command17_jixuchaxun_Click: Exit Sub Err_Command17_jixuchaxun_Click: MsgBox Err.Description Resume Exit_Command17_jixuchaxun_Clic
28、k End Sub 窗体属性：退出登录：Private Sub Command18_Click() DoCmd.Close DoCmd.OpenForm 登录成功窗体 End Sub 返回主界面代码：Private Sub Command19_Click() Dim r As QueryDef Dim t0, t1 As String t0 = 0 t1 = 1 Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDATE 系统用户名和密码表SET 登录状态= & t0 & WHERE 登录状态= & t1 & r.Execute DoCmd.Cl
29、ose DoCmd.OpenForm 登录窗体 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 27 页 - - - - - - - - - 数据库课程设计说明书16 End Sub 售票窗口：窗体属性：返回主界面按钮代码：Private Sub Command11_fanhuichaxun_Click() On Error GoTo Err_Command11_fanhuichaxun_Click Dim stDocName As String Dim stLinkC
30、riteria As String stDocName = ChrW(26597) & ChrW(-29726) & ChrW(-28826) & ChrW(31080) & ChrW(31383) & 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 27 页 - - - - - - - - - 数据库课程设计说明书17 ChrW(20307) DoCmd.Close DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_C
31、ommand11_fanhuichaxun_Click: Exit Sub Err_Command11_fanhuichaxun_Click: MsgBox Err.Description Resume Exit_Command11_fanhuichaxun_Click End Sub 退出登录按钮代码：Private Sub Command16_Click() Dim r As QueryDef Dim t0, t1 As String t0 = 0 t1 = 1 Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDATE 系统用户名和密码表S
32、ET 登录状态= & t0 & WHERE 登录状态= & t1 & r.Execute DoCmd.Close DoCmd.OpenForm 登录窗体 End Sub 确定按钮代码：Private Sub Command6_Click() Dim r As QueryDef Dim s, m, p As String Dim t0, t1, t2, zongpiaojia, piaojia As Integer If IsNull(Combo2_checi) = True Or Combo2_checi = Or IsNull(Combo0_riqi) = True Or Combo0_ri
33、qi = Or IsNull(Combo4_daozhanming) = True Or Combo4_daozhanming = Then MsgBox ( 请输入足够的车票信息!) Else t0 = DLookup( 可售票数 , 总查询 , 车次= + Combo2_checi + and 日期= + Combo0_riqi + and 到站名= + Combo4_daozhanming + ) If IsNull(t0) Then MsgBox 信息错误！ ！没有该次火车！ Else If t0 = 0 Then MsgBox 购买失败！ ！ + Combo0_riqi + 的 +
34、Combo2_checi + 次车票已售完！ Else If Text12_maipiaoshu 999 Or Text12_maipiaoshu t0 Then m = CStr(t0) MsgBox 票数不足！此次列车目前还剩 + m + 张票 Else piaojia = DLookup( 票价 , 票价表 , 车次= + Combo2_checi + and 到站名= + Combo4_daozhanming + ) zongpiaojia = piaojia * t1 p = CStr(zongpiaojia) If MsgBox( 总票价为 + p + 元，请付款后点击是 ，否则请
35、点击否 。, vbYesNo) = vbNo Then Combo0_riqi = Combo2_checi = Combo4_daozhanming = 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 27 页 - - - - - - - - - 数据库课程设计说明书18 Text12_maipiaoshu = 1 Else t2 = t0 - t1 Set r = CurrentDb.QueryDefs( 购买票数更新查询) r.sql = UPDATE 票数表SE
36、T 可售票数= & t2 & WHERE 车次= + Combo2_checi + and 日期= + Combo0_riqi + r.Execute MsgBox 购买成功！ Combo0_riqi = Combo2_checi = Combo4_daozhanming = Text12_maipiaoshu = 1 End If End If End If End If End If End If End Sub Private Sub Command15_fanhuizhuchuangti_Click() DoCmd.Close DoCmd.OpenForm 登录成功窗体 End Sub
37、 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 27 页 - - - - - - - - - 数据库课程设计说明书19 第四章总结我们小组的火车站车票销售管理系统的设计和开发，历时近一个月。我们付出了大量时间与精力，一起探讨题目，数据库设计，和选用开发工具。其实，我们这是第一次使用Access 2003 来设计图形用户界面，而且也是第一次接触VB语言，除了数据库方面的知识，一切都可以说是从头学起，我们去图书馆借了2 本讲 Access 2003设计图形用户界面的书，先
38、是学习，再是进行开发。这次做下来，极大的提高了我们的自学能力，我们现在感到很自豪！当然，也有很多问题不能够仅仅靠这两本书来解决，我们就上网搜集解决办法，网上其实有很多遇到和我们一样的问题的朋友，并且有他们的解决办法，我们就照着来办。真的感谢互联网和网友！通过对此次数据库课程设计的设计和开发，我们对于数据库课程设计的相关知识又有了更深的认识，更加熟练了我们的数据库设计技术，让我们体会到了数据库设计的困难和解决困难后的收获与欣慰，我们认为这对于我们以后参加工作有很好的指导作用，能够更加轻松的进行工作。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - -
39、- - - - 名师精心整理 - - - - - - - 第 20 页，共 27 页 - - - - - - - - - 数据库课程设计说明书20 第五章参考文献1 李雁翎编著 .Access 基础与应用（第二版） . 北京：清华大学出版社，2008. 2 陈光军，张秀芝编著 . Access 2003 实验案例教程北京：中国水利水电出版社，2009. 3 各种网上计算机方面的网友提供的关于Access 2003 与 vb 的相关难题的解决办法，无法一一列出，特此感谢 . 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心
40、整理 - - - - - - - 第 21 页，共 27 页 - - - - - - - - - 数据库课程设计说明书21 附录（源代码）登录窗体：Option Compare Database Private Sub Command4_quxiao_Click() DoCmd.Close DoCmd.Quit End Sub Private Sub Command5_ok_Click() Dim r As QueryDef Dim t As Integer t = 1 If IsNull(Combo0_userID) = True Then MsgBox 请选择用户名！ Else If Te
41、xt6_mima = DLookup(密码 , 系统用户名和密码表, 用户名= + Combo0_userID + ) Then Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDATE 系统用户名和密码表SET 登录状态= & t & WHERE 用户名= + Combo0_userID + r.Execute DoCmd.Close DoCmd.OpenForm 登录成功窗体 Else Text6_mima = Text6_mima.SetFocus MsgBox 密码错误！ ！ End If End If End Sub * 登录成功窗体
42、：Option Compare Database Private Sub Command1_chaxun_Click() DoCmd.Close DoCmd.OpenForm 查询车票窗体 End Sub Private Sub Command2_dakaimiapiao_Click() On Error GoTo Err_Command2_dakaimiapiao_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(20080) & ChrW(31080) & ChrW(31383) & Ch
43、rW(20307) DoCmd.Close DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command2_dakaimiapiao_Click: Exit Sub Err_Command2_dakaimiapiao_Click: MsgBox Err.Description Resume Exit_Command2_dakaimiapiao_Click End Sub Private Sub Command3_tuichudenglu_Click() Dim r As QueryDef Dim t0, t1 As String t0 =
44、0 t1 = 1 Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDATE 系统用户名和密码表SET 登录状态= & t0 & WHERE 登录状态= & t1 & 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 27 页 - - - - - - - - - 数据库课程设计说明书22 r.Execute DoCmd.Close DoCmd.OpenForm 登录窗体 End Sub Private Sub Command
45、5_xiugaimima_Click() On Error GoTo Err_Command5_xiugaimima_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(20462) & ChrW(25913) & ChrW(23494) & ChrW(30721) & ChrW(31383) & ChrW(20307) DoCmd.Close DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command5_xiugaimima_Click:
46、 Exit Sub Err_Command5_xiugaimima_Click: MsgBox Err.Description Resume Exit_Command5_xiugaimima_Click End Sub * * 修改密码窗体Option Compare Database Private Sub Command0_quxiao_Click() DoCmd.Close DoCmd.OpenForm 登录成功窗体 End Sub Private Sub Command1_Click() Dim r As QueryDef Dim s, t As String t = 1 s = DL
47、ookup( 密码 , 系统用户名和密码表, 登录状态= & t & ) If IsNull(s) False Then MsgBox 请先退出后重新登录，再修改密码！ Else If Text2_yuanmima s Then MsgBox 原密码错误！ Text2_yuanmima = Text4_xinmima1 = Text6_xinmima2 = Text2_yuanmima.SetFocus Else If IsNull(Text2_yuanmima) = True Then MsgBox 请输入密码！ Text2_yuanmima.SetFocus Else If IsNull(
48、Text4_xinmima1) = True Then MsgBox 请输入新密码！ Text4_xinmima1.SetFocus Else If IsNull(Text6_xinmima2) = True Then MsgBox 请再输入一遍新密码！ Text6_xinmima2.SetFocus Else If Text4_xinmima1 Text6_xinmima2 Then MsgBox 新密码2 次输入不一致！请重新输入！ Text4_xinmima1 = Text6_xinmima2 = Text4_xinmima1.SetFocus 名师资料总结 - - -精品资料欢迎下载
49、- - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 23 页，共 27 页 - - - - - - - - - 数据库课程设计说明书23 Else Set r = CurrentDb.QueryDefs( 登录状态更新查询) r.sql = UPDA TE 系统用户名和密码表SET 密码= + Text4_xinmima1 + WHERE 登录状态= & t & r.Execute MsgBox 密码修改成功！ DoCmd.Close DoCmd.OpenForm 登录成功窗体 End If End If End If End
50、If End If End If End Sub * 查询车票窗体：Option Compare Database Private Sub query_fanhui_Click() On Error GoTo Err_query_fanhui_Click DoCmd.Close Exit_query_fanhui_Click: Exit Sub Err_query_fanhui_Click: MsgBox Err.Description Resume Exit_query_fanhui_Click End Sub Private Sub Command12_Click() Dim r As Q