公司倉(cāng)庫(kù)管理系統(tǒng)

第一章公司介紹與系統(tǒng)的需求分析

1.1公司簡(jiǎn)介

佳雪公司是一個(gè)專銷電動(dòng)機(jī)的公司，重要業(yè)務(wù)是進(jìn)行電動(dòng)機(jī)的進(jìn)貨與分銷,

作為一個(gè)銷售的中介公司，其規(guī)定有入庫(kù)與出庫(kù)的重要數(shù)據(jù)庫(kù)，可以簡(jiǎn)樸的記錄

數(shù)據(jù)，并且可以進(jìn)行多方面的查詢，使得公司有較具體的數(shù)據(jù)記錄與分析。

其重要業(yè)務(wù)如以下圖所示：

1.廠商倉(cāng)庫(kù)顧客

圖1.1.1

2.查詢功能

1）按型號(hào)查詢

有兩個(gè)結(jié)果:A生成入庫(kù)量、出庫(kù)量、節(jié)余量

2）B生成兩個(gè)數(shù)據(jù)來(lái)源表，涉及出庫(kù)來(lái)源與入庫(kù)來(lái)源；

3）按單位查詢

結(jié)果：生成型號(hào)、產(chǎn)品名稱、時(shí)間（入/出庫(kù)）、單價(jià)

再生成出入庫(kù)的兩個(gè)基本情況表、涉及供應(yīng)商和顧客的基本情況，如

型號(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)品信息：

1.序號(hào)（自動(dòng)生成）、型號(hào)（文本）、入庫(kù)時(shí)間（日期）、出庫(kù)時(shí)間（日

期）、數(shù)量（數(shù)字）、發(fā)票編號(hào)（文本）、單價(jià)（貨幣）、廠商名稱（文本）、供應(yīng)

商名稱（文本）、廠商與供應(yīng)商的電話（數(shù)字）、結(jié)帳情況（是/否）[是為0,否

為-1]

2.2分析與描述

一,根據(jù)1.1章節(jié)的具體規(guī)定，總結(jié)出以下的數(shù)據(jù)流程：

圖1.2.1數(shù)據(jù)流程

二.根據(jù)以上情況，按規(guī)定設(shè)計(jì)了幾個(gè)相關(guān)的數(shù)據(jù)庫(kù)

表：出庫(kù)、入庫(kù)

?杳詢：杳詢結(jié)余、出庫(kù)杳詢、入庫(kù)杳詢、型號(hào)出庫(kù)杳詢、型號(hào)入庫(kù)杳詢

重要的出屬性字段大小

庫(kù)表屬性

如以下表

所示：

字段名

序號(hào)自動(dòng)生成長(zhǎng)整型

型號(hào)文本50

產(chǎn)品名稱文本50

出庫(kù)數(shù)量數(shù)字長(zhǎng)整型

單價(jià)貨幣自動(dòng)小數(shù)

出庫(kù)時(shí)間日期年-月-日

發(fā)票編號(hào)文本50

顧客電話文本50

結(jié)帳情況是/否2

表1.2.1

?由于入庫(kù)表與出庫(kù)想類似，所以在此不做具體介紹。

1.為了方便查詢，因此在出庫(kù)與入庫(kù)的基礎(chǔ)上增長(zhǎng)了幾個(gè)查詢表，具體字段如

下：

2.查詢結(jié)余：型號(hào)、產(chǎn)品名稱、出庫(kù)數(shù)量、入庫(kù)數(shù)量

3.出庫(kù)查詢：顧客名稱、型號(hào)、出庫(kù)時(shí)間、單價(jià)、出庫(kù)數(shù)量OFSUM、發(fā)票編

號(hào)、結(jié)帳情況

4.入庫(kù)查詢：供應(yīng)商名稱、型號(hào)、入庫(kù)時(shí)間、單價(jià)、入庫(kù)數(shù)量OFSUM、發(fā)票

編號(hào)、結(jié)帳情況

5.出庫(kù)型號(hào)查詢：型號(hào)、產(chǎn)品名稱、顧客名稱、單價(jià)、發(fā)票編號(hào)、結(jié)帳情況

入庫(kù)型號(hào)查詢：型號(hào)、產(chǎn)品名稱、供應(yīng)商名稱、單價(jià)、發(fā)票編號(hào)、結(jié)帳情況

1.3數(shù)據(jù)庫(kù)的重要特點(diǎn)

數(shù)據(jù)庫(kù)中的每一個(gè)表都必須符合下面幾個(gè)特性：

*表中的每一個(gè)單元的內(nèi)容只有一個(gè)值

