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

1、車站售票管理系統(tǒng)數(shù)據(jù)庫課程 設(shè)計(jì)報(bào)告河南理工大學(xué) 萬方科技學(xué)院 課程設(shè)計(jì)報(bào)告2010 2011 學(xué)年第一學(xué)期2010 年 09 月25日課程名稱數(shù)據(jù)庫系統(tǒng)原理=3=1設(shè)計(jì)題目車站售票管理系統(tǒng)學(xué)生姓名學(xué) 號(hào)專業(yè)班級(jí)指導(dǎo)教師1 需 求 求 報(bào) 告 分析11、1概述11、2系統(tǒng)功能分析11>3數(shù)據(jù)流圖21、4數(shù)據(jù)字典32 概 念 及 邏 輯 結(jié) 構(gòu) 設(shè)計(jì)72、1ER 圖72、2關(guān)系模式82、3數(shù)據(jù)結(jié)構(gòu)93 、數(shù)據(jù)庫設(shè)計(jì)104 系 統(tǒng) 軟 件 結(jié) 構(gòu) 設(shè)計(jì)1141系 統(tǒng) 功 能 設(shè)計(jì)114、2其它需求124、3說明125 程序模塊設(shè)計(jì)155、1功能模塊詳細(xì)設(shè)計(jì)155、2界面設(shè)計(jì)165、3附錄：系

2、統(tǒng)程序源代碼16參考文251系統(tǒng)需求分析報(bào)告概述汽車售票管理系統(tǒng)主要用于車站日常的票務(wù)處理。車售票管理系統(tǒng)在正常 運(yùn)行中需要對使用該系統(tǒng)的主要是汽車站售票人員、汽車站售票工作的管理人 員與系統(tǒng)管理員。為達(dá)到操作過程中的直觀、方便、實(shí)用、安全等要求，我們 組在這個(gè)系統(tǒng)中釆用模塊化程序設(shè)計(jì)的方法，便于系統(tǒng)功能的組合和修改，以 及擴(kuò)充和維護(hù)。1. 2系統(tǒng)功能分析根據(jù)需求分析，本系統(tǒng)要實(shí)現(xiàn)以下的基本功能。1. 登錄功能：分為汽車站售票人員和系統(tǒng)管理員兩種權(quán)限登陸。用戶通過 輸入不同用戶名和密碼進(jìn)行身份驗(yàn)證，系統(tǒng)通過用戶名和密碼判斷不同用戶的 權(quán)限，從而確定該用戶可以執(zhí)行的操作。2. 車票信息査詢功能：

3、由汽車站的普通售票人員通過不同的檢索入口，査 詢車票信息，并進(jìn)行排序。3修改功能：汽車站售票人員、汽車站售票工作的管理人員能夠修改自身 的用戶名和密碼，系統(tǒng)管理員則能實(shí)現(xiàn)系統(tǒng)用戶與普通用戶的添加，修改普通 用戶與系統(tǒng)管理員的密碼，以此確保該系統(tǒng)能夠安全操作，避免不必要的損失。4.匯總功能：對當(dāng)天車票的信息進(jìn)行匯總。1. 3數(shù)據(jù)流頂層圖ifc: ®打酋1. 4數(shù)據(jù)字典1. 數(shù)據(jù)項(xiàng)票號(hào)、票價(jià)、車次、日期、車型、開車時(shí)間、票種、座位號(hào)、起始站、終 點(diǎn)站、身份證號(hào)、銀行卡號(hào)、數(shù)量、退票時(shí)間、退票手續(xù)費(fèi)、訂票時(shí)間、 訂票手續(xù)費(fèi)2. 數(shù)據(jù)結(jié)構(gòu)表11車票的數(shù)據(jù)結(jié)構(gòu)DS04-01 車票DS04-02

