程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 利用Delphi開發旅游景點微機售票系統(4)

利用Delphi開發旅游景點微機售票系統(4)

編輯:Delphi

系統的主界面輸入模塊用於輸入和顯示售票信息,根據其信息和票價自動計算出游客的總人數以及票價。在此模塊中要求操作員只輸入游客人數,按“確定”,即可自動計算和顯示總價,按“打印”則打印門票。為了防止操作員誤輸入除整型數據以外的其他字符如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.退票管理模塊

實際的售票過程中涉及到由於各種原因游客退票的情況,而計算機打印售出的門票及相關信息已經存入數據庫中,當有退票情況發生時,必然存在操作員售票金額與數據庫查詢結果不一致的現象,為了解決這一現象,增加了退票管理模塊。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved