《《進銷存管理系統(tǒng)》論文范例》由會員分享，可在線閱讀，更多相關(guān)《《進銷存管理系統(tǒng)》論文范例（35頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、進銷存管理系統(tǒng)學 院專 業(yè)班 級學 號姓 名指導教師教師職稱年月日29摘要【摘要】進銷存管理系統(tǒng)是專為大中型企業(yè)的產(chǎn)品分銷體系建立的電子商務(wù)應(yīng)用系統(tǒng)。是面向一種異地分布式的企業(yè)銷售管理系統(tǒng)，支持供需鏈管理的計劃和控制系統(tǒng)。通常情況下進銷存管理系統(tǒng)平臺包括三級子系統(tǒng)，即下級分銷商管理系統(tǒng)、分公司管理系統(tǒng)和總公司管理系統(tǒng)。此外，分銷商管理系統(tǒng)還實現(xiàn)了商品庫存的管理。分公司管理系統(tǒng)為每個分公司實現(xiàn)了進銷存管理，系統(tǒng)中還包括訂單管理、綜合查詢等管理功能?！娟P(guān)鍵詞】 進銷存 進貨 銷售目錄摘要1目錄10 引言11 系統(tǒng)分析21.1 需求分析21.2 可行性分析22 總體設(shè)計22.1 項目規(guī)劃22.2 功

2、能框圖33 系統(tǒng)設(shè)計33.1 設(shè)計目標33.2 開發(fā)及運行環(huán)境43.3 邏輯結(jié)構(gòu)設(shè)計44 主要功能模塊設(shè)計54.1 主窗體設(shè)計54.2 基礎(chǔ)窗體創(chuàng)建94.3 數(shù)據(jù)模塊設(shè)計94.4 庫存商品模塊設(shè)計124.5 商品基本信息模塊設(shè)計154.6 進貨單錄入模塊設(shè)計17附錄A 參考文獻28附錄B 數(shù)據(jù)表29附錄C 文件架構(gòu)圖360 引言隨著我國經(jīng)濟的高速發(fā)展，中小企業(yè)在社會經(jīng)濟中扮演的角色越來越重要，已成為最多元化和最具創(chuàng)新精神的部分。但是隨著企業(yè)的發(fā)展，客戶的增多，企業(yè)賬目混亂，庫存不準，信息反饋不及時等問題也接踵而至。這些問題已成為制約中小企業(yè)發(fā)展的瓶頸，嚴重制約了中小企業(yè)的發(fā)展壯大。越來越多的企

3、業(yè)經(jīng)營者認識到：單純靠對商品的占有，靠個人經(jīng)驗，已經(jīng)很難把握市場，很難在激烈的競爭中取勝。如何借助IT手段、如何通過信息化，加強核心競爭力，實現(xiàn)持續(xù)發(fā)展已成為中小企業(yè)亟待解決的關(guān)鍵問題。我國中小企業(yè)有70%是零售企業(yè)，企業(yè)經(jīng)營涉及進、銷、存多個環(huán)節(jié)，涉及商品種類繁多，業(yè)務(wù)量大，庫存管理復雜，使用手工管理已無法勝任。如何采用先進的計算機系統(tǒng)管理進貨、庫存、銷售等諸多環(huán)節(jié)也已成為趨勢及必然。1 系統(tǒng)分析1.1 需求分析通過調(diào)查，要求系統(tǒng)需要有以下功能：q 要有良好的人機界面，并提供換膚功能。q 支持多人操作，要求有較好的權(quán)限分配功能。q 在進貨、退貨時存在一對多的關(guān)系，要求支持多行錄入功能。q 為

4、了方便用戶查詢，要求支持多條件查詢。q 對于每種商品要求編號惟一，編號需要自動生成。q 支持多種報表打印。q 支持賬目的詳細內(nèi)容瀏覽。1.2 可行性分析開發(fā)任何一個基于計算機的系統(tǒng)，都會受到時間和資源上的限制。因此，在接受任何一個項目開發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時間和資源條件進行可行性分析，以減少項目開發(fā)風險，避免人力、物力和財力的浪費。本系統(tǒng)數(shù)據(jù)庫采用目前比較流行的Microsoft SQL Server，該數(shù)據(jù)庫系統(tǒng)在安全性、準確性、運行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)庫量大，效率高；開發(fā)工具采用Delphi7，Delphi7是目前應(yīng)用最廣泛的數(shù)據(jù)庫系統(tǒng)開發(fā)工具，可以快速開發(fā)Wi

