進(jìn)銷存管理系統(tǒng)學(xué) 院專 業(yè)班 級(jí)學(xué) 號(hào)姓 名指導(dǎo)教師教師職稱年月日29摘要【摘要】進(jìn)銷存管理系統(tǒng)是專為大中型企業(yè)的產(chǎn)品分銷體系建立的電子商務(wù)應(yīng)用系統(tǒng)。是面向一種異地分布式的企業(yè)銷售管理系統(tǒng)，支持供需鏈管理的計(jì)劃和控制系統(tǒng)。通常情況下進(jìn)銷存管理系統(tǒng)平臺(tái)包括三級(jí)子系統(tǒng)，即下級(jí)分銷商管理系統(tǒng)、分公司管理系統(tǒng)和總公司管理系統(tǒng)。此外，分銷商管理系統(tǒng)還實(shí)現(xiàn)了商品庫(kù)存的管理。分公司管理系統(tǒng)為每個(gè)分公司實(shí)現(xiàn)了進(jìn)銷存管理，系統(tǒng)中還包括訂單管理、綜合查詢等管理功能?！娟P(guān)鍵詞】 進(jìn)銷存 進(jìn)貨 銷售目錄摘要1目錄10 引言11 系統(tǒng)分析21.1 需求分析21.2 可行性分析22 總體設(shè)計(jì)22.1 項(xiàng)目規(guī)劃22.2 功能框圖33 系統(tǒng)設(shè)計(jì)33.1 設(shè)計(jì)目標(biāo)33.2 開發(fā)及運(yùn)行環(huán)境43.3 邏輯結(jié)構(gòu)設(shè)計(jì)44 主要功能模塊設(shè)計(jì)54.1 主窗體設(shè)計(jì)54.2 基礎(chǔ)窗體創(chuàng)建94.3 數(shù)據(jù)模塊設(shè)計(jì)94.4 庫(kù)存商品模塊設(shè)計(jì)124.5 商品基本信息模塊設(shè)計(jì)154.6 進(jìn)貨單錄入模塊設(shè)計(jì)17附錄A 參考文獻(xiàn)28附錄B 數(shù)據(jù)表29附錄C 文件架構(gòu)圖360 引言隨著我國(guó)經(jīng)濟(jì)的高速發(fā)展，中小企業(yè)在社會(huì)經(jīng)濟(jì)中扮演的角色越來(lái)越重要，已成為最多元化和最具創(chuàng)新精神的部分。但是隨著企業(yè)的發(fā)展，客戶的增多，企業(yè)賬目混亂，庫(kù)存不準(zhǔn)，信息反饋不及時(shí)等問(wèn)題也接踵而至。這些問(wèn)題已成為制約中小企業(yè)發(fā)展的瓶頸，嚴(yán)重制約了中小企業(yè)的發(fā)展壯大。越來(lái)越多的企業(yè)經(jīng)營(yíng)者認(rèn)識(shí)到：?jiǎn)渭兛繉?duì)商品的占有，靠個(gè)人經(jīng)驗(yàn)，已經(jīng)很難把握市場(chǎng)，很難在激烈的競(jìng)爭(zhēng)中取勝。如何借助IT手段、如何通過(guò)信息化，加強(qiáng)核心競(jìng)爭(zhēng)力，實(shí)現(xiàn)持續(xù)發(fā)展已成為中小企業(yè)亟待解決的關(guān)鍵問(wèn)題。我國(guó)中小企業(yè)有70%是零售企業(yè)，企業(yè)經(jīng)營(yíng)涉及進(jìn)、銷、存多個(gè)環(huán)節(jié)，涉及商品種類繁多，業(yè)務(wù)量大，庫(kù)存管理復(fù)雜，使用手工管理已無(wú)法勝任。如何采用先進(jìn)的計(jì)算機(jī)系統(tǒng)管理進(jìn)貨、庫(kù)存、銷售等諸多環(huán)節(jié)也已成為趨勢(shì)及必然。1 系統(tǒng)分析1.1 需求分析通過(guò)調(diào)查，要求系統(tǒng)需要有以下功能：q 要有良好的人機(jī)界面，并提供換膚功能。q 支持多人操作，要求有較好的權(quán)限分配功能。q 在進(jìn)貨、退貨時(shí)存在一對(duì)多的關(guān)系，要求支持多行錄入功能。q 為了方便用戶查詢，要求支持多條件查詢。q 對(duì)于每種商品要求編號(hào)惟一，編號(hào)需要自動(dòng)生成。q 支持多種報(bào)表打印。q 支持賬目的詳細(xì)內(nèi)容瀏覽。1.2 可行性分析開發(fā)任何一個(gè)基于計(jì)算機(jī)的系統(tǒng)，都會(huì)受到時(shí)間和資源上的限制。因此，在接受任何一個(gè)項(xiàng)目開發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。本系統(tǒng)數(shù)據(jù)庫(kù)采用目前比較流行的Microsoft SQL Server，該數(shù)據(jù)庫(kù)系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)庫(kù)量大，效率高；開發(fā)工具采用Delphi7，Delphi7是目前應(yīng)用最廣泛的數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)工具，可以快速開發(fā)Windows應(yīng)用程序。2 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃進(jìn)銷存管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序，由登錄模塊、主界面、基本信息模塊、進(jìn)貨管理和銷售管理模塊、錢流管理模塊、庫(kù)存管理模塊、查賬模塊、統(tǒng)計(jì)與分析模塊、系統(tǒng)維護(hù)模塊等組成。特規(guī)劃功能模塊如下：q 基本信息模塊基本信息模塊的主要實(shí)現(xiàn)庫(kù)存商品、內(nèi)部職員、往來(lái)單位、費(fèi)用類型信息等管理。q 進(jìn)貨管理模塊進(jìn)貨管理模塊主要管理企業(yè)商品進(jìn)貨及退貨信息，支持多行錄入。q 銷售管理模塊銷售管理模塊主要管理企業(yè)商品銷售及退貨信息，支持多行錄入。q 錢流管理模塊錢流管理模塊主要實(shí)現(xiàn)往來(lái)賬目的錄入和賬目的詳細(xì)信息瀏覽等功能。q 庫(kù)存管理模塊庫(kù)存管理模塊主要實(shí)現(xiàn)庫(kù)存貨品瀏覽、庫(kù)存盤點(diǎn)、庫(kù)存報(bào)警等功能。q 統(tǒng)計(jì)分析模塊統(tǒng)計(jì)分析模塊主要實(shí)現(xiàn)進(jìn)貨統(tǒng)計(jì)分析、銷售統(tǒng)計(jì)分析和成本分析等功能。q 查賬模塊查賬模塊主要實(shí)現(xiàn)與供應(yīng)商、代理商對(duì)賬、費(fèi)用管理、應(yīng)收應(yīng)付等功能。q 系統(tǒng)維護(hù)模塊系統(tǒng)維護(hù)模塊的主要實(shí)現(xiàn)本單位管理、操作員設(shè)置、數(shù)據(jù)的備份和還原等功能。2.2 功能框圖圖1 功能框圖3 系統(tǒng)設(shè)計(jì)3.1 設(shè)計(jì)目標(biāo)根據(jù)企業(yè)的需求和進(jìn)銷存管理的特點(diǎn)，該系統(tǒng)實(shí)施后，應(yīng)達(dá)到以下目標(biāo)：q 支持多行輸入，自動(dòng)生成編號(hào)。q 界面美觀友好、信息查詢靈活、方便、快捷、準(zhǔn)確。q 強(qiáng)大的庫(kù)存預(yù)警功能，在意外中將損失降到最低。q 提高工作效率，降低成本。q 往來(lái)賬目詳細(xì)瀏覽。q 圖形化數(shù)據(jù)分析。q 對(duì)用戶輸入的數(shù)據(jù)進(jìn)行過(guò)濾，當(dāng)輸入有誤時(shí)提示用戶。q 數(shù)據(jù)保密性強(qiáng)，用戶對(duì)應(yīng)不同的操作級(jí)別。q 系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。q 直接調(diào)用Word、Excel軟件。q 系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。3.2 開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：Delphi 7.0。數(shù)據(jù)庫(kù)管理系統(tǒng)軟件：SQL Server 2000。運(yùn)行平臺(tái)：Windows xp/ Windows 2000。分辨率：最佳效果1024*768。3.3 邏輯結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)數(shù)據(jù)庫(kù)采用SQL Server 2000數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名稱為“db_EMS”。數(shù)據(jù)庫(kù)db_EMS中包含18個(gè)表。數(shù)據(jù)庫(kù)中的數(shù)據(jù)表參見附錄B。4 主要功能模塊設(shè)計(jì)4.1 主窗體設(shè)計(jì)主窗體是程序的控制中心，其他模塊都是通過(guò)主窗體來(lái)調(diào)用，所以主窗體的界面要設(shè)計(jì)的美觀易操作。進(jìn)銷存管理系統(tǒng)主窗體運(yùn)行結(jié)果如圖4所示。圖4 主窗體運(yùn)行的結(jié)果1設(shè)計(jì)步驟（1）運(yùn)行Delphi會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，設(shè)置該窗體為程序主窗體，命名為“F_zct”，設(shè)置窗體的Caption屬性為“進(jìn)銷存管理系統(tǒng)”；BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。（2）在“Additional”組件頁(yè)中點(diǎn)選“TActionManager”組件，添加到窗體上，命名為“ActionManage1”，雙擊該組件打開“動(dòng)作編輯器”，選擇“Toolbars”選項(xiàng)卡，單擊【New】按鈕添加“TActionToolBar”對(duì)象，命名為“ActionToolBar1”，如圖5所示。圖5 添加TActionToolBar對(duì)象（3）選擇“Actions”選項(xiàng)卡，單擊【New Action】按鈕，添加“TAction”對(duì)象，并在“Object Inspector”窗口中設(shè)置Caption屬性，如圖6所示。圖6 添加TAction對(duì)象（4）在窗體上點(diǎn)選ActionManager1組件，在“Object Inspector”窗口中，單擊ActionBars屬性右側(cè)的【】按鈕，彈出如圖7所示的對(duì)話框。圖7 菜單欄設(shè)置1（5）在彈出的對(duì)話框中點(diǎn)選“0-ActionBar->ActionTooBar1”，在“Object Inspector”窗口中，單擊Items屬性右側(cè)的【】按鈕，在彈出的對(duì)話框中，單擊【Add New】按鈕添加菜單項(xiàng)，并設(shè)置各個(gè)菜單項(xiàng)的Action屬性，如圖8所示。 圖8 菜單欄設(shè)置2（6）點(diǎn)選各菜單項(xiàng)，在“Object Inspector”窗口中，單擊Items屬性右側(cè)的【】按鈕，在彈出的對(duì)話框中設(shè)置子菜單項(xiàng)。（7）在“Win32”組件頁(yè)中點(diǎn)選“TStatusBar”組件，添加到窗體上，命名為“StatusBar1”。TStatusBar組件用于顯示狀態(tài)信息，雙擊StatusBar1組件，在彈出的對(duì)話框中單擊【Add New】按鈕添加面板。在“Object Inspector”窗口中設(shè)置面板的Width屬性和Caption屬性，如圖9所示。圖9 面板編輯器（8）在“Standard”組件頁(yè)中點(diǎn)選“TPanel”組件。在窗體上添加3個(gè)TPanel組件，分別命名為“Panel3”、“Panel1”、“Panel4”，分別設(shè)置其Align屬性為“alTop”、“alLeft”、“alClient”。（9）在“Additional”組件頁(yè)中點(diǎn)選“TImage”組件，分別添加到Panel3組件和Panel1組件上，并在“Object Inspector”窗口中通過(guò)Picture屬性為其加載圖片。當(dāng)用戶單擊主窗體左側(cè)的按鈕時(shí)，在右則將彈出相應(yīng)的功能圖片。在右側(cè)的面板中添加多個(gè)TPanel組件，并在相應(yīng)的TPanel組件上添加TImage組件，并為TImage組件加載圖片。（10）在“Additional”組件頁(yè)中點(diǎn)選“TSpeedButton”組件，將TSpeedButton組件添加到圖片相應(yīng)的位置，設(shè)置其Flat屬性為“True”；Caption屬性為空。2程序相關(guān)代碼在窗體的OnKeyDown事件處理過(guò)程中設(shè)置用戶按下F5鍵時(shí)關(guān)閉窗體。代碼如下：procedure TF_zct.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin F_zct.KeyPreview:=True; /設(shè)置窗體先接受鍵盤按下事件 if key=vk_F5 then Close;end;在窗體的OnCloseQuery事件處理過(guò)程中讓用戶確認(rèn)是否關(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è)按鈕的單擊事件處理過(guò)程中，設(shè)置相應(yīng)的面板在其他面板前面。代碼如下：procedure TF_zct.SpeedButton1Click(Sender: TObject);begin kumanage.BringToFront; /設(shè)置面板在最前面end;在窗體右側(cè)的功能按鈕單擊事件處理過(guò)程中，動(dòng)態(tài)創(chuàng)建相應(yīng)的功能窗體。動(dòng)態(tài)創(chuàng)建“庫(kù)存狀況窗體”代碼如下：procedure TF_zct.SpeedButton9Click(Sender: TObject);begin Application.CreateForm(TF_kczk, F_kczk); /創(chuàng)建窗體 F_kczk.ShowModal; /顯示窗體 F_kczk.Free; /釋放窗體end;在窗體的OnShow事件處理過(guò)程中，添加TCheckBox組件到面板中。指定TCheckBox組件的父對(duì)象并設(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ā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能?；A(chǔ)窗體如圖10所示。圖10 基礎(chǔ)窗體1基礎(chǔ)窗體設(shè)計(jì)步驟添加一個(gè)新窗體，命名為“F_base”，設(shè)置其BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。2程序相關(guān)代碼在窗體的OnKeyPress事件處理過(guò)程中設(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ù)模塊設(shè)計(jì)數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)組件。數(shù)據(jù)模塊如圖11所示。圖11 數(shù)據(jù)模塊1數(shù)據(jù)模塊創(chuàng)建（1）在Delphi中選擇“File”/“New”/“Data Module”菜單項(xiàng)，新建一個(gè)數(shù)據(jù)模塊，命名為“F_dm”。（2）在“ADO”組件頁(yè)中點(diǎn)選“TADOConnection”組件，添加到窗體上，命名為“ADOConnection1”。TADOConnection組件用于連接數(shù)據(jù)庫(kù)，其他數(shù)據(jù)庫(kù)組件通過(guò)它連接數(shù)據(jù)庫(kù)。（3）點(diǎn)選ADOConnection1組件，在“Object Inspector”窗口中，單擊ConnectionString屬性右側(cè)的【】按鈕，彈出對(duì)話框，如圖12所示。圖12 設(shè)置連接字符串（4）單擊【Build】按鈕，在彈出的對(duì)話框中 “提供程序”選項(xiàng)卡中選擇希望連接的數(shù)據(jù)所需的驅(qū)動(dòng)程序，如圖13所示。圖13 選擇驅(qū)動(dòng)程序（5）選擇“連接”選項(xiàng)卡，設(shè)置數(shù)據(jù)庫(kù)連接相關(guān)設(shè)置，如圖14所示。圖14 數(shù)據(jù)庫(kù)連接設(shè)置（6）單擊【測(cè)試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫(kù)的連接。（7）在窗體上添加TADOQuery組件和TADOCommand組件，設(shè)置它們的Connection屬性為“ADOConnection1”。4.4 庫(kù)存商品模塊設(shè)計(jì)庫(kù)存商品模塊主要實(shí)現(xiàn)瀏覽、添加、修改、刪除、查詢、打印商品信息等功能。庫(kù)存商品模塊運(yùn)行結(jié)果如圖15所示。圖15 庫(kù)存商品模塊運(yùn)行的結(jié)果1窗體設(shè)計(jì)步驟（1）選擇“File”/“New”/“Other”菜單項(xiàng)，打開“New Items”對(duì)話框，選擇“ima”選項(xiàng)卡，點(diǎn)選“F_base”選項(xiàng)，以繼承方式使用該窗體。單擊【OK】按鈕添加一個(gè)新窗體，命名為“F_kcsp”，設(shè)置Caption屬性為“庫(kù)存商品”。（2）在“Win32”組件頁(yè)中點(diǎn)選“TToolBar”組件，添加到窗體上。在該組件上添加TSpeedButton組件，在“Object Inspector”窗口中通過(guò)Caption屬性為其設(shè)置相應(yīng)的文本，通過(guò)Glyph屬性為其指定圖標(biāo)。右鍵單擊TToolBar組件，在彈出的菜單中選擇“New Button”菜單項(xiàng)，并設(shè)置其Style屬性為“tbsDivider”。（3）在窗體上添加TPanel組件，命名為“Panel1”，設(shè)置Align屬性為“alBottom”；Visable屬性為“False”。在TPanel組件上添加TGroupBox組件，設(shè)置其Caption屬性為“查詢條件”。在“Standard”組件頁(yè)中找到TLabel組件、TEdit組件和TComboBox組件，添加到TGroupBox組件上。點(diǎn)選TComboBox組件，在“Object Inspector”窗口中，單擊Items屬性，在彈出的對(duì)話框中添加項(xiàng)目，如圖16所示。圖16 添加項(xiàng)目（4）在“ADO”組件頁(yè)中點(diǎn)選“TADOQuery”組件，添加到窗體上，命名為“ADOQuery1”。在“Data Access”組件頁(yè)中點(diǎn)選“TDataSource”組件，添加到窗體上，命名為“DataSource1”。設(shè)置ADOQuery1組件的Connection屬性為“F_dm.ADOConnection1”；設(shè)置DataSource1組件的DataSet屬性為“ADOQuery1”。（5）在“Data Controls”組件頁(yè)中點(diǎn)選“TDBGrid”組件，添加到窗體上，命名為“DBGrid1”，設(shè)置其Align屬性為“alClient”；DataSource屬性為“DataSource1”，雙擊DBGrid1組件，在彈出的列編輯器中設(shè)置字段標(biāo)題，如圖17所示。 圖17 為TDBGrid組件設(shè)置列標(biāo)題（6）在“Rave”組件頁(yè)中點(diǎn)選“TRvDataSetConnection”組件、“TRvProject”組件，添加到窗體上，分別命名為“RvDataSetConnection1”、“RvProject1”，設(shè)置RvDataSetConnection1組件的DataSet屬性為“ADOQuery1”。設(shè)置RvProject1組件的ProjectFile屬性為制作的報(bào)表文件。2程序相關(guān)代碼在窗體的OnShow事件處理過(guò)程中打開庫(kù)存商品表。代碼如下：procedure TF_kcsp.FormShow(Sender: TObject);begin inherited; /由于窗體是繼承自基窗體該代碼自動(dòng)生成。意為調(diào)用父類的同名方法。 change:=False; with adoquery1 do begin Close; SQL.Clear; SQL.Add('Select * from tb_stock order by tradecode asc'); /排序 Open; end;end;在【添加】按鈕的單擊事件處理過(guò)程中動(dòng)態(tài)創(chuàng)建添加庫(kù)存商品基本信息窗體。代碼如下：procedure TF_kcsp.SpeedButton4Click(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 Application.CreateForm(TF_sbjbcx, F_sbjbcx); /創(chuàng)建窗體 F_sbjbcx.ShowModal; /顯示窗體 F_sbjbcx.Free; /釋放窗體end;在【刪除】按鈕的單擊事件處理過(guò)程中當(dāng)用戶確認(rèn)刪除后刪除數(shù)據(jù)。代碼如下：procedure TF_kcsp.SpeedButton2Click(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 try if Application.MessageBox('是否刪除當(dāng)前記錄？','提示',mb_yesno)=id_yes then Adoquery1.Delete; except Application.MessageBox('不能刪除','提示',mb_yesno); end;end;在【查詢】按鈕的單擊事件處理過(guò)程中動(dòng)態(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.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語(yǔ)句 SQL.Add('where '+''+searchwhat+''+' like :a order by tradecode'); parameters.ParamByName('a').Value:='%'+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('請(qǐng)正確輸入條件','提示',mb_ok); end; end;end;在【打印】按鈕的單擊事件處理過(guò)程中指定報(bào)表文件、預(yù)覽報(bào)表。代碼如下：procedure TF_kcsp.SpeedButton6Click(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 /指定報(bào)表文件 Rvproject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'stockprint.rav' RvProject1.Execute; /預(yù)覽報(bào)表end;4.5 商品基本信息模塊設(shè)計(jì)商品基本信息模塊主要功能是錄入商品基本信息，便于其他窗體使用，在該模塊中可以設(shè)置商品的報(bào)警上下限。商品基本信息模塊運(yùn)行結(jié)果如圖18所示。圖18 商品基本信息模塊運(yùn)行的結(jié)果1窗體設(shè)計(jì)步驟（1）從基礎(chǔ)窗體繼承一個(gè)窗體，命名為“F_sbjbcx”，設(shè)置其Caption屬性為“商品基本信息”。（2）在“Additional”組件頁(yè)中點(diǎn)選“TBevel”組件，為每一類數(shù)據(jù)添加邊框。（3）在“Additional”組件頁(yè)中點(diǎn)選“TGroupBox”組件，添加到窗體上，命名為“GroupBox1”，設(shè)置其Caption屬性為“輸入報(bào)警值-請(qǐng)輸入大于0的數(shù) 0為不報(bào)警”。在GroupBox1組件上添加2個(gè)TLabel組件和2個(gè)TEdit組件。分別設(shè)置TLabel組件的Caption屬性為“商品報(bào)警上限：”、“商品報(bào)警下限：”。（4）在窗體上添加TLabel組件和TEdit組件，在“Additional”組件頁(yè)中點(diǎn)選“TBitBtn”組件，添加到窗體上，分別命名為“BitBtn1”、“BitBtn2”，設(shè)置BitBtn1組件的Caption屬性為“保存”，通過(guò)Glyph屬性為其指定圖標(biāo)。設(shè)置BitBtn2組件的Caption屬性為“退出”，通過(guò)Glyph屬性為其指定圖標(biāo)。2程序相關(guān)代碼在窗體的OnShow事件處理過(guò)程中如果為修改，將要修改的記錄顯示在窗體的編輯框中。代碼如下：procedure TF_sbjbcx.FormShow(Sender: TObject);begin inherited; /調(diào)用父類的同名方法 try if F_kcsp.change=True then /判斷是否為修改 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; Edit7.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)用過(guò)程getspbh得到編號(hào) Edit2.Text:=F_kcsp.spbh; end; except end;end;調(diào)用getspbh過(guò)程得到商品編號(hào)。getspbh過(guò)程完整代碼如下：procedure TF_kcsp.getspbh(sender:Tobject); /得到商品編號(hào)begin adoquery1.Last; if adoquery1.RecordCount=0 then spbh:='T'+formatfloat('00000',1) /格式化編號(hào) else spbh:='T'+Formatfloat('00000',strtoint(copy(adoquery1.Fields0.AsString,2,5)+1);end;4.6 進(jìn)貨單錄入模塊設(shè)計(jì)進(jìn)貨單錄入窗體主要功能是錄入進(jìn)貨的相關(guān)信息，在該模塊中支持多行錄入，可以調(diào)用其他信息提示窗體。進(jìn)貨單錄入模塊運(yùn)行結(jié)果如圖19所示。圖19 進(jìn)貨單錄入模塊運(yùn)行的結(jié)果1窗體設(shè)計(jì)步驟（1）從基礎(chǔ)窗體繼承一個(gè)窗體，命名為“F_jhd”，設(shè)置其Caption屬性為“進(jìn)貨單錄入”。（2）在窗體上添加TLabel組件、TEdit組件、TDateTimePicker組件，用于輸入信息。在“Additional”組件頁(yè)中點(diǎn)選“TStringGrid”組件，添加到窗體上，命名為“StringGrid1”。設(shè)置StringGrid1組件的RowCount屬性為“10”；ColCount屬性為“10”。（3）在窗體上添加TSpeedButton組件，通過(guò)Glyph屬性為其指定圖標(biāo)。添加TBitBtn組件，用于完成“保存”、“取消”功能。（4）在窗體上添加TPanel組件，命名為“Panel1”，設(shè)置其Caption屬性為空。用于顯示統(tǒng)計(jì)應(yīng)付金額。（5）在窗體上添加TADOQuery組件，命名為“ADOQuery1”，設(shè)置其Connection屬性為“F_dm.ADOConnection1”。2程序相關(guān)代碼在窗體的OnShow事件處理過(guò)程中初始化相關(guān)信息。代碼如下：procedure TF_jhd.FormShow(Sender: TObject);begin inherited; F_zct.wf:=1; /窗體標(biāo)記 DateTimePicker1.Date:=now(); /初始化為當(dāng)天日期 with F_jhd.StringGrid1 do /設(shè)置列標(biāo)題 begin Cells1,0:='商品編號(hào)' Cells2,0:='商品全稱' Cells3,0:='商品型號(hào)' Cells4,0:='商品規(guī)格' Cells5,0:='單位' Cells6,0:='產(chǎn)地' Cells7,0:='數(shù)量' Cells8,0:='進(jìn)貨價(jià)' Cells9,0:='金額' end; with adoquery1 do begin close; SQl.Clear; SQl.Add('select * from tb_warehouse_main'); Open; end; F_jhd.getspbh(sender); /調(diào)用過(guò)程getspbh取得編號(hào) Edit2.Text:=spbh;end;雙擊TStringGrid組件左側(cè)的按鈕動(dòng)態(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;在彈出的信息提示窗體的【確定】按鈕單擊事件處理過(guò)程中將數(shù)據(jù)添加到TStringGrid組件中。代碼如下：if F_zct.wf=1 then /往進(jìn)貨單錄入窗體添加數(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ù)庫(kù)的數(shù)據(jù)讀出 begin gcol:=xh; if xh>=2 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;在【保存】按鈕的單擊事件處理過(guò)程中，首先啟動(dòng)事務(wù)，然后對(duì)相關(guān)表進(jìn)行操作，如果成功，提交事務(wù)，否則回滾事務(wù)。代碼如下：procedure TF_jhd.BitBtn1Click(Sender: TObject);var gcol,grow,xhjc:integer; ave:string; /age加權(quán)平均價(jià)begin inherited; if (Trim(Edit3.Text)='') or (Trim(Edit4.Text)='') or (Trim(Edit6.Text)='') or (stringgrid1.Cells9,1='') then begin Application.MessageBox('請(qǐng)輸入完整信息','提示',mb_ok); Exit; end; for xhjc:=1 to strdbrows do begin if (stringgrid1.Cells7,xhjc='') or (strtofloat(stringgrid1.Cells8,xhjc)<=0) then begin Application.MessageBox('請(qǐng)輸入商品數(shù)量或金額','提示',mb_ok); Exit; end; end; try F_dm.ADOConnection1.BeginTrans; /啟動(dòng)事務(wù) with Adoquery1 do /將信息保存到進(jìn)貨主表 begin Close; SQl.Clear; SQl.Add('select * from tb_warehouse_main'); open; insert; 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); FieldByName('fullpayment').AsFloat:=strtofloat(panel1.Caption); FieldByName('payment').AsFloat:=strtofloat(format('%10.4f',strtofloat(Edit6.Text);詳細(xì)代碼參見光盤 post; end; end; F_dm.ADOConnection1.CommitTrans; /提交事務(wù) Application.MessageBox('保存成功','提示',mb_ok); except F_dm.ADOConnection1.RollbackTrans; /回滾事務(wù) Application.MessageBox('保存不成功','提示',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ù)編號(hào) Edit2.Text:=spbh; /顯示編號(hào)值end;附錄A 參考文獻(xiàn)1Visual Basic精彩編程200例 機(jī)械工業(yè)出版社賽奎春、高春艷等 2003年1月2Visual Basic數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社劉志銘、高春艷等 2003年8月3Visual FoxPro數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社王晶瑩、王國(guó)輝等 2003年9月4Power Builder數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社華傳銘、張振坤等 2003年9月5Delphi數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 賽奎春、鄭驍鵬等 2004年2月6PowerBuilder 精彩編程200例 機(jī)械工業(yè)出版社 張振坤、李文立等2004年9月7Visual FoxPro 精彩編程200例 機(jī)械工業(yè)出版社 王國(guó)輝、董韶華等 2004年9月8ASP數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李嚴(yán)、于亞芳、王國(guó)輝2004年12月9Delphi工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 宋坤、趙智勇等 2005年1月10Visual Basic工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社高春艷、李俊民等 2005年1月11Visual C工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社張雨、阮偉良等 5005年1月12JSP工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 陳威、白偉明、李楠2005年2月13ASP工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 王國(guó)輝、牛強(qiáng)、李南南2005年4月14Visual Basic 信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社高春艷、李俊民、張耀庭等2005年7月15ASP 信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 王國(guó)輝、牛強(qiáng)、李南南等 2005年7月16Delphi 信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 宋坤、趙智勇、劉強(qiáng)等 2005年7月17Visual foxpro數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 周桓、張雨、王國(guó)輝 2004年5月18PoweBuilder數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 劉志銘 張振坤 馮文萃 2004年5月19Delphi數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 賽奎春 陳紫鴻 宋昆 2004年5月20Visual basic數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 高春艷、李艷 2004年5月21Visual C+ 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月22Visual Basic 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月23PowerBuilder 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月24Visual FoxPro管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月25SQL Server數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 宋昆、李嚴(yán)等 2006年1月26Access數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李俊民、高春燕等 2006年1月附錄B 數(shù)據(jù)表（1）職員信息表（tb_employ）職員信息表用來(lái)保存職員信息。職員信息表的結(jié)構(gòu)如表B.1所示。表B.1 職員信息表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述employecodeVarchar6職員編號(hào)fullnameVarchar20是職員全稱nameVarchar20職員簡(jiǎn)稱sexVarchar2性別departmentVarchar20所在部門telVarchar20聯(lián)系電話memoVarchar40備注shortcodeVarchar10拼音簡(jiǎn)碼（2）進(jìn)貨主表（tb_warehouse_main）進(jìn)貨主表用來(lái)保存進(jìn)貨中主要和相同的信息。進(jìn)貨主表的結(jié)構(gòu)如表B.2所示。表B.2 進(jìn)貨主表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述Billdatedatetime8錄單日期Billcodevarchar20是單據(jù)編號(hào)Unitsvarchar20供貨單位Handlevarchar20經(jīng)手人Summaryvarchar100摘要Fullpaymentfloat8應(yīng)付金額Paymentfloat8實(shí)付金額（3）進(jìn)貨明細(xì)表（tb_warehouse_detailed）進(jìn)貨明細(xì)表用來(lái)保存進(jìn)貨中商品的詳細(xì)信息。進(jìn)貨明細(xì)表結(jié)構(gòu)如表B.3所示。表B.3 進(jìn)貨明細(xì)表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billcodeVarchar20單據(jù)編號(hào)tradecodeVarchar20商品編號(hào)fullnameVarchar20商品全稱typeVarchar10商品型號(hào)standardVarchar10商品規(guī)格unitChar4單位produceVarchar20產(chǎn)地qtyFloat8數(shù)量priceFloat8進(jìn)價(jià)tsumFloat8金額billdateDatetime8錄單日期（4）用戶權(quán)限表（tb_power）用戶權(quán)限表用來(lái)保存用戶權(quán)限設(shè)置信息。用戶權(quán)限表結(jié)構(gòu)如表B.4所示。表B.4 用戶權(quán)限表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述numberVarchar20是用戶編號(hào)usersVarchar20用戶名稱passwordVarchar20用戶密碼stockBit1進(jìn)貨管理venditionBit1銷售管理checkedBit1庫(kù)存管理moneyBit1錢流管理systemBit1系統(tǒng)維護(hù)baseBit1基本信息（5）費(fèi)用表（tb_cf）費(fèi)用表用于記錄費(fèi)用信息。費(fèi)用表結(jié)構(gòu)如表B.5所示。表B.5 費(fèi)用表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20單據(jù)編號(hào)unitsvarchar20收款單位numbervarchar20費(fèi)用項(xiàng)目編號(hào)namevarchar20費(fèi)用項(xiàng)目名稱handlevarchar20經(jīng)手人fullpaymentvarchar20應(yīng)付金額paymentfloat8實(shí)付金額summaryvarchar20摘要（6）往來(lái)賬明細(xì)表（tb_currentaccount）往來(lái)賬明細(xì)表用于記錄往來(lái)單位的應(yīng)收、應(yīng)付賬目。往來(lái)賬明細(xì)表結(jié)構(gòu)如表B.6所示。表B.6 往來(lái)賬明細(xì)表結(jié)構(gòu) 字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20是單據(jù)編號(hào)unitsvarhcar20往來(lái)單位addgatheringfloat8應(yīng)收增加reducegatheringfloat8應(yīng)收減少balancefloat8應(yīng)收余額summaryvarchar100摘要（7）費(fèi)用類型表（tb_freetype）費(fèi)用類型表用于存儲(chǔ)費(fèi)用類型信息。費(fèi)用類型表表結(jié)構(gòu)如表B.7所示。表B.7 費(fèi)用類型表字段名稱字段類型字段大小主鍵否功能描述subjectcodevarchar3科目編號(hào)fullnamevarhcar20是科目全稱namevarchar10科目簡(jiǎn)稱memovarhcar40備注shortcodevarchar10拼音簡(jiǎn)碼（8）收款信息表（tb_gathering）收款信息表用于保存收款信息。收款信息表結(jié)構(gòu)如表B.8所示。表B.8 收款信息表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20是單據(jù)編號(hào)unitsvarchar20付款單位gatheringfloat8金額handlevarchar20經(jīng)手人summaryvarchar40摘要（9）付款信息表（tb_payment）付款信息表用于保存付款信息。付款表結(jié)構(gòu)如表B.9所示。表B.9 付款表結(jié)構(gòu)字段名稱字段類型字段大小主鍵否功能描述billdatedatetime8錄單日期billcodevarchar20是單據(jù)編號(hào)unitsvarchar20收款單位paymentfloat8金額handlevarchar20經(jīng)手人summaryvarchar100摘要（10）銷售退貨明細(xì)表（tb_resell_detailed）銷售退貨明細(xì)表用于保存銷售退貨的詳細(xì)信息。銷售退貨明細(xì)表結(jié)構(gòu)如表10所示。表B.10 銷售退貨明