車站售票管理系統(tǒng)數(shù)據(jù)庫課程設計報告

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：26 大小：968.00KB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩25頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　《數(shù)據(jù)庫原理》課程設計報告　　課程設計題目：車站售票管理系統(tǒng) 　　學院名稱：電子與信息工程學院 　　專

2、業(yè)：計算機應用技術 　　學生姓名：學號： 　　指導教師：職稱：講師 　　年月

3、日　　目錄　　1、需求求報告分析…………………………………………………………………………1　　1、1 概述…………………………………………………………………………1　　1、2 系統(tǒng)功能分析………………………………………………

4、………………1　　1、3 數(shù)據(jù)流圖……………………………………………………………………2　　1、4 數(shù)據(jù)字典……………………………………………………………………3　　2、概念及邏輯結構設計…………………………………………………………………7　　2、1 ER圖 ………………

5、………………………………………………………7　　2、2 關系模式……………………………………………………………………8　　2、3數(shù)據(jù)結構……………………………………………………………………9　　3、數(shù)據(jù)庫設計………………………………………………………………………………10

6、　　4、系統(tǒng)軟件結構設計 …………………………………………………………………11　　4、1 系統(tǒng)功能設計………………………………………………………………11　　4、2 其它需求……………………………………………………………………12　　4、3說明…………………………………………………………………………12<

7、/p>　　5、程序模塊設計 …………………………………………………………………………15　　5、1 功能模塊詳細設計…………………………………………………………15　　5、2 界面設計……………………………………………………………………16　　5、3 附錄：系統(tǒng)程序源代碼…………………

8、…………………………………16　　參考文獻………………………………………………………………………………………25　　1系統(tǒng)需求分析報告　　1.1概述　　汽車售票管理系統(tǒng)主要用于車站日常的票務處理。

9、車售票管理系統(tǒng)在正常運行中需要對使用該系統(tǒng)的主要是汽車站售票人員、汽車站售票工作的管理人員與系統(tǒng)管理員。為達到操作過程中的直觀、方便、實用、安全等要求，我們組在這個系統(tǒng)中采用模塊化程序設計的方法，便于系統(tǒng)功能的組合和修改，以及擴充和維護。　　1．2系統(tǒng)功能分析　　根據(jù)需求分析，本系統(tǒng)要實現(xiàn)以下的基本功能。</p

10、>　　1．登錄功能：分為汽車站售票人員和系統(tǒng)管理員兩種權限登陸。用戶通過　　輸入不同用戶名和密碼進行身份驗證，系統(tǒng)通過用戶名和密碼判斷不同用戶的權限，從而確定該用戶可以執(zhí)行的操作。　　2．車票信息查詢功能：由汽車站的普通售票人員通過不同的檢索入口,查詢車票信息，并進行排序。　　3．修改

11、功能：汽車站售票人員、汽車站售票工作的管理人員能夠修改自身的用戶名和密碼，系統(tǒng)管理員則能實現(xiàn)系統(tǒng)用戶與普通用戶的添加，修改普通用戶與系統(tǒng)管理員的密碼，以此確保該系統(tǒng)能夠安全操作，避免不必要的損失。　　4．匯總功能：對當天車票的信息進行匯總。　　1．3數(shù)據(jù)流圖

12、　　1．4數(shù)據(jù)字典　　1.數(shù)據(jù)項　　票號、票價、車次、日期、車型、開車時間、票種、座位號、起始站、終點站、身份證號、銀行卡號、數(shù)量、退票時間、退票手續(xù)費、訂票時間、訂票手續(xù)費　　2．數(shù)據(jù)結構&l

13、t;p>　　表1．1 車票的數(shù)據(jù)結構　　3．數(shù)據(jù)流　　數(shù)據(jù)流編號：D04-01　　數(shù)據(jù)流名稱：車票　　簡述：車票有關信息<

