【文章內(nèi)容簡介】 出，具體的代碼請參見程序設(shè)計(jì)部分。同時要在主窗口的代碼編輯窗口的public處設(shè)立如下變量，以備后用：public modelr,buildlr,lr,emplr,sale,gather,plan,payreturn, saler,house,custpay,cust,custfx,user1,databack:boolean。 name:string。 username:string。 數(shù)據(jù)模塊設(shè)計(jì)在Delphi的數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)中，數(shù)據(jù)庫與SQL Server 服務(wù)器的連接是通過數(shù)據(jù)模塊（Data Module）來實(shí)現(xiàn)的。從菜單“File” | “New” | “Other” ，彈出選擇“Data Module”模版窗口，從該窗體中點(diǎn)選Data Module 項(xiàng)，如圖312所示。點(diǎn)選Data Module 選擇DataModule窗體窗體名：dm。單元文件名：。Caption：dm。記?。褐鞔绑w和接下來完成的登錄窗體都要‘“Uses ”!在新生成的Data Module窗體中，從“ADO”組件頁中拖放連接數(shù)據(jù)庫的“Connection” 組件，將其Name屬性設(shè)為“fdc_conn”，再從“DataAceess”頁中拖放一個“DataSource”控件將其Name屬性設(shè)為“dsuser”，并給數(shù)據(jù)模版（窗體）命名為“dm” ，單元文件保存為：“” 。設(shè)計(jì)好的數(shù)據(jù)模塊如圖313所示。這些是登錄頁面訪問f_User表所需的控件DataSource控件 DataModule窗體中的連接控件我們采用ADO數(shù)據(jù)庫連接技術(shù)。設(shè)置fdc_conn控件的Connection屬性。按下圖首先選擇提供程序“Microsoft OLE DB for SQL Server”，然后按右邊所謂圖示填寫數(shù)據(jù)庫所在的服務(wù)器名和將要連接的數(shù)據(jù)庫“FDC”，最后確認(rèn)數(shù)據(jù)庫連接成功。要連接的數(shù)據(jù)庫名選擇服務(wù)器選擇提供程序 fdc_conn控件的Connection屬性 數(shù)據(jù)庫連接成功接下來在“dm”窗體中逐次添加以下數(shù)據(jù)控件：1) userdataSet 控件屬性設(shè)置：? Connection 198。 fdc_conn? CommandText 198。 點(diǎn)擊 后面的…，彈出下面的編輯窗體：選擇左邊的f_user表后，在這里書寫select *from f_user 代碼2) usertable 控件，這是ADO頁的表控件，取名為：usertableUsertable的屬性設(shè)置： 要連接到fdc_conn控件 要指定它要訪問的數(shù)據(jù)表：f_user表。4）duser控件，這是一個datasource 控件，與usertable配套使用。duser控件的屬性設(shè)置：指定它的DataSet5) duserdataset 這是一個DataSource控件（在DataAccess頁），取名為duserdataset，表示與前一個userdataset控件配套使用。duserdataset屬性設(shè)置：指定它的DataSet 屬性6) 另外放了兩個控件，這是查詢用的，其中控件要設(shè)置Connection屬性：，DataSource1沒有屬性設(shè)置。注意：該Datamodule 即dm 窗體沒有事件， 中不用編寫代碼。第4章 登錄模塊設(shè)計(jì) 登錄模塊的窗體設(shè)計(jì)程序的啟動畫面消失后，將彈出登錄窗體，用戶通過輸入用戶名和密碼就可以進(jìn)入系統(tǒng)，然后根據(jù)用戶權(quán)限打開相應(yīng)的模塊。用戶登錄的作用是保護(hù)應(yīng)用程序中的相關(guān)資料，以防止無關(guān)人員對程序信息的肆意破壞。當(dāng)進(jìn)入程序后，用戶只能根據(jù)用戶擁有的權(quán)限對程序中的相關(guān)模塊進(jìn)行相應(yīng)的操作。為了防止無關(guān)人員在數(shù)據(jù)庫中獲取用戶信息，而對應(yīng)用程序進(jìn)行操作，可以先對用戶名和密碼進(jìn)行再加密后存入數(shù)據(jù)庫中，這樣用戶名和密碼就不太容易被盜取，使應(yīng)用程序變得更加安全。當(dāng)沒有輸入用戶名和密碼時，程序會提示“請輸入正確的用戶名和密碼”，當(dāng)用戶名或，密碼錯誤時，系統(tǒng)會提示：“對不起，沒有這個用戶名”或“密碼錯誤”，系統(tǒng)重新回到登錄窗口。一個用戶最多允許輸入三次用戶名和密碼，超過三次，系統(tǒng)將退出。 登錄窗口樣式 登錄窗體的一般樣式如圖41。 登錄窗體布局圖窗體中的控件及其名稱：窗體中用到的圖片要事先準(zhǔn)備好，保存在工程文件的根目錄下。要注意的是，用戶名后面的輸入框采用的控件是位于DataControls頁的DBLookupCombobox1。用它可以從下拉列表框中選擇已經(jīng)保存在User數(shù)據(jù)表中的用戶，不必每次輸入用戶名。讀取User表中的“用戶名稱”字段DBLookupCombobox1的屬性設(shè)置圖42所示：數(shù)據(jù)模塊中的一個名為“dsuser”的Datasource控件 外形設(shè)置 設(shè)置DBLookupCombobox1控件的屬性 登錄模塊的數(shù)據(jù)控件登錄窗體中輸入用戶名和密碼之后，點(diǎn)擊鍵，程序代碼就去訪問“” 數(shù)據(jù)庫中的“ User” 數(shù)據(jù)表，通過函數(shù)（）將輸入的用戶名和密碼與User 表中保存的數(shù)據(jù)是否一致。如果一致，程序就打開主窗體，供登錄者進(jìn)行所需的操作；否則會彈出提示框，要你輸入正確的用戶名和密碼，而且最多只能連續(xù)輸入三次，若三次都不成功，那么程序就退出。為了能夠?qū)崿F(xiàn)這些功能，我們必須在數(shù)據(jù)模塊（DataModule）中放置如下數(shù)據(jù)控件：DataSource控件它的DataSet屬性：UserDataSet ADODataSet控件它的CommandText屬性：select * from f_user表控件，它的TableName屬性：f_user圖43 為登錄窗體訪問數(shù)據(jù)庫要求的數(shù)據(jù)控件登錄系統(tǒng)時既要檢查用戶名是否存在，還要驗(yàn)證密碼是否正確，而且還要獲取用戶的權(quán)限供后面窗體調(diào)用。用戶名、密碼和用戶權(quán)限存儲在f_user表中，字段名有用戶編號、用戶名稱、和用戶密碼以及用戶權(quán)限等多項(xiàng)，參見圖44：代表用戶有權(quán)進(jìn)行房型錄入操作圖44 登錄用的用戶表 登錄模塊代碼設(shè)計(jì)登錄模塊的主要程序代碼如下：unit loginunit。private { Private declarations } public times:integer。 //設(shè)置一個計(jì)算登錄次數(shù)的參數(shù) { Public declarations } end。var loginform: Tloginform。implementationuses dmunit, mainunit。 //登錄窗口要與數(shù)據(jù)模塊窗體和主窗體相關(guān)聯(lián){$R *.dfm}procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 //當(dāng)點(diǎn)擊用戶名輸入框時執(zhí)行的動作begin if key=13 then //按下回車鍵 。end。procedure (Sender: TObject)。begin :=clcream。end。procedure (Sender: TObject)。begin :=clskyblue。end。procedure (Sender: TObject)。begin :=clcream。 //Edit1是密碼輸入框end。procedure (Sender: TObject)。begin :=clskyblue。end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if key=13 then 。end。procedure (Sender: TObject)。 //按下鍵begin if =0 then begin :=39。超級用戶39。 [1].Text:=39。操作員: 39。+。 :=true。主窗體的狀態(tài)條 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。主窗體中的那些菜單因?yàn)榈卿浀氖恰俺売脩簟彼械牟藛味际强刹僮鞯? :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=false。 close。 end else begin if trim([39。用戶密碼39。]) then