4、：車票標(biāo)志DS04-03:車次信息DS04-04：座位信 息DS04-05:票價(jià)信息11：車票編號(hào)13：起始站18：座位號(hào)19：全票價(jià)12：車票類型14：車次編號(hào)110：折扣15：終點(diǎn)站16：發(fā)車時(shí)間17：乘車日期3. 數(shù)據(jù)流數(shù)據(jù)流編號(hào)：D04-01數(shù)據(jù)流名稱：車票簡述：車票有關(guān)信息數(shù)據(jù)流來源：用戶執(zhí)行售票操作結(jié)果數(shù)據(jù)流去向：購票旅客數(shù)據(jù)流組成：車票編號(hào)+車票類型+車次信息+座位信息+票價(jià)信息4. 數(shù)據(jù)存儲(chǔ)售票記錄：票號(hào)，起始站，終點(diǎn)站，票價(jià)，車次,日期，開車時(shí)間,車型，票種，座位號(hào)，售出時(shí)間退票記錄：票號(hào)，起始站，終點(diǎn)站，票價(jià),車次，日期，開車時(shí)間,車型，票種，座位號(hào)，退票時(shí)間訂票記錄：票號(hào)

5、，起始站，終點(diǎn)站，票價(jià)，車次，日期，開車時(shí)間， 車型，票種，座位號(hào)，訂票時(shí)間，顧客身份證號(hào)缺票記錄：票號(hào)，起始站，終點(diǎn)站，票價(jià)，車次，日期，開車時(shí)間， 車型，票種車票記錄：票號(hào)，起始站，終點(diǎn)站，票價(jià)，車次，日期，開車時(shí)間， 車型，票種，座位號(hào)，售出時(shí)間，票數(shù)5. 處理過程車票匯總：工作人員將一天所售出的票進(jìn)行統(tǒng)計(jì)，包括票數(shù)，票類， 形成確定的車票記錄。査詢：將顧客需要的車票信息輸入系統(tǒng)，并査詢其是否可供應(yīng)。査詢顧客信息：為訂票所設(shè)，將顧客的準(zhǔn)確信息記錄，為其預(yù)定所車 票。處理買票：進(jìn)行買票交易，把顧客需要的票（可供應(yīng)）售出，并在 系統(tǒng)中作相應(yīng)記錄，確定車票記錄。處理訂票：進(jìn)行訂票交易，工作人員

6、為顧客預(yù)定其所需車票，并在 系統(tǒng)中作相應(yīng)記錄，確定訂票記錄。處理退票：進(jìn)行退票交易，工作人員為顧客辦理退票手續(xù)，并在系 統(tǒng)中作相應(yīng)記錄，確定退票記錄。2概念及邏輯結(jié)構(gòu)設(shè)計(jì)2.1 E-R本系統(tǒng)根據(jù)以上的設(shè)計(jì)規(guī)劃出的實(shí)體有：車票實(shí)體、車站實(shí)體、顧客實(shí)體。 各個(gè)實(shí)體具體的描述E - R圖如下：圖2-1車票ER圖圖2-2顧客ER圖1換票換票票NB交易訂數(shù)M終點(diǎn)論曰顧1NT22關(guān)系模型:車票與顧客之間的聯(lián)系 售票1： N車票（票號(hào),車次2日期，車型，票價(jià)，開車時(shí) 間，票種，座位號(hào)，起始站，終點(diǎn)站）喀（身份證號(hào)，銀行卡號(hào)，票號(hào)）退票1： N車票（票號(hào),車次2日期，車型，票價(jià)，開車時(shí) 間，票種，座位號(hào)，起始

7、站，終點(diǎn)站） 顧客（身份證號(hào),銀行卡號(hào)，票號(hào)，退票時(shí)間, 退票手續(xù)費(fèi)） 訂票1：N 車票（票號(hào),車次丄日期，車型，票價(jià),開車時(shí) 間，票種，座位號(hào)，起始站，終點(diǎn)站） 顧客（身份證號(hào),銀行卡號(hào)，票號(hào)，日期，交易 時(shí)間，交易金額，數(shù)量，起始站，終點(diǎn)站）2. 3數(shù)據(jù)庫結(jié)構(gòu)«2.1 Car表詳細(xì)設(shè)計(jì)主鍵足彊必子谿uariD乂牛足足uarlyp e級(jí)子尙尙各售型KlateW umber乂李尙走牛牌號(hào)UarHol der乂平尙尙貢仕人Kunnm gWay乂平尙尙beatLi致子尙足淫位限mix字段名數(shù)據(jù)類型是否主鍵是否必填字段說明Car ID文本否是車次編號(hào)Date時(shí)間/日期否是日期Termina