14、;p>　　數(shù)據(jù)流來源：用戶執(zhí)行售票操作結果　　數(shù)據(jù)流去向：購票旅客　　數(shù)據(jù)流組成：車票編號+車票類型+車次信息+座位信息+票價信息　　4．數(shù)據(jù)存儲　　售票記錄：票號，起始站，終點站，票價，車次，日期，開車時間，

15、;　　車型，票種，座位號，售出時間　　退票記錄：票號，起始站，終點站，票價，車次，日期，開車時間，　　車型，票種，座位號，退票時間　　訂票記錄：票號，起始站，終點站，票價，車次，日期，開車時間，　　車型，票種，座位號，訂票時間，顧客身份證號</

16、p>　　缺票記錄：票號，起始站，終點站，票價，車次，日期，開車時間，　　車型，票種 　　車票記錄：票號，起始站，終點站，票價，車次，日期，開車時間，　　車型，票種，座位號，售出時間，票數(shù)

17、　5．處理過程　　車票匯總：工作人員將一天所售出的票進行統(tǒng)計，包括票數(shù)，票類，形成確定的車票記錄。　　查詢：將顧客需要的車票信息輸入系統(tǒng)，并查詢其是否可供應。　　查詢顧客信息：為訂票所設，將顧客的準確信息記錄，為其預定所車票。　　處理買票：進行買票交易

18、，把顧客需要的票（可供應）售出，并在系統(tǒng)中作相應記錄，確定車票記錄。　　處理訂票：進行訂票交易，工作人員為顧客預定其所需車票，并在系統(tǒng)中作相應記錄，確定訂票記錄。　　處理退票：進行退票交易，工作人員為顧客辦理退票手續(xù)，并在系統(tǒng)中作相應記錄，確定退票記錄。　　2概念及邏輯結構設計<p&

19、gt;　　2.1 E-R圖　　本系統(tǒng)根據(jù)以上的設計規(guī)劃出的實體有：車票實體、車站實體、顧客實體。各個實體具體的描述Ｅ-Ｒ圖如下：　　圖2-1車票ER圖　　圖2-2 顧客ER圖　　圖2-3實體之間E

20、R圖　　2.2關系模型：　　車票與顧客之間的聯(lián)系　　售票 1：N　　車票（票號，車次,日期，車型，票價，開車時間，票種，座位號，起始站，終點站）　　顧客

21、（身份證號，銀行卡號,票號）　　退票1：N　　車票（票號，車次,日期，車型，票價，開車時間，票種，座位號，起始站，終點站）　　顧客（身份證號，銀行卡號,票號，退票時間，退票手續(xù)費）　　訂票1:N&

22、lt;/p>　　車票（票號，車次,日期，車型，票價，開車時間，票種，座位號，起始站，終點站）　　顧客（身份證號，銀行卡號,票號，日期，交易時間，交易金額，數(shù)量，起始站，終點站）　　2.3數(shù)據(jù)庫結構　　表2.1 Car表詳細設計

23、　　表2.2 Seat表詳細設計　　表2.3 PriceDiscount表詳細設計　　表2.4 Price表詳細設計　　表2.5 Type表詳細設計　　3數(shù)據(jù)庫設計　　本

24、車站售票系統(tǒng)有兩個實體，分別是車票和顧客，利用SQL建表如下：　　車票　　顧客　　4 系統(tǒng)軟件結構　　4.1.系統(tǒng)功能設計<p&

25、gt;　　汽車站售票管理系統(tǒng)主要設有五個主要功能模塊：分別是車次管理、票價管理、票務管理、用戶管理和查詢管理。如圖4-1所示。　　車次管理模塊　　該模塊主要實現(xiàn)車次信息的編輯。車次管理中的數(shù)據(jù)源為Access數(shù)據(jù)庫中Car表，在此管理部分中，能夠使用界面操作實現(xiàn)車次信息的編輯，并將數(shù)據(jù)庫中的數(shù)據(jù)按照編輯的要求來及時更

