公司倉庫管理系統(tǒng)(doc22)

精心整理企業(yè)庫房管理系統(tǒng)第一章企業(yè)介紹與系統(tǒng)的需求解析1.1企業(yè)簡介佳雪企業(yè)是一個(gè)專銷電動(dòng)機(jī)的企業(yè)，主要業(yè)務(wù)是進(jìn)行電動(dòng)機(jī)的進(jìn)貨與分銷，作為一個(gè)銷售的中介企業(yè)，其要求有入庫與出庫的主要數(shù)據(jù)庫，能夠簡單的記錄數(shù)據(jù)，而且能夠進(jìn)行多方面的查問，使得企業(yè)有較詳盡的數(shù)據(jù)統(tǒng)計(jì)與解析。其主要業(yè)務(wù)如以以下列圖所示：1.廠商庫房顧客圖2.查問功能1）按型號(hào)查問有兩個(gè)結(jié)果：A生成入庫量、出庫量、節(jié)余量生成兩個(gè)數(shù)據(jù)根源表，包括出庫根源與入庫根源；2）按單位查問結(jié)果：生成型號(hào)、產(chǎn)品名稱、時(shí)間（入/出庫）、單價(jià)重生成進(jìn)出庫的兩個(gè)基本情況表，包括供給商和顧客的基本情況，如型號(hào)、出/入庫時(shí)間，單價(jià)，發(fā)票編號(hào)、結(jié)帳情況；3.本系統(tǒng)主要運(yùn)用VisualBasic的內(nèi)嵌數(shù)據(jù)庫Access來記錄數(shù)據(jù)；4.產(chǎn)品信息：序號(hào)（自動(dòng)生成）、型號(hào)（文本）、入庫時(shí)間（日期）、出庫時(shí)間（日期）、數(shù)量（數(shù)字）、發(fā)票編號(hào)（文本）、單價(jià)（錢幣）、廠商名稱（文本）、供給商名稱（文本）、廠商與供給商的電話（數(shù)字）、結(jié)帳情況（是/否）[是為0，否為-1]精心整理2解析與描繪.依據(jù)1.1章節(jié)的詳盡要求，總結(jié)出以下的數(shù)據(jù)流程：輸入數(shù)據(jù)入庫出庫查問增修加改

刪除

增修加改

刪除

單位

型號(hào)供應(yīng)

顧客

入庫