8、l文本否是終點(diǎn)站Soiled是/否否否票是否售出Price >八李票價(jià)格表2. 2 Seat表詳細(xì)設(shè)計(jì)表23 PrideDiscoimt表詳細(xì)設(shè)計(jì)字段名數(shù)據(jù)類 型是否主 鍵是否必填字段說明KecordJNumber自動(dòng)編 號(hào)是是記錄號(hào)TicketTypelD數(shù)字否是車票類型Discount數(shù)字否是折扣CarID 亠戈本車次字段名數(shù)據(jù)類型是否主鍵是否必填字段說明lermmallD文本是是終點(diǎn)站編 號(hào)Outstation文本否否起始站lierminalJName文未否是終點(diǎn)站INPYCode文未否是拼音碼CarlD文未否是車次編號(hào)licKetrrice否L票價(jià)字段名數(shù)據(jù)類型是否主鍵是否必填字

9、段說明KecordlD自動(dòng)編號(hào)是是記錄號(hào)TicketTypelD數(shù)字否是車票類型編號(hào)TicketType文本否是車票類型3數(shù)據(jù)庫設(shè)計(jì)本車站售票系統(tǒng)有兩個(gè)實(shí)體，分別是車票和顧客，利用SQL建表如下:車票列名數(shù)菇類型長度允許空1?票號(hào)char10日期char10V車次char10V座位號(hào)char10V開車時(shí)間10V車型char10V檢票口10V起始站char10V終點(diǎn)站char10V票價(jià)char10V票種char10V顧客4系統(tǒng)軟件結(jié)構(gòu)4.1.系統(tǒng)功能設(shè)計(jì)汽車站售票管理系統(tǒng)主要設(shè)有五個(gè)主要功能模塊：分別是車次管理、票價(jià) 管理、票務(wù)管理、用戶管理和査詢管理。如圖4-1所示。1. 車次管理模塊該模塊主

10、要實(shí)現(xiàn)車次信息的編輯。車次管理中的數(shù)據(jù)源為Access數(shù)據(jù)庫中 Car表，在此管理部分中，能夠使用界面操作實(shí)現(xiàn)車次信息的編輯，并將數(shù)據(jù)庫 中的數(shù)據(jù)按照編輯的要求來及時(shí)更新數(shù)據(jù)表中的相關(guān)數(shù)據(jù)。2. 票價(jià)管理模塊該模塊主要實(shí)現(xiàn)票價(jià)信息的錄入、修改與刪除以及票價(jià)折扣信息的錄入、 修改與刪除。票價(jià)詳細(xì)信息的錄入、修改、刪除，它的數(shù)據(jù)源為Access數(shù)據(jù) 庫的Price表。在此管理部分中，通過票價(jià)管理(FrmPriceManage)界面來選 擇記錄并決定執(zhí)行何種操作，是修改、添加或刪除。當(dāng)命令為修改或者添加時(shí) 則自動(dòng)跳轉(zhuǎn)到票價(jià)編輯窗體(FrmPriceEdit)實(shí)現(xiàn)票價(jià)信息的編輯并更新數(shù)據(jù) 庫中相應(yīng)數(shù)據(jù)

11、記錄。3. 票務(wù)管理模塊票務(wù)管理部分實(shí)現(xiàn)前臺(tái)售票、前臺(tái)退票功能。主要完成售票、遠(yuǎn)程售票、 廢票、取消廢票功能、改簽票、退票、取消退票功能、補(bǔ)票、售票査詢和票款 結(jié)算單填寫等功能。4. 用戶管理模塊該模塊主要實(shí)現(xiàn)用戶添加，用戶信息修改與用戶的刪除。所有系統(tǒng)用戶的 管理，包括系統(tǒng)普通用戶與系統(tǒng)管理員。此管理模塊數(shù)據(jù)源為Access數(shù)據(jù)庫的 Users表。在系統(tǒng)主界面中首先進(jìn)入的是名稱為FrmUserMan的用戶管理主窗體,通過提取用戶名、用戶類型來査看用戶具體信息，選擇添加或刪除用戶進(jìn)入名 為FrmUserEdit的用戶編輯界面進(jìn)行操作，操作完成便更新數(shù)據(jù)庫數(shù)據(jù)。5. 査詢管理模塊該模塊主要實(shí)現(xiàn)擁

