房地產(chǎn)信息管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)-文庫(kù)吧
2025-08-05 16:52 本頁(yè)面
【正文】 默認(rèn)值功能描述客戶(hù)編號(hào)Numeric(9)是客戶(hù)名稱(chēng)Varchar(10) 是性別Varchar(2)是年齡Varchar(3) 是職業(yè)Varchar(16)是身份證號(hào)碼Varchar(23) 是郵編Varchar(10)是聯(lián)系方式varchar(15) 是工作單位varchar(40)是聯(lián)系地址varchar(40) 是家庭結(jié)構(gòu)varchar(16)是需求面積varchar(16) 是需求樓層varchar(11)是需求房型varchar(10) 是購(gòu)買(mǎi)意向varchar(10)是價(jià)格反映varchar(10) 是支付方式varchar(10)是考慮因素varchar(10) 是信息來(lái)源varchar(10)是購(gòu)房數(shù)量numeric(9) 是購(gòu)房金額float(8)是已付金額float(8) 是未付金額float(8)是備注varchar(100)建檔人員varchar(10)建檔日期datetime(8)修改人員varchar(8)修改日期datetime(8) 系統(tǒng)流程圖 系統(tǒng)流程圖 第3章 主窗體設(shè)計(jì) 主窗體界面設(shè)計(jì)概要主界面首要任務(wù)是要通過(guò)主菜單給用戶(hù)提供調(diào)用各功能模塊的選擇，因此設(shè)計(jì)菜單是主窗體設(shè)計(jì)的第一步。另外，與主菜單相配合的是工具條的設(shè)計(jì)。工具條上放了許多使用頻率高的快捷鍵，以提高使用者的操作速度。另外，在主菜單的最下方有一個(gè)狀態(tài)欄，該欄用于顯示系統(tǒng)的當(dāng)前狀態(tài)，例如當(dāng)前的操作員和系統(tǒng)時(shí)間等。主窗體運(yùn)行的結(jié)果如圖31所示。狀態(tài)條工具條主菜單 主窗體頁(yè)面 主窗體界面詳細(xì)設(shè)計(jì)1. 啟動(dòng)Delphi 開(kāi)發(fā)平臺(tái)，將自動(dòng)彈出的窗體設(shè)為主窗體，并命名。主窗體的name屬性：mainform；主窗體的單元文件名：；工程文件名：。1）主菜單設(shè)計(jì)向主窗體中拖放一個(gè)主菜單控件，使用它的默認(rèn)名：Mainmenu1。在Mainmenu1 上按右鍵，從彈出的窗體中，選擇“Menu Designer”以設(shè)計(jì)主菜單。主菜單的第一級(jí)有【房屋銷(xiāo)售管理】、【數(shù)據(jù)統(tǒng)計(jì)報(bào)表】、【基本資料錄入】、【系統(tǒng)設(shè)置】和【幫助】等5項(xiàng)。具體內(nèi)容如圖31所示。這條線(xiàn)（分隔符）是在Caption屬性中輸入英文狀態(tài)下的“”號(hào)二級(jí)菜單一級(jí)菜單 一級(jí)菜單設(shè)計(jì)圖2）設(shè)計(jì)二級(jí)菜單在Menu Designer 中的標(biāo)識(shí)完成【房屋銷(xiāo)售管理】菜單的二級(jí)菜單的設(shè)計(jì)。選擇熱鍵接著輸入二級(jí)菜單名先輸入一級(jí)菜單名 【房屋銷(xiāo)售管理】的二級(jí)菜單設(shè)計(jì)圖接下來(lái)分別設(shè)計(jì)【數(shù)據(jù)統(tǒng)計(jì)表表】、【基本資料錄入】、【系統(tǒng)設(shè)置】和【幫助】菜單的二級(jí)菜單。設(shè)計(jì)好的二級(jí)菜單如圖34所示。 其余三項(xiàng)菜單的二級(jí)菜單設(shè)計(jì)圖至于【幫助】菜單的二級(jí)菜單只有“關(guān)于”和“幫助 F2” 這2項(xiàng)。我們可以展開(kāi)Delphi 設(shè)計(jì)平臺(tái)左上角的“object treeview”視窗查看主窗體“MainForm”的全部菜單內(nèi)容，如圖35所示。 這是分隔符 菜單的詳細(xì)內(nèi)容3) 主窗體背景設(shè)計(jì)在主窗體（MainForm）中放入一個(gè)“image控件”，在它的“picture”屬性中載入一張保存在本工程文件目下（根目錄）的圖片作為背景圖。 設(shè)置image控件的”picture”屬性以載入背景圖定時(shí)器 載入背景圖后的樣式4) 主窗體的狀態(tài)欄控件設(shè)計(jì)在主窗體的最下方添加TStatusBar(在控件欄的Win32頁(yè))組件，該組件用來(lái)顯示主窗體運(yùn)行時(shí)的狀態(tài)，用默認(rèn)名“StausBar1”。將StausBar1分成三個(gè)區(qū)域，分別是StatusPanelStatusPanel2和StatusPanel3。第一個(gè)區(qū)域顯示公司名稱(chēng)，第二個(gè)區(qū)域顯示當(dāng)前的操作員，第三個(gè)區(qū)域顯示系統(tǒng)時(shí)間。為此，要在主窗體中添加一個(gè)時(shí)間控件。這些功能的實(shí)現(xiàn)是靠代碼完成的，稍后介紹這些代碼。將狀態(tài)條分段的操作方法是：在StausBar1 控件上按鼠標(biāo)右鍵，彈出“Editing ” 編輯窗，在該編輯窗上面按右鍵，選擇彈出窗的“Add”，將StatusBar1分成三段，分別是0STatusPanel1STatusPanel2STatusPanel1。然后在其“Width”屬性中設(shè)置每一段的寬度，如圖38 所示。設(shè)置第一段的寬度為150每選擇一次Add就會(huì)增加一段 將StausBar1控件分成三段5) 狀態(tài)欄的代碼設(shè)計(jì)●為了在狀態(tài)欄的第一段中顯示目前登錄者的姓名，首先在主窗體的“public”域中聲明一個(gè)UserName的字符串變量：publicname:string。username:string。●為了在狀態(tài)欄的第三段中顯示目前的系統(tǒng)時(shí)間，要在主窗體中添加一個(gè)時(shí)間控件，雙擊主窗體中的定時(shí)器控件，在彈出的代碼編寫(xiě)器中編寫(xiě)如下代碼：procedure (Sender: TObject)。begin[2].Text :=39。現(xiàn)在時(shí)間： 39。+datetimetostr(now)。end。編譯后就可以在狀態(tài)條的第三段看到系統(tǒng)時(shí)間，如圖39所示：工具欄顯示系統(tǒng)時(shí)間 狀態(tài)條第三段顯示系統(tǒng)時(shí)間6) 主窗體工具欄的設(shè)計(jì)在主窗體中添加一個(gè)工具欄，工具欄上放置若干個(gè)快件鍵，以提供某些快速操作。添加工具欄的操作方法是：1. 從Win32頁(yè)中拖放一個(gè)ToolBar1 控件到主窗體中。設(shè)置Align屬性（對(duì)齊）為alNone；設(shè)置DragKind屬性為dkDock。2. 從Additional 頁(yè)中拖放10個(gè)SpeedButton按鈕到ToolBar1上。這些SpeedButton按鈕作為工具欄的快捷鍵；3. 給每個(gè)按鈕添加上相應(yīng)的圖標(biāo)和文字。為了能給這些SpeedButton按鈕添加上圖標(biāo)，首先要準(zhǔn)備好圖標(biāo)（素材），并將他們存放在一個(gè)專(zhuān)門(mén)的文件夾中，然后在主窗體中添加一個(gè)ImageList 控件，使用默認(rèn)名ImageList1。選擇SpeedButton1，通過(guò)它的Glyph 屬性添加上為它準(zhǔn)備好的圖標(biāo)，并從它的Caption 屬性中輸入中文名。設(shè)計(jì)好的工具欄ToolBar1如圖310所示： 設(shè)計(jì)好的工具欄A實(shí)現(xiàn)快捷鍵圖標(biāo)在上、文字在下的方法：如下圖所示，先選中ToolBar上的一個(gè)快捷鍵，將它的Layout屬性設(shè)置為blGlyphTop就可以了。把該鍵的Layout屬性設(shè)置為blGlyphTop被選中的快捷鍵 設(shè)置快捷鍵的Layout屬性7) 主窗體工具欄的拖曳工具欄不一定始終?？吭谝粋€(gè)個(gè)固定的地方，而是隨時(shí)可以變換地方，這就要用到控件的拖曳技術(shù)。●ToolBar1的Align屬性設(shè)置為：alNone，即不固定位置；●ToolBar1的DranKInd屬性設(shè)置為：dkDock；●在主窗體的最下方添加一個(gè)Panel1組件，它的Heigh屬性設(shè)為1；Align屬性設(shè)為alBottem；Docksite設(shè)為T(mén)rue●程序的相關(guān)代碼：procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject。 var DragObject: TDragDockObject)。begin :=1。end。procedure (Sender: TObject。 Source: TDragDockObject。 X, Y: Integer)。begin :=。end。 主窗體的第一次代碼設(shè)計(jì)主窗體的界面設(shè)計(jì)好后，著手編寫(xiě)主窗體初始化的三段代碼，以便先讓它空轉(zhuǎn)起來(lái)。1）procedure FormShow(Sender: TObject)。2）procedure FormCreate(Sender: TObject)。3）procedure FormKeyDown(Sender: TObject。 var Key: Word。 Shift: TShiftState)。 //按下F功能鍵所執(zhí)行的功能4）為了在編譯完成后能退出程序，可先編寫(xiě)主菜單“【系統(tǒng)設(shè)置】”中的“退出系統(tǒng)”項(xiàng)的代碼：procedure (Sender: TObject)。 //退出系統(tǒng)菜單begin Close。end。由于內(nèi)容較多，代碼就不一一列
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1