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

刪除

增修加改

刪除

單位

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

顧客

入庫(kù)

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

VisualBasic

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

Access和

ISAM

數(shù)據(jù)庫(kù)等。由于Data控件是VisualBasic的內(nèi)部控件，因此能夠直接在標(biāo)準(zhǔn)工具箱中找到該精心整理控件。在程序運(yùn)行過(guò)程中，只需用鼠標(biāo)單擊控件上的箭頭按鈕，系統(tǒng)將自動(dòng)改正Data控件指向的記錄和顯示在拘束控件中的數(shù)據(jù)，而不需要編寫(xiě)任何代碼。能夠?qū)⒍鄠€(gè)Data控件同時(shí)增添到一個(gè)工程甚至是同一個(gè)窗體中。其他，每個(gè)控件能夠連結(jié)到不同樣的數(shù)據(jù)庫(kù)或同一個(gè)數(shù)據(jù)庫(kù)的不同樣表上，還能夠夠和代碼一同查問(wèn)知足的語(yǔ)句的表的記錄集。使用Data控件能夠顯示、編寫(xiě)和更新來(lái)字各樣已有的數(shù)據(jù)庫(kù)信息。其他，還能夠夠接見(jiàn)和操作遠(yuǎn)程的開(kāi)放式數(shù)據(jù)庫(kù)連結(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ì)過(guò)程中運(yùn)用了很多網(wǎng)上下載的圖片來(lái)增添界面的可觀性。在考慮到操作員的技術(shù)水平有限，因此在控件方面只運(yùn)用了COMMAND，這樣不只能是界面清楚，更能是操作者很快學(xué)會(huì)，簡(jiǎn)單易懂?！按_定”能夠進(jìn)入界面，如按“系統(tǒng)信息”的話，將顯示本系統(tǒng)的詳首飾硬件情況。精心整理圖“確定”圖圖2入庫(kù)界面精心整理圖控件控件名種類FormFrmrsg1DataData1CommandDialogCommand1Command2Command3Command4Command5Command6Command7Command8LableLable1Lable2Lable3Lable4Lable5Lable6Lable7Lable8Lable9Lable10

