【正文】 : TObject。begin if Key=13 then perform(WM_NEXTDLGCTL,0,0)。 數(shù)據(jù)模塊設計數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)組件。圖58 數(shù)據(jù)模塊1．數(shù)據(jù)模塊創(chuàng)建（1）在Delphi中選擇“File”/“New”/“Data Module”菜單項，新建一個數(shù)據(jù)模塊，命名為“F_dm”。TADOConnection組件用于連接數(shù)據(jù)庫，其他數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。圖59 設置連接字符串界面（4）單擊【Build】按鈕，在彈出的對話框中 “提供程序”選項卡中選擇希望連接的數(shù)據(jù)所需的驅動程序，如圖510所示。圖511 數(shù)據(jù)庫連接設置界面（6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。 庫存商品模塊設計庫存商品模塊主要實現(xiàn)瀏覽、添加、修改、刪除、查詢、打印商品信息等功能。圖512 庫存商品模塊運行界面1．窗體設計步驟（1）選擇“File”/“New”/“Other”菜單項，打開“New Items”對話框，選擇“ima”選項卡，點選“F_base”選項，以繼承方式使用該窗體。（2）在“Win32”組件頁中點選“TToolBar”組件，添加到窗體上。右鍵單擊TToolBar組件，在彈出的菜單中選擇“New Button”菜單項，并設置其Style屬性為“tbsDivider”。在TPanel組件上添加TGroupBox組件，設置其Caption屬性為“查詢條件”。點選TComboBox組件，在“Object Inspector”窗口中，單擊Items屬性，在彈出的對話框中添加項目，如圖513所示。在“Data Access”組件頁中點選“TDataSource”組件，添加到窗體上，命名為“DataSource1”。（5）在“Data Controls”組件頁中點選“TDBGrid”組件，添加到窗體上，命名為“DBGrid1”，設置其Align屬性為“alClient”；DataSource屬性為“DataSource1”，雙擊DBGrid1組件，在彈出的列編輯器中設置字段標題，如圖514所示。設置RvProject1組件的ProjectFile屬性為制作的報表文件。代碼如下：procedure (Sender: TObject)。 //由于窗體是繼承自基窗體該代碼自動生成。 change:=False。 。Select * from tb_stock order by tradecode asc39。 //排序 Open。end。代碼如下：procedure (Sender: TObject)。 //調用父類的同名方法 (TF_sbjbcx, F_sbjbcx)。 //顯示窗體 。在【刪除】按鈕的單擊事件處理過程中當用戶確認刪除后刪除數(shù)據(jù)。begin inherited。是否刪除當前記錄？39。提示39。 except (39。,39。,mb_yesno)。end。代碼如下：procedure (Sender: TObject)。begin inherited。 if =False then begin searchwhat:=39。 case of //設置要查找的字段 0: searchwhat:=39。 1: searchwhat:=39。 2: searchwhat:=39。 3: searchwhat:=39。 end。 。select * from tb_stock 39。 //寫SQL語句 (39。+39。+searchwhat+39。+39。)。a39。%39。%39。 end。是否刷新表？39。提示39。 。select * from tb_stock order by tradecode39。 //刷新 open。 except (39。,39。,mb_ok)。 end。在【打印】按鈕的單擊事件處理過程中指定報表文件、預覽報表。begin inherited。39。 //預覽報表end。商品基本信息模塊運行結果如圖515所示。（2）在“Additional”組件頁中點選“TBevel”組件，為每一類數(shù)據(jù)添加邊框。在GroupBox1組件上添加2個TLabel組件和2個TEdit組件。（4）在窗體上添加TLabel組件和TEdit組件，在“Additional”組件頁中點選“TBitBtn”組件，添加到窗體上，分別命名為“BitBtn1”、“BitBtn2”，設置BitBtn1組件的Caption屬性為“保存”，通過Glyph屬性為其指定圖標。2．程序相關代碼在窗體的OnShow事件處理過程中如果為修改，將要修改的記錄顯示在窗體的編輯框中。begin inherited。fullnamed39。 :=fieldbyname(39。).AsString。name39。 :=fieldbyname(39。).AsString。standard39。 :=fieldbyname(39。).AsString。produce39。 :=fieldbyname(39。).AsString。memo39。 :=inttostr(fieldbyname(39。).AsInteger)。lowerlimit39。 end else begin (sender)。 end。end。getspbh過程完整代碼如下：procedure (sender:Tobject)。 if =0 then spbh:=39。+formatfloat(39。,1) //格式化編號 else spbh:=39。+Formatfloat(39。,strtoint(copy([0].AsString,2,5))+1)。 進貨單錄入模塊設計進貨單錄入窗體主要功能是錄入進貨的相關信息，在該模塊中支持多行錄入，可以調用其他信息提示窗體。圖516 進貨單錄入模塊運行界面1．窗體設計步驟（1）從基礎窗體繼承一個窗體，命名為“F_jhd”，設置其Caption屬性為“進貨單錄入”。在“Additional”組件頁中點選“TStringGrid”組件，添加到窗體上，命名為“StringGrid1”。（3）在窗體上添加TSpeedButton組件，通過Glyph屬性為其指定圖標。（4）在窗體上添加TPanel組件，命名為“Panel1”，設置其Caption屬性為空。（5）在窗體上添加TADOQuery組件，命名為“ADOQuery1”，設置其Connection屬性為“”。代碼如下：procedure (Sender: TObject)。 :=1。 //初始化為當天日期 with do //設置列標題 begin Cells[1,0]:=39。 Cells[2,0]:=39。 Cells[3,0]:=39。 Cells[4,0]:=39。 Cells[5,0]:=39。 Cells[6,0]:=39。 Cells[7,0]:=39。 Cells[8,0]:=39。 Cells[9,0]:=39。 end。 。select * from tb_warehouse_main39。 Open。 (sender)。end。代碼如下：procedure (Sender: TObject)。 //調用父類的同名方法 (TF_kcspxz, F_kcspxz)。 。在彈出的信息提示窗體的【確定】按鈕單擊事件處理過程中將數(shù)據(jù)添加到TStringGrid組件中。39。 break。 end。 if xh=2 then gcol:=gcol+1。 //將數(shù)據(jù)添加到單元格中 end。 。 :=grow。 總結在這個軟件設計的最初，我即按照老師的要求一步一步往下做，努力作好需求分析。在初步了解的基礎上，我根據(jù)老師給予的關于進銷存管理系統(tǒng)設計思路的講解，對系統(tǒng)進行了詳細的需求分析。在最初的幾個星期里，我一直在做完善需求分析的重復工作。到了數(shù)據(jù)庫設計階段，首先選擇了SQL Server 2005作為數(shù)據(jù)庫管理系統(tǒng)。下一階段就到了編程階段了，在這個階段我們首先考慮的是界面，一個界面設計的好壞直接關系到使用者的方便程度，于是老師提出的要求就是實用。我經過反復的改正后，界面固定下來。在可以實現(xiàn)同一功能的多個控件中經過仔細研究，確定了最優(yōu)的控件。在經過和老師的交流討論之后，我的設計也逐漸進入了尾聲。在接下來的時間里，我繼續(xù)對設計進行優(yōu)化，包括界面的美觀，以及程序的設計。出品人：林康禁、巫茂森、楊智雄