12、護(hù)通過査詢界面可以根據(jù)條件進(jìn)行車次時(shí)刻、車次票價(jià) 査詢。右左卄隹序越:®三址車欠票務(wù)車吹信息票價(jià)信息二；J4-1.功能模塊圖42其他需求汽車站售票系統(tǒng)數(shù)據(jù)庫中的數(shù)據(jù)量十分龐大，而且更新速度十分快。在數(shù) 據(jù)大小方面要求數(shù)據(jù)的屬性要設(shè)置合理，假如是數(shù)據(jù)的屬性值越大，則數(shù)據(jù)本 身所占用的容量也就十分的龐大，不但會(huì)造成傳輸?shù)牟环奖闵踔铃e(cuò)誤，也更加 重系統(tǒng)的負(fù)擔(dān)，有可能削弱系統(tǒng)運(yùn)行速度，使得系統(tǒng)無法達(dá)到預(yù)期的目的。另 外，在整個(gè)系統(tǒng)當(dāng)中要確保數(shù)據(jù)在保存與傳遞過程中的安全，以免發(fā)生嚴(yán)重的 錯(cuò)誤，造成巨大的損失。43說明售票正常出售本站所有車次車票，并按要求打印出車票。遠(yuǎn)程售票正常出售遠(yuǎn)程車站所有

13、車次車票，并按遠(yuǎn)程車站的要求打印出車票。廢票在正常售票過程中，可能因操作失誤或打印機(jī)械故障等原因造成錯(cuò)票而作廢車 票。取消廢票當(dāng)廢票時(shí)，發(fā)現(xiàn)廢的票是不應(yīng)該廢的，即為正常票，需要通過取消廢票來實(shí)現(xiàn)。遠(yuǎn)程廢票對所售遠(yuǎn)程車票作廢票處理。退票在正常退票時(shí)間內(nèi)辦理退票，并根據(jù)退票規(guī)定收取一定的手續(xù)費(fèi)。遠(yuǎn)程退票對所售遠(yuǎn)程車票作退票處理。取消退票當(dāng)退票時(shí)，發(fā)現(xiàn)退的票是不應(yīng)該退的，即為正常的票，需要通過取消退票來實(shí) 現(xiàn)。改簽票由于乘客或車站某種原因需對已出售的車票作更換車次的車票。改簽僅允許改 簽一次。遠(yuǎn)程改簽票對所售遠(yuǎn)程車票作改簽處理。注銷票刪除某些由于調(diào)試程序所用的票記錄及其影響。補(bǔ)票只能在超過售票時(shí)限后

14、進(jìn)行，且在未發(fā)車之前，在統(tǒng)計(jì)時(shí)注意對非微機(jī)售票的 票的處理（例如：剪刀票）。售票査詢通過一定的授權(quán)和設(shè)定售票員可以査詢在設(shè)定時(shí)間范圍內(nèi)或多少張票以前的出 售、作廢、改簽和退票的情況，并對有權(quán)限的人員可有累計(jì)票款服務(wù)。票款結(jié)算單售票員每天售完車票后填寫每日結(jié)算單，以便財(cái)務(wù)人員査詢。重打車票在正常售票過程中，可能因打印機(jī)械故障等原因造成錯(cuò)票而重新打印車票。售票類型車票中所有聯(lián)都應(yīng)有的信息為車次、起止站點(diǎn)、票價(jià)、發(fā)車日期時(shí)間，而正聯(lián) 所特有的信息為售票員工號(hào)、檢票口、是否改簽票、車票上應(yīng)有的信息：車票 固有票號(hào)、計(jì)算機(jī)打印的票號(hào)、票號(hào)條形碼（僅用于自動(dòng)檢票的車站）。（2）車票類型X）正常班次車票：發(fā)