*所有字段的名稱都不相同

*記錄的前后順序和字段的左右順序可以變化，不受限制

*數(shù)據(jù)庫(kù)中的表的上下順序不受限制

*表中不應(yīng)有內(nèi)容完全相同的記錄

*表中的每一個(gè)字段都必須有相同的數(shù)據(jù)類型

使用VisualBasic開發(fā)應(yīng)用程序的兩個(gè)重要思想：

*可視設(shè)計(jì)

Data控件重要是打開、訪問(wèn)并操作已有的數(shù)據(jù)庫(kù)，它是VisualBasic訪問(wèn)數(shù)據(jù)

庫(kù)的最常用的工具之一。由于Data控件使用Microsoft的Jet引擎來(lái)實(shí)現(xiàn)數(shù)據(jù)訪問(wèn)

（與MicrosoftAccess所用的數(shù)據(jù)庫(kù)引擎相同），使用戶可以無(wú)縫地訪問(wèn)很多標(biāo)準(zhǔn)

的數(shù)據(jù)庫(kù)格式，并且無(wú)需編寫任何代碼就可以創(chuàng)建數(shù)據(jù)應(yīng)用程序，因此這種Visual

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

等。

由于Data控件是VisualBasic的內(nèi)部控件，因此可以直接在標(biāo)準(zhǔn)工具箱中找

到該控件。

在程序運(yùn)營(yíng)過(guò)程中，只要用鼠標(biāo)單擊控件上的箭頭按鈕，系統(tǒng)將自動(dòng)修改

Data控件指向的記錄和顯示在約束控件中的數(shù)據(jù)，而不需要編寫任何代碼。

可以將多個(gè)Data控件同時(shí)添加到一個(gè)工程甚至是同一個(gè)窗體中。此外，每個(gè)

控件可以連接到不同的數(shù)據(jù)庫(kù)或同一個(gè)數(shù)據(jù)庫(kù)的不同表上，還可以和代碼一起查

詢滿足的語(yǔ)句的表的記錄集。

使用Data捽件可以顯示、編輯和更新來(lái)字各種已有的數(shù)據(jù)庫(kù)信息。此外，還

可以訪問(wèn)和操作遠(yuǎn)程的開放式數(shù)據(jù)庫(kù)連接。

除了使用Data控件之外，還運(yùn)用的VisualBasic6.0的新增控件功能,Dblislbox它不

象標(biāo)準(zhǔn)的列表框或組合框那樣需要使用Addhem方法添加列表項(xiàng)。此外，它們還可

以有選擇地把某個(gè)選定的字段傳遞給另一個(gè)Data控件，使得它對(duì)于“查找表”應(yīng)

用程序很抱負(fù)。

與其他的約束控件不同，這些控件可以同時(shí)顯示多個(gè)記錄。約束數(shù)據(jù)列表控件類似

于普通的列表框控件，可以顯示記錄集中的數(shù)據(jù)，網(wǎng)格中的每一行代表記錄集中

的一個(gè)記錄。

第二章管理系統(tǒng)的設(shè)計(jì)與分析

2.1進(jìn)入界面

?由于系統(tǒng)的的界面比較單一，因此在設(shè)計(jì)過(guò)程中運(yùn)用了許多網(wǎng)上下載的圖片來(lái)

增添界面的可觀性。

在考慮到操作員的技術(shù)水平有限，因此在控件方面只運(yùn)用了COMMAND,這樣不

僅能是界面清楚，更能是操作者不久學(xué)會(huì)，簡(jiǎn)樸易懂。

圖2.1.1是進(jìn)入本系統(tǒng)的狀態(tài)圖，單擊“擬定”可以進(jìn)入界面，如按“系統(tǒng)信息”

的話，將顯示本系統(tǒng)的具體軟硬件情況。

圖2.1.1

當(dāng)圖2.1.1中的“必定”按鈕被激活時(shí)，將進(jìn)入圖2.1.3的屏幕，界面的圖片是

圖片引入的，接著將進(jìn)入正式的編輯或查詢狀態(tài)。

具體的系統(tǒng)情況如圖2.1,2所示：

圖2.1.2

圖2.1.3

3.2入庫(kù)界面

?當(dāng)激活入庫(kù)按鈕時(shí)將出現(xiàn)以下的界面（圖221）

序號(hào)入庫(kù)時(shí)間|00-2-

型號(hào)

發(fā)票編號(hào)|C0980

產(chǎn)品名稱

供應(yīng)商名稱

數(shù)量

電話匚

單價(jià)

結(jié)幡情況o

確定1

修改1取消1

刪除1,入1退出1