主要屬性Caption=“入庫(kù)情況”Databasename=“A\db2.mdb”Recordsettype=1’DynasetCaption=“入庫(kù)情況”Caption=“上一個(gè)”Caption=“下一個(gè)”Caption=“確定”Caption=“取消”Caption=“退出”Caption=“增添”Caption=“改正”Caption=“刪除”Caption=“序號(hào)”Caption=“型號(hào)”Caption=“產(chǎn)品名稱”Caption=“數(shù)量”Caption=“單價(jià)”Caption=“入庫(kù)時(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=“入庫(kù)時(shí)間”Datasource=“data1”Text7Caption=“發(fā)票名稱”Datasource=“data1”Text8Caption=“供給商名稱”Datasource=“data1”Text9Caption=“電話”Datasource=“data1”Text10Caption=“結(jié)帳情況”Datasource=“data1”表控件說(shuō)明增添新記錄當(dāng)單擊“確定”按鈕后，“確定”和“取消”兩個(gè)按鈕顯示，同時(shí)使其他的按鈕不能見(jiàn)，這樣做是為了防范用戶的誤操作。其主要程序以下：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ù)是只讀的，用戶無(wú)法對(duì)其進(jìn)行改正。調(diào)用了EDIT方法后，用戶能夠在拘束控件中改正記錄的值。假如在對(duì)目前記錄進(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'對(duì)記錄進(jìn)行編寫(xiě)Text1.SetFocusEndSub刪除記錄當(dāng)用戶單擊“刪除”命令按鈕時(shí)，為了防范用戶誤刪除數(shù)據(jù)，程序?qū)⒄{(diào)用Msgbox（）函數(shù)以彈出對(duì)話框，咨詢用戶能否真的要?jiǎng)h除該記錄。假如用戶單擊對(duì)話框上的“確定”按鈕，程序調(diào)用記錄集的Delete方法，將記錄集的目前記錄設(shè)置為空，并從原始的表中刪掉目前記錄。但是刪除的記錄仍舊是目前記錄，但是將其變成了無(wú)效的記錄，任何對(duì)其的引用都會(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'對(duì)記錄進(jìn)行編寫(xiě)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è)”按鈕將無(wú)效；移至最后一個(gè)記錄是，“上一個(gè)”按鈕也將無(wú)效。其中在設(shè)計(jì)程序時(shí)，為了防范“NOCurrentRecord”這樣的錯(cuò)誤，在挪動(dòng)記錄指針時(shí)測(cè)試記錄集的BOF和EOF屬性。假如單擊“上一個(gè)”和“下一個(gè)”命令按鈕將致使記錄指針指向空指針，則分別調(diào)用Movefirst和Movelast方法，這是防范“NOCurrentRecord”錯(cuò)誤出現(xiàn)的最簡(jiǎn)單和最有效的方法。與此同時(shí)，假如記錄集的BOF屬性為T(mén)rue,則置“上一個(gè)”命令按鈕為非激活狀態(tài)，是用戶無(wú)法再單擊該按鈕。同樣，當(dāng)記錄集的BOF屬性為T(mén)rue時(shí)，置“下一個(gè)”命令按鈕為非激活狀態(tài)。其主要程序以下：PrivateSubCommand1_Click()xg=False'假如是第一個(gè)記錄，BOF屬性為T(mén)RUEIfThenCommand1.Enabled=FalseElseCommand2.Enabled=TrueCommand1.Enabled=TrueEndIfEndSubPrivateSubCommand2_Click()xg=False'假如目前記錄是記錄集中最后一個(gè)記錄，EOF屬性為T(mén)RUEIfThenCommand2.Enabled=FalseElseCommand2.Enabled=TrueCommand1.Enabled=TrueEndIf精心整理EndSub用Updata方法確認(rèn)增添和改正當(dāng)用戶改正和增添完一個(gè)記錄的數(shù)據(jù)后，需要將數(shù)據(jù)保留到數(shù)據(jù)庫(kù)中。能夠經(jīng)過(guò)調(diào)用記錄集的Updata方法把數(shù)據(jù)保留到數(shù)據(jù)庫(kù)中。單擊“確定”按鈕時(shí)，記錄將被記如數(shù)據(jù)庫(kù)。其主要程序以下：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ù)后，在沒(méi)有單擊“確定”命令按鈕以前，想放棄剛才的增添或改正，則能夠單擊“取消”命令。由于其程序與Updata方法相像，因此不做重復(fù)解說(shuō)。定義Data_Validata事件過(guò)程關(guān)于一個(gè)新記錄或編寫(xiě)的記錄，假如不能夠保護(hù)引用圓滿性或不能夠反應(yīng)該舊路的實(shí)體原型，那么它就是無(wú)效的，而且損壞了數(shù)據(jù)庫(kù)的圓滿性。為了在“入庫(kù)情況”表中成立一個(gè)有效的記錄，就必然要有主要點(diǎn)字段“型號(hào)”的值。因此，對(duì)已經(jīng)存在和新增添的舊路都要先測(cè)試其“型號(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出庫(kù)界面當(dāng)單擊“出庫(kù)”圖精心整理2.4查問(wèn)界面當(dāng)用戶單擊“查問(wèn)”按鈕時(shí)，系統(tǒng)將出現(xiàn)密碼登岸框，由于查問(wèn)的是內(nèi)部資料，因此，需身份考證，如圖圖隨后將進(jìn)入查問(wèn)功能，如圖圖用戶可依據(jù)不同樣需要進(jìn)行“按型號(hào)”和“按單位”的查問(wèn)。單擊“按型號(hào)”“上一個(gè)”和“下一個(gè)”進(jìn)行查問(wèn)，也可按出庫(kù)與入庫(kù)分別查問(wèn)記錄。圖精心整理當(dāng)用戶單擊“查問(wèn)出庫(kù)”按鈕是，系統(tǒng)進(jìn)入界面，如圖圖控件種類控件名主要屬性FormfrmdblistCaption=“查問(wèn)出庫(kù)”DataData1DatabaseName=“db2.mdb”RecordsetType=1FrameFrame1RecordSource=“出庫(kù)型號(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)顯示記錄，以供用戶查問(wèn)。精心整理當(dāng)用戶單擊“查問(wèn)入庫(kù)”圖再回到查問(wèn)界面，單擊“按單位”按鈕，此時(shí)系統(tǒng)將進(jìn)入按單位查問(wèn)的截面，如圖圖分別按“顧客”和“供給商”由于以下兩個(gè)窗口的屬性以及其設(shè)計(jì)方法近似與圖4.3，因此也不做詳盡介紹。精心整理圖圖2.5退出程序“退出”“再見(jiàn)”，此程序也將結(jié)束。圖第三章系統(tǒng)運(yùn)行與調(diào)試測(cè)試自己的目的是盡可能地裸露程序中的錯(cuò)誤，因此在編譯達(dá)成后，我也試一試用現(xiàn)實(shí)數(shù)據(jù)來(lái)進(jìn)行正確的調(diào)試。在從中曾出現(xiàn)過(guò)以下幾個(gè)詳盡問(wèn)題：1.MSDN不存在2.524數(shù)據(jù)變換錯(cuò)誤3.當(dāng)單擊“上一個(gè)”和“下一個(gè)”按鈕時(shí)會(huì)出現(xiàn)數(shù)據(jù)不存在而退出程序