15、售的當(dāng)天或預(yù)售正常輪班車次的車票。2）遠(yuǎn)程售票：發(fā)售遠(yuǎn)程車站車次的車票，其打印格式同遠(yuǎn)程車站。3）流水班次車票：發(fā)售的流水班次車票。4）退票和改簽票：退票分為A、正常退票。辦理標(biāo)準(zhǔn)規(guī)定退票時(shí)間內(nèi)的退票。B、強(qiáng)行退票。在超過時(shí)限后退票，即強(qiáng)行退票。補(bǔ)票：補(bǔ)票只能在超過售票時(shí)限后進(jìn)行，且必須在未發(fā)車之前。訂票：設(shè)定定票有效期限，在有有效時(shí)限保留座位，有效時(shí)外釋放座位等。票種的定義 全價(jià)票 半價(jià)票允許設(shè)定可用標(biāo)志，自由定義名稱。 免票只允許設(shè)定可用標(biāo)志。 優(yōu)惠票丄-3允許設(shè)定可用標(biāo)志，自由定義名稱。 折扣票對原票價(jià)的基礎(chǔ)上進(jìn)行一定的打折，有嚴(yán)格的權(quán)限控制。5程序模塊設(shè)計(jì) .1Private Sub

16、Cmd_OK_Click()'檢査用戶錄入數(shù)據(jù)石有效性If Len(Trim(txtCarlD) = 0 ThenMsgBox "請輸入車次編號(hào)" txtCarID. SetFocusExit SubEnd IfIf Len (Trim (txtOutTime) = 0 ThenMsgBox "請輸入發(fā)車時(shí)間" txtOut Time. Set FocusExit Sub'把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫對象變量中With MyType.CarlD = MakeStr (txtCar ID)'車次編號(hào).OutSetTime = Mak

17、eStr (TimeEdit)'廢牟時(shí)間 RunninWay = MakeStr (WayEdit)'經(jīng)營路線.CarType = MakeStr (TypeEdit)'車輛類型 PlateNumber = MakeStr (CNnEdit)，牟牌號(hào) CarHolder = MakeStr (HolderEdi t)'費(fèi)任人定座位.SeatLimit 二 MakeStr(LSeatEdit)'根據(jù)變量Modify決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù)If Modify = False Then Insert ，插入新數(shù)據(jù)Else 9修改Update (nl

18、d)修改已有的數(shù)據(jù)End IfEnd WithUnload Me '關(guān)閉窗口5.1. 2票價(jià)管理模塊代碼實(shí)現(xiàn)票價(jià)管理部分代碼如下(信息添加過程): Private Sub Cmd_Add_Click()'初始化 FrmDiscountEdit 宿息FrmPriceEdit. txtTerminalName = " FrmPriceEdit. txtTNPYCode = FrmPriceEdit. txtCarID =FrmPriceEdit. txtTicketPrice =FrmPriceEdit. Modify = FalseFrmPriceEdit. VarTe

19、rmanallD = OriTerminallDFrmPriceEdit. Show RefreshDataEnd Sub5.1. 3用戶管路模塊代碼實(shí)現(xiàn)(編輯窗體代碼): Private Sub Cmd_0K_Click()If Trim(txtUserName) = " Then MsgBox "請輸入用戶名" txt UserName< Set FocusExit SubEnd IfIf Len (txtPass) < 5 ThenMsgBox "密碼長度不能小于5" txtPass. SetFocustxtPass. Sel

20、Start = 0txtPass. SelLength = Len(txtPass2) Exit SubIf txtPass <> txtPass2 ThenMsgBox "密碼和確認(rèn)密碼不相同，請重新確認(rèn)"txtPass2. SetFocustxtPass2. SelStart = 0txtPass2. SelLength = Len(txtPass2)Exit SubEnd If'判斷是否存在同名用戶With MyUserIf Modify = False Or OriUser <> Trim(txtUserName) Then If I