26、新數(shù)據(jù)表中的相關數(shù)據(jù)。　　2．票價管理模塊　　該模塊主要實現(xiàn)票價信息的錄入、修改與刪除以及票價折扣信息的錄入、修改與刪除。票價詳細信息的錄入、修改、刪除，它的數(shù)據(jù)源為Access數(shù)據(jù)庫的Price表。在此管理部分中，通過票價管理（FrmPriceManage）界面來選擇記錄并決定執(zhí)行何種操作，是修改、添加或刪除。當

27、命令為修改或者添加時則自動跳轉到票價編輯窗體（FrmPriceEdit）實現(xiàn)票價信息的編輯并更新數(shù)據(jù)庫中相應數(shù)據(jù)記錄。　　3．票務管理模塊　　票務管理部分實現(xiàn)前臺售票、前臺退票功能。主要完成售票、遠程售票、廢票、取消廢票功能、改簽票、退票、取消退票功能、補票、售票查詢和票款結算單填寫等功能。&

28、lt;p>　　4．用戶管理模塊　　該模塊主要實現(xiàn)用戶添加，用戶信息修改與用戶的刪除。所有系統(tǒng)用戶的管理，包括系統(tǒng)普通用戶與系統(tǒng)管理員。此管理模塊數(shù)據(jù)源為Access數(shù)據(jù)庫的Users表。在系統(tǒng)主界面中首先進入的是名稱為FrmUserMan的用戶管理主窗體，通過提取用戶名、用戶類型來查看用戶具體信息，選擇添加或刪除用戶進入名為FrmUserEdit的用戶

29、編輯界面進行操作，操作完成便更新數(shù)據(jù)庫數(shù)據(jù)。　　5．查詢管理模塊 　　該模塊主要實現(xiàn)擁護通過查詢界面可以根據(jù)條件進行車次時刻、車次票價查詢。　　4-1．功能模塊圖　　4．2其他需求</p

30、>　　汽車站售票系統(tǒng)數(shù)據(jù)庫中的數(shù)據(jù)量十分龐大，而且更新速度十分快。在數(shù)據(jù)大小方面要求數(shù)據(jù)的屬性要設置合理，假如是數(shù)據(jù)的屬性值越大，則數(shù)據(jù)本身所占用的容量也就十分的龐大，不但會造成傳輸?shù)牟环奖闵踔铃e誤，也更加重系統(tǒng)的負擔，有可能削弱系統(tǒng)運行速度，使得系統(tǒng)無法達到預期的目的。另外，在整個系統(tǒng)當中要確保數(shù)據(jù)在保存與傳遞過程中的安全，以免發(fā)生嚴重的錯誤，造成巨大的損失。<

31、;b>　　4．3說明　　售票 　　正常出售本站所有車次車票，并按要求打印出車票。 　　遠程售票 　　正常出售遠程車站所有車次車票，并按遠程車站的要求打印出車票。 <

32、/p>　　廢票 　　在正常售票過程中，可能因操作失誤或打印機械故障等原因造成錯票而作廢車票。 　　取消廢票 　　當廢票時，發(fā)現(xiàn)廢的票是不應該廢的，即為正常票，需要通過取消廢票來實現(xiàn)。

33、　　遠程廢票 　　對所售遠程車票作廢票處理。 　　退票 　　在正常退票時間內辦理退票，并根據(jù)退票規(guī)定收取一定的手續(xù)費。 　　遠程退票 <

34、;/p>　　對所售遠程車票作退票處理。 　　取消退票 　　當退票時，發(fā)現(xiàn)退的票是不應該退的，即為正常的票，需要通過取消退票來實現(xiàn)。 　　改簽票 　　由于乘客或車站某種原

35、因需對已出售的車票作更換車次的車票。改簽僅允許改簽一次。 　　遠程改簽票 　　對所售遠程車票作改簽處理。 　　注銷票 　　刪除某些由于調試程序所用的票記錄及其影響。 <

