【正文】 :=statusbar1。 :=4。 :=Height4。 :=75。 :=Panels[0].Width+Panels[1].Width+Panels[2].Width+10。 :=true。 end。 基礎(chǔ)窗體創(chuàng)建創(chuàng)建基礎(chǔ)窗體主要為了提高開發(fā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能?；A(chǔ)窗體如圖57所示。圖57 基礎(chǔ)窗體1．基礎(chǔ)窗體設(shè)計步驟添加一個新窗體，命名為“F_base”，設(shè)置其BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。2．程序相關(guān)代碼在窗體的OnKeyPress事件處理過程中設(shè)置〈Enter〉鍵代替〈Tab〉鍵。代碼如下：procedure (Sender: TObject。 var Key: Char)。begin if Key=13 then perform(WM_NEXTDLGCTL,0,0)。end。 數(shù)據(jù)模塊設(shè)計數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)組件。數(shù)據(jù)模塊如圖58所示。圖58 數(shù)據(jù)模塊1．數(shù)據(jù)模塊創(chuàng)建（1）在Delphi中選擇“File”/“New”/“Data Module”菜單項，新建一個數(shù)據(jù)模塊，命名為“F_dm”。（2）在“ADO”組件頁中點選“TADOConnection”組件，添加到窗體上，命名為“ADOConnection1”。TADOConnection組件用于連接數(shù)據(jù)庫，其他數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。（3）點選ADOConnection1組件，在“Object Inspector”窗口中，單擊ConnectionString屬性右側(cè)的【…】按鈕，彈出對話框，如圖59所示。圖59 設(shè)置連接字符串界面（4）單擊【Build】按鈕，在彈出的對話框中 “提供程序”選項卡中選擇希望連接的數(shù)據(jù)所需的驅(qū)動程序，如圖510所示。圖510 驅(qū)動程序選擇界面（5）選擇“連接”選項卡，設(shè)置數(shù)據(jù)庫連接相關(guān)設(shè)置，如圖511所示。圖511 數(shù)據(jù)庫連接設(shè)置界面（6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。（7）在窗體上添加TADOQuery組件和TADOCommand組件，設(shè)置它們的Connection屬性為“ADOConnection1”。 庫存商品模塊設(shè)計庫存商品模塊主要實現(xiàn)瀏覽、添加、修改、刪除、查詢、打印商品信息等功能。庫存商品模塊運行結(jié)果如圖512所示。圖512 庫存商品模塊運行界面1．窗體設(shè)計步驟（1）選擇“File”/“New”/“Other”菜單項，打開“New Items”對話框，選擇“ima”選項卡，點選“F_base”選項，以繼承方式使用該窗體。單擊【OK】按鈕添加一個新窗體，命名為“F_kcsp”，設(shè)置Caption屬性為“庫存商品”。（2）在“Win32”組件頁中點選“TToolBar”組件，添加到窗體上。在該組件上添加TSpeedButton組件，在“Object Inspector”窗口中通過Caption屬性為其設(shè)置相應的文本，通過Glyph屬性為其指定圖標。右鍵單擊TToolBar組件，在彈出的菜單中選擇“New Button”菜單項，并設(shè)置其Style屬性為“tbsDivider”。（3）在窗體上添加TPanel組件，命名為“Panel1”，設(shè)置Align屬性為“alBottom”；Visable屬性為“False”。在TPanel組件上添加TGroupBox組件，設(shè)置其Caption屬性為“查詢條件”。在“Standard”組件頁中找到TLabel組件、TEdit組件和TComboBox組件，添加到TGroupBox組件上。點選TComboBox組件，在“Object Inspector”窗口中，單擊Items屬性，在彈出的對話框中添加項目，如圖513所示。圖513 添加項目界面（4）在“ADO”組件頁中點選“TADOQuery”組件，添加到窗體上，命名為“ADOQuery1”。在“Data Access”組件頁中點選“TDataSource”組件，添加到窗體上，命名為“DataSource1”。設(shè)置ADOQuery1組件的Connection屬性為“”；設(shè)置DataSource1組件的DataSet屬性為“ADOQuery1”。（5）在“Data Controls”組件頁中點選“TDBGrid”組件，添加到窗體上，命名為“DBGrid1”，設(shè)置其Align屬性為“alClient”；DataSource屬性為“DataSource1”，雙擊DBGrid1組件，在彈出的列編輯器中設(shè)置字段標題，如圖514所示。 圖514 為TDBGrid組件設(shè)置列標題（6）在“Rave”組件頁中點選“TRvDataSetConnection”組件、“TRvProject”組件，添加到窗體上，分別命名為“RvDataSetConnection1”、“RvProject1”，設(shè)置RvDataSetConnection1組件的DataSet屬性為“ADOQuery1”。設(shè)置RvProject1組件的ProjectFile屬性為制作的報表文件。2．程序相關(guān)代碼在窗體的OnShow事件處理過程中打開庫存商品表。代碼如下：procedure (Sender: TObject)。begin inherited。 //由于窗體是繼承自基窗體該代碼自動生成。意為調(diào)用父類的同名方法。 change:=False。 with adoquery1 do begin Close。 。 (39。Select * from tb_stock order by tradecode asc39。)。 //排序 Open。 end。end。在【添加】按鈕的單擊事件處理過程中動態(tài)創(chuàng)建添加庫存商品基本信息窗體。代碼如下：procedure (Sender: TObject)。begin inherited。 //調(diào)用父類的同名方法 (TF_sbjbcx, F_sbjbcx)。 //創(chuàng)建窗體 。 //顯示窗體 。 //釋放窗體end。在【刪除】按鈕的單擊事件處理過程中當用戶確認刪除后刪除數(shù)據(jù)。代碼如下：procedure (Sender: TObject)。begin inherited。 //調(diào)用父類的同名方法 try if (39。是否刪除當前記錄？39。,39。提示39。,mb_yesno)=id_yes then 。 except (39。不能刪除39。,39。提示39。,mb_yesno)。 end。end。在【查詢】按鈕的單擊事件處理過程中動態(tài)設(shè)置查詢條件。代碼如下：procedure (Sender: TObject)。var searchwhat:string。begin inherited。 //調(diào)用父類的同名方法 :=not()。 if =False then begin searchwhat:=39。39。 case of //設(shè)置要查找的字段 0: searchwhat:=39。tradecode39。 1: searchwhat:=39。fullnamed39。 2: searchwhat:=39。name39。 3: searchwhat:=39。shortcode39。 end。 try with ADoquery1 do begin Close。 。 (39。select * from tb_stock 39。)。 //寫SQL語句 (39。where 39。+39。39。+searchwhat+39。39。+39。 like :a order by tradecode39。)。 (39。a39。).Value:=39。%39。+Trim()+39。%39。 open。 end。 if (39。是否刷新表？39。,39。提示39。,mb_yesno)=Id_yes then with ADoquery1 do begin Close。 。 (39。select * from tb_stock order by tradecode39。)。 //刷新 open。 end。 except (39。請正確輸入條件39。,39。提示39。,mb_ok)。 end。 end。end。在【打印】按鈕的單擊事件處理過程中指定報表文件、預覽報表。代碼如下：procedure (Sender: TObject)。begin inherited。 //調(diào)用父類的同名方法 //指定報表文件 :=ExtractFilePath()+39。39。 。 //預覽報表end。 商品基本信息模塊設(shè)計商品基本信息模塊主要功