圖2.2.1

?入庫(kù)窗體（圖221）及其各個(gè)控件的重要屬性

控件控件名重要屬性

類型

FormFnnrsg1Caption=“入庫(kù)情況”

DataDatalDatabasename="A\db2.mdb”

Recordsettype=l'Dynaset

Caption="入庫(kù)情況”

CommandDialogCommand1Caption="上一個(gè)"

Command2Caption=“下一個(gè)”

CommandsCaption="擬定”

Command4Caption=“取消”

CommandsCaption="退出”

Command6Caption="增長(zhǎng)”

Command7C叩tion="修改”

CommandsCaption="刪除”

Lable1Caption-"序號(hào)

LableLable2Caption=“型號(hào)”

Lable3C叩tion=”產(chǎn)品名稱”

Lable4Caption="數(shù)量”

Lable5Caption="單價(jià)”

Lable6Caption="入庫(kù)時(shí)間”

Lable7Caption="發(fā)票名稱”

Lable8C叩tion二"供應(yīng)商名稱“

Lable9Caption="電話”

LablelOCaption="結(jié)帳情況”

TextTextlCaption="序號(hào)"Datasource="datal”

Text2Caption="型號(hào)"Datasource="datal”

Text3Caption=”產(chǎn)品名稱"Datasource="datal”

Text4Caption="數(shù)量"Datasource="datal”

Text5Caption="單價(jià)”Datasource="datal”

Text6Caption=“入庫(kù)時(shí)間”Datasource="datal”

Text7Caption="發(fā)票名稱"Datasource="datal”

Text8Caption二"供應(yīng)商名稱"Datasource^'data1”

Text9C叩tion="電話"Datasource="datal”

Text1()Caption="結(jié)帳情況"Datasource="datal”

表2.2.1

?控件說(shuō)明

＞增長(zhǎng)新記錄

當(dāng)單擊“擬定”按鈕后，“擬定”和“取消”兩個(gè)按鈕顯示，同時(shí)使其他的按鈕不

可見(jiàn)，這樣做是為了防止用戶的誤操作。

其重要程序如下：

PrivateSubCommand5_C1ick()

xg=True

’顯示“擬定”和“取消”兩個(gè)按鈕

Commands.Visible=True

Command4.Visible=True

'取消其他按鈕功能

Command5.Enabled=False

Commando.Enabled=False

Command?.Enabled=False

Commands.Enabled=False

Command1.Enabled=False

Command?.Enabled=False

Data1.Recordset.AddNew'添力口一個(gè)新記錄

Texll.SetFocus'光標(biāo)在TEXT1處

endsub

＞修改記錄

在調(diào)用EDIT方法之前，約束控件中的數(shù)據(jù)是只讀的，用戶無(wú)法對(duì)其進(jìn)行修改。調(diào)

用了EDIT方法后，用戶可以在約束控件中修改記錄的值。假如在對(duì)當(dāng)前記錄進(jìn)行

修改之前修改，未使用EDIT方法，將發(fā)生運(yùn)營(yíng)時(shí)錯(cuò)誤。

其重要程序如下：

PrivateSubCommand6_Click()

xg=True

Command3.Enabled=True

Command4.Enabled=True

'取消其他按鈕功能

Command5.Enabled=False

Command6.Enablcd=False

Command?.Enabled=False

Commands.Enabled=False

Command1.Enabled=False

Command2.Enabled=False

'對(duì)記錄進(jìn)行編輯

Data1.Recordset.Edit

Textl.SetFocus

EndSub

＞刪除記錄

當(dāng)用戶單擊“冊(cè)邨余”命令按鈕時(shí)，為了防止用戶誤刪除數(shù)據(jù)，程序?qū)⒄{(diào)用Msgbox

O函數(shù)以彈出對(duì)話框，詢問(wèn)用戶是否真的要?jiǎng)h除該記錄。假如用戶單擊對(duì)話框上

的“擬定”按鈕，程序調(diào)用記錄集的Delete方法，將記耒集的當(dāng)前記錄設(shè)立為空，并

從原始的表中刪掉當(dāng)前記錄。但是刪除的記錄仍然是當(dāng)前記錄，只是將其變?yōu)榱藷o(wú)

效的記錄，任何對(duì)其的引用都會(huì)產(chǎn)生錯(cuò)誤。

其重要程序如下：

PrivateSubCommand6_Click()

xg=True

Command3.Enabled=True

Command4.Enabled=True

'取消其他按鈕功能

Command5.Enabled=False

Command6.Enablcd=False

Command?.Enabled=False

Commands.Enabled=False