36、;p>　　補票 　　只能在超過售票時限后進行，且在未發(fā)車之前，在統(tǒng)計時注意對非微機售票的票的處理（例如：剪刀票）。 　　售票查詢 　　通過一定的授權和設定售票員可以查詢在設定時間范圍內或多少張票以前的出售、作廢、改簽和退票的情況，并

37、對有權限的人員可有累計票款服務。 　　票款結算單 　　售票員每天售完車票后填寫每日結算單，以便財務人員查詢。 　　重打車票 　　在正常售票過程中，可能因打印機械故障等原因造成錯票而重新打印車票。

38、 　　售票類型 　　車票中所有聯(lián)都應有的信息為車次、起止站點、票價、發(fā)車日期時間，而正聯(lián)所特有的信息為售票員工號、檢票口、是否改簽票、車票上應有的信息：車票固有票號、計算機打印的票號、票號條形碼（僅用于自動檢票的車站）。 　?。?）車票類型 </b&g

39、t;　　1)正常班次車票：發(fā)售的當天或預售正常輪班車次的車票。 　　2)遠程售票：發(fā)售遠程車站車次的車票，其打印格式同遠程車站。 　　3)流水班次車票：發(fā)售的流水班次車票。 　　4)退票和改簽票： 　　退票分為

40、　　A、正常退票。辦理標準規(guī)定退票時間內的退票。 　　B、強行退票。在超過時限后退票，即強行退票。 　　補票：補票只能在超過售票時限后進行，且必須在未發(fā)車之前。 　　訂票：設定定票有效期限，在有有效時限保留座位，有效時外釋放座位等。

41、;　　票種的定義 　?、偃珒r票 　?、诎雰r票允許設定可用標志，自由定義名稱。 　　③免票只允許設定可用標志。 　　④優(yōu)惠票1-3 允許設定可用標志，自由定義名稱。 <

42、;/p>　　⑤折扣票對原票價的基礎上進行一定的打折，有嚴格的權限控制。 　　5 程序模塊設計　　5.1功能模塊詳細設計　　5.1.1 車次管理模塊代碼實現(xiàn)　　Private Sub Cmd_OK_Clic

43、k()　　'檢查用戶錄入數(shù)據(jù)的有效性　　If Len(Trim(txtCarID)) = 0 Then　　MsgBox "請輸入車次編號"　　txtCarID.SetFocus　　Ex

44、it Sub　　End If　　If Len(Trim(txtOutTime)) = 0 Then　　MsgBox "請輸入發(fā)車時間"　　txtOutTime.SetFocus

45、;　　Exit Sub　　End If　　'把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫對象變量中　　With MyType　　.CarID = MakeStr(txtCarID)

46、 '車次編號　　.OutSetTime = MakeStr(TimeEdit) '發(fā)車時間　　.RunninWay = MakeStr(WayEdit) '經營路線　　.CarType = MakeStr(TypeEdit) '車輛類型

47、;　　.PlateNumber = MakeStr(CNnEdit) '車牌號　　.CarHolder = MakeStr(HolderEdit) '責任人　　.SeatLimit = MakeStr(LSeatEdit) '額定座位　　'根據(jù)變量Modify決定是插入新數(shù)據(jù)，

48、還是修改已有的數(shù)據(jù)　　If Modify = False Then　　.Insert '插入新數(shù)據(jù)　　Else '修改　　.Update (nId) '修改已有的數(shù)據(jù)

49、　　End If　　End With　　Unload Me '關閉窗口　　5.1.2 票價管理模塊代碼實現(xiàn)　　票價管理部分代碼如下（信息添加過程）：<p&g

50、t;　　Private Sub Cmd_Add_Click()　　'初始化FrmDiscountEdit信息　　FrmPriceEdit.txtTerminalName = ""　　FrmPriceEdit.txtTNPYCode = ""&

51、lt;p>　　FrmPriceEdit.txtCarID = ""　　FrmPriceEdit.txtTicketPrice = ""　　FrmPriceEdit.Modify = False　　FrmPriceEdit.VarTermanalID = OriTerm

