【正文】 :=true。 :=true。begin if key=13 then 。begin :=clcream。end。private { Private declarations } public times:integer。 登錄窗口樣式 登錄窗體的一般樣式如圖41。duserdataset屬性設(shè)置：指定它的DataSet 屬性6) 另外放了兩個(gè)控件，這是查詢用的，其中控件要設(shè)置Connection屬性：，DataSource1沒(méi)有屬性設(shè)置。這些是登錄頁(yè)面訪問(wèn)f_User表所需的控件DataSource控件 DataModule窗體中的連接控件我們采用ADO數(shù)據(jù)庫(kù)連接技術(shù)。 username:string。 var Key: Word。 Source: TDragDockObject?！馮oolBar1的Align屬性設(shè)置為：alNone，即不固定位置；●ToolBar1的DranKInd屬性設(shè)置為：dkDock；●在主窗體的最下方添加一個(gè)Panel1組件，它的Heigh屬性設(shè)為1；Align屬性設(shè)為alBottem；Docksite設(shè)為True●程序的相關(guān)代碼：procedure (Sender: TObject)。添加工具欄的操作方法是：1. 從Win32頁(yè)中拖放一個(gè)ToolBar1 控件到主窗體中。設(shè)置第一段的寬度為150每選擇一次Add就會(huì)增加一段 將StausBar1控件分成三段5) 狀態(tài)欄的代碼設(shè)計(jì)●為了在狀態(tài)欄的第一段中顯示目前登錄者的姓名，首先在主窗體的“public”域中聲明一個(gè)UserName的字符串變量：publicname:string。 這是分隔符 菜單的詳細(xì)內(nèi)容3) 主窗體背景設(shè)計(jì)在主窗體（MainForm）中放入一個(gè)“image控件”，在它的“picture”屬性中載入一張保存在本工程文件目下（根目錄）的圖片作為背景圖。在Mainmenu1 上按右鍵，從彈出的窗體中，選擇“Menu Designer”以設(shè)計(jì)主菜單。表5 客戶信息表f_customer 的字段字段名稱字段類型主鍵允許為空默認(rèn)值功能描述客戶編號(hào)Numeric(9)是客戶名稱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)買意向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ò)主菜單給用戶提供調(diào)用各功能模塊的選擇，因此設(shè)計(jì)菜單是主窗體設(shè)計(jì)的第一步。就是記錄一個(gè)新建樓盤，即“小區(qū)”的所有信息；2. f_house 樓房基本信息。首先是要建立一個(gè)樓盤（小區(qū)）的資料，即數(shù)據(jù)庫(kù)中的f_build表（樓盤基本信息表），一個(gè)實(shí)用化的樓盤基本信息表有23項(xiàng)內(nèi)容，比較復(fù)雜。系統(tǒng)的報(bào)表生成工具和分析工具使房屋銷售情況和公司員工的業(yè)績(jī)一目了然。系統(tǒng)的設(shè)置模塊除了密碼等常規(guī)設(shè)置外，還有權(quán)限設(shè)置，不同權(quán)限的人員進(jìn)入不同操作模塊，使數(shù)據(jù)具有保密性。接下來(lái)是建立每一座樓的基本信息，即數(shù)據(jù)庫(kù)中f_house表（樓房基本信息），表中的明細(xì)也有15項(xiàng)之多。一個(gè)樓盤下面有多棟樓房，該表記錄樓房信息。另外，與主菜單相配合的是工具條的設(shè)計(jì)。主菜單的第一級(jí)有【房屋銷售管理】、【數(shù)據(jù)統(tǒng)計(jì)報(bào)表】、【基本資料錄入】、【系統(tǒng)設(shè)置】和【幫助】等5項(xiàng)。 設(shè)置image控件的”picture”屬性以載入背景圖定時(shí)器 載入背景圖后的樣式4) 主窗體的狀態(tài)欄控件設(shè)計(jì)在主窗體的最下方添加TStatusBar(在控件欄的Win32頁(yè))組件，該組件用來(lái)顯示主窗體運(yùn)行時(shí)的狀態(tài)，用默認(rèn)名“StausBar1”。username:string。設(shè)置Align屬性（對(duì)齊）為alNone；設(shè)置DragKind屬性為dkDock。begin 。 X, Y: Integer)。 Shift: TShiftState)。 數(shù)據(jù)模塊設(shè)計(jì)在Delphi的數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)中，數(shù)據(jù)庫(kù)與SQL Server 服務(wù)器的連接是通過(guò)數(shù)據(jù)模塊（Data Module）來(lái)實(shí)現(xiàn)的。設(shè)置fdc_conn控件的Connection屬性。注意：該Datamodule 即dm 窗體沒(méi)有事件， 中不用編寫代碼。 登錄窗體布局圖窗體中的控件及其名稱：窗體中用到的圖片要事先準(zhǔn)備好，保存在工程文件的根目錄下。 //設(shè)置一個(gè)計(jì)算登錄次數(shù)的參數(shù) { Public declarations } end。procedure (Sender: TObject)。 //Edit1是密碼輸入框end。end。主窗體的狀態(tài)條 :=true。 :=true。 end else begin if trim([39。 。 end else begin :=。樓盤樓房錄入39。 :=[39。]。銷售代表統(tǒng)計(jì)39。 :=[39。]。end。end。運(yùn)行后的登錄窗口如圖45所示。這三個(gè)控件是用來(lái)訪問(wèn)f_mode表的第一個(gè)是表控件TADOTable；第二個(gè)是數(shù)據(jù)源控件TDataSource；第三個(gè)是數(shù)據(jù)集控件TADODataSet。比如說(shuō)DBEdit1它要連接的字段是房型名稱，那么它的DataField屬性就選擇“房型名稱”，依此類推。在代碼編輯窗口前面部分要有如下內(nèi)容：uses dmunit；現(xiàn)在來(lái)編寫該窗體初始化時(shí)的三段代碼：1. procedure FormCreate(Sender: TObject)。 圖54 房型資料錄入窗體初始化時(shí)的三個(gè)事件三個(gè)事件的詳細(xì)代碼：procedure (Sender: TObject)。procedure (Sender: TObject。 if key=118 then //F7 if =true then 。 圖54 編譯好的房型資料錄入窗體1. 接下來(lái)編寫增加房型資料即點(diǎn)擊下方的按鈕時(shí)的代碼，以便能增加房型（戶型）資料。 decodedate(now,y,m,d)。 if 0 then begin 。 end。 :=false。 。 :=false。 :=false。end。],[])=true then begin messagebox(,39。 if (39。,mb_iconinformation)。 except MessageBox( ,39。4.. 點(diǎn)擊代碼如下：procedure (Sender: TObject)。 closeend?！裨俳酉聛?lái)放入一個(gè)TADODataSet（數(shù)據(jù)集）控件，命名為house_dataset。在上述樓盤資料錄入的窗體中若單擊下方的“樓房”快捷鍵，就會(huì)彈出樓房資料錄入窗口。（2）該窗體要用到的數(shù)據(jù)表是“f_house”，為此我們要在數(shù)據(jù)模塊中添加必要的數(shù)據(jù)控件。