Command1.Enabled=False

Command2.Enabled=False

'對(duì)記錄進(jìn)行編輯

Data1.Recordset.Edit

Textl.SetFocus

EndSub

PrivateSubCommand7_Click()

ss=MsgBox("真的要?jiǎng)h除嗎？",vbYesNo+vblnf'omiation,"刪除記錄")

'假如要?jiǎng)h除

If(ss=vbYcs)Then

Data1.Recordset.Delete

Datal.Recordsel.MoveNext

IfDatal.Recordset.EOFThen

Datal.Recordset.MovcLast

Command2.Enabled=False

EndIf

EndIf

EndSub

＞移動(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í)，為了防止“NOCurrentRecord”這樣的錯(cuò)誤，在移動(dòng)記錄指針

時(shí)測(cè)試記錄集的BOF和EOF屬性。假如單擊“上一個(gè)”和“下一個(gè)”命令按鈕

將導(dǎo)致記錄指針指向空指針，則分別調(diào)用Movefirst和Movelast方法，這是防止

“NOCurrentRecord”錯(cuò)誤出現(xiàn)的最簡(jiǎn)樸和最有效的方法。與此同時(shí)，假如記錄集

的BOF屬性為True,則置“上一個(gè)”命令按鈕為非激活狀態(tài)，是用戶無(wú)法再單擊該

按鈕。同樣，當(dāng)記錄集的BOF屬性為True時(shí)；置“下一個(gè)”命令按鈕為非激活狀

態(tài)。

其重要程序如下：

PrivateSubCommandl_Click()

xg=False

DataI.Recordsei.MovePrevious

'假如是第一個(gè)記錄,BOF屬性為TRUE

IfData1.Recordset.BOFThen

Data1.Recordset.MoveFirst

CommandLEnabled=False

Else

Command2.Enabled=True

Command1.Enabled=True

EndIf

EndSub

PrivateSubCommand2_C1ick()

xg=False

DataI.Recordsei.MovePrevious

'假如當(dāng)前記錄是記錄集中最后一個(gè)記錄,EOF屬性為TRUE

IfDataI.Recordset.BOFThen

Data1.Recordset.MoveLast

Command?.Enabled=False

Else

Command?.Enabled=True

Command1.Enabled=True

EndIf

EndSub

＞用Updata方法確認(rèn)增長(zhǎng)和修改

當(dāng)用戶修改和增長(zhǎng)完一個(gè)記錄的數(shù)據(jù)后，需要將數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中?？梢酝ㄟ^(guò)調(diào)

用記錄集的Updata方法把數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中。單擊“擬定”按鈕時(shí)，記錄將被

記如數(shù)據(jù)庫(kù)。

其重要程序如下：

PrivateSubCommand3_C1ick()

OnErrorGoToerror1

xg=True

Data1.Recordset.Update

Command3.Enabled=Fake

Command4.Enabled=False

Command?.Enabled=True

Command1.Enabled=True

Command4.Enablcd=True

Command5.Enabled=True

Command6.Enabled=True

Command?.Enabled=True

Commands.Enabled=True

ExitSub

error1:MsgBoxErr.DesMption,vbOKOnly,"錯(cuò)誤提醒"

EndSub

＞用CancelUpdata方法放棄增長(zhǎng)和修改

假如用戶修改了約束控件里的數(shù)據(jù)后，在沒(méi)有單擊“擬定”命令按鈕之前，想放棄

剛才的增長(zhǎng)或修改，則可以單擊“取消”命令。

＞由于其程序與Updata方法相似，因此不做反復(fù)解釋。

＞定義Data_Validata事件過(guò)程

對(duì)于一個(gè)新記錄或編輯的記錄，假如不能維護(hù)引用完整性或不能反映該舊路的實(shí)

體原型，那么它就是無(wú)效的，并且破壞了數(shù)據(jù)庫(kù)的完整性。為了在“入庫(kù)情況”表

中建立一個(gè)有效的記錄，就必須要有主關(guān)鍵字段“型號(hào)”的值。因此，對(duì)已經(jīng)存在

和新增長(zhǎng)的舊路都要先測(cè)試其“型號(hào)”字段之后才可以執(zhí)行更新操作。

其重要程序如下：

當(dāng)約束控件中內(nèi)容改變時(shí)

IfTcxt2.DataChanocdThen

Save=True

IfDataI.Recordset.RecordCount>1Then

Command1.Enabled=True

Command2.Enabled=True

EndIf

Else

IfTcxt2.Tcxt=""Andxg=TrueThen

ss=MsgBox（"必須要有'型號(hào)'！",vbOKOnly+vbinformation,"提醒"）

Action=False

Commands.Visible=True

Command4.Visible=True

Command1.Visible=True

Command2.Visible=True

Command?.Visible=True

Commands.Visible=True

Command5.Visible=True

Command6.Visible=True

EndIf

EndIf

IfAction=data_actionunloadOrAction=data_actioncloseThen

Save=True

EndIf

EndSub

2.3出庫(kù)界面

當(dāng)單擊“出庫(kù)”按鈕的時(shí)候，系統(tǒng)將進(jìn)入出庫(kù)信息輸入界面，如（圖231）所示，其基本情況與入庫(kù)相類似，依

次不做具體介紹。

圖231

2.4查詢界面

當(dāng)用戶單擊“查詢”按鈕時(shí)，系統(tǒng)將出現(xiàn)密碼登陸框，由于查詢的是內(nèi)部資料，因

此，需身份驗(yàn)證，如圖2.4.1

圖2.4.1

隨后將進(jìn)入查詢功能，如圖2.4.2

圖2.4.2

?用戶可根據(jù)不同需要進(jìn)行“按型號(hào)”和“按單位”的查詢。

單擊“按型號(hào)”，系統(tǒng)將進(jìn)入以型號(hào)為關(guān)鍵字段的查詢，如圖2.4.3。其中根據(jù)SQL

語(yǔ)句的查詢，選出出庫(kù)型號(hào)與入庫(kù)型號(hào)相同的記錄，記錄出入庫(kù)與出庫(kù)的總數(shù)量,

然后可按“上一個(gè)”和“下一個(gè)”進(jìn)行查詢，也可按出庫(kù)與入庫(kù)分別查詢記錄。

型號(hào)11-633-3

上一個(gè)|

產(chǎn)品名稱|中電動(dòng)

總?cè)藥?kù)量|7