52、inalID　　FrmPriceEdit.Show 　　RefreshData　　End Sub　　5.1.3用戶管路模塊代碼實現(xiàn)（編輯窗體代碼）：　　Private Sub Cmd_OK_C

53、lick()　　If Trim(txtUserName) = "" Then　　MsgBox "請輸入用戶名"　　txtUserName.SetFocus　　Exit Sub

54、　　End If　　If Len(txtPass) < 5 Then　　MsgBox "密碼長度不能小于5"　　txtPass.SetFocus　　txtPass.SelStart =

55、0　　txtPass.SelLength = Len(txtPass2)　　Exit Sub　　End If　　If txtPass <> txtPass2 Then

56、;　　MsgBox "密碼和確認密碼不相同，請重新確認"　　txtPass2.SetFocus　　txtPass2.SelStart = 0　　txtPass2.SelLength = Len(txtPass2)

57、　　Exit Sub　　End If　　'判斷是否存在同名用戶　　With MyUser　　If Modify = False Or OriUser <> Trim(txtUserName) T

58、hen　　If .In_DB(Trim(txtUserName)) = True Then　　MsgBox "用戶名已存在，請重新輸入"　　txtUserName.SetFocus　　txtUserName.SelStart = 0

59、　　txtUserName.SelLength = Len(txtUserName)　　Exit Sub　　End If　　模塊中的程序代碼如下：　　Public adoCo

60、n As New ADODB.Conncetion　　Public adors As New ADODB.Recordset　　'連接數(shù)據(jù)庫　　Public Sub main()　　Set adoCon = New ADODB

61、.Connection　　adoCon.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ 汽車站售票管理系統(tǒng).mdb" & ";Persist Security Info=False"<p&g

62、t;　　FrmLogin.Show　　FrmLogin.txtUser.SetFocus　　End Sub　　5.2 界面設計　　系統(tǒng)主界面設計如下，主界面頂端顯示不同管理模塊，點擊則進入相應界面

63、。下端顯示系統(tǒng)當前所處日期和時間。　　圖14 系統(tǒng)主界面設計　　5．3附錄：系統(tǒng)程序源代碼　　(1)登陸窗體（FrmLogin）代碼　　Public PasswordKey As String　　Public NameKey As

64、 String　　Public Try_times As Integer　　'取消鍵退出登陸界面　　Private Sub Cmd_Cancel_Click()　　Unload Me&

65、lt;b>　　End Sub　　Private Sub Cmd_OK_Click()　　'數(shù)據(jù)庫有效性檢查　　If Trim(txtUser) = "" Then　　MsgBox

66、"請輸入用戶名"　　txtUser.SetFocus　　Exit Sub　　End If　　If Trim(txtPwd) = "" Then</p&

67、gt;　　MsgBox "請輸入密碼"　　txtPwd.SetFocus　　Exit Sub　　End If　　End Sub</

68、b>　　Private Function MakeStr() As String　　NameKey = Str(txtUser)　　PasswordKey = Str(txtPwd)　　'判斷用戶是否存在</p&g

69、t;　　If MyUser.In_DB(NameKey) = Flase Then　　MsgBox "用戶名不存在"　　Try_times = Try_times + 1　　If Try_times >= 3 Then　　M

70、sgBox "您已經三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉"　　DBapi_Disconnect　　End　　Else　　Exit Function&

71、lt;p>　　End If　　End If　　'判斷密碼是否正確　　MyUser.GetINfo (NameKey)　　If MyUser.Pw

72、d <> PasswordKey Then　　MsgBox "密碼錯誤"　　Try_times = Try_times + 1　　If Try_times >= 3 Then　　MsgBox "您已經三次嘗試進入本系統(tǒng)，均不

73、成功，系統(tǒng)將關閉"　　DBapi_Disconnect　　End　　Else　　Exit Function　　End If&l

