【正文】 [16]趙智勇等 .Delphi工程應(yīng)用與項目實踐 .機械工業(yè)出版社 ,2021。 [14]董韶華等 .Visual FoxPro 精彩編程 200例 .機械工業(yè)出版社 ,2021。 [12]鄭驍鵬等 .Delphi數(shù)據(jù)庫開發(fā)實例解析 .機械工業(yè)出版社 ,2021。 [10]王國輝等 .Visual FoxPro 數(shù)據(jù)庫開發(fā)實例解析 .機械工業(yè)出版社 ,2021。 [8]賽奎春等 .Visual Basic 精彩編程 200例 .機械工業(yè)出版社 ,2021。 [6] 狄龍 (Darin Dillon)..NET 開發(fā)人員調(diào)試策略 [M].北京 :清華大學(xué)出版社 ,2021。 [4] Richard Network Programming[M].北京 :電子工業(yè)出版社 ,2021。 [2] Jeffrey .NET 框架程序設(shè)計 [M].北京 :機械工業(yè)出版社 ,2021。在嚴(yán)格的測試后，逐漸使系統(tǒng)不再出現(xiàn)大的錯誤 ,能夠很穩(wěn)定的運行。這樣，我的設(shè)計就基本上完成了。這樣在老師的要求和幫助下，我的界面逐漸得以完善并最終確定下來，到了真正編寫代碼的時候，我在需求分析做的努力逐漸顯示出來，因為在這個過程中，我?guī)缀鯖]有遇到什么十分棘手的問題，各項功能也隨之增加。然后就進(jìn)入編寫程序階段，在編程過程中，我借鑒了很多資料，同時也請教了其他有經(jīng)驗的同學(xué)。在實用的基礎(chǔ) 上盡量美觀大方。因為我 所 需要的數(shù)據(jù)庫 是比較 復(fù)雜 的 ，經(jīng)過一段時間的努力，我 的 數(shù)據(jù)庫建立成功了。這樣就為下一步的設(shè)計打下了堅實的基礎(chǔ)。這樣就使我對于系統(tǒng)的開發(fā)有了一個大致的思路。因為在軟件的開發(fā)過程中需求分析是十分重要的。 end。 :=7。 [8,grow]:=[8].Value。 [xh+1,grow]:=[gcol].Value。 for xh:=0 to do //將數(shù)據(jù)庫的數(shù)據(jù)讀出 begin gcol:=xh。 end。 then //查找第幾行為空 begin grow:=xh。代碼如下： if =1 then //往進(jìn)貨單錄入窗體添加數(shù)據(jù) begin for xh:=1 to do begin if Trim([1,xh])=39。 end。 。 begin inherited。 雙擊 TStringGrid 組件左側(cè)的按鈕動態(tài)創(chuàng)建信息提示窗體。 //調(diào)用過程 getspbh取得編 號 :=spbh。 end。)。 (39。 with adoquery1 do begin close。金額 39。進(jìn)貨價 39。數(shù)量 39。產(chǎn)地 39。單位 39。商品規(guī)格 39。商品型號 39。商品全稱 39。商品編號 39。 //窗體標(biāo)記 :=now()。 begin inherited。 2．程序相關(guān)代碼 在窗體的 OnShow 事件處理過程中初始化相關(guān)信息。用于顯示統(tǒng)計應(yīng)付金額。添加 TBitBtn 組件，用于完成“保存”、“取消”功能。設(shè)置 StringGrid1 組件的 RowCount 屬性為“ 10”；ColCount 屬性為“ 10”。 （ 2）在窗體上添加 TLabel 組件、 TEdit 組件、 TDateTimePicker 組件，用于輸入信息。進(jìn)貨單錄入模塊運行結(jié)果如圖 516 所示。 end。0000039。T39。0000039。T39。 //得到商品編號 begin 。 調(diào)用 getspbh 過程得到商品編號。 except end。 //如果為添加操作調(diào)用過程 getspbh得到編號 :=。).AsInteger)。 :=inttostr(fieldbyname(39。upperlimit39。).AsString。 :=fieldbyname(39。provideinf39。).AsString。 :=fieldbyname(39。unit39。).AsString。 :=fieldbyname(39。type39。).AsString。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 :=fieldbyname(39。tradecode39。).AsString。 //調(diào)用父類的同名方法 try if =True then //判斷是否為修改 with do begin :=fieldbyname(39。代碼如下： procedure (Sender: TObject)。設(shè)置 BitBtn2 組件的 Caption 屬性為“退出”，通過 Glyph 屬性為其指定圖標(biāo)。分別設(shè)置 TLabel 組件的 Caption 屬性為“商品報警上限：”、“商品報警下限：”。 （ 3）在“ Additional”組件頁中點選“ TGroupBox”組件，添加到窗體上，命名為“ GroupBox1”，設(shè)置其 Caption 屬性為“輸入報警值 請輸入大于 0的數(shù) 0 為不報警”。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 515 商品基本信息模塊運行界面 1．窗體設(shè)計步驟 （ 1）從基礎(chǔ)窗體繼承一個窗體，命名為“ F_sbjbcx”，設(shè)置其 Caption 屬性為“商品基本信息”。 商品基本信息模塊設(shè)計 商品基本信息模塊主要功能是錄入商品基本信息，便于其他窗體使用，在該模塊中可以設(shè)置商品的報警上下限。 。 //調(diào)用父類的同名方法 //指定報表文件 :=ExtractFilePath()+39。代碼如下： procedure (Sender: TObject)。 end。 end。提示 39。請正確輸入條件 39。 end。)。 (39。,mb_yesno)=Id_yes then with ADoquery1 do begin Close。,39。 if (39。 open。+Trim()+39。).Value:=39。 (39。 like :a order by tradecode39。39。39。where 39。)。 (39。 try with ADoquery1 do begin Close。shortcode39。name39。fullnamed39。tradecode39。39。 //調(diào)用父類的同名方法 :=not()。 var searchwhat:string。 在【查詢】按鈕的 單擊事件處理過程中動態(tài)設(shè)置查詢條件。 end。提示 39。不能刪除 39。,mb_yesno)=id_yes then 。,39。 //調(diào)用父類的同名方法 try if (39。代碼如下： procedure (Sender: TObject)。 //釋放窗體 end。 //創(chuàng)建窗體 。 begin inherited。 在【添加】按鈕的單擊事件處理過程中動態(tài)創(chuàng)建添加庫存商品基本信息窗體。 end。)。 (39。 with adoquery1 do begin Close。意為調(diào)用父類 的同名方法。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 begin inherited。 2．程序相關(guān)代碼 在窗體的 OnShow 事件處理過程中打開庫存商品表。 圖 514 為 TDBGrid 組件設(shè)置列標(biāo)題 （ 6 ）在 “Rave” 組 件 頁 中 點 選 “TRvDataSetConnection” 組件、“TRvProject” 組件，添加到窗體上，分別命名為 “ RvDataSetConnection1” 、“RvProject1” ，設(shè)置 RvDataSetConnection1 組 件 的 DataSet 屬性為“ADOQuery1” 。設(shè)置 ADOQuery1 組件的 Connection 屬性為“ ”； 設(shè) 置 DataSource1 組 件 的 DataSet 屬 性為“ ADOQuery1”。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 513 添加項目界面 （ 4）在“ ADO”組件頁中點選“ TADOQuery”組件，添加到窗體上，命名為“ ADOQuery1”。在“ Standard”組件頁中找到 TLabel 組件、TEdit 組件和 TComboBox 組件，添加到 TGroupBox 組件上。 （ 3）在窗體上添加 TPanel 組件，命名為“ Panel1”，設(shè)置 Align 屬性為“ alBottom”； Visable 屬性為“ False”。在該組件上添加 TSpeedButton 組件，在“ Object Inspector”窗口中通過 Caption 屬性為其設(shè)置相應(yīng)的文本，通過 Glyph 屬性為其指定圖標(biāo) 。單擊【 OK】按鈕添加一個新窗體，命名為 “ F_kcsp” ，設(shè)置 Caption 屬性為 “ 庫存商品 ” 。庫存商品模塊運行結(jié)果如圖 512 所示。 （ 7）在窗體上添加 TADOQuery 組件和 TADOCommand 組件，設(shè)置它們的Connection 屬性為 “ ADOConnection1” 。 圖 510 驅(qū)動程序選擇界面 （ 5）選擇“連接”選項卡，設(shè)置數(shù)據(jù)庫連接相關(guān)設(shè)置， 如圖 511 所示 。 （ 3）點選 ADOConnection1 組件，在“ Object Inspector”窗口中，單擊ConnectionString 屬性右 側(cè)的【 ? 】按鈕，彈出對話框 ， 如圖 59 所示 。 （ 2）在“ ADO”組件頁中點選“ TADOConnection”組件 ，添加到窗體上，命名為“ ADOConnection1”。數(shù)據(jù)模塊如圖 58 所示。 end。 var Key: Char)。 2．程序相關(guān)代碼 在窗體的 OnKeyPress 事件處理過程中設(shè)置〈 Enter〉鍵代替〈 Tab〉鍵?；A(chǔ)窗體如圖 57 所示。 end。 :=Panels[0].Width+Panels[1].Width+Panels[2].Width+10。 :=Height4。代碼如下： with statusbar1 do begin :=statusbar1。 在窗體的 OnShow 事件處理過程中，添加 TCheckBox 組件到面板中。 //顯示窗體 。 begin (TF_kczk, F_kczk)。 在窗體右側(cè)的功能按鈕單擊事件處理過程中，動態(tài)創(chuàng)建相應(yīng)的功能窗體。 begin 。 在窗體右側(cè)按鈕的單擊事件處理過程中，設(shè)置相應(yīng)的面板在其他面板前面。,mb_yesno)=id_no then CanClose:=False。,39。 begin if (39。代碼如下： procedure (Sender: TObject。 end。 begin :=True。 var Key: Word。 2．程序相關(guān)代碼 在窗體的 OnKeyDown 事件處理過程中設(shè)置用戶按下〈 F5〉鍵時關(guān)閉窗體。在右側(cè)的面板中添加多個 TPanel 組件，并在相應(yīng)的 TPanel 組件上添加 TImage組件，并為 TImage 組件加載圖片。 （ 9）在“ Additional”組件頁中點選“ TImage”組件，分別添加到 Panel3組件和 Panel1 組件上，并在“ Object Inspector”窗口中通過 Picture 屬性為其加載圖片。 圖 56 面板編輯器界面 （ 8）在“ Standard”組件頁中點選“ TPanel”組件。 TStatusBar 組件用于顯示狀態(tài)信息，雙擊 StatusBar1 組件，在彈出的對話框中單擊【 Add New】按鈕添加面板。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 55 菜單欄設(shè)置界面 2 （ 6）點選各菜單項，在“ Object Inspector”窗口中，單擊 Items 屬性右側(cè)的【 ? 】按鈕，在彈出的對話框中設(shè) 置子菜單項。 圖 53 添加 TAction 對象 （ 4）在窗體上點選 ActionManager1 組件，在“ Object Inspector”窗口中，單擊 A