【正文】 43 本軟件根據(jù)編程的需要一共使用了一個第三方控件 Ehlib表格增強(qiáng)控件，使用它的目的主要一是系統(tǒng)功能的需要，第二個也是鍛煉自己使用第三方控件的本領(lǐng)，如第三方控件 的安裝，使用等。 end。 close。 修 改 完 成 ， 密 碼 已 經(jīng) 改 變 ！39。 (sqlstr)。39。+gs_login_userid+39。39。39。++39。39。 end else begin sqlstr:=39。,mterror,[mbok],0)。 if then begin messagedlg(39。 exit。舊密碼輸入錯誤！ 39。 begin inherited。 (1)本模塊的窗體效果圖如下所示： 畢業(yè)論文 41 (2)本模塊中修改密碼的代碼解釋如下： procedure (Sender: TObject)。 n:=。)。 (39。其核心代碼如下 (僅列出統(tǒng)計“已出租”房屋數(shù)量的代碼，其余與些相同 )： 。 end。 畢業(yè)論文 40 。 。%39。select * from 房 屋 資 料 where 位置 like %39。39。 begin inherited。 procedure (Sender: TObject)。 end。 :=strFilter。 then begin :=false。 //過濾查詢 if strFilter=39。39。 end。+39。39。39。+39。 end else if =3 then begin strFilter := strFilter + 39。+39。39。39。+39。 end else if =2 then begin strFilter := strFilter + 39。+39。39。39。+39。 // if =1 then begin strFilter := strFilter + 39。+39。39。++39。39。+39。 then strFilter := strFilter + 39。 if trim()39。 // 構(gòu)造過濾條件 strFilter := 39。 var strFilter:string。 end。 FormShow(nil)。 then begin ParmId :=39。 // 繼續(xù)新增 if ParmEditorMode = 39。 提示39。 數(shù) 據(jù) 保 存 成 功 ！ 39。 end。,MB_OK)。,39。 MessageBox(handle,39。 // 。 // 數(shù)據(jù)保存處 理 。 begin inherited。 var strSQL :string。 房屋出 租登記窗體 畢業(yè)論文 34 功能是對房屋出租信息進(jìn)行登記，主要是進(jìn)行添加出租信息的登記操作。 end。運行 Microsoft word 失??！ 39。 。)。 try varword:=createoleobject(39。 begin s:=ExtractFilePath()+39。 var s:string。 畢業(yè)論文 33 end。 end。 :=false。 :=false。 end else begin // 普通客戶，限制使用好幾個菜單 :=false。 :=true。管理員 39。 畢業(yè)論文 32 // :=true。 :=true。 then begin :=true。 begin if gs_login_userlevel=39。 主窗體模塊 本模塊的主要功能是： 為進(jìn)入本系統(tǒng)其它所有的功能窗體提供一個操作方便、界面美觀的基礎(chǔ)平臺。 end。 。,mterror,[mbok],0)。 end else begin messagedlg(39。 畢業(yè)論文 30 。 gt_login_time:=now()。密碼 39。).asstring。 gs_login_userlevel :=fieldbyname(39。用戶名 39。).asstring。 end //登錄成功 else begin //保存登錄的用戶信息 gs_login_userid :=fieldbyname(39。 。 :=39。 。非法用戶！你無權(quán)使用本系統(tǒng) 39。 LoginNum:=LoginNum+1。口令錯誤，請修改 ！ 39。密碼 39。 Open。39。39。39。39。SELECT * From 用戶信息表 Where 用戶名 =39。 。 end。 ()。請 選 擇 用 戶 名 ！ 39。39。 procedure (Sender: TObject)。 //釋放閃現(xiàn)窗體 具體可以參見上上頁的哪一段工程項目文件的源程序。 二是在最后結(jié)果部分加上： 。 第三，在工程文件代碼中將入以下語句： 一是在開始部分加上： form3:=(form3)。 sleep(2020)。 show。代碼如下： procedure 。畫面如上圖所示。 //釋放閃現(xiàn)窗體 。 // 。 畢業(yè)論文 26 Finally 。 // 打開查詢窗口 end else begin 。,gt_login_time)。+FormatDateTime(39。 [2].text :=39。 操作員：39。 if =True then begin // 為登錄用戶定制界面 [0].text :=gs_OrgName。 畢業(yè)論文 25 // 顯示登錄窗口 Frm_login:=(Application)。 end。,MB_OK)。,39。131039。131039。131039。131039。131039。 // 連接數(shù)據(jù)庫 if f_ConnectDataBase()=False then begin (39。 (TForm3, Form3)。 (TDataModule1, DataModule1)。 //得到可執(zhí)行文件的路徑 // 打開數(shù)據(jù)庫模板 畢業(yè)論文 24 := 39。 //這里是啟動閃現(xiàn)窗體 。 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}, 畢業(yè)論文 23 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。 四 .詳細(xì)設(shè)計 根據(jù)已有的需求信息和總體設(shè)計，可以進(jìn)行系統(tǒng)的詳細(xì) 設(shè)計畢業(yè)論文 22 和實現(xiàn)。 設(shè)計完成后，按同樣的方法向其中加入數(shù)據(jù)，即幾條含有原始數(shù)據(jù)的記錄。由于篇幅的限制，其它幾個表的結(jié)構(gòu)（包括詳細(xì)的字段名、類型、大?。┰谶@里，我就不一一列舉出來了。 ⑥．雙擊“用戶信息表”然后在彈出的數(shù)據(jù)錄入窗體中錄入數(shù)據(jù)，并保存。 ④．在彈出的“表 4_1”設(shè)計窗體中，依次寫入各個字段名以及他們相對應(yīng)的數(shù)據(jù)類型和說明事 項。 ③．這時系統(tǒng)將會自動進(jìn)入詳細(xì)的數(shù)據(jù)庫設(shè)計窗體。 ①．點擊菜單“文件”，在出現(xiàn)的菜單項中選擇“新建”菜單項。這樣大大減少了代碼量，減少了工作量。如果馬上運行程序就可以在窗口中瀏覽和編輯數(shù)據(jù)了。但如果你的數(shù)據(jù)庫有密碼且在上面的“連接”頁面中沒有輸入密碼沒有選中“允許保存密碼”，那么不要把此屬性設(shè)定為 false,因為你以后需要手工輸入密碼。點擊“確定”按鈕后返回到上圖 ,這時可以看到屬性設(shè)定字 符串已經(jīng)自動生成，點擊“ OK”按鈕返回即可。在“高級”頁面中選擇訪問權(quán)限為“ ReadWrite”。選擇完畢數(shù)據(jù)庫驅(qū)動后，點擊“連接”頁面，如圖 33 所示：在這里輸入或選擇數(shù)據(jù)庫，這里我們查找選擇數(shù)據(jù)庫為“ C:\房屋中介管理系統(tǒng) \”，如果數(shù)據(jù)庫有密碼可將“空白密 畢業(yè)論文 17 圖 32 數(shù)據(jù)連接屬性的提供者 碼”復(fù)選框去掉選擇，就可以輸入密碼，選中“允許保存密碼”這樣以后就可以無需再輸入密碼了。雙擊 ADOConnection1 組件或者在其屬性列表中點擊ConnectionString 后的省略號都可以打開連接字符串設(shè)定窗口如圖 31：點擊“ Build”按鈕，將打開數(shù)據(jù)連接屬性窗口如圖 32 圖 31 ConnectionString 所示，其中有四個頁面，在第一個“提供者”頁面中，列出了可以使用的各種驅(qū)動數(shù)據(jù)庫驅(qū)動。 在空白窗體上放置一個 ADOConnection1 組件，一個處理 信息 數(shù)據(jù)庫 客戶信息 數(shù)據(jù)庫信息 用戶 用戶 信息查詢 用戶 查詢信息 查詢結(jié)果 信息 畢業(yè)論文 16 ADOTable1組件、一個 DataSource1 組件、一個 DBGrid1 組件。 本系統(tǒng)的數(shù)據(jù)流圖如下所示： 數(shù)據(jù)庫設(shè)計 ADO 使用方法綜述 本畢業(yè)設(shè)計就是用 ADO 操作數(shù)據(jù)庫 。文件是暫存貯的數(shù)據(jù)。數(shù)據(jù)流是由一組固定成分的數(shù)據(jù)組成。 數(shù)據(jù)流圖 數(shù)據(jù)流圖主要是從數(shù)據(jù)流的角度來描述一個企事業(yè)組織的畢業(yè)論文 15 業(yè)務(wù)活動，它具體描述一個組織有哪幾個組成部分，也描述了來往于各部分之間的數(shù)據(jù)流。 (對應(yīng)窗體 Frm_infolist)。 (12)購房常識管理窗體 :主要功能是為購房者提供一些購房上的小常識，為購房者提供一些方便吧。（用戶管理對應(yīng)窗體 Frm_userpower；修改密碼對應(yīng)窗體 Frm_userchgpwd。 (對應(yīng)窗體 Form2)。 (對應(yīng)窗體Form1)。本部分主要通過第三方控件 Ehlib來完成。 (對應(yīng)窗體 Frm_Querysale)。 ( 對 應(yīng) 窗 體Frm_saledetail)。 (對應(yīng)窗體 Frm_Querylend)。 ( 對 應(yīng) 窗 體Frm_lenddetail)。 (對應(yīng)窗體 Mainform)。 (對應(yīng)窗體 Frm_login)。 閃現(xiàn)窗體模塊 登錄類型選擇模塊 主窗體模塊 房屋出租登記模塊 房屋出租查詢模塊 房屋出售登記模塊 房屋出售查詢模塊 房屋資料管理模塊 客戶資料管理模塊 文檔管理模塊 購房常識管理模塊 報表打印模塊 畢業(yè)論文 13 (2) 登錄管理 : 為了軟件和數(shù)據(jù)庫的安全，驗證登錄人員的不同身份，防止非法用戶入侵系統(tǒng)。 畢業(yè)論文 10 操作系統(tǒng) :Windows 98/Me/2020/XP 數(shù)據(jù)庫： Access2020