出庫商圖數(shù)據(jù)流程.依據(jù)以上情況，按要求設(shè)計(jì)了幾個(gè)有關(guān)的數(shù)據(jù)庫表：出庫、入庫查問：查問結(jié)余、出庫查問、入庫查問、型號(hào)出庫查問、型號(hào)入庫查問主要的出庫表屬性如以下表所示：字段名屬性字段大小序號(hào)自動(dòng)生成長整型型號(hào)文本50產(chǎn)品名稱文本50出庫數(shù)量數(shù)字長整型單價(jià)錢幣自動(dòng)小數(shù)出庫時(shí)間日期年-月-日發(fā)票編號(hào)文本50顧客電話文本50結(jié)帳情況是/否2表由于入庫表與出庫想近似，因此在此不做詳盡介紹。為了方便查問，因此在出庫與入庫的基礎(chǔ)上增添了幾個(gè)查問表，詳盡字段以下：精心整理1.查問結(jié)余：型號(hào)、產(chǎn)品名稱、出庫數(shù)量、入庫數(shù)量2.出庫查問：顧客名稱、型號(hào)、出庫時(shí)間、單價(jià)、出庫數(shù)量OFSUM、發(fā)票編號(hào)、結(jié)帳情況3.入庫查問：供給商名稱、型號(hào)、入庫時(shí)間、單價(jià)、入庫數(shù)量OFSUM、發(fā)票編號(hào)、結(jié)帳情況4.出庫型號(hào)查問：型號(hào)、產(chǎn)品名稱、顧客名稱、單價(jià)、發(fā)票編號(hào)、結(jié)帳情況5.入庫型號(hào)查問：型號(hào)、產(chǎn)品名稱、供給商名稱、單價(jià)、發(fā)票編號(hào)、結(jié)帳情況1.3數(shù)據(jù)庫的主要特點(diǎn)數(shù)據(jù)庫中的每一個(gè)表都必然符合下面幾個(gè)特點(diǎn)：表中的每一個(gè)單元的內(nèi)容只有一個(gè)值所有字段的名稱都不同樣記錄的前后序次和字段的左右序次能夠變化，不受限制數(shù)據(jù)庫中的表的上下序次不受限制表中不應(yīng)有內(nèi)容圓滿同樣的記錄表中的每一個(gè)字段都必然有同樣的數(shù)據(jù)種類使用VisualBasic開發(fā)應(yīng)用程序的兩個(gè)主要思想：可視設(shè)計(jì)事件驅(qū)動(dòng)編程VisualBasic應(yīng)用程序不同樣于其他語言開發(fā)的單調(diào)性程序。使用VisualBasic編程時(shí)，必然第一確定應(yīng)用程序怎樣與用戶交互，如鼠標(biāo)單擊，用戶必然編寫代碼控制這些事件的響應(yīng)方法。使用VisualBasic開發(fā)數(shù)據(jù)庫應(yīng)用程序的一般步驟以下所示：（1）成立數(shù)據(jù)庫精心整理2）成立用戶界面3）編寫代碼4）調(diào)試運(yùn)行5）編譯應(yīng)用程序6）宣布應(yīng)用程序界面設(shè)計(jì)1）控件的地點(diǎn)2）界面元素的一致性3）保持界面的簡潔4）使用顏色和圖象：增添視覺的感染力5）圖象和圖標(biāo)：增添應(yīng)用程序的視覺上的興趣6）采用字體VisualBasic應(yīng)用程序的構(gòu)造：由于VisualBasic應(yīng)用程序是鑒于對象的，因此應(yīng)用程序的代碼構(gòu)造就是該程序在屏幕上物理表示的模型。依據(jù)定義，對象包括數(shù)據(jù)和代碼。在屏幕上看到的窗體代表屬性，這些屬性定義了窗體的外觀和內(nèi)在特點(diǎn)。本設(shè)計(jì)主假如運(yùn)用Data控件。Data控件主假如翻開、接見并操作已有的數(shù)據(jù)庫，它是VisualBasic接見數(shù)據(jù)庫的最常用的工具之一。由于Data控件使用Microsoft的Jet引擎來實(shí)現(xiàn)數(shù)據(jù)接見（與MicrosoftAccess所用的數(shù)據(jù)庫引擎同樣），使用戶能夠無縫地接見很多標(biāo)準(zhǔn)的數(shù)據(jù)庫格式，而且無需編寫任何代碼就能夠創(chuàng)立數(shù)據(jù)應(yīng)用程序，因此這種

VisualBasic

內(nèi)部的Data控件最合適小的（桌面）數(shù)據(jù)庫，諸如

Access和

ISAM