74、t;/b>　　End If　　'登陸成功，將當前用戶的信息保存在CurUser中　　CurUser.UserName = MyUser.UserName　　CurUser.User_type = MyUser.User_

75、type　　CurUserEmpID = MyUser.EmpID　　'關閉自己并顯示主窗體　　Unload Me　　FrmMain.Show　　End Function</p&

76、gt;　?。?）主窗體(FrmMain)代碼　　'設置數(shù)據(jù)庫連接字符串　　Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & " \汽車站售票管理系統(tǒng).mdb " & "

77、;;Presist Security Info=False"　　'系統(tǒng)登陸界面　　FrmLogin.Show　　End Sub　　Private Sub PJCX_Click()

78、　　End Sub　　Private Sub PJGL_Click()　　FrmPriceManage.Show　　End Sub　　Private Su

79、b SPGL_Click()　　FrmTicketSell.Show　　End Sub　　Private Sub TPGL_Click()　　FrmBack.Show　　En

80、d Sub　　Private Sub XGMM_Click()　　With FrmUserEdit　　.OriUser = CurUser.UserName　　.txtUserName = CurUser.UserName<

81、;p>　　If CurUser.User_type = 1 Then　　.ComboType.AddItem "系統(tǒng)管理員"　　Else　　.ComboType.AddItem "普通用戶"

82、;　　End If　　.ComboType.ListIndex = 0　　.ComboType.Enabled = False　　.Modify = True　　.Show 1

83、　　End With　　End Sub　　Private Sub YHGL_Click()　　If CurUser.User_type = 1 Then　　FrmUserMa

84、n.Show　　Else　　MsgBox "沒有權限"　　End If　　End Sub　　Pr

85、ivate Sub ZKGL_Click()　　FrmDiscount.Show　　End Sub　?。?）售票窗體（FrmTicketSell）代碼　　Private Sub Cmd_Cancel_Click()

86、　　Unload Me　　End Sub　　Private Sub Cmd_Search_Click()　　'GridRsfresh '根據(jù)條件查詢所有信息

87、　　End Sub　　Private Sub Cmd_Sell_Click()　　Dim ComboDate As String, TNPYCode As String, CarID As String　　Dim left As Integer<

88、p>　　Dim seatnumber As String　　Dim strseat As String　　Dim ticketinformation As String　　Dim informationbook As String　　Dim cost As Long

89、　　ComboDate = Trim(ComboDate.Text)　　TNPY = Trim(txtTNPYCode)　　CarID = Trim(txtCarID)　　Dim strcnn　　init_ado

90、　　strQuery = "Select CarID,OutStation,Terminal,OutSetTime,Date,Sno From Seat join Price on Seat.CarID=Price.CarID Where Seat.date='" & _　　Trim(ComboD

91、ate) & "'" & " and Price.TNPYCode='" & Trim(txtTNPYCode) & "'" 　　'根據(jù)輸入的信息，從表里得出查詢結果　　rsdata.Open strQuery, cnnrs

92、data, , , adCmdText　　If rsdata.EOF Then　　MsgBox "車次或拼音碼輸入有誤，請重新輸入！", , "Error!"　　ComboDate.Text = ""　　TNPY

93、Code = ""　　txtCarID = ""　　ComboDate.SetFocus　　ElseIf Len(TNPYCode) = 0 Then　　MsgBox "請輸入拼音碼"&l

94、t;p>　　txtTNPYCode.SetFocus　　ElseIf Len(TNPYCode) > 4 Then　　MsgBox "拼音碼過長，無效！"　　txtCarID.SetFocus　　ElseIf Len(CarID) = 0

95、Then　　MsgBox "請輸入車次編號！"　　txtCarID.SetFocus　　ElseIf IsNumeric(Number) = False Then　　MsgBox "車次編號應為數(shù)字！"<

96、;p>　　txtCarID.Text = ""　　txtCarID.SetFocus　　Else　　rsdata.Close　　strQuery = "select count(*) as tota

