【正文】 e begin messagedlg(39。 。 gt_login_time:=now()。密碼39。).asstring。 gs_login_userlevel :=fieldbyname(39。用戶名39。).asstring。 end //登錄成功 else begin //保存登錄的用戶信息 gs_login_userid :=fieldbyname(39。 。 :=39。 。非法用戶！你無權使用本系統(tǒng)39。 LoginNum:=LoginNum+1?？诹铄e誤，請修改 ！39。密碼39。 Open。39。39。39。39。SELECT * From 用戶信息表 Where 用戶名=39。 。 end。 ()。請 選 擇 用 戶 名 ！39。39。procedure (Sender: TObject)。 //釋放閃現窗體具體可以參見上上頁的哪一段工程項目文件的源程序。二是在最后結果部分加上：。第三，在工程文件代碼中將入以下語句：一是在開始部分加上：form3:=(form3)。 sleep(2000)。 show。代碼如下：procedure 。畫面如上圖所示。 //釋放閃現窗體 。 // 。 Finally 。 // 打開查詢窗口 end else begin 。,gt_login_time)。+FormatDateTime(39。 [2].text :=39。操作員：39。 if =True then begin // 為登錄用戶定制界面 [0].text :=gs_OrgName。 // 顯示登錄窗口 Frm_login:=(Application)。 end。,MB_OK)。,39。131039。131039。131039。131039。131039。 // 連接數據庫 if f_ConnectDataBase()=False then begin (39。 (TForm3, Form3)。 (TDataModule1, DataModule1)。 //得到可執(zhí)行文件的路徑 // 打開數據庫模板 := 39。 //這里是啟動閃現窗體 。begin 。 {Form3}。 {Form2}, Unit3 in 39。 {Form1}, Unit2 in 39。 {Frm_InfoList}, Unit1 in 39。 {Frm_LendCause}, InfoList in 39。 {Frm_QueryLend}, LendCause in 39。 {Frm_LendDetail}, QueryLend in 39。 {Frm_SysSet}, LendDetail in 39。 {Frm_QuerySale}, SysSet in 39。 {Frm_UserPower}, QuerySale in 39。 {Frm_SaleDetail}, UserPower in 39。 {Frm_UserChgPwd}, SaleDetail in 39。 {Frm_Login}, UserChgPwd in 39。 {DataModule1: TDataModule}, login in 39。 {Frm_Base}, DataBase in 39。 {Frm_SaleCause}, base in 39。, SaleCause in 39。 {MainForm}, Common in 39。uses Forms, windows, Sysutils, Classes, Main in 39。根據已有的需求信息和總體設計，可以進行系統(tǒng)的詳細設計和實現。設計完成后，按同樣的方法向其中加入數據，即幾條含有原始數據的記錄。同時由于系統(tǒng)提供了房屋資料管理的功能，所以要在數據庫中增加“房屋資料”，它主要是用來保存房屋信息的，它的字段和類型如表4_2：表4_1 用戶信息表的描述字段名稱數據類型用戶名文本密碼文本用戶等級文本表4_2房屋資料的描述字段名稱數據類型位置文本樓層文本面積數字產權情況文本結構文本價格數字狀態(tài)文本因為軟件中需要四個數據庫即“客戶資料”、“中介信息表”、“單位信息表”、“常識信息表”，增加記錄的步驟也與上面增加記錄的步驟完全一樣。⑤．設計好字段名后，關閉并保存表為“用戶信息表” 。我們選擇“使用設計器”創(chuàng)建表。②．然后點擊“空數據庫”，在彈出的“文件新建數據庫”對話框中鍵入數據庫的名稱。 新建數據庫及字段運行Microsoft公司的Office2000辦公軟件中的Access數據庫軟件。在本程序中，因為很多單元都要訪問數據庫，所以為了方便，使用一個單元Datamodule1，在單元里放置一個控件Adoconnection1用于統(tǒng)一連接數據庫,其它單元要訪問時，只要把adotalbe或adoquery控件的數據源指向Datamodule1中的Adoconnection1控件就可以了。接著設定ADOTable1組件的Connection屬性為ADOConnection1，單擊ADOTable1組件的tablename屬性后的省略號，將可圖33 數據連接屬性的連接，從中選擇一個如“表 1”,設定ADOTable1組件的Active屬性為True,則馬上可以在DbGrid中看到表中的數據了。再把ADOConnection1組件的LoginPrompt屬性設定為false，這樣以后程序在運行時就不會彈出“密碼輸入框”了。在“所有”頁面中顯示的是用戶目前設定的連接屬性，用戶可以再修改。接下來可以點擊“測試連接”按鈕，如果提示“測試連接成功”那么說明數據庫可正常連接上。我們選擇Microsoft Jet OLE DB Provider驅動。先設定一下部分組件屬性如下：設定DBGrid1組件的DataSource屬性為DataSource1，設定DataSource1組件的Dataset屬性為ADOTable1。在Delphi組件面板上有ADO組件頁，其中前6個是ADO組件。由于本系統(tǒng)只有一步數據的錄入，并沒有數據的流動、加工等，所以比較簡單。加工是對數據進行的操作。數據流圖有三個基本要素：數據流、加工、文件。(13)文檔管理：主要功能是通過程序調用word，打開“房屋租憑合同”、“商品房買賣合同”、“二手房屋買賣合同”、“居間協(xié)議”、“二手房買賣流程”等電子文檔，供購房者和中介公司簽訂合同提供方便。可以對購房常識按標題進行查詢。）。(11)系統(tǒng)維護窗體:主要功能是對操作數據庫的管理人員進行各種資料的維護。(10)客戶資料登記窗體:主要功能是對客戶資料進行登記，包括對客戶資料數據的添加、刪除、修改、查詢等操作。(9)房屋資料登記窗體: 功能主是要對房屋信息進行登記，包括數據的添加、刪除、修改、查詢、統(tǒng)計等操作。(8)報表打印功能: 本功能是附屬在房屋出租查詢窗體和房屋出售查詢窗體里的，可以將查詢得出的任何表格數據生成報表進行打印。(7)房屋出售信息查詢窗體: 功能主要是可以對所有的房屋出售的信息進行查詢。(6)房屋出售登記窗體: 功能是對房屋出售信息進行登記，主要是進行添加出售信息的登記操作。(5)房屋出租信息查詢窗體: 功能主要是可以對所有的房屋出租的信息進行查詢。(4)房屋出租登記窗體: 功能是對房屋出租信息進行登記，主要是進行添加出租信息的登記操作。(3)主界面窗體: 本窗體的功能很簡單，主要是為進入本系統(tǒng)其它所有的功能窗體提供一個操作方便、界面美觀的基礎平臺。將登錄用戶分成三個層次：超級用戶、管理員、普通客戶。(對應窗體Form3)。顯卡：SVGA顯示適配器。內存： 128M。(13)文檔管理：主要功能是通過程序調用word，打開“房屋租憑合同”、“商品房買賣合同”、“二手房屋買賣合同”、“居間協(xié)議”、“二手房買賣流程”等電子文檔，供購房者和中介公司簽訂合同提供方便。(12)購房常識管理窗體:主要功能是為購房者提供一