下一個(gè)|

總由庫(kù)量|3

查詢出庫(kù)|查詢?nèi)霂?kù)|

退出1

圖2.4.3

當(dāng)用戶單擊“查詢出庫(kù)”按鈕是，系統(tǒng)進(jìn)入界面，如圖244

圖2.4.4

?圖2.4.4窗體及其上面控件的屬性設(shè)立

控件類型控件名重要屬性

FormfrmdblistCaption="查詢出庫(kù)”

DataDatalDatabaseName="a:\db2.mdb”

RecordsetType=1

RecordSource=“出庫(kù)型號(hào)”

FrameFrame1Caplion="具體情況”

LableLable1Cqption=“產(chǎn)品名稱”

Lable2Cqption="單價(jià)”

Lable3Cqption二“發(fā)票編號(hào)”

Lable4Cqption="顧客名稱"

Lable5Cqption="結(jié)帳情況”

TextTextlDatafield="具體情況”

Datasource="Datal”

Text2Datafield="具體情況”

Datasource="Datal”

Text3Datafield="具體情況”

Datasource=uDatal”

Text4Datafield="具體情況”

Datasource=uDatal”

Text5Datafield="具體情況”

Datasource="Datal”

DBlistDblistlListfield="型號(hào)”

Rowsource="Datal”

表2.4.1

?單擊Dblist框中的型號(hào),Frame中將自動(dòng)顯示記錄，以供用戶查詢。

當(dāng)用戶單擊“查詢?nèi)霂?kù)”按鈕時(shí)，將出現(xiàn)圖2.4.5的界面。

圖2.4.5

再回到查詢界面，單擊“按單位”按鈕，此時(shí)系統(tǒng)將進(jìn)入按單位查詢的截面，如圖

2.4.6

顧客

退出|_________供應(yīng)商________

圖2.4.6

分別按“顧客”和“供應(yīng)商”按鈕，系統(tǒng)將分別進(jìn)入不同的查詢界面，如圖2.4.7

和圖2.4.8

由于以下兩個(gè)窗口的屬性以及其設(shè)計(jì)方法類似與圖4.3,因此也不做具體介紹。

圖2.4.7

圖2.4.8

r?.cea1

話選擇供應(yīng)商名稱型號(hào)

入庫(kù)時(shí)間

吉島電動(dòng)機(jī)廠

廈門電動(dòng)機(jī)廠

單價(jià)

入庫(kù)數(shù)量

發(fā)票編號(hào)

二'

結(jié)帳情況

2.5退出程序

再回到登陸主窗口，（圖2.1.3）,單擊“退出”按鈕，系統(tǒng)將退出程序，顯示以下

窗口（圖251）,單擊圖中的“再見(jiàn)”，此程序也將結(jié)束。

圖2.5.1