數(shù)據(jù)庫等。由于Data控件是VisualBasic的內(nèi)部控件，因此能夠直接在標(biāo)準(zhǔn)工具箱中找到該精心整理控件。在程序運(yùn)行過程中，只需用鼠標(biāo)單擊控件上的箭頭按鈕，系統(tǒng)將自動(dòng)改正Data控件指向的記錄和顯示在拘束控件中的數(shù)據(jù)，而不需要編寫任何代碼。能夠?qū)⒍鄠€(gè)Data控件同時(shí)增添到一個(gè)工程甚至是同一個(gè)窗體中。其他，每個(gè)控件能夠連結(jié)到不同樣的數(shù)據(jù)庫或同一個(gè)數(shù)據(jù)庫的不同樣表上，還能夠夠和代碼一同查問知足的語句的表的記錄集。使用Data控件能夠顯示、編寫和更新來字各樣已有的數(shù)據(jù)庫信息。其他，還能夠夠接見和操作遠(yuǎn)程的開放式數(shù)據(jù)庫連結(jié)。除了使用Data控件之外，還運(yùn)用的VisualBasic6.0的新增控件功能，Dblistbox它不象標(biāo)準(zhǔn)的列表框或組合框那樣需要使用AddItem方法增添列表項(xiàng)。其他，它們還能夠夠有選擇地把某個(gè)選定的字段傳達(dá)給另一個(gè)Data控件，使得它關(guān)于“查找表”應(yīng)用程序很理想。與其他的拘束控件不同樣，這些控件能夠同時(shí)顯示多個(gè)記錄。拘束數(shù)據(jù)列表控件近似于一般的列表框控件，能夠顯示記錄集中的數(shù)據(jù)，網(wǎng)格中的每一行代表記錄集中的一個(gè)記錄。第二章管理系統(tǒng)的設(shè)計(jì)與解析2.1進(jìn)入界面由于系統(tǒng)的的界面比較單調(diào)，因此在設(shè)計(jì)過程中運(yùn)用了很多網(wǎng)上下載的圖片來增添界面的可觀性。在考慮到操作員的技術(shù)水平有限，因此在控件方面只運(yùn)用了COMMAND，這樣不只能是界面清楚，更能是操作者很快學(xué)會(huì)，簡單易懂?！按_定”能夠進(jìn)入界面，如按“系統(tǒng)信息”的話，將顯示本系統(tǒng)的詳首飾硬件情況。精心整理圖“確定”圖圖2入庫界面精心整理圖控件控件名種類FormFrmrsg1DataData1CommandDialogCommand1Command2Command3Command4Command5Command6Command7Command8LableLable1Lable2Lable3Lable4Lable5Lable6Lable7Lable8Lable9Lable10