21、n_DB(Trim(txtUserName) = True Then MsgBox "用戶名已存在，請重新輸入" txt UserName. Set Focus txtUserName. SelStart = 0 txtUserName. SelLength = Len (txtUserName) Exit SubEnd If模塊中的程序代碼如下：Public adoCon As New ADODB. ConncetionPublic adors As New ADODB. Recordset,連接數(shù)據(jù)庫Public Sub mainOSet adoCon = New AD

22、ODB. ConnectionadoCon. Open = "Provider=Microsoft. Jet. OLEDB. 4. 0:Data Source二"& App. Path & " 汽車站售票管理系統(tǒng).mdb" & Persist Security Info=False* FrmLogin. ShowFrmLogin. txtUser. SetFocusEnd Sub5. 3附錄：系統(tǒng)程序源代碼倡 IntegerlCancel_Click()D登陸窗體(FrmLogin)代碼 ublic rasswordKey As

23、String ublic NameKey As StringUnloadThenEnd SubMsgBox 請輸入用戶名txtUser SetFocusExit Subtion Makebtr As btnngNameKey = Str （txtUser、g謹(jǐn)塞牝只七島d）= Flase Thens = Try rimes + 1毀矍試進(jìn)入本系統(tǒng)，均,均不中type = MvUser. User type 眄卻曲屛EmpID_、顯可洼窗體FrmMain. ShowEnd FunctionCur Us er UserName = MvUser. UserName CurUser. UserGCo

24、nn ogin bhowEn SubPrivate Sub PJCX_Click() End SubPrivate Sub PJGL_Click()FrmPr i c eManage Show End SubPrivate Sub SPGLClickO FrmTicketSell. ShowEnd SubPrivate Sub TPGL_Click()FrmBack. ShowEnd SubPrivate Sub XGMM Click()With FrmUserEHit OriUser = CurUser UserName txtUserName = CurUser UserNameIf Cu

25、rUser.Usey type =LThen ComboType. Aadllem 縈繞聲理員 Else ComboType. Additem "普通用戶" End If0FalseComboType. ListIndex = ComboType. Enabled = F Modify = True Show i End WithEnd Sub Private Sub YHGL Click()If CurUser. Uer_type = 1 ThenAsFrmUserMan. Show綁強(qiáng)Box "沒有權(quán)限" End Sub 丄Private Sub Z

26、KGL_Click() FrmDiscount. ShowEnd Sub施競賦代碼p<?)PrivaUnload Me End SubPrivate Sub Cmd_GridRsfresh End Subong, cki lctr l sete 1代 cmlboDD 冷 bombrlftatsucng1 bo r n ti s r ssAs r gnA t n o srsielk n e rt o .1 gst r eAS tt SnrI eis b也)aA s" IRY/ D e od) b OD mcl OYr CP a /(Me gmT t nit X o o o r x

27、t fiLTt( nr rilaLS-一 mi atmA irn n e er erTn -sk ottT c .L r cf s a 一一 rd rt a e eti n OD 一一 t a es cl s sti co D s -utlbYI tQ UF em JmmmmmmmroHmdro ti gliiiii ON ai nt aDnDDDDDDCTCDi SD V i I o i r r n r t as p s c <s &ng 1t e nV Qt pB Fimic.dtTpratya揶Tre.E 巧 此B , a g d s att SMTNPYCode =:tx

28、tCarlD =ComboDate SetFocusEl self LenljJJP=J)JhenMsgBox請音碼txtTNPYCocusElself LenodeKcusMsgBoxtxtCarElself LenElself IsNumeric MsgBox毛茯 txtCarID. Tex txtCarID. SetFocusrsdata. ClosestrQuery = "select count(*) as totai from. Seat where Seat sell=false and Seat. date= &inTrim(ComboDate. Text)

29、& and Seat. CarID= & Trim(txtCarID. Text) & adCmdTe啟嗨孵調(diào)藕灌瀛屯, rsda ta Moverirs t left 二 rsdata!totalElsersdata Close st= select count(*)total fromwhere Seat. sell=falseSeat. date=&Trim(ComboDate) & "了 & ； Seat. CarID= & Trim(txtCarID) a®沖辦卿稠敝, rsda ta Moverirstrs

30、data AddNewrsdata!Date = comdateas andandIf left = 辿亠-te亠亠 MsgBox未單第已經(jīng)客滿! ComboDate. Text = 一 ComboSNno. Text = 一 txtTNPYCode. Text = txtCarlD. Text = ComboDate SetFocusrsdata!Seat = comSNno rsdata!CarID = CarID rsdata!TNPYCode =TNPYCodersdata!sno=Trim(seatnumber),.rsda taUpda te添g牛呼錄，更新表，將剛賣出的座位號(hào)設(shè)