5、ndows應(yīng)用程序。2 總體設(shè)計2.1 項目規(guī)劃進銷存管理系統(tǒng)是一個典型的數(shù)據(jù)庫應(yīng)用程序，由登錄模塊、主界面、基本信息模塊、進貨管理和銷售管理模塊、錢流管理模塊、庫存管理模塊、查賬模塊、統(tǒng)計與分析模塊、系統(tǒng)維護模塊等組成。特規(guī)劃功能模塊如下：q 基本信息模塊基本信息模塊的主要實現(xiàn)庫存商品、內(nèi)部職員、往來單位、費用類型信息等管理。q 進貨管理模塊進貨管理模塊主要管理企業(yè)商品進貨及退貨信息，支持多行錄入。q 銷售管理模塊銷售管理模塊主要管理企業(yè)商品銷售及退貨信息，支持多行錄入。q 錢流管理模塊錢流管理模塊主要實現(xiàn)往來賬目的錄入和賬目的詳細信息瀏覽等功能。q 庫存管理模塊庫存管理模塊主要實現(xiàn)庫存貨品

6、瀏覽、庫存盤點、庫存報警等功能。q 統(tǒng)計分析模塊統(tǒng)計分析模塊主要實現(xiàn)進貨統(tǒng)計分析、銷售統(tǒng)計分析和成本分析等功能。q 查賬模塊查賬模塊主要實現(xiàn)與供應(yīng)商、代理商對賬、費用管理、應(yīng)收應(yīng)付等功能。q 系統(tǒng)維護模塊系統(tǒng)維護模塊的主要實現(xiàn)本單位管理、操作員設(shè)置、數(shù)據(jù)的備份和還原等功能。2.2 功能框圖圖1 功能框圖3 系統(tǒng)設(shè)計3.1 設(shè)計目標根據(jù)企業(yè)的需求和進銷存管理的特點，該系統(tǒng)實施后，應(yīng)達到以下目標：q 支持多行輸入，自動生成編號。q 界面美觀友好、信息查詢靈活、方便、快捷、準確。q 強大的庫存預(yù)警功能，在意外中將損失降到最低。q 提高工作效率，降低成本。q 往來賬目詳細瀏覽。q 圖形化數(shù)據(jù)分析。q

7、對用戶輸入的數(shù)據(jù)進行過濾，當輸入有誤時提示用戶。q 數(shù)據(jù)保密性強，用戶對應(yīng)不同的操作級別。q 系統(tǒng)最大限度地實現(xiàn)了易安裝性、易維護性和易操作性。q 直接調(diào)用Word、Excel軟件。q 系統(tǒng)運行穩(wěn)定、安全可靠。3.2 開發(fā)及運行環(huán)境系統(tǒng)開發(fā)平臺：Delphi 7.0。數(shù)據(jù)庫管理系統(tǒng)軟件：SQL Server 2000。運行平臺：Windows xp/ Windows 2000。分辨率：最佳效果1024*768。3.3 邏輯結(jié)構(gòu)設(shè)計本系統(tǒng)數(shù)據(jù)庫采用SQL Server 2000數(shù)據(jù)庫，數(shù)據(jù)庫名稱為“db_EMS”。數(shù)據(jù)庫db_EMS中包含18個表。數(shù)據(jù)庫中的數(shù)據(jù)表參見附錄B。4 主要功能模塊設(shè)計

8、4.1 主窗體設(shè)計主窗體是程序的控制中心，其他模塊都是通過主窗體來調(diào)用，所以主窗體的界面要設(shè)計的美觀易操作。進銷存管理系統(tǒng)主窗體運行結(jié)果如圖4所示。圖4 主窗體運行的結(jié)果1設(shè)計步驟（1）運行Delphi會自動創(chuàng)建一個窗體，設(shè)置該窗體為程序主窗體，命名為“F_zct”，設(shè)置窗體的Caption屬性為“進銷存管理系統(tǒng)”；BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。（2）在“Additional”組件頁中點選“TActionManager”組件，添加到窗體上，命名為“ActionManage1”，雙擊該組件打開“動作編輯器”，選擇“Toolbars”選項

9、卡，單擊【New】按鈕添加“TActionToolBar”對象，命名為“ActionToolBar1”，如圖5所示。圖5 添加TActionToolBar對象（3）選擇“Actions”選項卡，單擊【New Action】按鈕，添加“TAction”對象，并在“Object Inspector”窗口中設(shè)置Caption屬性，如圖6所示。圖6 添加TAction對象（4）在窗體上點選ActionManager1組件，在“Object Inspector”窗口中，單擊ActionBars屬性右側(cè)的【】按鈕，彈出如圖7所示的對話框。圖7 菜單欄設(shè)置1（5）在彈出的對話框中點選“0-ActionBar

