【文章內(nèi)容簡介】 塊進行相關(guān)操作， 新建窗體 form2 作為系統(tǒng)主界面的窗體，其界面布局效果圖如下所示。 窗體中使用的主控件及屬性設(shè)置如表所示。 控件類型 對象 屬性 屬性值 Tbutton Button_add_1 caption 添加 Tbutton Button_select_1 caption 查詢 TpageControl PageControl_Main Items 見表 TpageControl PageControl_SaleMangement Item 客戶信息 Tbutton Button_modify_1 caption 修改 Tlabel Label1 caption 客戶編號 Tedit Edit_Custom_id_1 caption — TADOQuery ADOQuery1 Connection 系統(tǒng)主界面的是設(shè)置整個系統(tǒng)的功能菜單，通過雙擊 PageControl_Main 控件可以進行菜單編輯。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 9 雙擊下面圖片中的 ADO。 選擇菜單中的 ConnectionString ...按鈕！ 出現(xiàn)對話框 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 10 單擊 Build， 選擇好數(shù)據(jù)源后測試，測試成功后便已經(jīng)連接成功！ 創(chuàng)建登錄對話框 在管理系統(tǒng)中，身份驗證是系統(tǒng)進入的必要步驟，新建 form1 作為登錄對話框，并設(shè)置標(biāo)題為“用戶登錄”，其界面如圖所示。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 11 我們?yōu)榱藢崿F(xiàn)密碼輸入三次錯誤將退出系統(tǒng)，用戶單擊“確定”按鈕觸發(fā) OnClicks 事件，函數(shù)進行用戶的驗證和狀態(tài)欄的設(shè)置，添加代碼如下： procedure (Sender: TObject)。 begin 。 。 (39。select User_name,User_password from User_password where User_name=39。39。39。++39。39。39。39。)。 。 :=(39。User_name39。).AsString。 if (39。User_password39。).Asstring = then begin :=true。 :=false。 end else begin if(i2) then begin 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 12 i:=i+1。 showmessage(39。密碼錯誤 ,請重新輸入 !39。)。 :=39。39。 end else begin showmessage(39。密碼輸錯 3 次，退出！ 39。)。 。 end。 end。 End。 系統(tǒng)查詢管理模塊主要用于顧客信息的查詢，添加、修改和刪除，模塊創(chuàng)建時將相關(guān)信息顯示到 DBGrid 中，而除 DBGrid 以外的控件內(nèi)容為空，用戶在這個控件中輸入數(shù)據(jù)，單擊“查詢”按鈕可將輸入添加到數(shù)據(jù)表中并顯示在 DBGrid 中。如果要對其他記錄進行修改和操作，只需要在 DBGrid 中選中記錄再執(zhí)行相關(guān)操作即可，具體設(shè)計和實現(xiàn)過程如下。 procedure (Sender: TObject)。 begin // if (=39。39。 )and (=39。39。) and (=39。39。) and (=39。39。)and (=39。39。)and (=39。39。) and(=39。39。)and (=39。39。) then Begin 。 。 (39。select* from Consign_plan 39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select* from Consign_plan where Consign_id like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 if 39。39。 then 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 13 begin 。 。 (39。select* from Consign_plan where Contract_id like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select* from Consign_plan where Custom_name like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select* from Consign_plan where Prod_name like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select* from Consign_plan where Prod_type like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select* from Consign_plan where Consign_data like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 14 if 39。39。 then begin 。 。 (39。select* from Consign_plan where Cancle_amont like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select* from Consign_plan where Operat_state like 39。39。%39。++39。%39。39。39。)。 :=39。39。 。 end。 end。 procedure (Sender: TObject)。 begin // if (=39。39。 )and (=39。39。)and(=39。39。) and (=39。39。)and (=39。39。)and (=39。39。) and (=39。39。)and (=39。39。)and (=39。39。)then begin 。 。 (39。select * from Sale_Invoice,Custom_Inf where =39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select * from Sale_Invoice,Custom_Inf where like 39。39。%39。++39。%39。39。 and 江南大學(xué)太湖學(xué)院數(shù)據(jù)庫課程設(shè)計 15 =39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select * from Sale_Invoice,Custom_Inf where like 39。39。%39。++39。%39。39。 and = 39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select * from Sale_Invoice,Custom_Inf where like 39。39。%39。++39。%39。39。 and = 39。)。 :=39。39。 。 end。 if 39。39。 then begin 。 。 (39。select * from Sale_Invoice,Custom_Inf where = like 39。39。%39。++39。%39。39。and =39。)。 :=39。39。 。 e