【正文】 STatusPanel2STatusPanel1?！駷榱嗽跔顟B(tài)欄的第三段中顯示目前的系統(tǒng)時(shí)間，要在主窗體中添加一個(gè)時(shí)間控件，雙擊主窗體中的定時(shí)器控件，在彈出的代碼編寫器中編寫如下代碼：procedure (Sender: TObject)。end。2. 從Additional 頁(yè)中拖放10個(gè)SpeedButton按鈕到ToolBar1上。設(shè)計(jì)好的工具欄ToolBar1如圖310所示： 設(shè)計(jì)好的工具欄A實(shí)現(xiàn)快捷鍵圖標(biāo)在上、文字在下的方法：如下圖所示，先選中ToolBar上的一個(gè)快捷鍵，將它的Layout屬性設(shè)置為blGlyphTop就可以了。end。end。begin :=。2）procedure FormCreate(Sender: TObject)。 //按下F功能鍵所執(zhí)行的功能4）為了在編譯完成后能退出程序，可先編寫主菜單“【系統(tǒng)設(shè)置】”中的“退出系統(tǒng)”項(xiàng)的代碼：procedure (Sender: TObject)。同時(shí)要在主窗口的代碼編輯窗口的public處設(shè)立如下變量，以備后用：public modelr,buildlr,lr,emplr,sale,gather,plan,payreturn, saler,house,custpay,cust,custfx,user1,databack:boolean。從菜單“File” | “New” | “Other” ，彈出選擇“Data Module”模版窗口，從該窗體中點(diǎn)選Data Module 項(xiàng)，如圖312所示。記住：主窗體和接下來(lái)完成的登錄窗體都要‘“Uses ”!在新生成的Data Module窗體中，從“ADO”組件頁(yè)中拖放連接數(shù)據(jù)庫(kù)的“Connection” 組件，將其Name屬性設(shè)為“fdc_conn”，再?gòu)摹癉ataAceess”頁(yè)中拖放一個(gè)“DataSource”控件將其Name屬性設(shè)為“dsuser”，并給數(shù)據(jù)模版（窗體）命名為“dm” ，單元文件保存為：“” 。按下圖首先選擇提供程序“Microsoft OLE DB for SQL Server”，然后按右邊所謂圖示填寫數(shù)據(jù)庫(kù)所在的服務(wù)器名和將要連接的數(shù)據(jù)庫(kù)“FDC”，最后確認(rèn)數(shù)據(jù)庫(kù)連接成功。4）duser控件，這是一個(gè)datasource 控件，與usertable配套使用。第4章 登錄模塊設(shè)計(jì) 登錄模塊的窗體設(shè)計(jì)程序的啟動(dòng)畫面消失后，將彈出登錄窗體，用戶通過(guò)輸入用戶名和密碼就可以進(jìn)入系統(tǒng)，然后根據(jù)用戶權(quán)限打開相應(yīng)的模塊。當(dāng)沒(méi)有輸入用戶名和密碼時(shí)，程序會(huì)提示“請(qǐng)輸入正確的用戶名和密碼”，當(dāng)用戶名或，密碼錯(cuò)誤時(shí)，系統(tǒng)會(huì)提示：“對(duì)不起，沒(méi)有這個(gè)用戶名”或“密碼錯(cuò)誤”，系統(tǒng)重新回到登錄窗口。要注意的是，用戶名后面的輸入框采用的控件是位于DataControls頁(yè)的DBLookupCombobox1。為了能夠?qū)崿F(xiàn)這些功能，我們必須在數(shù)據(jù)模塊（DataModule）中放置如下數(shù)據(jù)控件：DataSource控件它的DataSet屬性：UserDataSet ADODataSet控件它的CommandText屬性：select * from f_user表控件，它的TableName屬性：f_user圖43 為登錄窗體訪問(wèn)數(shù)據(jù)庫(kù)要求的數(shù)據(jù)控件登錄系統(tǒng)時(shí)既要檢查用戶名是否存在，還要驗(yàn)證密碼是否正確，而且還要獲取用戶的權(quán)限供后面窗體調(diào)用。var loginform: Tloginform。 Shift: TShiftState)。begin :=clcream。end。procedure (Sender: TObject)。 var Key: Word。procedure (Sender: TObject)。操作員: 39。 :=true。 :=true。 :=true。 :=true。用戶密碼39。,39。 end else begin messagebox(,39。,mb_iconinformation)。 [1].Text:=39。房型錄入39。]。 :=[39。房屋銷售管理39。]。 :=[39。給客戶退款管理39。]。 :=[39?？蛻魯?shù)據(jù)分析39。]。 :=[39。 close。procedure (Sender: TObject)。procedure (Sender: TObject。procedure (Sender: TObject)。begin 。 圖45 登錄窗口輸入事先存放在用戶表f_user中的用戶名和密碼，就可以進(jìn)到主窗體。模塊中用到了Excel電子表格技術(shù)，該項(xiàng)技術(shù)比較復(fù)雜。 編輯CommandText屬性表控件“mode”設(shè)置Connection屬性：fdc_conn，指定將要連接的表即TableName屬性為：f_mode（數(shù)據(jù)庫(kù)中的f_mode表）。 編輯CommandText屬性 窗體詳細(xì)設(shè)計(jì)1. 設(shè)計(jì)步驟（1）在工程中新建一個(gè)窗體，窗體的name屬性：modeform，Capation屬性：房型資料錄入，BoederStyle屬性設(shè)為：bsSingle；（2）在窗體上方添加多個(gè)TDBEdit組件（在DataControls頁(yè)）這些組件用于輸入修改和增加房屋類型時(shí)的信息。 （3）在窗體的下方添加TDBNavigator組件，采用默認(rèn)名DBNavigator1。用它來(lái)顯示房型資料的全部信息。2. procedure FormShow(Sender: TObject)。因?yàn)樵诖翱谏鲜褂昧酥T如FF5這樣的功能鍵，當(dāng)按下這些功能鍵時(shí)就相當(dāng)于按下了窗口上的“增加”、“保存”等操作按鈕。 //房型資料錄入窗體顯示begin :=false。begin keypreview:=true。 var Key: Word。 if key=115 then //F4 if =true then 。 if key=119 then //F8 if =true then 。 if key=40 then 。 procedure (Sender: TObject)。 i:integer。 //該函數(shù)分解所指定的日期為年、月、日 s:=inttostr(y)。).AsString :=s+39。 newid:=strtoint([39。 (39。 。 :=false。 :=false。2. 編輯按鈕的代碼如下：（對(duì)原先錄入的數(shù)據(jù)進(jìn)行修改）procedure (Sender: TObject)。 :=false。 :=false。 :=false。 :=false。 :=true。 :=false。修改完后，點(diǎn)擊保存按鈕。房屋編號(hào)39。不能刪除該房屋資料，因?yàn)樵诜课莞犊钯Y料里有對(duì)它的記錄39。 exit。房屋編號(hào)39。不能刪除該房屋資料，因?yàn)樵诜课蒌N售付款安排資料里有對(duì)它的記錄39。 exit。,39。刪除數(shù)據(jù)失敗39。 end。begin if =true then begin messagebox(,39。,mb_iconinformation)。 樓盤樓房資料錄入模塊的設(shè)計(jì)該模塊能夠?qū)潜P（即我們平時(shí)所說(shuō)的小區(qū)）的詳細(xì)資料進(jìn)行管理，并提供對(duì)樓盤中所有樓房（即幾號(hào)樓或大廈）的資料進(jìn)行管理。圖55 樓房資料錄入模塊運(yùn)行結(jié)果 做好連接數(shù)據(jù)表的準(zhǔn)備（1）樓盤、樓房資料錄入模塊要訪問(wèn)數(shù)據(jù)庫(kù)中的兩個(gè)表，第一個(gè)表是樓房基本信息表，即f_house表。 它的Connection屬性設(shè)定為fdc_conn，它還有一個(gè)很重要的“CommandText”屬性需要設(shè)置，具體操作是：?jiǎn)螕魧傩缘摹啊?，彈出CommandText Editor：圖56 CommandText Editor窗口在編輯窗體的左邊指定表名“f_house”，在右邊的編輯框內(nèi)寫入“select * from f_house”，表示要訪問(wèn)表中的全部字段。訪問(wèn)2個(gè)數(shù)據(jù)表（f_house，f_build）的訪問(wèn)控件放置好后的dm窗體如圖57所示。1. 設(shè)計(jì)步驟（1）在系統(tǒng)中新建一個(gè)窗體，命名為house_houseform，Caption屬性為“樓房資料”。第6章 數(shù)據(jù)統(tǒng)計(jì)報(bào)表的設(shè)計(jì) 數(shù)據(jù)統(tǒng)計(jì)報(bào)表設(shè)計(jì)概述參考文獻(xiàn)[1]亞林. Delphi管理信息系統(tǒng)項(xiàng)目方案精解[M]. 北京：航空出版社，2006附錄