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