10、-ActionTooBar1”，在“Object Inspector”窗口中，單擊Items屬性右側(cè)的【】按鈕，在彈出的對話框中，單擊【Add New】按鈕添加菜單項，并設(shè)置各個菜單項的Action屬性，如圖8所示。 圖8 菜單欄設(shè)置2（6）點選各菜單項，在“Object Inspector”窗口中，單擊Items屬性右側(cè)的【】按鈕，在彈出的對話框中設(shè)置子菜單項。（7）在“Win32”組件頁中點選“TStatusBar”組件，添加到窗體上，命名為“StatusBar1”。TStatusBar組件用于顯示狀態(tài)信息，雙擊StatusBar1組件，在彈出的對話框中單擊【Add New】按鈕添加面板。

11、在“Object Inspector”窗口中設(shè)置面板的Width屬性和Caption屬性，如圖9所示。圖9 面板編輯器（8）在“Standard”組件頁中點選“TPanel”組件。在窗體上添加3個TPanel組件，分別命名為“Panel3”、“Panel1”、“Panel4”，分別設(shè)置其Align屬性為“alTop”、“alLeft”、“alClient”。（9）在“Additional”組件頁中點選“TImage”組件，分別添加到Panel3組件和Panel1組件上，并在“Object Inspector”窗口中通過Picture屬性為其加載圖片。當用戶單擊主窗體左側(cè)的按鈕時，在右則將彈出相

12、應(yīng)的功能圖片。在右側(cè)的面板中添加多個TPanel組件，并在相應(yīng)的TPanel組件上添加TImage組件，并為TImage組件加載圖片。（10）在“Additional”組件頁中點選“TSpeedButton”組件，將TSpeedButton組件添加到圖片相應(yīng)的位置，設(shè)置其Flat屬性為“True”；Caption屬性為空。2程序相關(guān)代碼在窗體的OnKeyDown事件處理過程中設(shè)置用戶按下F5鍵時關(guān)閉窗體。代碼如下：procedure TF_zct.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin F_zc

13、t.KeyPreview:=True; /設(shè)置窗體先接受鍵盤按下事件 if key=vk_F5 then Close;end;在窗體的OnCloseQuery事件處理過程中讓用戶確認是否關(guān)閉窗體。代碼如下：procedure TF_zct.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if Application.MessageBox(是否退出系統(tǒng)？,提示,mb_yesno)=id_no then CanClose:=False;end;在窗體右側(cè)按鈕的單擊事件處理過程中，設(shè)置相應(yīng)的面板在其他面板前面。代碼如下：pro

14、cedure TF_zct.SpeedButton1Click(Sender: TObject);begin kumanage.BringToFront; /設(shè)置面板在最前面end;在窗體右側(cè)的功能按鈕單擊事件處理過程中，動態(tài)創(chuàng)建相應(yīng)的功能窗體。動態(tài)創(chuàng)建“庫存狀況窗體”代碼如下：procedure TF_zct.SpeedButton9Click(Sender: TObject);begin Application.CreateForm(TF_kczk, F_kczk); /創(chuàng)建窗體 F_kczk.ShowModal; /顯示窗體 F_kczk.Free; /釋放窗體end;在窗體的OnSho

15、w事件處理過程中，添加TCheckBox組件到面板中。指定TCheckBox組件的父對象并設(shè)置該組件的大小和位置。代碼如下：with statusbar1 do begin checkbox1.Parent:=statusbar1; checkbox1.Top:=4; checkbox1.Height:=Height-4; checkbox1.Width:=75; checkbox1.Left:=Panels0.Width+Panels1.Width+Panels2.Width+10; checkbox1.Visible:=true; end;4.2 基礎(chǔ)窗體創(chuàng)建創(chuàng)建基礎(chǔ)窗體主要為了提高開發(fā)速

16、度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能?；A(chǔ)窗體如圖10所示。圖10 基礎(chǔ)窗體1基礎(chǔ)窗體設(shè)計步驟添加一個新窗體，命名為“F_base”，設(shè)置其BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。2程序相關(guān)代碼在窗體的OnKeyPress事件處理過程中設(shè)置Enter鍵代替Tab鍵。代碼如下：procedure TF_base.FormKeyPress(Sender: TObject; var Key: Char);begin if Key=#13 then perform(WM_NEXTDLGCTL,0,0);end;4.3 數(shù)據(jù)模塊

