系統的主界面輸入模塊用於輸入和顯示售票信息,根據其信息和票價自動計算出游客的總人數以及票價。在此模塊中要求操作員只輸入游客人數,按“確定”,即可自動計算和顯示總價,按“打印”則打印門票。為了防止操作員誤輸入除整型數據以外的其他字符如A、B等而導致程序出錯,程序中在需要數據輸入的Tedit位置,設置判斷條件,只允許整型數據輸入。
3.統計與查詢、報表打印模塊
統計與查詢、報表打印模塊用於實現售票信息的統計與查詢,可以設定起止日期等信息,並可生成報表打印。統計與查詢用內嵌的SQL查詢語言實現,報表使用Delphi的快速報表組件Qreport部件組中的各種控件。
4.門票打印模塊
門票打印模塊實現門票的打印輸出功能。在門票打印中需根據門票的樣式確定輸出的位置,為了實現快速打印,在打印時直接調用printers的過程和函數。
打印的過程如下:
procedure printmsg(thesyqo,Totalpeople,adultNum, childNum,Totalcar,bigcar,middlecar,minicar,totalmoney, prtdate:String);
begin
Printer.Canvas.Font.Charset := GB2312_CHARSET;
Printer.BeginDoc;
Printer.PageHeight;
Printer.PageWidth;
Printer.Canvas.Font.Size :=14;//字體設置
……//根據用戶需要插入要打印的內容
Printer.Canvas.TextOut(x+2370,y,thesyqo);//打印內容
Printer.EndDoc;
end;
5.退票管理模塊
實際的售票過程中涉及到由於各種原因游客退票的情況,而計算機打印售出的門票及相關信息已經存入數據庫中,當有退票情況發生時,必然存在操作員售票金額與數據庫查詢結果不一致的現象,為了解決這一現象,增加了退票管理模塊。