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

1、公司倉庫管理系統(tǒng)第一章公司介紹與系統(tǒng)的需求分析1.1公司簡介佳雪公司是一個(gè)專銷電動(dòng)機(jī)的公司，主要業(yè)務(wù)是進(jìn)行電動(dòng)機(jī)的進(jìn)貨與分銷，作為一個(gè) 銷售的中介公司，其要求有入庫與出庫的主要數(shù)據(jù)庫，可以簡單的記錄數(shù)據(jù)，并且可以進(jìn) 行多方面的查詢，使得公司有較詳細(xì)的數(shù)據(jù)統(tǒng)計(jì)與分析。其主要業(yè)務(wù)如以下圖所示:2. 查詢功能1）按型號(hào)查詢有兩個(gè)結(jié)果：A生成 入庫量、出庫量、節(jié)余量生成 兩個(gè)數(shù)據(jù)來源表，包括出庫來源與入庫來源;2）按單位查詢結(jié)果：生成型號(hào)、產(chǎn)品名稱、時(shí)間（入/出庫）、單價(jià)再生成出入庫的兩個(gè)基本情況表，包括供應(yīng)商和顧客的基本情況，如型號(hào)、出/入庫時(shí)間，單價(jià)，發(fā)票編號(hào)、結(jié)帳情況；3. 本系統(tǒng)主要運(yùn)用Vis

2、ual Basic 的內(nèi)嵌數(shù)據(jù)庫Access來記錄數(shù)據(jù)；4. 產(chǎn)品信息：序號(hào)（自動(dòng)生成）、型號(hào)（文本）、入庫時(shí)間（日期）、出庫時(shí)間（日期）、數(shù)量（數(shù)字）、發(fā)票編號(hào)（文本）、單價(jià)（貨幣）、廠商名稱（文本）、供應(yīng)商名稱（文本）、 廠商與供應(yīng)商的電話（數(shù)字）、結(jié)帳情況（是/否）是為0，否為-11. 2分析與描述.根據(jù)1.1章節(jié)的具體要求，總結(jié)出以下的數(shù)據(jù)流程:圖數(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ù)字長整型單

3、價(jià)貨幣自動(dòng)小數(shù)出庫時(shí)間日期年-月-日發(fā)票編號(hào)文本50顧客電話文本50結(jié)帳情況是/否2表 由于入庫表與出庫想類似，所以在此不做詳細(xì)介紹。為了方便查詢，因此在出庫與入庫的基礎(chǔ)上增加了幾個(gè)查詢表，具體字段如下：1. 查詢結(jié)余：型號(hào)、產(chǎn)品名稱、出庫數(shù)量、入庫數(shù)量2. 出庫查詢：顧客名稱、型號(hào)、出庫時(shí)間、單價(jià)、出庫數(shù)量OF SUM發(fā)票編號(hào)、結(jié)帳情況3. 入庫查詢：供應(yīng)商名稱、型號(hào)、入庫時(shí)間、單價(jià)、入庫數(shù)量OF SUM發(fā)票編號(hào)、結(jié)帳情況4. 出庫型號(hào)查詢：型號(hào)、產(chǎn)品名稱、顧客名稱、單價(jià)、發(fā)票編號(hào)、結(jié)帳情況5.入庫型號(hào)查詢：型號(hào)、產(chǎn)品名稱、供應(yīng)商名稱、單價(jià)、發(fā)票編號(hào)、結(jié)帳情況1.3數(shù)據(jù)庫的主要特點(diǎn)數(shù)據(jù)庫中的

4、每一個(gè)表都必須符合下面幾個(gè)特征:表中的每一個(gè)單元的內(nèi)容只有一個(gè)值所有字段的名稱都不相同記錄的前后次序和字段的左右次序可以變化，不受限制數(shù)據(jù)庫中的表的上下次序不受限制表中不應(yīng)有內(nèi)容完全相同的記錄表中的每一個(gè)字段都必須有相同的數(shù)據(jù)類型使用Visual Basic 開發(fā)應(yīng)用程序的兩個(gè)主要思想:可視設(shè)計(jì)編程事件驅(qū)動(dòng)編程Visual Basic應(yīng)用程序不同于其他語言開發(fā)的單一性程序。使用Visual Basic時(shí)，必須首先確定應(yīng)用程序如何與用戶交互，如鼠標(biāo)單擊，用戶必須編寫代碼控制這些事 件的響應(yīng)方法。使用 Visual Basic 開發(fā)數(shù)據(jù)庫應(yīng)用程序的一般步驟如下所示：1) 建立數(shù)據(jù)庫2) 建立用戶界