97、l from Seat where Seat.sell=false and Seat.date='" & _　　Trim(ComboDate.Text) & "'" & " and Seat.CarID='" & Trim(txtCarID.Text) & "'&q

98、uot;　　rsdata.Open strQuery, cnnrsdata, , , adCmdText '統(tǒng)計本車次的剩余的座位數(shù)　　rsdata.MoveFirst　　left = rsdata!total　　If left = 0 Then</p&

99、gt;　　MsgBox "本車次已經客滿!"　　ComboDate.Text = ""　　ComboSNno.Text = ""　　txtTNPYCode.Text = ""<p&g

100、t;　　txtCarID.Text = ""　　ComboDate.SetFocus　　Else　　rsdata.Close　　strQuery = "select count(*) as total f

101、rom Seat where Seat.sell=false and Seat.date='" & _　　Trim(ComboDate) & "'" & " and Seat.CarID='" & Trim(txtCarID) & "'"

102、;　　rsdata.Open strQuery, cnnrsdata, , , adCmdText '統(tǒng)計本車次的剩余的座位數(shù)　　rsdata.MoveFirst　　rsdata.AddNew　　rsdata!Date = comdate

103、　　rsdata!Seat = comSNno　　rsdata!CarID = CarID　　rsdata!TNPYCode = TNPYCode　　rsdata!sno = Trim(seatnumber)　　rsdata.Update '添加新記錄<

104、;/p>　　'更新 Seat 表，將剛賣出的座位號設為 false　　strQuery = "select * from Seat where Seat.sno='" & Trim(seatnumber) & _　　"' and Seat.date=&#

105、39;" & Trim(ComboDate) & "'" & _　　" and SeatCarID='" & Trim(txtCarID) & "'"　　rsdata.Open strQuery, cnnrsdata, ,

106、 , adCmdText　　If rsdata!sell = False Then　　rsdata!sell = True　　rsdata.Update　　End If　　ComboDate

107、= ""　　txtTNPYCode = ""　　txtCarID = ""　　ComboDate.SetFocus　　cost = Val(Adodc3.Recordset.Fields(3))

108、;　　txtCharge = Val(txtMoney) - Val(Adodc3.Recordset.Fields(3))　　End Sub　?。?）退票窗體（FrmBack）代碼　　Private Sub Cmdback_Click()</p&

109、gt;　　Dim strdate As String　　Dim strline As String　　Dim strseatno As String　　Dim strTnl As String　　Dim response As String</

110、p>　　Dim ticketinformation As String　　strdate = Trim(Combodate.Text)　　strCarID = Trim(txtCarID.Text)　　strseatno = Trim(ComboSeatno.Text)</p&g

111、t;　　strTnl = Trim(ComboTerminal.Text)　　Dim strcnn　　init_ado　　strQuery = "Select * From SellTicket Where SellTicket.date=&#

112、39;" & _　　Trim(Combodate.Text) & "'" & " and SellTicket.Sno='" & Trim(ComboSNno.Text) & "'" & _　　" and

113、 SellTicket.carID='" & Trim(ComboCarID.Text) & "'" '檢查車票日期、車次和座位是否有效　　rsdata.Open strQuery, cnnrsdata, , , adCmdText　　If rsdata.EOF Then<

114、/p>　　MsgBox "你所要退的票為無效票或是你的輸入有問題！"　　Else　　rsdata.Close　　strQuery = "Select * From SellTicket Where SellTicket

115、.date='" & Trim(Combodate.Text) & _　　"'" & " and SellTicket.sno='" & Trim(ComboSNno.Text) & "'" & _　　&q

116、uot; and SellTicket.CarID='" & Trim(ComboCarID.Text) & "'"　　rsdata.Open strQuery, cnnrsdata, , , adCmdText　　rsdata.MoveFirst

117、Combodate.Text = rsdata!Date　　ComboSNSno.Text = rsdata!sno　　ComboCarID.Text = rsdata!CarID　　'車票有效，確認日期、車次和座位號，確認是否退票　　ticketinformat