17、設(shè)計數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)組件。數(shù)據(jù)模塊如圖11所示。圖11 數(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è)的【】按鈕，彈出對話框，如圖12所示。圖12

18、 設(shè)置連接字符串（4）單擊【Build】按鈕，在彈出的對話框中 “提供程序”選項卡中選擇希望連接的數(shù)據(jù)所需的驅(qū)動程序，如圖13所示。圖13 選擇驅(qū)動程序（5）選擇“連接”選項卡，設(shè)置數(shù)據(jù)庫連接相關(guān)設(shè)置，如圖14所示。圖14 數(shù)據(jù)庫連接設(shè)置（6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。（7）在窗體上添加TADOQuery組件和TADOCommand組件，設(shè)置它們的Connection屬性為“ADOConnection1”。4.4 庫存商品模塊設(shè)計庫存商品模塊主要實現(xiàn)瀏覽、添加、修改、刪除、查詢、打印商品信息等功能。庫存商品模塊運行結(jié)果如圖15所示。圖15

19、 庫存商品模塊運行的結(jié)果1窗體設(shè)計步驟（1）選擇“File”/“New”/“Other”菜單項，打開“New Items”對話框，選擇“ima”選項卡，點選“F_base”選項，以繼承方式使用該窗體。單擊【OK】按鈕添加一個新窗體，命名為“F_kcsp”，設(shè)置Caption屬性為“庫存商品”。（2）在“Win32”組件頁中點選“TToolBar”組件，添加到窗體上。在該組件上添加TSpeedButton組件，在“Object Inspector”窗口中通過Caption屬性為其設(shè)置相應(yīng)的文本，通過Glyph屬性為其指定圖標。右鍵單擊TToolBar組件，在彈出的菜單中選擇“New Button

20、”菜單項，并設(shè)置其Style屬性為“tbsDivider”。（3）在窗體上添加TPanel組件，命名為“Panel1”，設(shè)置Align屬性為“alBottom”；Visable屬性為“False”。在TPanel組件上添加TGroupBox組件，設(shè)置其Caption屬性為“查詢條件”。在“Standard”組件頁中找到TLabel組件、TEdit組件和TComboBox組件，添加到TGroupBox組件上。點選TComboBox組件，在“Object Inspector”窗口中，單擊Items屬性，在彈出的對話框中添加項目，如圖16所示。圖16 添加項目（4）在“ADO”組件頁中點選“TADO

21、Query”組件，添加到窗體上，命名為“ADOQuery1”。在“Data Access”組件頁中點選“TDataSource”組件，添加到窗體上，命名為“DataSource1”。設(shè)置ADOQuery1組件的Connection屬性為“F_dm.ADOConnection1”；設(shè)置DataSource1組件的DataSet屬性為“ADOQuery1”。（5）在“Data Controls”組件頁中點選“TDBGrid”組件，添加到窗體上，命名為“DBGrid1”，設(shè)置其Align屬性為“alClient”；DataSource屬性為“DataSource1”，雙擊DBGrid1組件，在彈出的

22、列編輯器中設(shè)置字段標題，如圖17所示。 圖17 為TDBGrid組件設(shè)置列標題（6）在“Rave”組件頁中點選“TRvDataSetConnection”組件、“TRvProject”組件，添加到窗體上，分別命名為“RvDataSetConnection1”、“RvProject1”，設(shè)置RvDataSetConnection1組件的DataSet屬性為“ADOQuery1”。設(shè)置RvProject1組件的ProjectFile屬性為制作的報表文件。2程序相關(guān)代碼在窗體的OnShow事件處理過程中打開庫存商品表。代碼如下：procedure TF_kcsp.FormShow(Sender: T

23、Object);begin inherited; /由于窗體是繼承自基窗體該代碼自動生成。意為調(diào)用父類的同名方法。 change:=False; with adoquery1 do begin Close; SQL.Clear; SQL.Add(Select * from tb_stock order by tradecode asc); /排序 Open; end;end;在【添加】按鈕的單擊事件處理過程中動態(tài)創(chuàng)建添加庫存商品基本信息窗體。代碼如下：procedure TF_kcsp.SpeedButton4Click(Sender: TObject);begin inherited; /調(diào)

