【文章內容簡介】 n begin // 為登錄用戶定制界面 [0].text :=gs_OrgName。 [1].text :=39。 操作員：39。+gs_Login_UserName。 [2].text :=39。工 作日期：39。+FormatDateTime(39。yyyymmdd39。,gt_login_time)。 // 。 // 打開查詢窗口 end else begin 。 end。 畢業(yè)論文 26 Finally 。 end。 // 。 //關閉閃現(xiàn)窗體 。 //釋放閃現(xiàn)窗體 。 end. 閃現(xiàn)窗體的實現(xiàn) (1)閃現(xiàn)窗體的實際運行圖 (2)實現(xiàn)的方法： 畢業(yè)論文 27 首先，制作一個名為 Form3 的窗體。畫面如上圖所示。 其次，在其中加入一個 過程，即一個延時程序的過程：makesplah。代碼如下： procedure 。 begin borderstyle:=bsnone。 show。 update。 sleep(2020)。 end。 第三，在工程文件代碼中將入以下語句： 一是在開始部分加上： form3:=(form3)。 。 二是在最后結果部分加上： 。 //關閉閃現(xiàn)窗體 。 //釋放閃現(xiàn)窗體 具體可以參見上上頁的哪一段工程項目文件的源程序。 用戶登錄模塊 畢業(yè)論文 28 (1)用戶登錄模塊的窗體效果圖 (2)核心代碼解釋： 在輸入登錄密碼后，按“確定”后觸發(fā)的事件。 procedure (Sender: TObject)。 begin //錄入檢驗 if =39。39。 then begin messagedlg(39。請 選 擇 用 戶 名 ！ 39。,mtInformation,[mbok],0)。 ()。 exit。 end。 //登錄驗證 with ADOQ_Temp do begin close。 。 畢業(yè)論文 29 (39。SELECT * From 用戶信息表 Where 用戶名 =39。+39。39。39。39。++39。39。39。39。)。 Open。 //用戶有效性 IF not IsEmpty then begin //登錄 失敗 If Fieldbyname(39。密碼 39。).AsString then begin messagedlg(39?？诹铄e誤，請修改 ！ 39。,mterror,[mbok],0)。 LoginNum:=LoginNum+1。 if LoginNum=3 then begin messagedlg(39。非法用戶！你無權使用本系統(tǒng) 39。,mterror,[mbok],0)。 。 end。 :=39。39。 。 exit。 end //登錄成功 else begin //保存登錄的用戶信息 gs_login_userid :=fieldbyname(39。用戶名 39。).asstring。 gs_login_username :=fieldbyname(39。用戶名 39。).asstring。 gs_login_userlevel :=fieldbyname(39。用戶等級 39。).asstring。 gs_login_Password :=fieldbyname(39。密碼 39。).asstring。 gt_login_time:=now()。 Login:=true。 畢業(yè)論文 30 。 end。 end else begin messagedlg(39。指定的用戶已被注銷！你無權使用本系統(tǒng)！ 39。,mterror,[mbok],0)。 Login:=False。 。 end。 end。 end。 主窗體模塊 本模塊的主要功能是： 為進入本系統(tǒng)其它所有的功能窗體提供一個操作方便、界面美觀的基礎平臺。 (1)窗體效果圖如下： 畢業(yè)論文 31 (2)核心代碼解釋： 一是：登錄用戶類型不同，權限不同的代碼解釋： function ():Boolean。 begin if gs_login_userlevel=39。超級用戶 39。 then begin :=true。 :=true。 :=true。 :=true。 畢業(yè)論文 32 // :=true。 end else if gs_login_userlevel=39。管理員 39。 then begin :=true。 :=true。 :=true。 end else begin // 普通客戶，限制使用好幾個菜單 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 // Result:=True。 畢業(yè)論文 33 end。 二是：文檔管理菜單中打開 word 文檔的核心代碼解釋： 如打開“文檔租憑合同文檔” : procedure (Sender: TObject)。 var s:string。 varword:variant。 begin s:=ExtractFilePath()+39。\program\doc\d39。 try varword:=createoleobject(39。39。)。 (s)。 。 except showmessage(39。運行 Microsoft word 失??！ 39。)。 end。 end。 房屋出 租登記窗體 畢業(yè)論文 34 功能是對房屋出租信息進行登記，主要是進行添加出租信息的登記操作。 (1)窗體效果圖如下 ： (2)窗體的“保存”按鈕的代碼解釋 procedure (Sender: TObject)。 var strSQL :string。 strCode :string。 begin inherited。 // 檢查數(shù)據(jù)錄入的有效性 if f_CheckValue()=False then exit。 // 數(shù)據(jù)保存處 理 。 try 畢業(yè)論文 35 。 // 。 except 。 MessageBox(handle,39。數(shù)據(jù)保存失??！ 39。,39。警告 39。,MB_OK)。 exit。 end。 MessageBox(handle,39。 數(shù) 據(jù) 保 存 成 功 ！ 39。,39。 提示39。,MB_OK+MB_ICONINFORMATION)。 // 繼續(xù)新增 if ParmEditorMode = 39。ADD39。 then begin ParmId :=39。39。 FormShow(nil)。 end。 end。 (1)本模塊的窗體效果圖如下所示： 畢業(yè)論文 36 (2)“查詢”的核心代碼與解釋： procedure (Sender: TObject)。 var strFilter:string。 begin inherited。 // 構造過濾條件 strFilter := 39。39。 if trim()39。39。 then strFilter := strFilter + 39。 ( 收件號 like 畢業(yè)論文 37 39。+39。39。39。%39。++39。%39。39。)39。+39。 AND 39。 // if =1 then begin strFilter := strFilter + 39。 狀態(tài) =39。+39。39。39。未處理 39。39。39。+39。 AND 39。 end else if =2 then begin strFilter := strFilter + 39。 狀態(tài) =39。+39。39。39。已處理 39。39。39。+39。 AND 39。 end else if =3 then begin strFilter := strFilter + 39。 狀態(tài) =39。+39。39。39。已作廢 39。39。39。+39。 AND 39。 end。 // if strFilter39。39。 then 畢業(yè)論文 38 strFilter :=copy( strFilter,0,Length(strFilter)5 )。 //過濾查詢 if strFilter=39。39。 then begin :=false。 end else begin :=true。 :=strFilter。 end。 end。 房屋資料登記模塊 (1)本模塊的窗體效果圖如下所示 畢業(yè)論文 39 (2)本模塊中“查詢”按鈕的核心代碼解釋如下：注意這里我用的查詢方法與上面用到的查詢方法不一樣，以體現(xiàn)查詢方法的多樣性。 procedure (Sender: TObject)。 var s:string。 begin inherited。 if 39。39。 then begin s:=39。select * from 房 屋 資 料 where 位置 like %39。+ +39。%39。 。 。 (s)。 畢業(yè)論文 40 。 end else begin :=false。 end。 (3)本模塊中還有一個統(tǒng)計功能 ，用于 對數(shù)據(jù)表中的房屋資料進行統(tǒng)計，統(tǒng)計出未出租、已出租、未出售、已出售的房屋數(shù)量以及所有房屋的總數(shù)量。其核心代碼如下 (僅列出統(tǒng)計“已出租”房屋數(shù)量的代碼，其余與些相同 )： 。 。 (39。select * from 房屋資料 where 狀態(tài)=已出租 39。)。 。 n:=。 :=inttostr(n)。 (1)本模塊的窗體效果圖如下所示： 畢業(yè)論文 41 (2)本模塊中修改密碼的代碼解釋如下： procedure (Sender: TObject)。 var sqlstr:string。 begin inherited。 if gs_login_password then begin messagedlg(39。舊密碼輸入錯誤！ 39。,mterror,[mbok],0)。 exit。 end。 if then begin messagedlg(39。 新 密 碼 兩 次 輸 入 不 一 致 ！畢業(yè)論文 42 39。,mterror,[mbok],0)。 exit。 end else begin sqlstr:=39。UPDATE 用 戶 信 息 表 SET 密碼=39。39。39。++39。39。39。 where 用 戶 名=39。39。39。+gs_login_userid+39。39。39。39。 (sqlstr)。 messagedlg(39。 修 改 完 成 ， 密 碼 已 經 改 變 ！39。,mtinformation,[mbok],0)。 close。 end。 end。 ： 由于編幅的原因，我不可能把所有的模塊都一一介紹到了，還有幾個模塊，如“房屋出售登記模塊”、“房屋出售查詢模塊”、“購房常識模塊”、“客房資