118、ion = "日期:" & strdate & " " & "車次:" & strCarID & " " & "座位號:" & strsno & ""　　response = MsgBox(ticketin

119、formation, vbOKCancel + vbInformation, "是否真要退票?")　　If response = 1 Then　　'更改 SellTicket 表　　rsdata.Close　　strQuery = "

120、select * from SellTicket"　　rsdata.Open strQuery, cnnrsdata, , , adCmdText　　rsdata.MoveFirst　　Dim i As Integer　　For i = 1 To rsdata.

121、RecordCount　　If rsdata!Date = strdate And rsdata!sno = strsno And rsdata!sno = strseat Then　　rsdata.Delete　　End If　　r

122、sdata.MoveNext　　Next i　　rsdata.Close　　' 將剛退的票設為可賣　　strQuery = "select * from line where Seat.date='"

123、; & strdate & "'" & _　　" and Seat.CarID='" & strCarID & "'" & " and Seat.sno='" & strsno & "'"<

124、;/p>　　rsdata.Open strQuery, cnnrsdata, , , adCmdText　　If rsdata!book = True Then　　rsdata!book = False　　rsdata.Update<b&

125、gt;　　End If　　Combodate.Text = ""　　ComboSno.Text = ""　　Combodate.SetFocus　　MsgBox "退票已成功！"</p&

126、gt;　　Else　　rsdata.Close　　Combodate.Text = ""　　ComboSno.Text = ""　　Combodate.SetFocus&l

127、t;/p>　　End If　　End If　　End Sub　　（5）折扣管理窗體（FrmDiscount）代碼　　Private

128、 Sub Cmd_Add_Click()　　'初始化FrmDiscountEdit信息　　FrmDiscountEdit.txtTerminalName = ""　　FrmDiscountEdit.txtTNPYCode = ""<p&

129、gt;　　FrmDiscountEdit.txtCarID = ""　　FrmDiscountEdit.txtTicketPrice = ""　　FrmDiscountEdit.Modify = False　　FrmDiscountEdit.VarRecordNumber

130、= OriRecordNumber　　FrmDiscountEdit.Show 1　　RefreshData　　End Sub　　Private Sub Cmd_Cancel_Click()&

131、lt;b>　　Unload Me　　End Sub　　Private Sub Cmd_Del_Click()　　Dim TmpID As Long　　If Adodc1.Recordset.BOF = Tru

132、e Then　　MsgBox "請選擇記錄"　　Exit Sub　　End If　　TmpID = Adodc1.Recordset.Fields(0)

133、　　If MsgBox("是否刪除當前行", vbYesNo, "請確認") = vbYes Then　　Call MyFam.DeleteByID(TmpID)　　End If　　RefreshData</p&

134、gt;　　End Sub　　Private Sub Cmd_Modi_Click()　　'初始化FrmPriceEdit信息　　FrmDiscountEdit.OriID = Adodc1.Recordset.Fields(0)

135、;　　FrmDiscountEdit.txtCarID = Adodc1.Recordset.Fields(2)　　FrmDiscountEdit.txtTicketTypeID = Adodc1.Recordset.Fields(3)　　FrmDiscountEdit.txtTicketType = Adodc1.Recordse

136、t.Fields(4)　　FrmDiscountEdit.txtDiscount = Adodc1.Recordset.Fields(5)　　FrmDiscountEdit.VarRecordNumber = OriRecordNumber　　FrmDiscountEdit.Modify = True</p

137、>　　FrmDiscountEdit.Show 1　　RefreshData　　End Sub　?。?）票價信息管理窗體（FrmPriceManage）代碼　　Private Sub Cmd_Add_Cli

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

車站售票管理系統(tǒng)數(shù)據(jù)庫課程設計報告

文檔簡介

溫馨提示

最新文檔

評論

車站售票管理系統(tǒng)數(shù)據(jù)庫課程設計報告

文檔簡介

溫馨提示

最新文檔

評論

免費下載