31、為 false”“strQuery = sg懐ct * fromSeatwhereSeat sno=&Trim (seatnumber) &、注zand Seat date=&Trim(ComboDate) & &、 .、” arid SeatCarID= &Trim (txtCarID) &rsdata Open strQuery, cnnrsdata, , , adCmdTextrsdatalsell = True rsdata Update 、End If ”ComboDate = 卄txtTNPYCode厲” txtCarlD =

32、"ComboDate SetFocuscos t=Vai(Adodc3. Recordset. Fields (3)ztxt Charge = VaJL (fxt Money) 一ValAdodc3. Recordse?. Fields(3);(rptrtrtrtrHrssss : Memmmmmmrrrr 龍tiiiiii tttt aDDDDDD s s s spip EVI/ gSSI n c n n r gl >iiit n ribt o o klr rsitt m xcb CC2P t rs a ot(m a ss st mcm o Bk As s r/Hmic 血

33、c s s A o mi r7 aAA o s fi rT m ！ n rT i IT 一一 r t - T £ 一一 o K Dn = c elt It r al t a a e n de STxt s e X nxlJ<lAl G itt T r X X o tee nl STT t a a n s eD ei At Is m -ar or 一 nd ab e 6 oc mTIf rsdata!sell = False Then退的票為無效票或是Dim strcnninit adostrQuery = "Select; * From SellTicket Wher

34、e SellTicket. date-、&一，侈 “TrimCombodate. Text), && andgpJlTicket. Sno= * & Trim(ComboSNno. Text) &&_and 鎧腐 car J矗車票古 de 茅嚴(yán)甲0pen strQuery, cnnrsdata,If rsdata. EOF Ih 你的必諏!佛rsdata Close “_strQuery =SelectSellTicket Where SellTicket. date= Trim(Combate.Jext) &、”z&and Se

35、llTicket sno=Trim (ComboSNno. Text) & %&.andSellTicket. CarID=Trim(ComboCarID. Text) &rsdata Open strQuery, cnnrsdata, adCmdTextrsdata MoveFirstCombodateText = rsdata!DateComboSNSnoText 二 rsdata!sno* , From&&確巳是否敬 ” "n ="耳加 tWi- & strsno MstrCa昂遼 response齬勰盤鵲嗨釁辣刪gl

36、+If response = 1 Then .萸改 SellTicket 表rsaata Close注 strQuery = select * from SellTicket"rsdata OpenstrQuery,cnnrsdata, , , adCmdTextrsdata MoveFirst“ pDim i As InteserFor i = 1 To rsaata. RecordCount If rsdata!Date = strdate And rsdata!sno = strsno And rsdata!sno = strseat Thenrsdata. DeleteEnd

37、 If rsda ta. MoveNex t Next i PSstrQuerye rom linewhere Seat d©te二& strdate &&殳”.and Seat.（；ID=& strCrJD&& and Seat sno= & strsno &rsdata OpenstrQuery,adCmdTextook = True Then a! book = Falsecnnrsdata, , , aaumaiex1 rsdatalb rsdata!_ _-rsdata. Update）odate Text =

38、 joSno Text =崩 MtcoFrmDiscountEUit 信思End IfComComCombodate. SetFocus MsgBox方追票豈成功！ Else rsdata Close一Combodate. Text =卄 ComboSno Text = Combodate. SetFocusEnd IfEnd If （踏 魏存FrmDiscountEdit txtTerminalName= FrmDiscountEdit. txtTNPYCode= FrmDiscountEdit. txtCarlD = FrmDiscount閔it. txtTicketPrjce = Frm

39、DiscountEditModify = False FrmDiscountEdit. VarRecordNumber OriRecordNumberFrmDiscountEdit Show 1 RefreshDataEnd SubIlckell樂liDe-LO毯d s伽AE b dl xs bl c o u PJOBt s m o slf Td s XID e ab eIAME t o ut m als aif V n VDI iudi r nr p Ep葺De 蹩es皿 9 Yal 4AbF A X V y o M 一一 B = - s If IDr dlprAcd n mfy nETe b p m y t 5T n N t u £7da7 &7 eB7 o7 r OI2k3k4 C5 os a si si si s e ctldcdTdTdDdR r-rlelxtelxtelxtelxtelar 欝貞藥 drlcMet.迥費(fèi)Irlret.M cmmprntErdsntErdsntErdsntErdsntErdsntElmbnt'w