【正文】 。 :=Qbuy。 。 (39。select * from tui where 目的站 =39。++39。39。)。 Open。 end。 if =0 then begin 。 showmessage(39。對不起！這趟車的票已經(jīng)售完.39。)。 end else 。 end。end。procedure (Sender: TObject)。begin if log then else showmessage(39。請先登陸！謝謝！39。)。end。procedure (Sender: TObject)。begin if log then else showmessage(39。請先登陸！謝謝！39。)。end。procedure (Sender: TObject)。begin 。 。end。procedure (Sender: TObject)。begin close。end。procedure (Sender: TObject)。begin 。 。 。 。 (datetostr(date()))。 (datetostr(date()+1))。 (datetostr(date()+2))。 :=0。end。procedure (Sender: TObject)。var Qtui:TADOQuery。beginif (39。39。)and (39。39。)and(39。39。)and(39。39。)and(39。39。) thenbegin Qtui:=(nil)。 with Qtui do begin Connection:=ADOConnection1。 。 (39。select * from tui39。)。 Open。 Append。 FieldByName(39。車次39。).AsString:=。 FieldByName(39。目的站39。).AsString:=。 FieldByName(39。發(fā)車時間39。).AsString:=。 FieldByName(39。日期39。).AsString:=。 FieldByName(39。類型39。).AsString:=。 FieldValues[39。車廂號39。]:=strtoint()。 FieldValues[39。座位號39。]:=strtoint()。 Post。 Close。 end。 。 showmessage(39。你的操作已經(jīng)成功！39。)。 end else showmessage(39。請認(rèn)真添寫！39。)。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin if log then else showmessage(39。請先登陸！謝謝！39。)。end。procedure (Sender: TObject)。begin 。 :=39。本系統(tǒng)現(xiàn)有39。+inttostr()+39。個操作員！39。end。procedure (Sender: TObject)。begin //打印車票 ，可以用報表更簡單，但我沒有裝！ with form2 do begin show。 with do begin :=FieldValues[39。目的站39。]。 :=FieldValues[39。車次39。]。 :=FieldValues[39。日期39。]。 :=FieldValues[39。發(fā)車時間39。]。 :=FieldValues[39。車廂號 39。]。 :=FieldValues[39。座位號39。]。 :=floattostr(FieldValues[39。價格39。])。 :=FieldValues[39。類型39。]。 Delete。 end。 end。end。procedure (Sender: TObject)。var Qgai:TADOQuery。 riqi,leixing:integer。 amount1,amount2:string。begin 。 。 。{ s := MessageDlg(39。yes no39。, mtInformation,[mbYes, mbNo], 0)。 case s of mrYes: showmessage(39。yes39。)。 mrNo: showmessage(39。no39。)。 end。 }if MessageDlg(39。請確定今天所有的車次已經(jīng)發(fā)出后在整理！39。, mtInformation,[mbYes, mbNo], 0)=mryes thenbegin Qgai:=(nil)。 :=ADOConnection1。 with Qgai do begin for riqi :=0 to 2 do begin for leixing := 7 to 9 do begin amount1:=39。amount39。+inttostr(riqi)+inttostr(leixing)。 amount2:=39。amount39。+inttostr(riqi+1)+inttostr(leixing)。 。 (39。update checi,train_node set 39。+amount1+39。=39。+amount2)。 。 end。 end。 Close。 showmessage(39。已經(jīng)將車票整理完畢！39。)。 end。 end。end?？? 結(jié)火車站售票管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。開發(fā)本系統(tǒng)的過程中，首先要對火車站售票流程進(jìn)行系統(tǒng)調(diào)研，熟悉其中的售票信息查詢、訂票、購票步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到售票中存在的各種問題，并在總體設(shè)計把握好對問題的分析、理解，進(jìn)而解決問題；選用開發(fā)工具要選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用 DELPHI ，其具有語言簡單、功能強大、組件眾多的優(yōu)點。程序模塊的編制中，重點把握系統(tǒng)內(nèi)部完整性、功能性、實用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運行無誤。致 謝我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。在這里我還要感謝我們宿舍的其它 5 個同學(xué)。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。參 考 文 獻(xiàn)1 6 ：清華大學(xué)出版社，2 飛思科技. Delphi6 開發(fā)者手冊. 北京：電子工業(yè)出版社,3 飛思科技. Delphi6 數(shù)據(jù)庫開發(fā). 北京：電子工業(yè)出版社, 4 . 北京：經(jīng)濟科學(xué)出版社，5 ：人民郵電出版社, 6 周璋鵬. 基于 B/S 結(jié)構(gòu)的學(xué)生信息管理系統(tǒng)垢研究與，31(4):15~17,267 李全彬, 顧明亮. 基于 ASP 技術(shù)的學(xué)生信息管理系統(tǒng)的研究與開發(fā). 徐州師范大學(xué)學(xué)報(自然科學(xué)版).2022,19(2):25~288 Authorware (7):40~41,449 李丹榮,杜維. 基于 Delphi6．0 的實時數(shù)據(jù)采集與分析系統(tǒng) ,20(5): 64~67