【文章內(nèi)容簡介】 ，在“Object Inspector”窗口中，單擊ConnectionString屬性右側(cè)的【…】按鈕。（4）單擊【Build】按鈕，在彈出的對話框中的“提供程序”選項卡中設(shè)置希望連接的數(shù)據(jù)。選擇“Microsoft OLE DB Provider for SQL Server”。（5）單擊【下一步】按鈕，在彈出的對話框中設(shè)置服務(wù)器名稱、用戶名稱、密碼。在服務(wù)器上選擇“物流管理系統(tǒng)”數(shù)據(jù)庫。（6）單擊【測試連接】如果連接成功則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。（7）在窗體中添加TADOQuery組件和TADODataSet組件，設(shè)置它們的Connection屬性為“ADOConn”。設(shè)置TADODataSet組件的CommandText屬性，例如設(shè)置DSOYHQX的CommandText屬性為“select * from”用戶表。（8）在窗體中添加TDataSource組件，分別設(shè)置它們的DataSet屬性，例如設(shè)置DSYHQX的DataSet屬性為“DSOYHQX”。 啟動窗體模塊設(shè)計設(shè)計啟動界面的思路很簡單，它的顯示時間是根據(jù)初始化的時間決定。在初始化之前顯示一個啟動畫面，然后進行初始化工作進行數(shù)據(jù)庫連接，最后把畫面釋放或者隱藏。啟動界面運行結(jié)果如圖7所示：圖7 系統(tǒng)啟動界面1．窗體設(shè)計步驟（1）創(chuàng)建一個新窗體，命名為“FRM_SC”，設(shè)置其Caption屬性為“啟動窗體”。（2）在“Standard”組件頁上點選“TLabel”組件，添加到窗體中，設(shè)置屬性如圖8所示。圖8 設(shè)置TLabel組件屬性（3）在“Additional”組件頁上點選“TImage”組件，添加到窗體中，命名為“Image1”，設(shè)置AutoSize屬性為“True”，通過Picture屬性為其指定圖標(biāo)，如圖9所示。 圖9 通過Picture屬性為TImage組件添加圖片2．程序相關(guān)代碼program WLGL。usesForms,SysUtils,Dialogs,{$R *.res}vartime1:Tdatetime。begin FRM_SC:=(nil)。 //創(chuàng)建啟動窗體。 。 //強制重繪啟動窗體time1:=now。 repeat until time1+StrToTime(‘00:00:1’)=now。 //初始化對象 := ‘’。 //主窗體標(biāo)題(TDM, DM)。 //動態(tài)創(chuàng)建數(shù)據(jù)模塊if not then //連接后臺數(shù)據(jù)庫beginShowMessage(‘連接后臺數(shù)據(jù)庫失敗，請檢查配置是否完好，數(shù)據(jù)庫是否存在’)。halt。 // 掛起end。(TFRM_MAIN,FRM_MAIN)。 //動態(tài)創(chuàng)建主窗體。 //隱藏啟動窗體 。 //釋放窗體資源(TFRM_LOGIN,FRM_LOGIN)。 //動態(tài)創(chuàng)建登錄窗體。 //顯示登錄窗體。 //釋放登錄錄窗體。 //執(zhí)行程序end. 系統(tǒng)登錄模塊設(shè)計程序啟動后，首先顯示啟動窗體并連接數(shù)據(jù)庫。連接數(shù)據(jù)庫成功，顯示系統(tǒng)登錄界面，驗證操作員及密碼。在系統(tǒng)登錄模塊中主要實現(xiàn)如下功能：選擇用戶；驗證操作員和密碼成功后，進入主界面；操作員錯誤或密碼錯誤提醒并返回錯誤點；輸入3次錯誤的密碼，自動退出系統(tǒng)，登錄窗體運行結(jié)果如圖10所示。圖10 系統(tǒng)登錄窗體運行結(jié)果1．窗體設(shè)計步驟（1）添加一個新窗體，命名為“FRM_LOGIN”，設(shè)置其Caption屬性為“登錄窗體”。（2）在“Additional”組件頁上點選“TImage”組件，添加到窗體中，命名為“Image1”，設(shè)置AutoSize屬性為“True”，通過Picture屬性為其指定圖標(biāo)。（3）在“Standard”組件頁上點選“TPanel”組件，添加到窗體中，命名為“Panel1”，設(shè)置Align屬性為“alClient”；設(shè)置BevelInner屬性為“bvLowered”。（4）在“Standard”組件頁上點選“TComboBox”組件，添加到窗體中，命名為“ComboBox1”，設(shè)置BevelKind屬性為“bkFlat”；設(shè)置Style屬性為“csDropDownList”，如圖11所示。 圖11 設(shè)置ComboBox1組件屬性（5）在“Standard”組件頁上點選“TEdit”組件，添加到窗體中，命名為“Edit1”，設(shè)置PasswordChar屬性為“*”。（6）在“Additional”組件頁上點選“SpeedButton”組件，添加到窗體中，設(shè)置Cursor屬性為“crHandPoint”；設(shè)置Flat屬性為“True”。2．程序相關(guān)代碼在窗體創(chuàng)建時打開數(shù)據(jù)庫中的表，代碼如下：procedure (Sender: TObject)。beginwith dobeginClose。(‘Select * from 用戶表’)。 //打開用戶表Open。 end。end。ComboBox1的DropDown事件主要用來提取數(shù)據(jù)庫中的所有用戶，代碼如下：procedure (Sender: TObject)。vari:integer。begin。if (0) then。for i:=0 to do //得到所有用戶名稱begin ((‘用戶名稱’).AsString)。end。end。當(dāng)觸發(fā)ComboBox1的Change事件時，將用戶名顯示在ComboBox1組件里，同時讓密碼編輯框獲得焦點，代碼如下：procedure (Sender: TObject)。begin(‘用戶名稱’, ,[])。 //查找用戶。 end。去除空字符，在Edit1的OnChange事件處理中加入如下代碼：procedure (Sender: TObject)。begin:=Trim()。 //利用trim函數(shù)去除輸入框中的空格end。單擊【確定】按鈕，進行用戶名和密碼判斷，并根據(jù)其用戶給予相應(yīng)權(quán)限，代碼如下：procedure (Sender: TObject)。begin Inc(iTimes)。 //用于記錄用戶密碼輸錯次數(shù):=(‘用戶編號’).AsString。:=(‘用戶名稱’).AsString。if =” then(‘沒有用戶存在，請預(yù)先設(shè)定好用戶！’,’提示’,4)。if (”) and (Trim()=(‘密碼’).AsString) thenbeginClose。:=’’。 //設(shè)置軟件版本號m:=True。 :=True。//其中代碼略去，詳情請參照隨書光盤:=True。 with FRM_MAIN dobegin //主菜單是否可用，取決于數(shù)據(jù)庫中預(yù)設(shè)的值:=(‘B1’).AsBoolean。//其中代碼略去，詳情請參照隨書光盤:=(‘B16’).AsBoolean。end。endelsebeginMessagebox(0,’用戶名或密碼錯誤，請重新輸入！’+1310+’并請確定您有進入的權(quán)限。’,”,MB_OK+MB_ICONSTOP)。:=”。end。IF iTimes=4 then //密碼輸錯4次退出系統(tǒng)begin(‘您進行系統(tǒng)身份確認(rèn)程序錯誤已經(jīng)超過3次，本系統(tǒng)將停止執(zhí)行！’,’提示！’,0)。 //結(jié)束程序end。end。在窗體的OnCreate事件中要進行數(shù)據(jù)庫連接，其余窗體的OnCreate事件中代碼類似。 公司基本信息模塊設(shè)計公司基本信息模塊窗體主要是對公司信息的編輯操作。單擊編輯，控件進入可編輯狀態(tài)，進行數(shù)據(jù)編輯。公司基本信息模塊運行結(jié)果如圖12所示。圖12 公司基本信息模塊1．窗體設(shè)計步驟（1）添加一個新窗體，命名為“FRM_GSJBXX”，設(shè)置其Caption屬性為“公司基本信息”；biMaximize、biMiniSize屬性為“False”；Position屬性為“poDesktopCenter”；BoderStyle屬性為“bsDialog”；Color屬性為“$00FF8888”。（2）在窗體上添加Label、Panel、Edit、ToolBar組件。（3）設(shè)置各主要組件對象的屬性，如表1所示。表1 主要組件對象的屬性列表對象名對象類型組件面板屬性值PanelTPanelStandardAlignalTopBevelOuterbvNoneEdit1TEditStandardReadOnlyTrueEnabledFalseToolBarTToolBarWind32ebLeftTrueebRightTrueebBottomTrueColor$00FFB99C2．程序相關(guān)代碼在窗體的OnShow事件處理中添加如下代碼：procedure (Sender: TObject)。begin if 0 then//如果數(shù)據(jù)表內(nèi)數(shù)據(jù)不為空時，