5、面3) 編寫代碼4) 調(diào)試運(yùn)行5) 編譯應(yīng)用程序6) 發(fā)布應(yīng)用程序界面設(shè)計(jì)1) 控件的位置2) 界面元素的一致性3) 保持界面的簡明4) 使用顏色和圖象：增加視覺的感染力5）圖象和圖標(biāo)：增加應(yīng)用程序的視覺上的趣味（ 6） 選取字體Visual Basic 應(yīng)用程序的結(jié)構(gòu)：由于 Visual Basic 應(yīng)用程序是基于對(duì)象的，所以應(yīng)用程序的代碼結(jié)構(gòu)就是該程序在屏 幕上物理表示的模型。根據(jù)定義，對(duì)象包含數(shù)據(jù)和代碼。在屏幕上看到的窗體代表屬性， 這些屬性定義了窗體的外觀和內(nèi)在特性。本設(shè)計(jì)主要是運(yùn)用 Data 控件。Data 控件主要是打開、訪問并操作已有的數(shù)據(jù)庫，它是 Visual Basic 訪問

6、數(shù)據(jù)庫的 最常用的工具之一。由于 Data 控件使用 Microsoft 的 Jet 引擎來實(shí)現(xiàn)數(shù)據(jù)訪問（與 Microsoft Access 所用的數(shù)據(jù)庫引擎相同） ，使用戶可以無縫地訪問很多標(biāo)準(zhǔn)的數(shù)據(jù)庫格 式，而且無需編寫任何代碼就可以創(chuàng)建數(shù)據(jù)應(yīng)用程序， 因此這種 Visual Basic 內(nèi)部的 Data 控件最合適小的（桌面）數(shù)據(jù)庫，諸如 Access和ISAM數(shù)據(jù)庫等。由于 Data 控件是 Visual Basic 的內(nèi)部控件，因此可以直接在標(biāo)準(zhǔn)工具箱中找到該控 件。在程序運(yùn)行過程中，只要用鼠標(biāo)單擊控件上的箭頭按鈕，系統(tǒng)將自動(dòng)修改 Data 控件 指向的記錄和顯示在約束控件中的數(shù)據(jù)

7、，而不需要編寫任何代碼?？梢詫⒍鄠€(gè)Data控件同時(shí)添加到一個(gè)工程甚至是同一個(gè)窗體中。另外，每個(gè)控件可 以連接到不同的數(shù)據(jù)庫或同一個(gè)數(shù)據(jù)庫的不同表上，還可以和代碼一起查詢滿足的語句的 表的記錄集。使用Data控件可以顯示、編輯和更新來字各種已有的數(shù)據(jù)庫信息。此外，還可以訪 問和操作遠(yuǎn)程的開放式數(shù)據(jù)庫連接。除了使用Data控件之外，還運(yùn)用的 Visual Basic 6.0 的新增控件功能，Dblistbox 它不象標(biāo)準(zhǔn)的列表框或組合框那樣需要使用 Additem方法添加列表項(xiàng)。另外，它們還可以 有選擇地把某個(gè)選定的字段傳遞給另一個(gè) Data控件，使得它對(duì)于“查找表”應(yīng)用程序很理 想。與其他的約束

8、控件不同，這些控件可以同時(shí)顯示多個(gè)記錄。約束數(shù)據(jù)列表控件類似于普通的列表框控件，可以顯示記錄集中的數(shù)據(jù)，網(wǎng)格中的每一行代表記錄集中的一個(gè)記錄第二章管理系統(tǒng)的設(shè)計(jì)與分析2.1進(jìn)入界面由于系統(tǒng)的的界面比較單一，因此在設(shè)計(jì)過程中運(yùn)用了許多網(wǎng)上下載的圖片來增添界 面的可觀性。在考慮到操作員的技術(shù)水平有限，因此在控件方面只運(yùn)用了 COMMAN這樣不僅能是界面清楚，更能是操作者很快學(xué)會(huì)，簡單易懂。圖是進(jìn)入本系統(tǒng)的狀態(tài)圖，單擊“確定”可以進(jìn)入界面，如按“系統(tǒng)信息”的話，將顯示本系統(tǒng)的具體軟硬件情況圖 當(dāng)圖中的“確定”按鈕被激活時(shí)，將進(jìn)入圖 的屏幕，界面的圖片是圖片引入的，接著將進(jìn)入正式的編輯或查詢狀態(tài)。具體