24、用父類的同名方法 Application.CreateForm(TF_sbjbcx, F_sbjbcx); /創(chuàng)建窗體 F_sbjbcx.ShowModal; /顯示窗體 F_sbjbcx.Free; /釋放窗體end;在【刪除】按鈕的單擊事件處理過程中當用戶確認刪除后刪除數(shù)據(jù)。代碼如下：procedure TF_kcsp.SpeedButton2Click(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 try if Application.MessageBox(是否刪除當前記錄？,提示,mb_yesno)=id_yes then Adoquery1

25、.Delete; except Application.MessageBox(不能刪除,提示,mb_yesno); end;end;在【查詢】按鈕的單擊事件處理過程中動態(tài)設(shè)置查詢條件。代碼如下：procedure TF_kcsp.SpeedButton1Click(Sender: TObject);var searchwhat:string;begin inherited; /調(diào)用父類的同名方法 Panel1.Visible:=not(Panel1.Visible); if Panel1.Visible=False then begin searchwhat:=; case combobox1

26、.ItemIndex of /設(shè)置要查找的字段 0: searchwhat:=tradecode; 1: searchwhat:=fullnamed; 2: searchwhat:=name; 3: searchwhat:=shortcode; end; try with ADoquery1 do begin Close; SQL.Clear; SQL.Add(select * from tb_stock ); /寫SQL語句 SQL.Add(where +searchwhat+ like :a order by tradecode); parameters.ParamByName(a).Va

27、lue:=%+Trim(Edit1.Text)+%; open; end; if Application.MessageBox(是否刷新表？,提示,mb_yesno)=Id_yes then with ADoquery1 do begin Close; SQL.Clear; SQL.Add(select * from tb_stock order by tradecode); /刷新 open; end; except Application.MessageBox(請正確輸入條件,提示,mb_ok); end; end;end;在【打印】按鈕的單擊事件處理過程中指定報表文件、預(yù)覽報表。代碼如下

28、：procedure TF_kcsp.SpeedButton6Click(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 /指定報表文件 Rvproject1.ProjectFile:=ExtractFilePath(Application.ExeName)+stockprint.rav; RvProject1.Execute; /預(yù)覽報表end;4.5 商品基本信息模塊設(shè)計商品基本信息模塊主要功能是錄入商品基本信息，便于其他窗體使用，在該模塊中可以設(shè)置商品的報警上下限。商品基本信息模塊運行結(jié)果如圖18所示。圖18 商品基本信息模塊運行的結(jié)果1窗體設(shè)計

29、步驟（1）從基礎(chǔ)窗體繼承一個窗體，命名為“F_sbjbcx”，設(shè)置其Caption屬性為“商品基本信息”。（2）在“Additional”組件頁中點選“TBevel”組件，為每一類數(shù)據(jù)添加邊框。（3）在“Additional”組件頁中點選“TGroupBox”組件，添加到窗體上，命名為“GroupBox1”，設(shè)置其Caption屬性為“輸入報警值-請輸入大于0的數(shù) 0為不報警”。在GroupBox1組件上添加2個TLabel組件和2個TEdit組件。分別設(shè)置TLabel組件的Caption屬性為“商品報警上限：”、“商品報警下限：”。（4）在窗體上添加TLabel組件和TEdit組件，在“Ad

30、ditional”組件頁中點選“TBitBtn”組件，添加到窗體上，分別命名為“BitBtn1”、“BitBtn2”，設(shè)置BitBtn1組件的Caption屬性為“保存”，通過Glyph屬性為其指定圖標。設(shè)置BitBtn2組件的Caption屬性為“退出”，通過Glyph屬性為其指定圖標。2程序相關(guān)代碼在窗體的OnShow事件處理過程中如果為修改，將要修改的記錄顯示在窗體的編輯框中。代碼如下：procedure TF_sbjbcx.FormShow(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 try if F_kcsp.change=True th

31、en /判斷是否為修改 with F_kcsp.ADOQuery1 do begin Edit1.Text:=fieldbyname(fullnamed).AsString; Edit2.Text:=fieldbyname(tradecode).AsString; Edit3.Text:=fieldbyname(name).AsString; Edit4.Text:=fieldbyname(type).AsString; Edit5.Text:=fieldbyname(standard).AsString; Edit6.Text:=fieldbyname(unit).AsString; Edi

32、t7.Text:=fieldbyname(produce).AsString; Edit8.Text:=fieldbyname(provideinf).AsString; Edit9.Text:=fieldbyname(memo).AsString; Edit10.Text:=inttostr(fieldbyname(upperlimit).AsInteger); Edit11.Text:=inttostr(fieldbyname(lowerlimit).AsInteger); end else begin F_kcsp.getspbh(sender); /如果為添加操作調(diào)用過程getspbh

33、得到編號 Edit2.Text:=F_kcsp.spbh; end; except end;end;調(diào)用getspbh過程得到商品編號。getspbh過程完整代碼如下：procedure TF_kcsp.getspbh(sender:Tobject); /得到商品編號begin adoquery1.Last; if adoquery1.RecordCount=0 then spbh:=T+formatfloat(00000,1) /格式化編號 else spbh:=T+Formatfloat(00000,strtoint(copy(adoquery1.Fields0.AsString,2,5)

34、+1);end;4.6 進貨單錄入模塊設(shè)計進貨單錄入窗體主要功能是錄入進貨的相關(guān)信息，在該模塊中支持多行錄入，可以調(diào)用其他信息提示窗體。進貨單錄入模塊運行結(jié)果如圖19所示。圖19 進貨單錄入模塊運行的結(jié)果1窗體設(shè)計步驟（1）從基礎(chǔ)窗體繼承一個窗體，命名為“F_jhd”，設(shè)置其Caption屬性為“進貨單錄入”。（2）在窗體上添加TLabel組件、TEdit組件、TDateTimePicker組件，用于輸入信息。在“Additional”組件頁中點選“TStringGrid”組件，添加到窗體上，命名為“StringGrid1”。設(shè)置StringGrid1組件的RowCount屬性為“10”；Co

35、lCount屬性為“10”。（3）在窗體上添加TSpeedButton組件，通過Glyph屬性為其指定圖標。添加TBitBtn組件，用于完成“保存”、“取消”功能。（4）在窗體上添加TPanel組件，命名為“Panel1”，設(shè)置其Caption屬性為空。用于顯示統(tǒng)計應(yīng)付金額。（5）在窗體上添加TADOQuery組件，命名為“ADOQuery1”，設(shè)置其Connection屬性為“F_dm.ADOConnection1”。2程序相關(guān)代碼在窗體的OnShow事件處理過程中初始化相關(guān)信息。代碼如下：procedure TF_jhd.FormShow(Sender: TObject);begin in

36、herited; F_zct.wf:=1; /窗體標記 DateTimePicker1.Date:=now(); /初始化為當天日期 with F_jhd.StringGrid1 do /設(shè)置列標題 begin Cells1,0:=商品編號; Cells2,0:=商品全稱; Cells3,0:=商品型號; Cells4,0:=商品規(guī)格; Cells5,0:=單位; Cells6,0:=產(chǎn)地; Cells7,0:=數(shù)量; Cells8,0:=進貨價; Cells9,0:=金額; end; with adoquery1 do begin close; SQl.Clear; SQl.Add(sele

37、ct * from tb_warehouse_main); Open; end; F_jhd.getspbh(sender); /調(diào)用過程getspbh取得編號 Edit2.Text:=spbh;end;雙擊TStringGrid組件左側(cè)的按鈕動態(tài)創(chuàng)建信息提示窗體。代碼如下：procedure TF_jhd.SpeedButton3Click(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 Application.CreateForm(TF_kcspxz, F_kcspxz); F_kcspxz.ShowModal; F_kcspxz.Free;end

38、;在彈出的信息提示窗體的【確定】按鈕單擊事件處理過程中將數(shù)據(jù)添加到TStringGrid組件中。代碼如下：if F_zct.wf=1 then /往進貨單錄入窗體添加數(shù)據(jù) begin for xh:=1 to F_jhd.StringGrid1.RowCount do begin if Trim(F_jhd.StringGrid1.Cells1,xh)= then /查找第幾行為空 begin grow:=xh; break; end; end; for xh:=0 to adoquery1.FieldCount-12 do /將數(shù)據(jù)庫的數(shù)據(jù)讀出 begin gcol:=xh; if xh=2

39、 then gcol:=gcol+1; F_jhd.StringGrid1.Cellsxh+1,grow:=adoquery1.Fieldsgcol.Value; /將數(shù)據(jù)添加到單元格中 end; F_jhd.StringGrid1.Cells8,grow:=adoquery1.Fields8.Value; F_jhd.StringGrid1.SetFocus; F_jhd.StringGrid1.Col:=7; F_jhd.StringGrid1.Row:=grow; end;在【保存】按鈕的單擊事件處理過程中，首先啟動事務(wù)，然后對相關(guān)表進行操作，如果成功，提交事務(wù)，否則回滾事務(wù)。代碼如下：

40、procedure TF_jhd.BitBtn1Click(Sender: TObject);var gcol,grow,xhjc:integer; ave:string; /age加權(quán)平均價begin inherited; if (Trim(Edit3.Text)=) or (Trim(Edit4.Text)=) or (Trim(Edit6.Text)=) or (stringgrid1.Cells9,1=) then begin Application.MessageBox(請輸入完整信息,提示,mb_ok); Exit; end; for xhjc:=1 to strdbrows do

41、 begin if (stringgrid1.Cells7,xhjc=) or (strtofloat(stringgrid1.Cells8,xhjc)=0) then begin Application.MessageBox(請輸入商品數(shù)量或金額,提示,mb_ok); Exit; end; end; try F_dm.ADOConnection1.BeginTrans; /啟動事務(wù) with Adoquery1 do /將信息保存到進貨主表 begin Close; SQl.Clear; SQl.Add(select * from tb_warehouse_main); open; inse

42、rt; FieldByName(billdate).AsDateTime:=strtodate(formatdatetime(yyyy-mm-dd,datetimepicker1.Date); FieldByName(billcode).AsString:=Trim(Edit2.Text); FieldByName(units).AsString:=Trim(Edit3.Text); FieldByName(handle).AsString:=Trim(Edit4.Text); FieldByName(summary).AsString:=Trim(Edit5.Text); FieldByNa

43、me(fullpayment).AsFloat:=strtofloat(panel1.Caption); FieldByName(payment).AsFloat:=strtofloat(format(%10.4f,strtofloat(Edit6.Text);詳細代碼參見光盤 post; end; end; F_dm.ADOConnection1.CommitTrans; /提交事務(wù) Application.MessageBox(保存成功,提示,mb_ok); except F_dm.ADOConnection1.RollbackTrans; /回滾事務(wù) Application.Messag

44、eBox(保存不成功,提示,mb_ok); end; with Adoquery1 do begin Close; SQl.Clear; SQl.Add(select * from tb_warehouse_main); Open; end; bitbtn2.OnClick(sender); /調(diào)用取消按鈕清空記錄 F_jhd.getspbh(sender); /得到下一單據(jù)編號 Edit2.Text:=spbh; /顯示編號值end;附錄A 參考文獻1Visual Basic精彩編程200例 機械工業(yè)出版社賽奎春、高春艷等 2003年1月2Visual Basic數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)

45、出版社劉志銘、高春艷等 2003年8月3Visual FoxPro數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社王晶瑩、王國輝等 2003年9月4Power Builder數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社華傳銘、張振坤等 2003年9月5Delphi數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社 賽奎春、鄭驍鵬等 2004年2月6PowerBuilder 精彩編程200例 機械工業(yè)出版社 張振坤、李文立等2004年9月7Visual FoxPro 精彩編程200例 機械工業(yè)出版社 王國輝、董韶華等 2004年9月8ASP數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社 李嚴、于亞芳、王國輝2004年12月9Delphi工程應(yīng)用與

46、項目實踐 機械工業(yè)出版社 宋坤、趙智勇等 2005年1月10Visual Basic工程應(yīng)用與項目實踐 機械工業(yè)出版社高春艷、李俊民等 2005年1月11Visual C工程應(yīng)用與項目實踐 機械工業(yè)出版社張雨、阮偉良等 5005年1月12JSP工程應(yīng)用與項目實踐 機械工業(yè)出版社 陳威、白偉明、李楠2005年2月13ASP工程應(yīng)用與項目實踐 機械工業(yè)出版社 王國輝、牛強、李南南2005年4月14Visual Basic 信息系統(tǒng)開發(fā)實例精選 機械工業(yè)出版社高春艷、李俊民、張耀庭等2005年7月15ASP 信息系統(tǒng)開發(fā)實例精選 機械工業(yè)出版社 王國輝、牛強、李南南等 2005年7月16Delphi

47、 信息系統(tǒng)開發(fā)實例精選 機械工業(yè)出版社 宋坤、趙智勇、劉強等 2005年7月17Visual foxpro數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用 人民郵電出版社 周桓、張雨、王國輝 2004年5月18PoweBuilder數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用 人民郵電出版社 劉志銘 張振坤 馮文萃 2004年5月19Delphi數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用 人民郵電出版社 賽奎春 陳紫鴻 宋昆 2004年5月20Visual basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用 人民郵電出版社 高春艷、李艷 2004年5月21Visual C+ 管理信息系統(tǒng)完整項目實例剖析 人民郵電出版社 明日科技 2005年7月22Vis

48、ual Basic 管理信息系統(tǒng)完整項目實例剖析 人民郵電出版社 明日科技 2005年7月23PowerBuilder 管理信息系統(tǒng)完整項目實例剖析 人民郵電出版社 明日科技 2005年7月24Visual FoxPro管理信息系統(tǒng)完整項目實例剖析 人民郵電出版社 明日科技 2005年7月25SQL Server數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社 宋昆、李嚴等 2006年1月26Access數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社 李俊民、高春燕等 2006年1月附錄B 數(shù)據(jù)表（1）職員信息表（tb_employ）職員信息表用來保存職員信息。職員信息表的結(jié)構(gòu)如表B.1所示。表B.1 職員信息表結(jié)構(gòu)字

49、段名稱字段類型字段大小主鍵否功能描述employecodeVarchar6職員編號fullnameVarchar20是職員全稱nameVarchar20職員簡稱sexVarchar2性別departmentVarchar20所在部門telVarchar20聯(lián)系電話memoVarchar40備注shortcodeVarchar10拼音簡碼（2）進貨主表（tb_warehouse_main）進貨主表用來保存進貨中主要和相同的信息。進貨主表的結(jié)構(gòu)如表B.2所示。表B.2 進貨主表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述Billdatedatetime8錄單日期Billcodevarchar20是單

50、據(jù)編號Unitsvarchar20供貨單位Handlevarchar20經(jīng)手人Summaryvarchar100摘要Fullpaymentfloat8應(yīng)付金額Paymentfloat8實付金額（3）進貨明細表（tb_warehouse_detailed）進貨明細表用來保存進貨中商品的詳細信息。進貨明細表結(jié)構(gòu)如表B.3所示。表B.3 進貨明細表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billcodeVarchar20單據(jù)編號tradecodeVarchar20商品編號fullnameVarchar20商品全稱typeVarchar10商品型號standardVarchar10商品規(guī)格unitC

51、har4單位produceVarchar20產(chǎn)地qtyFloat8數(shù)量priceFloat8進價tsumFloat8金額billdateDatetime8錄單日期（4）用戶權(quán)限表（tb_power）用戶權(quán)限表用來保存用戶權(quán)限設(shè)置信息。用戶權(quán)限表結(jié)構(gòu)如表B.4所示。表B.4 用戶權(quán)限表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述numberVarchar20是用戶編號usersVarchar20用戶名稱passwordVarchar20用戶密碼stockBit1進貨管理venditionBit1銷售管理checkedBit1庫存管理moneyBit1錢流管理systemBit1系統(tǒng)維護baseBi

52、t1基本信息（5）費用表（tb_cf）費用表用于記錄費用信息。費用表結(jié)構(gòu)如表B.5所示。表B.5 費用表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20單據(jù)編號unitsvarchar20收款單位numbervarchar20費用項目編號namevarchar20費用項目名稱handlevarchar20經(jīng)手人fullpaymentvarchar20應(yīng)付金額paymentfloat8實付金額summaryvarchar20摘要（6）往來賬明細表（tb_currentaccount）往來賬明細表用于記錄往來單位的應(yīng)收、應(yīng)付賬目

53、。往來賬明細表結(jié)構(gòu)如表B.6所示。表B.6 往來賬明細表結(jié)構(gòu) 字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20是單據(jù)編號unitsvarhcar20往來單位addgatheringfloat8應(yīng)收增加reducegatheringfloat8應(yīng)收減少balancefloat8應(yīng)收余額summaryvarchar100摘要（7）費用類型表（tb_freetype）費用類型表用于存儲費用類型信息。費用類型表表結(jié)構(gòu)如表B.7所示。表B.7 費用類型表字段名稱字段類型字段大小主鍵否功能描述subjectcodevarchar3科目編號f

54、ullnamevarhcar20是科目全稱namevarchar10科目簡稱memovarhcar40備注shortcodevarchar10拼音簡碼（8）收款信息表（tb_gathering）收款信息表用于保存收款信息。收款信息表結(jié)構(gòu)如表B.8所示。表B.8 收款信息表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20是單據(jù)編號unitsvarchar20付款單位gatheringfloat8金額handlevarchar20經(jīng)手人summaryvarchar40摘要（9）付款信息表（tb_payment）付款信息表用于保存付款信息。付款表結(jié)構(gòu)如表B.9所示。表B.9 付款表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20是單據(jù)編號unitsvarchar20收款單位paymentfloat8金額handlevarchar20經(jīng)手人summaryvarchar100摘要（10）銷售退貨明細表（tb_resell_detailed）銷售退貨明細表用于保存銷售退貨的詳細信息。銷售退貨明細表結(jié)構(gòu)如表10所示。表B.10 銷售退貨明