主要屬性Caption=“入庫情況”Databasename=“A\db2.mdb”Recordsettype=1’DynasetCaption=“入庫情況”Caption=“上一個(gè)”Caption=“下一個(gè)”Caption=“確定”Caption=“取消”Caption=“退出”Caption=“增添”Caption=“改正”Caption=“刪除”Caption=“序號(hào)”Caption=“型號(hào)”Caption=“產(chǎn)品名稱”Caption=“數(shù)量”Caption=“單價(jià)”Caption=“入庫時(shí)間”Caption=“發(fā)票名稱”Caption=“供給商名稱”Caption=“電話”Caption=“結(jié)帳情況”精心整理TextText1Caption=“序號(hào)”Datasource=“data1”Text2Caption=“型號(hào)”Datasource=“data1”Text3Caption=“產(chǎn)品名稱”Datasource=“data1”Text4Caption=“數(shù)量”Datasource=“data1”Text5Caption=“單價(jià)”Datasource=“data1”Text6Caption=“入庫時(shí)間”Datasource=“data1”Text7Caption=“發(fā)票名稱”Datasource=“data1”Text8Caption=“供給商名稱”Datasource=“data1”Text9Caption=“電話”Datasource=“data1”Text10Caption=“結(jié)帳情況”Datasource=“data1”表控件說明增添新記錄當(dāng)單擊“確定”按鈕后，“確定”和“取消”兩個(gè)按鈕顯示，同時(shí)使其他的按鈕不能見，這樣做是為了防范用戶的誤操作。其主要程序以下：PrivateSubCommand5_Click()xg=True'顯示“確定”和“取消”兩個(gè)按鈕Command3.Visible=TrueCommand4.Visible=True'取消其他按鈕功能Command5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=False'增添一個(gè)新記錄Text1.SetFocus'光標(biāo)在TEXT1處endsub改正記錄在調(diào)用EDIT方法以前，拘束控件中的數(shù)據(jù)是只讀的，用戶無法對其進(jìn)行改正。調(diào)用了EDIT方法后，用戶能夠在拘束控件中改正記錄的值。假如在對目前記錄進(jìn)行改正以前改正，未使用EDIT方法，將發(fā)生運(yùn)行時(shí)錯(cuò)誤。精心整理其主要程序以下：PrivateSubCommand6_Click()xg=TrueCommand3.Enabled=TrueCommand4.Enabled=True'取消其他按鈕功能Command5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=False'對記錄進(jìn)行編寫Text1.SetFocusEndSub刪除記錄當(dāng)用戶單擊“刪除”命令按鈕時(shí)，為了防范用戶誤刪除數(shù)據(jù)，程序?qū)⒄{(diào)用Msgbox（）函數(shù)以彈出對話框，咨詢用戶能否真的要?jiǎng)h除該記錄。假如用戶單擊對話框上的“確定”按鈕，程序調(diào)用記錄集的Delete方法，將記錄集的目前記錄設(shè)置為空，并從原始的表中刪掉目前記錄。但是刪除的記錄仍舊是目前記錄，但是將其變成了無效的記錄，任何對其的引用都會(huì)產(chǎn)生錯(cuò)誤。其主要程序以下：PrivateSubCommand6_Click()xg=TrueCommand3.Enabled=TrueCommand4.Enabled=True'取消其他按鈕功能Command5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=False'對記錄進(jìn)行編寫Text1.SetFocusEndSubPrivateSubCommand7_Click()ss=MsgBox("真的要?jiǎng)h除嗎？",vbYesNo+vbInformation,"刪除記錄")'假如要?jiǎng)h除精心整理If(ss=vbYes)ThenIfThenCommand2.Enabled=FalseEndIfEndIfEndSub挪動(dòng)數(shù)據(jù)當(dāng)用戶單擊“上一個(gè)”和“下一個(gè)”按鈕是，系統(tǒng)將自動(dòng)變換數(shù)據(jù)，但注意，當(dāng)移至第一個(gè)記錄時(shí)，“下一個(gè)”按鈕將無效；移至最后一個(gè)記錄是，“上一個(gè)”按鈕也將無效。其中在設(shè)計(jì)程序時(shí)，為了防范“NOCurrentRecord”這樣的錯(cuò)誤，在挪動(dòng)記錄指針時(shí)測試記錄集的BOF和EOF屬性。假如單擊“上一個(gè)”和“下一個(gè)”命令按鈕將致使記錄指針指向空指針，則分別調(diào)用Movefirst和Movelast方法，這是防范“NOCurrentRecord”錯(cuò)誤出現(xiàn)的最簡單和最有效的方法。與此同時(shí)，假如記錄集的BOF屬性為True,則置“上一個(gè)”命令按鈕為非激活狀態(tài)，是用戶無法再單擊該按鈕。同樣，當(dāng)記錄集的BOF屬性為True時(shí)，置“下一個(gè)”命令按鈕為非激活狀態(tài)。其主要程序以下：PrivateSubCommand1_Click()xg=False'假如是第一個(gè)記錄，BOF屬性為TRUEIfThenCommand1.Enabled=FalseElseCommand2.Enabled=TrueCommand1.Enabled=TrueEndIfEndSubPrivateSubCommand2_Click()xg=False'假如目前記錄是記錄集中最后一個(gè)記錄，EOF屬性為TRUEIfThenCommand2.Enabled=FalseElseCommand2.Enabled=TrueCommand1.Enabled=TrueEndIf精心整理EndSub用Updata方法確認(rèn)增添和改正當(dāng)用戶改正和增添完一個(gè)記錄的數(shù)據(jù)后，需要將數(shù)據(jù)保留到數(shù)據(jù)庫中。能夠經(jīng)過調(diào)用記錄集的Updata方法把數(shù)據(jù)保留到數(shù)據(jù)庫中。單擊“確定”按鈕時(shí)，記錄將被記如數(shù)據(jù)庫。其主要程序以下：PrivateSubCommand3_Click()OnErrorGoToerror1xg=TrueCommand3.Enabled=FalseCommand4.Enabled=FalseCommand2.Enabled=TrueCommand1.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueExitSuberror1:MsgBoxErr.Description,vbOKOnly,"錯(cuò)誤提示"EndSub用CancelUpdata方法放棄增添和改正假如用戶改正了拘束控件里的數(shù)據(jù)后，在沒有單擊“確定”命令按鈕以前，想放棄剛才的增添或改正，則能夠單擊“取消”命令。由于其程序與Updata方法相像，因此不做重復(fù)解說。定義Data_Validata事件過程關(guān)于一個(gè)新記錄或編寫的記錄，假如不能夠保護(hù)引用圓滿性或不能夠反應(yīng)該舊路的實(shí)體原型，那么它就是無效的，而且損壞了數(shù)據(jù)庫的圓滿性。為了在“入庫情況”表中成立一個(gè)有效的記錄，就必然要有主要點(diǎn)字段“型號(hào)”的值。因此，對已經(jīng)存在和新增添的舊路都要先測試其“型號(hào)”字段此后才能夠履行更新操作。其主要程序以下：'當(dāng)拘束控件中內(nèi)容改變時(shí)精心整理IfText2.DataChangedThenSave=TrueIf>1ThenCommand1.Enabled=TrueCommand2.Enabled=TrueEndIfElseIfText2.Text=""Andxg=TrueThenss=MsgBox("必然要有‘型號(hào)’！",vbOKOnly+vbInformation,"提示")Action=FalseCommand3.Visible=TrueCommand4.Visible=TrueCommand1.Visible=TrueCommand2.Visible=TrueCommand7.Visible=TrueCommand8.Visible=TrueCommand5.Visible=TrueCommand6.Visible=TrueEndIfEndIfIfAction=data_actionunloadOrAction=data_actioncloseThenSave=TrueEndIfEndSub2.3出庫界面當(dāng)單擊“出庫”圖精心整理2.4查問界面當(dāng)用戶單擊“查問”按鈕時(shí)，系統(tǒng)將出現(xiàn)密碼登岸框，由于查問的是內(nèi)部資料，因此，需身份考證，如圖圖隨后將進(jìn)入查問功能，如圖圖用戶可依據(jù)不同樣需要進(jìn)行“按型號(hào)”和“按單位”的查問。單擊“按型號(hào)”“上一個(gè)”和“下一個(gè)”進(jìn)行查問，也可按出庫與入庫分別查問記錄。圖精心整理當(dāng)用戶單擊“查問出庫”按鈕是，系統(tǒng)進(jìn)入界面，如圖圖控件種類控件名主要屬性FormfrmdblistCaption=“查問出庫”DataData1DatabaseName=“db2.mdb”RecordsetType=1FrameFrame1RecordSource=“出庫型號(hào)”Caption=“詳盡情況”LableLable1Cqption=“產(chǎn)品名稱”Lable2Cqption=“單價(jià)”Lable3Cqption=“發(fā)票編號(hào)”Lable4Cqption=“顧客名稱”Lable5Cqption=“結(jié)帳情況”TextText1Datafield=“詳盡情況”Text2Datasource=“Data1”Datafield=“詳盡情況”Text3Datasource=“Data1”Datafield=“詳盡情況”Datasource=“Data1”Text4Datafield=“詳盡情況”Text5Datasource=“Data1”Datafield=“詳盡情況”DBlistDblist1Datasource=“Data1”Listfield=“型號(hào)”Rowsource=“Data1”表單擊Dblist框中的型號(hào)，F(xiàn)rame中將自動(dòng)顯示記錄，以供用戶查問。精心整理當(dāng)用戶單擊“查問入庫”圖再回到查問界面，單擊“按單位”按鈕，此時(shí)系統(tǒng)將進(jìn)入按單位查問的截面，如圖圖分別按“顧客”和“供給商”由于以下兩個(gè)窗口的屬性以及其設(shè)計(jì)方法近似與圖4.3，因此也不做詳盡介紹。精心整理圖圖2.5退出程序“退出”“再見”，此程序也將結(jié)束。圖第三章系統(tǒng)運(yùn)行與調(diào)試測試自己的目的是盡可能地裸露程序中的錯(cuò)誤，因此在編譯達(dá)成后，我也試一試用現(xiàn)實(shí)數(shù)據(jù)來進(jìn)行正確的調(diào)試。在從中曾出現(xiàn)過以下幾個(gè)詳盡問題：1.MSDN不存在2.524數(shù)據(jù)變換錯(cuò)誤3.當(dāng)單擊“上一個(gè)”和“下一個(gè)”按鈕時(shí)會(huì)出現(xiàn)數(shù)據(jù)不存在而退出程序