9、的系統(tǒng)情況如圖所示:圖 圖 2. 2入庫界面當(dāng)激活入庫按鈕時(shí)將出現(xiàn)以下的界面（圖 ）1】n入庫時(shí)間麗A型號(hào)|YY&4 攪票編號(hào)靈）產(chǎn)品名稱電動(dòng)供應(yīng)商名稱r 電話1:單價(jià)|30D結(jié)帳'痔呪1-f 1確定矚1 |瞻|個(gè)|退出J圖 入庫窗體（圖）及其各個(gè)控件的主要屬性類型控件控件名主要屬性FormFrmrsglCap tio n= “入庫情況”DataDatalDatabase name=“ Adb2.mdb”Recordsettype=1 ' DynasetCap tio n= “入庫情況”Comma ndDialogComma nd1Capti on-上一個(gè)Comma n

10、d2Caption- “下一個(gè)”Comma nd3Caption- “確定”Comma nd4Caption- “取消”Comma nd5Caption- “退出”Comma nd6Caption- “增加”Comma nd7Caption- “修改”Comma nd8Caption- “刪除”LableLablelCapti on-序號(hào)Lable2Caption- “型號(hào)”Lable3Caption- “產(chǎn)品名稱”Lable4Caption- “數(shù)量”Lable5Capti on= “單價(jià)”Lable6Cap tio n= “入庫時(shí)間”Lable7Cap tio n= “發(fā)票名稱”Lable

11、8Cap ti on= “供應(yīng)商名稱”Lable9Capti on= “電話”LablelOCap tio n= “結(jié)帳情況”TextTextlCapti on=序號(hào) Datasource= datalText2Caption= “型號(hào)” Datasource= “datal ”Text3Caption= “產(chǎn)品名稱” Datasource= “datal ”Text4Caption= “數(shù)量” Datasource= “datal ”Text5Caption= “單價(jià)” Datasource= “datal ”Text6Capti on= “入庫時(shí)間” Datasource= “ data1

12、 ”Text7Cap tio n= “發(fā)票名稱” Datasource= “ data1 ”Text8Cap tio n= “供應(yīng)商名稱” Datasource= “ data1 ”Text9Caption= “電話” Datasource= “data1 ”Text10Capti on= “結(jié)帳情況” Datasource= “ data1 ”表 控件說明增加新記錄當(dāng)單擊“確定”按鈕后，“確定”和“取消”兩個(gè)按鈕顯示，同時(shí)使其他的按鈕不可見，這樣做是為了防止用戶的誤操作。其主要程序如下：Private Sub Comma nd5_Click() xg = True顯示“確定”和“取消”兩個(gè)按

13、鈕Command3.Visible =TrueCommand4.Visible =True取消其他按鈕功能Command5.Enabled= FalseCommand6.Enabled= FalseCommand7.Enabled= FalseCommand8.Enabled= FalseCommand1.Enabled= FalseCommand2.Enabled= False' 添加一個(gè)新記錄Textl.SetFocus '光標(biāo)在 TEXT1 處end sub修改記錄在調(diào)用EDIT方法之前，約束控件中的數(shù)據(jù)是只讀的，用戶無法對(duì)其進(jìn)行修改。調(diào)用了 EDIT方法后，用戶可以在約

14、束控件中修改記錄的值。如果在對(duì)當(dāng)前記錄進(jìn)行修改之前修改，未使用EDIT方法，將發(fā)生運(yùn)行時(shí)錯(cuò)誤。其主要程序如下：Private Sub Comma nd6_Click()xg = TrueComma nd3.E nabled = TrueComma nd4.E nabled = True'取消其他按鈕功能Comma nd5.E nabled = FalseComma nd6.E nabled = FalseComma nd7.E nabled = FalseComma nd8.E nabled = FalseComma ndl.E nabled = FalseComma nd2.E na

15、bled = False'對(duì)記錄進(jìn)行編輯Datal. Recordset.EditTextl.SetFocusEnd Sub刪除記錄當(dāng)用戶單擊“刪除”命令按鈕時(shí)，為了防止用戶誤刪除數(shù)據(jù)，程序?qū)⒄{(diào)用Msgbox()函數(shù)以彈出對(duì)話框，詢問用戶是否真的要?jiǎng)h除該記錄。如果用戶單擊對(duì)話框上的“確定”按鈕， 程序調(diào)用記錄集的Delete方法，將記錄集的當(dāng)前記錄設(shè)置為空，并從原始的表中刪掉當(dāng)前 記錄。但是刪除的記錄仍然是當(dāng)前記錄，只是將其變?yōu)榱藷o效的記錄，任何對(duì)其的引用都 會(huì)產(chǎn)生錯(cuò)誤其主要程序如下：Private Sub Command6_Click() xg = TrueCommand3.Enab

