【正文】 end。 。 bool1: false。39。39。39。39。39。39。39。39。39。39。39。 // startform。 open。]: 39。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。lsj39。]: 0。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。lb39。 begin with ins_fy do begin close。 end。 。 bool1: false。39。39。39。39。39。39。39。39。39。39。39。 end。139。yfh39。]: [3].AsString。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。lsj39。]: 0。 [39。]: 39。 [39。]: 39。 [39。ysh39。]: 。 [39。]: 39。 [39。lb39。 end else if 0 then with ins_fy do begin close。 。 注意39。 數(shù) 據(jù) 錯 誤 不 能 存 入 39。 3 提交處方按紐 procedure Sender: TObject 。 end。 。 bool1: false。 : 39。 : 39。 : 39。 : 39。 : 39。 end else begin : 39。39。39。39。 end。]。 : inmValues[39。jls39。 open。]: 39。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。lsj39。]: 0。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。xh139。]: 2。 [39。 begin if 0 then begin xh2: [6].AsString。 2 刪除按紐 procedure Sender: TObject 。 end。 bool2: false。39。39。39。39。39。39。 end。zje39。]。 : inmValues[39。39。yfh39。39。ghh39。39。hjm39。39。yjm39。]: [7].AsString 。 [39。lsj39。]: strtofloat 。 [39。srm39。]: [6].AsString 。 [39。]: 39。 [39。]: 39。 [39。]: 39。 [39。lb39。 end else begin with ins_fy do begin close。 : 39。 : 39。 注意39。 數(shù) 量 錯 誤 不 能 存 入 39。 。 : 39。 : 39。 : 39。 : 39。 : 39。 : 39。 注意39。 藥 品 號 錯 誤 不 能 存 入 39。 。 : 39。 : 39。 : 39。 注意39。 掛 號 錯 誤 不 能 存 入 39。 5．門診藥房劃價 1 確定按紐 procedure Sender: TObject 。 close。 end。 。 begin with dmodule do begin 。 end。 bool: false。 : 39。 startform。 Execute。]: 39。 [39。ghh39。 exit。39。39。,mb_iconerror 。,39。 begin if bool false then begin 39。 end。je39。39。]。 : acmmValues[39。fb39。]。 : acmmValues[39。zj39。]。 : acmmValues[39。fg39。]。 : acmmValues[39。]: 1。 acmmValues[39。 r: clred。門診退號查詢 39。 2 退號查詢按紐 procedure Sender: TObject 。] 。,acmmValues[39。 : formatfloat 39。ln39。]。 : acmmValues[39。jz39。]。 : acmmValues[39。zg39。]。 : acmmValues[39。pt39。 。gt39。 。 r: clnavy。 begin : 39。 end。 fmz_gh: nil 。 。 。 2 退出按紐 procedure Sender: TObject 。 exit。39。 。 : true。 : true。 : true。 end。病志號39。請記錄病志號 39。 : bzhm。dm139。 end。]: 。 [39。dm39。ghlh39。 .AsString。]: dmodbyname 39。 [39。dm39。ksh39。039。jzd39。 .Asstring。]: dmodByName 39。 [39。dw39。]: sex。 [39。 else sex: 39。 if true then sex: 39。xm39。]: 。 with mz_brgh do begin [39。 exit。 退出系統(tǒng)39。 確實要退出系統(tǒng) 39。輸入錯誤 。請輸入患者姓名 39。39。 var sex,bzhm:string。 end。 2 退出按紐 procedure Sender: TObject 。,mb_iconerror 。,39。 end else 39。 fmz_main: nil 。 。mm39。]: 。 mValues[39。 // flogin: nil。 下面介紹一下代碼的實現(xiàn)： 1．登錄部分代碼 1 確定按紐 procedure Sender: TObject 。如圖 所示。如下圖 所示。如下圖 所示。如圖 所示。 圖 門診掛號查詢界面 5．門診掛號修改界面 點擊掛號修改，輸入病志號那么此患者的掛號信息就可以全部看到。 圖 門診掛號登記主界面 圖 門診掛號登記界面 4．門診掛號查詢界面 點擊掛號查詢，掛號的信息就會看到。如下圖 所示。 圖 登錄界面 2．門診掛號主界面 在系統(tǒng)登錄后，就進入了門診掛號主界面，該界面中包括七個功能模塊分 是：掛號登記、掛號查詢、掛號修改、門診退號、以往掛號查詢、修改密碼、退出系統(tǒng)。下面以進入門診掛號界面為例，介紹一下基本界面及操作。只有當代碼和密碼完全正確時才可以進入系統(tǒng)。這樣就會登錄到相應系統(tǒng)中了。醫(yī)院門診管理信息系統(tǒng)的登錄身份分為五類：管理員、掛號員、收費員、醫(yī)生、藥房管理員、醫(yī)技管理員。也就是說，驗證用戶代號、密碼是否匹配，只有代號、密碼匹配的情況下用戶才可以進入系統(tǒng)。 end。score39。 。 39。39。studentno39。39。select id ,studentno ,name ,sex ,specialty ,depart from student where studentno 39。 begin AdoqryStudent_Sr。 end。 。39。 .AsString +39。+ 39。39。 ADOQryCo 39。 $R *.dfm Procedure DataSet: TDataSet 。 var DataModule1: TDataModule1。 procedure AdoqryCourse_ScoreAfterScroll DataSet: TDataSet 。 Course_ADOTable: TADOTable。 Student_Score: TDataSource。 AdoqryCourse_Scorename_2: TStringField。 AdoqryCourse_Scorename_1: TStringField。 AdoqryCourse_Scorename: TStringField。 AdoqryCourse_Score: TADOQuery。 TCourse_DSource: TDataSource。 ADOTabTeacher: TADOTable。 Class_DSource: TDataSource。 Student_DSource: TDataSource。 type TDataModule1 class TDataModule ADOC: TADOConnection。 unit datamodule。在調(diào)用存儲過程時，還用到了 ADOStoreProc 組件。 醫(yī)院門診收費管理系統(tǒng)在開發(fā)時，充分考慮了 ADO 組件的功能和作用，并針對系統(tǒng)本身的實際情況選用了 ADOConnection 組件與數(shù)據(jù)庫的連接。每個 TParameter對象為存儲過程提供一個單獨的參數(shù)。 ADOStoreProc 重載了 Parameters 屬性保持存儲過程返回的結(jié)果。 組件 當客戶端應用程序必須在數(shù)據(jù)庫中使用存儲過程時即可使用該組件。 組件 ADOQuery 組件為 ADO 數(shù)據(jù)存儲提供發(fā)布 SQL 的方法，使用 ADOQuery 組件訪問應用 SQL 語句的數(shù)據(jù)存儲中的一個或多個數(shù)據(jù)表。使用 ADOTable 組件可利用 ADO 訪問單個數(shù)據(jù)表中的數(shù)據(jù)，它提供了直接訪問數(shù)據(jù)表中每條記錄和字段的方法。在使用 ADODataSet 組件訪問數(shù)據(jù)前需要建立它與數(shù)據(jù)庫的的關(guān)聯(lián)，建立這種關(guān)聯(lián)可以通過設置 ADODataSet 組件的 ConnectionString 屬性或者通過設置Connection 屬性。 組件 ADODataSet 組件是最常用的 ADO 數(shù)據(jù)集組件，使用該組件可以從 ADO 數(shù)據(jù)庫讀取 1 個或多個數(shù)據(jù)表。 ADOCommand 組件主要用于 SQL 的數(shù)據(jù)定義或執(zhí)行一個不帶返回結(jié)果集的存儲過程。兩者的不同在于，使用 ADOConnection 來連接，可以使多個 ADO 組件共享這一連接，以便集中控 制，進行事務處理；而直接使用 ADO 組件連接比較簡捷、方便。使用 ADO 訪問數(shù)據(jù)庫，必須先與其連接。下面對 ADO 組件的功能和作用分別做以介紹： 組件 ADOConnection 組件的主要作用是建立與數(shù)據(jù)庫的連接。還有 3 個兼容組件 ADOTable， ADOQuery 和 ADOStoreProc，可以用它 們將 BDE的應用程序移植到 ADO 中。 ADO 組件編寫的程序，可脫離 Borland 的 BDE，而原有的數(shù)據(jù)顯示 /編輯組件可直接使用 ADO 組件，這是 ADO 程序的一大優(yōu)點。這是因為 ADO 組件是微軟公司面向各種數(shù)據(jù)的高層接口，這種層次接口被稱為 OLE DB。只有完成數(shù)據(jù)庫鏈接后，才可以進行窗體界面的設計和程序代碼的編寫。 在前臺應用程序的開發(fā)當中，首先應該確定選用哪種方式訪問數(shù)據(jù)庫。 Delphi 7 是Windows 系統(tǒng)下的可視化集成開發(fā)工具，提供了強大的可視化 VCL 功能，使程序員能夠快速、高效地開發(fā)出 Windows 系統(tǒng)下的應用程序，特別是在數(shù)據(jù)庫和網(wǎng)絡方面， Delphi 與其他開發(fā)