【文章內(nèi)容簡介】 為“ DATABASE”。 （ 2）在“ ADO”組件頁中點選“ TADOConnection”組件， 添加到窗體上，命名為“ ADOConnection1”。 TADOConnection 組件用于連接數(shù)據(jù)庫，其他數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。 （ 3）單擊 ADOConnection1 組件，在“ Object Inspector”窗口中，單擊 ConnectionString 屬性右側的 【 … 】按鈕，彈出對話框如圖 10 所示。 圖 10 設置連接字符串 （ 4）單擊【 Build】按鈕，在彈出的對話框中的“提供程序”選項卡中設置希望連接的數(shù)據(jù)，如圖 11 所示。 – 10 – 圖 11 選擇驅(qū)動程序 （ 5）選擇“連接”選項卡，設置連接的相關設置，如圖 12 所示。 圖 12 數(shù)據(jù)庫連接設置 （ 6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。 （ 7）在窗體上添加 TADOQuery 組件，設置它們的 Connection 屬性為“ ADOConnection1”。 登錄模塊主要是通過輸入正確的操作員名稱、密碼和操作員級別進入主窗體，如圖 13 所示。 – 11 – 圖 13 登錄模塊運行結果 1．窗體設計步驟 （ 1）選擇“ File” /“ New” /“ Form”菜單項，新建一個窗體，命名窗體為“ FRM_YHDL”，設置 Caption 屬性為“ 登錄 ”； BorderStyle 屬性為“ bsNone”； Position 屬性為“ poScreenCenter”，如圖 14 所示。 圖 14 登錄窗體屬性 （ 2）在“ Standard”組件頁中點選“ TLabel” 組件，在窗體上添加 3 個 TLabel 組件，分別命名為“ Label1”、“ Label2”、“ Label3”，分別設置 Caption 屬性為“操作員名稱：”、“密碼：”、“操作員級別：”。將所有 TLabel 組件的 Transparent 屬性設為“ True”。 （ 3）在“ Standard”組件頁中點選“ TEdit” 組件，在窗體上添加 2 個 TEdit 組件，分別命名為“ Edit1”、“ Edit2”，設置 Edit2 組件的 PassWordChar 屬性為“ *”。 （ 4）在“ Standard”組件 頁中點選“ TConboBox” 組件，添加到窗體上，命名為“ Combobox1”，單擊 Items 屬性右側的【 … 】按鈕，彈出編輯器，在編輯器中輸入“ 普通用戶 ”、“ 高級用戶 ”，如圖 15 所示。 – 12 – 圖 15 Items 編輯器 （ 5）在“ Additional”組件頁中點選“ TBitBtn” 組件，在窗體上添加 2 個 TBitBtn 組件，分別命名為“ BitBtn1”、“ BitBtn2” 。分別設置 Caption 屬性為“確定”、“取消”。 2．程序相關代碼 在窗體顯示時，先通過變量 jj 來判斷登錄窗體的窗體名是“登錄”還是“ 重新登 錄 ”，然后創(chuàng)建 .ini 文件，將窗體名和當前日期賦給 .ini 文件。窗體的 OnShow 事件代碼如下： procedure (Sender: TObject)。 var ini : Tinifile。 ssp : string。 begin if jj = 1 then //如果 jj=1，則為重新登錄 begin ssp := 39。重新登錄 39。 := 39。重新登錄 39。 //使窗體名為重新登錄 end else begin dl := 0。 ssp := 39。登錄 39。 := 39。登錄 39。 //使窗體名為登錄 end。 ini:=(39。c:\39。)。 //創(chuàng)建 ini文件 (39。one39。,datetimetostr(now),ssp)。 //在 ini文件中添加時間和窗體名稱 – 13 – 。 //釋放 ini文件 。 //清空 edit1組件 。 //清空 edit2組件 := 39。39。 //使 bobox1組件的 Text屬性為空 。 //將光標移到 edit1組件上 end。 在【確定】按鈕的 OnClick 事件處理過程中，連接操作員數(shù)據(jù)庫，并按操作員名稱、密碼和級別進行查詢，如果有記錄則把操作員的權限賦給數(shù)組 a[]，然后通過變量 jj 來判斷是“登錄”還是“重新登錄”，如果是“登錄”只能登錄 3 次， 否則將無限制。其代碼如下： procedure (Sender: TObject)。 vAR P:INTEGER。 begin with do //連接數(shù)據(jù)庫的操作員表并按操作員名稱、密碼和級別查詢 begin close。 。 (39。select * from tb_user where user_name=:a and user_mm=:b and user_yhjs=:c39。)。 (39。a39。).Value := Trim()。 //將操作員名稱賦給變量 a (39。b39。).Value := Trim()。 //將操密碼賦給變量 b (39。c39。).Value := Trim()。 //將級別賦給變量 c open。 end。 if 0 then //如果有記錄 begin yhmc := (39。user_name39。).AsString。 //將操作員名稱賦給變量 yhmc for p := 1 to 31 do //將操作員的權限賦給數(shù)組 a[] begin ppl := inttostr(p)。 a[p] := booltostr((ppl).AsVariant,True)。 end。 if jj = 1 then //如果為 1則為重新登錄，將新操作員名稱賦給主界面的工具欄 begin 。 [1].Text := 39。操作員名稱： 39。+yhmc。 end else begin 。 //關閉當前窗 體 end。 – 14 – end else begin showmessage(39。操作員名稱、密碼或操作員級別不正確 39。+13+39。請重新輸入。 39。)。 。 。 := 39。39。 dl := dl+1。 end。 if jj 1 then begin if dl = 4 then begin 。 //關閉本系統(tǒng) end。 end。 end。 在【退出】按鈕的 OnClick 事件處理過程中，如果是重新登錄則退出本窗體，如果是登錄則退出本系統(tǒng)。其代碼如下： procedure (Sender: TObject)。 begin if jj = 1 then //關閉當前窗體 ELSE 。 //關閉本系統(tǒng) end。 客戶信息模塊 客戶信息模塊主要是添加、修改 、刪除、查詢客戶信息。客戶信息模塊運行結果如圖 16 所示。 – 15 – 圖 16 客戶信息模塊運行結果 1．窗體設計步驟 （ 1）選擇“ File” /“ New” /“ Form”菜單項，新建一個窗體，命名窗體為“ FRM_KHXX”，設置 Caption 屬性為“ 客戶信息 ”。 （ 2）在“ Win32”組件頁中點選“ TImageList”組件，添加到窗體上。在“ Standard” 組件頁中點選“ TImagelist”組件，添加到窗體上。在“ Standard” 組件頁中點選“ TPanel”組件，添加到窗體上。在該組件上添加 TToolBar 組 件，在 TToolBar 組件上單擊右鍵，在彈出的菜單中選擇“ New ButTin”菜單項，添加工具欄按鈕 。 選中新添加的工具欄按鈕，設置相關屬性，如圖 17所示。 圖 17 工具欄按鈕屬性 （ 3）在“ Data Access”組件頁中點選“ TDataSource”組件，添加到窗體上 。 在“ Win32”組 – 16 – 件頁中點選“ TPageControl” 組件，添加到窗體上。在“ Standard” 組件頁中點選“ TPanel”組件，添加到 TabSheet1 頁中 ，設置屬性，如圖 18 所示。 圖 18 Panel1 屬性 （ 4）在“ Standard” 組件頁中點選“ TLabel”組件，在 Panel1 組件上添加 21 個 。在“ Data Controls”組件頁中點選“ TDBEdit”組件，在 Panel1 組件上添加 14