16、ledTrueCommand4.EnabledTrue取消其他按鈕功能Command5.EnabledFalseCommand6.EnabledFalseCommand7.EnabledFalseCommand8.EnabledFalseCommand1.EnabledFalseCommand2.Enabled = False對(duì)記錄進(jìn)行編輯Text1.SetFocusEnd SubPrivate Sub Command7_Click()刪除記錄 ")ss = MsgBox(" 真的要?jiǎng)h除嗎？ ", vbYesNo + vbInformation, "如果

17、要?jiǎng)h除If (ss = vbYes) ThenComma nd2.E nabled = FalseEnd IfEnd IfEnd Sub移動(dòng)數(shù)據(jù)當(dāng)用戶單擊“上一個(gè)”和“下一個(gè)”按鈕是，系統(tǒng)將自動(dòng)轉(zhuǎn)換數(shù)據(jù)，但注意，當(dāng)移至第一 個(gè)記錄時(shí)，“下一個(gè)”按鈕將失效；移至最后一個(gè)記錄是，“上一個(gè)”按鈕也將失效。其中在設(shè)計(jì)程序時(shí)，為了防止“ NOCurrent Record”這樣的錯(cuò)誤，在移動(dòng)記錄指針時(shí)測試 記錄集的BOF和EOFB性。如果單擊“上一個(gè)”和“下一個(gè)”命令按鈕將導(dǎo)致記錄指針指 向空指針，則分別調(diào)用 Movefirst和Movelast方法，這是防止“ NO Current Record ”錯(cuò)

18、誤出現(xiàn)的最簡單和最有效的方法。與此同時(shí)，如果記錄集的BOF屬性為True,則置“上一個(gè)”命令按鈕為非激活狀態(tài)，是用戶無法再單擊該按鈕。同樣，當(dāng)記錄集的BOF屬性為True 時(shí)，置“下一個(gè)”命令按鈕為非激活狀態(tài)。其主要程序如下：Private Sub Comma nd1_Click()xg = False如果是第一個(gè)記錄，BOF屬性為TRUECommand1.Enabled = FalseElseCommand2.Enabled = TrueCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()xg = False如果當(dāng)前

19、記錄是記錄集中最后一個(gè)記錄,EOF屬性為 TRUEDatal .R ecordset.MoveLastComma nd2.E nabled = FalseElseComma nd2.E nabled = TrueComma nd1.E nabled = TrueEnd IfEnd Sub用Updata方法確認(rèn)增加和修改當(dāng)用戶修改和增加完一個(gè)記錄的數(shù)據(jù)后，需要將數(shù)據(jù)保存到數(shù)據(jù)庫中?？梢酝ㄟ^調(diào)用記錄 集的 Updata 方法把數(shù)據(jù)保存到數(shù)據(jù)庫中。單擊“確定”按鈕時(shí)，記錄將被記如數(shù)據(jù)庫 其主要程序如下：Private Sub Command3_Click()On Error GoTo error1x

20、g = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueComma nd6.E nabled = TrueComma nd7.E nabled = TrueComma nd8.E nabled = TrueExit Suberrorl: MsgBox Err.Description, vbOKOnly,"錯(cuò)誤提示"End Sub用Canc

21、elUpdata方法放棄增加和修改如果用戶修改了約束控件里的數(shù)據(jù)后，在沒有單擊“確定”命令按鈕之前，想放棄剛才的增加或修改，則可以單擊“取消”命令。由于其程序與Updata方法相似，因此不做重復(fù)解釋。定義Data_Validata事件過程對(duì)于一個(gè)新記錄或編輯的記錄，如果不能維護(hù)引用完整性或不能反映該舊路的實(shí)體原型，那么它就是無效的，并且破壞了數(shù)據(jù)庫的完整性。為了在“入庫情況”表中建立一個(gè)有效 的記錄，就必須要有主關(guān)鍵字段“型號(hào)”的值。因此，對(duì)已經(jīng)存在和新增加的舊路都要先 測試其“型號(hào)”字段之后才可以執(zhí)行更新操作 其主要程序如下：當(dāng)約束控件中內(nèi)容改變時(shí)If Text2.DataChanged T

22、henSave = True> 1 ThenCommand1.Enabled = TrueCommand2.Enabled = TrueEnd IfElseIf Text2.Text = "" And xg = True Then提示 ")ss = MsgBox(" 必須要有型號(hào)'！ ", vbOKOnly + vbInformation, "Action = FalseCommand3.Visible = TrueCommand4.Visible = TrueCommand1.Visible = TrueCommand

