【正文】 [31]高春燕等 . Access數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 .機(jī)械工業(yè)出版社 ,2021。 [29]明日科技 .Visual Basic 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 .人民郵電出版社 ,2021。 [27]李艷等 .Visual basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 .人民郵電出版社 ,2021。 [25]張振坤等 .PoweBuilder 數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 .人民郵電出版社 ,2021。 [23]劉強(qiáng)等 .Delphi 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 .機(jī)械工業(yè)出版社 ,2021。 [21]李俊民等 .Visual Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 .機(jī)械工業(yè)出版社 ,2021。 [19]李楠等 .JSP工程應(yīng)用與項(xiàng)目實(shí)踐 .機(jī)械工業(yè)出版社 ,2021。 [17]李俊民等 .Visual Basic 工程應(yīng)用與項(xiàng)目實(shí)踐 .機(jī)械工業(yè)出版社 ,2021。 [15]王國(guó)輝等 .ASP數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 .機(jī)械工業(yè)出版社 ,2021。 [13]李文立等 .PowerBuilder 精彩編程 200例 .機(jī)械工業(yè)出版社 ,2021。 [11]張振坤等 .Power Builder 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 .機(jī)械工業(yè)出版社 ,2021。 [9]高春艷等 .Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 .機(jī)械工業(yè)出版社 ,2021。 [7] 劉友話(huà) ..Net環(huán)境下數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)技術(shù) [M].北京 :科學(xué)出版社 ,2021。 [5] 劉曉華 .精通 .NET核心技術(shù) [M].北京 :電子工業(yè)出版社 ,2021。 [3] James Design Patterns[M].北京 :電子工業(yè)出版社 ,2021。 參考文獻(xiàn) [1] Simon C[M].北京 :清華大學(xué)出版社 ,2021。 在接下來(lái)的時(shí)間里，我繼續(xù)對(duì)設(shè)計(jì)進(jìn)行優(yōu)化，包括界面的美觀，以及程序的設(shè)計(jì)。在經(jīng)過(guò)和老師的交流討論之后，我的設(shè)計(jì)也逐漸進(jìn)入了尾聲。在可以實(shí)現(xiàn)同一功能的多個(gè)控件中經(jīng)過(guò)仔細(xì)研究，確定了最優(yōu)的控件。我經(jīng)過(guò)反復(fù)的改正后，界面固定下來(lái)。 下一階段就到了編程階段了，在這個(gè)階段我們首先考慮的是界面，一個(gè)界面設(shè)計(jì)的好壞直接關(guān)系到使用者的方便程度，于是老師提出的要求就是實(shí)用。 到了數(shù)據(jù)庫(kù)設(shè)計(jì)階段，首先 選擇了 SQL Server 2021 作為數(shù)據(jù)庫(kù)管理系統(tǒng)。在最初的幾個(gè)星期里，我一直在做完善需求分析的重復(fù)工作。在初步了解的基礎(chǔ)上，我根據(jù)老師給予的關(guān)于 進(jìn)銷(xiāo)存管理 系統(tǒng)設(shè)計(jì)思路的講解，對(duì)系統(tǒng)進(jìn)行了詳細(xì)的需求分析。 總結(jié) 在這個(gè)軟件設(shè)計(jì)的最初，我即按照老師的要求一步一步往下做，努力作好需求分析。 :=grow。 。 //將 數(shù)據(jù)添加到單元格中 end。 if xh=2 then gcol:=gcol+1。 end。 break。39。 在彈出的信息提示窗體的【確定】按鈕單擊事件處理過(guò)程中將數(shù)據(jù)添加到TStringGrid 組件中。 。 //調(diào)用父類(lèi)的同名方法 (TF_kcspxz, F_kcspxz)。 代碼如下： procedure (Sender: TObject)。 end。 (sender)。 Open。select * from tb_warehouse_main39。 。 end。 Cells[9,0]:=39。 Cells[8,0]:=39。 Cells[7,0]:=39。 Cells[6,0]:=39。 Cells[5,0]:=39。 Cells[4,0]:=39。 Cells[3,0]:=39。 Cells[2,0]:=39。 //初始化為當(dāng)天日期 with do //設(shè)置列標(biāo)題 begin Cells[1,0]:=39。 :=1。代碼如下： procedure (Sender: TObject)。 （ 5）在窗體上添加 TADOQuery組件，命名為“ ADOQuery1”，設(shè)置其 Connection屬性為“ ”。 （ 4）在窗體上添加 TPanel 組件，命名為“ Panel1”，設(shè)置其 Caption 屬性為空。 （ 3）在窗體上添加 TSpeedButton 組件，通過(guò) Glyph 屬性為其指定圖標(biāo)。在“ Additional”組件頁(yè)中點(diǎn)選“ TStringGrid”組件，添加到窗體上，命名為“ StringGrid1”。 圖 516 進(jìn)貨單錄入模塊運(yùn)行界面 1．窗體設(shè)計(jì)步驟 （ 1）從基礎(chǔ)窗體繼承一個(gè)窗體，命名為“ F_jhd”，設(shè)置其 Caption 屬性為“進(jìn)貨單錄入”。 進(jìn)貨單錄入模塊 設(shè)計(jì) 進(jìn)貨單錄入窗體主要功能是錄入進(jìn)貨的相關(guān)信息，在該模塊中支持多行錄入，可以調(diào)用其他信息提示窗體。,strtoint(copy([0].AsString,2,5))+1)。+Formatfloat(39。,1) //格式化編號(hào) else spbh:=39。+formatfloat(39。 if =0 then spbh:=39。 getspbh 過(guò)程完整代碼如下： procedure (sender:Tobject)。 end。 end。 end else begin (sender)。lowerlimit39。).AsInteger)。 :=inttostr(fieldbyname(39。memo39。).AsString。 :=fieldbyname(39。produce39。).AsString。 :=fieldbyname(39。standard39。).AsString。 :=fieldbyname(39。name39。).AsString。 :=fieldbyname(39。fullnamed39。 begin inherited。 2．程序相關(guān)代碼 在窗體的 OnShow 事件處理過(guò)程 中如果為修改，將要修改的記錄顯示在窗體的編輯框中。 （ 4）在窗體上添加 TLabel 組件和 TEdit 組件，在“ Additional”組件頁(yè)中點(diǎn)選“ TBitBtn”組件，添加到窗體上，分別命名為“ BitBtn1”、“ BitBtn2”，設(shè)置 BitBtn1 組件的 Caption 屬性為“保存”，通過(guò) Glyph 屬性為其指定圖標(biāo)。在 GroupBox1 組件上添加 2 個(gè) TLabel 組件 和 2 個(gè) TEdit組件。 （ 2）在“ Additional”組件頁(yè)中點(diǎn)選“ TBevel”組件，為每一類(lèi)數(shù)據(jù)添加邊框。商品基本信息模塊運(yùn)行結(jié)果如圖 515 所 示。 //預(yù)覽報(bào)表 end。39。 begin inherited。 在【打印】按鈕的單擊事件處理過(guò)程中指定報(bào)表文件、預(yù)覽報(bào)表。 end。,mb_ok)。,39。 except (39。 //刷新 open。select * from tb_stock order by tradecode39。 。提示 39。是否刷新表？ 39。 end。%39。%39。a39。)。+39。+searchwhat+39。+39。 //寫(xiě) SQL語(yǔ)句 (39。select * from tb_stock 39。 。 end。 3: searchwhat:=39。 2: searchwhat:=39。 1: searchwhat:=39。 case of //設(shè)置要查找的字段 0: searchwhat:=39。 if =False then begin searchwhat:=39。 begin inherited。代碼如下： procedure (Sender: TObject)。 end。,mb_yesno)。,39。 except (39。提示39。是否 刪除當(dāng)前記錄？ 39。 begin inherited。 在【刪除】按鈕的單擊事件處理過(guò)程中當(dāng)用戶(hù)確認(rèn)刪除后刪除數(shù)據(jù)。 //顯示窗體 。 //調(diào)用父類(lèi)的同名方法 (TF_sbjbcx, F_sbjbcx)。代碼如下： procedure (Sender: TObject)。 end。 //排序 Open。Select * from tb_stock order by tradecode asc39。 。 change:=False。 //由于窗體是繼承自基窗體該代碼自動(dòng)生成。代碼如下： procedure (Sender: TObject)。設(shè)置 RvProject1 組件的 ProjectFile 屬性為制作的報(bào)表文 件。 （ 5）在“ Data Controls”組件頁(yè)中點(diǎn)選“ TDBGrid”組件，添加到窗體上，命名為“ DBGrid1”，設(shè)置其 Align 屬性為“ alClient”； DataSource 屬性為“ DataSource1”，雙擊 DBGrid1 組件，在彈出的列編輯器中設(shè)置字段標(biāo)題，如圖514 所示。在“ Data Access”組件頁(yè)中點(diǎn)選“ TDataSource”組件，添加到窗體上，命名為“ DataSource1”。點(diǎn)選 TComboBox 組件，在“ Object Inspector”窗口中，單擊 Items 屬性，在彈出的對(duì)話(huà)框中添加項(xiàng)目，如圖 513 所示。在 TPanel 組件上添加 TGroupBox 組件，設(shè)置其 Caption 屬性為“查詢(xún)條件”。右鍵單擊 TToolBar 組件，在彈出的菜單中選擇“ New Button”菜單項(xiàng)，并設(shè)置其 Style 屬性為“ tbsDivider”。 （ 2）在“ Win32”組件頁(yè)中點(diǎn)選“ TToolBar”組件，添加到窗體上。 圖 512 庫(kù)存商品模塊運(yùn)行界面 1．窗體設(shè)計(jì)步驟 （ 1）選擇 “ File” /“ New” /“ Other” 菜單項(xiàng)，打開(kāi) “ New Items” 對(duì)話(huà)框，選擇“ ima”選項(xiàng)卡 ，點(diǎn)選 “ F_base”選項(xiàng) ，以繼承方式使用該窗體。 庫(kù)存商品模塊設(shè)計(jì) 庫(kù)存商品模塊主要實(shí)現(xiàn)瀏覽、添加、修改、刪除、查詢(xún)、打印商品信息等功能。 圖 511 數(shù)據(jù)庫(kù)連接設(shè)置界面 （ 6）單擊【測(cè)試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫(kù)的連接。 圖 59 設(shè)置連接字符串界面 （ 4）單 擊【 Build】按鈕，在彈出的對(duì)話(huà)框中 “ 提供程序 ”選項(xiàng)卡 中 選擇希望連接的數(shù)據(jù) 所需的驅(qū)動(dòng)程序， 如圖 510 所示 。 TADOConnection 組件用于連接數(shù)據(jù)庫(kù)，其他數(shù)據(jù)庫(kù)組件通過(guò)它連接數(shù)據(jù)庫(kù)。 圖 58 數(shù)據(jù)模塊 1．?dāng)?shù)據(jù)模塊創(chuàng)建 （ 1）在 Delphi 中選擇“ File” /“ New” /“ Data Module”菜單項(xiàng)，新建一個(gè)數(shù)據(jù)模塊，命名為“ F_dm”。 數(shù)據(jù)模塊設(shè)計(jì) 數(shù)據(jù)模塊窗體主要功能是 統(tǒng)一管理數(shù)據(jù)組件。 begin if Key=13 then perform(WM_NEXTDLGCTL,0,0)。代碼如下： procedure (Sender: TObject。 圖 57 基礎(chǔ)窗體 1．基礎(chǔ)窗體設(shè)計(jì)步驟 添加一個(gè)新窗體，命名為“ F_base”，設(shè)置其 BorderStyle 屬性為“ bsDialog”；KeyPreview 屬性為“ True”。 基礎(chǔ)窗體創(chuàng)建 創(chuàng)建基礎(chǔ)窗體主要為了提高開(kāi)發(fā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能。 :=true。 :=75。 :=4。指定TCheckBox 組件的父對(duì)象并設(shè)置該組件的大小和位置。 //釋放窗體 end。