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

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

編輯:Delphi

退票否:此字段用來標識票是否有效,若有效,則為1,無效為0。

2.軟件結構設計

系統軟件設計遵循模塊化程序設計的思想,自頂向下,步步求精。系統程序由系統管理模塊和售票模塊組成。售票模塊運行在售票微機上,系統管理模塊運行在服務器上。

四、系統主要功能特性及實現方法

系統主要模塊:登錄及密碼輸入模塊;系統主界面輸入模塊;統計、查詢、報表、打印模塊;門票打印模塊。下面分述各模塊的功能以及關鍵部分的實現。

1.登錄及密碼輸入模塊

登錄及密碼輸入模塊用於限制操作員的權限,程序完成的功能:從界面上取出密碼,查詢數據庫密碼表,有相同密碼操作員有權進入下一界面,三次輸入失敗,程序自動退出。另外在售票模塊中,根據密碼要取出對應的操作員的名字,以便將售票信息與操作員相關聯。從數據庫中根據輸入密碼取相應的操作員函數如下,其中handletbl為密碼表名稱,id、handlename、handlecode為表中字段,代表編號、操作員姓名、操作員密碼。

  function TFormPswd.gethandlename(code:String):String;
  var name:String;
  begin
  name:='';
  Query2.Close;
  Query2.SQL.Clear;
  Query2.DisableControls;
  Query2.SQL.Add('Select id,handlename,handlecode from handletbl');
  Query2.Open;
  if Query2.locate('handlecode',code,[]) then
  begin
  name:=query2.FIEldByName('handlename').AsString;
  end;
  Query2.close;
  Result:=name;
  end;

2.系統主界面輸入模塊

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