23、2.Visible = TrueCommand7.Visible = TrueCommand8.Visible = TrueCommand5.Visible = TrueCommand6.Visible = TrueEnd IfEnd IfIf Action = data_actionunload Or Action = data_actionclose ThenSave = TrueEnd IfEnd Sub2.3出庫界面當(dāng)單擊“出庫”按鈕的時(shí)候，系統(tǒng)將進(jìn)入出庫信息輸入界面，如（圖 ）所示，其基 本情況與入庫相類似，依次不做具體介紹。徑電型29987序號(hào)產(chǎn)品名稱數(shù)量刪除|上一平|下一個(gè)|垸票

24、編昌確定取消|退出|圖 2.4查詢界面當(dāng)用戶單擊“查詢”按鈕時(shí)，系統(tǒng)將出現(xiàn)密碼登陸框，因?yàn)椴樵兊氖莾?nèi)部資料，因此,需身份驗(yàn)證，如圖圖241隨后將進(jìn)入查詢功能，如圖二二碗畫二二二 W圖 用戶可根據(jù)不同需要進(jìn)行“按型號(hào)”和“按單位”的查詢單擊“按型號(hào)”，系統(tǒng)將進(jìn)入以型號(hào)為關(guān)鍵字段的查詢，如圖243。其中根據(jù)SQL語句的查詢，選出出庫型號(hào)與入庫型號(hào)相同的記錄，統(tǒng)計(jì)出入庫與出庫的總數(shù)量，然后可按“上一個(gè)”和“下一個(gè)”進(jìn)行查詢，也可按出庫與入庫分別查詢記錄。型號(hào)1|丹盟A3產(chǎn)品名稀中審動(dòng)上一牛|總?cè)霂炝靠偝鰩炝肯乱粋€(gè)I奩詢出庫| 思出丨查誼入庫|圖243當(dāng)用戶單擊“查詢出庫”按鈕是，系統(tǒng)進(jìn)入界面，如圖2

25、44圖 圖窗體及其上面控件的屬性設(shè)置控件類型控件名主要屬性FormfrmdblistCap tio n= “查詢出庫”DataDatalDatabaseName=“db2.mdb”RecordsetType=1RecordSource= “出庫型號(hào)”FrameFramelCap tio n= “具體情況”LableLablelCqptio n= “產(chǎn)品名稱”Lable2Cqpti on= “單價(jià)”Lable3Cqptio n=發(fā)票編號(hào)Lable4Cqptio n= “顧客名稱”Lable5Cqptio n= “結(jié)帳情況”TextTextlDatafield=“具體情況”Datasource=

26、“ Data1 ”Text2Datafield=“具體情況”Datasource= “ Datal ”Text3Datafield=“具體情況”Datasource= “ Datal ”Text4Datafield=“具體情況”Datasource= “ Datal ”Text5Datafield=“具體情況”Datasource= “ Datal ”DBlistDblistlListfield=“型號(hào)”Rowsource= “ Datal”表241單擊Dblist框中的型號(hào)，F(xiàn)rame中將自動(dòng)顯示記錄，以供用戶查詢當(dāng)用戶單擊“查詢?nèi)霂臁卑粹o時(shí)，將出現(xiàn)圖 245的界面圖245再回到查詢界面，單

27、擊“按單位”按鈕，此時(shí)系統(tǒng)將進(jìn)入按單位查詢的截面,如圖2.4.6247和圖246分別按“顧客”和“供應(yīng)商”按鈕，系統(tǒng)將分別進(jìn)入不同的查詢界面，如圖圖248由于以下兩個(gè)窗口的屬性以及其設(shè)計(jì)方法類似與圖4.3，因此也不做詳細(xì)介紹杭州電為和寧仲車?yán)稚虾ｋ妱?dòng)制 上海電動(dòng)訓(xùn) 浙江電動(dòng)n 浙江電動(dòng)口廠 L廠 廠L廠L廠 廠請(qǐng)選擇顧客名稱退出圖 音島電動(dòng)機(jī)廠 貢門電韻機(jī)廠廈門電動(dòng)機(jī)型號(hào)|Y'J£A5 8入庫吋恒1(012-12八犀數(shù)呈|0O-2-lZ題票矚號(hào)財(cái)晅結(jié)帳情況Fr amel退岀圖 2.5退出程序再回到登陸主窗口，（圖），單擊“退出”按鈕，系統(tǒng)將退出程序，顯示以下窗口（圖），單擊圖中的“再見”，此程序也將結(jié)束再見工程1平臺(tái)版木1.0.0版權(quán)所有桂雪書司圖 第三章系統(tǒng)運(yùn)行與調(diào)試測試本身的目的是盡可能地暴露程序中的錯(cuò)誤，因