VBAccess 優(yōu)化倉庫管理系統(tǒng)的代碼控制

倉庫管理系統(tǒng)

項(xiàng)目的建立

這是本人運(yùn)用閑暇之余在VB6.0上制作的一種簡(jiǎn)陋的I類庫管系統(tǒng)，現(xiàn)圖文結(jié)合的方式一步

一步展現(xiàn)制作過程。由于本人是個(gè)初學(xué)者，里面存在諸多局限性之處望得到高手們的指導(dǎo)。

此文可作供初學(xué)者們學(xué)習(xí)交流。作者聯(lián)絡(luò)方式：E-mail—：

最終運(yùn)行效果

打開軟件出現(xiàn)如下登錄界面

〃開始<6??E:\MYWork\VB\.尚未命名一回圖(RHDIForal桌面》E3@B19:22

輸入系統(tǒng)預(yù)設(shè)顧客名及密碼（11）單擊“登錄”或單擊“新顧客”添加新顧客進(jìn)入如下

主界面:

建立工程

1、創(chuàng)立原則EXE

2、按“打開”

卜工程1一?icrosoftVisualBasic［設(shè)計(jì)］□回國

文件&）編輯②視圖包）工程電）格式⑥調(diào)試@）運(yùn)行?查詢也）圖表復(fù)）工具①）外接程序?）so?）幫助兇

學(xué)?'n，制0?。喧~I>II?⑻直名將及@-匕0,0曲0635x6030

阿

AJ*.Foral□回區(qū)I

e

Ewg

口

國

/

霍

QI

開始干u修

3、添加MDI窗體——打開

E查看代碼3

[=U查看劉彖3

工程1屬性CE）

0暨力口直住便）

包I礪力口MDH宜偉《呆Fox-ml0)

礪力口模史（M）Foirrnl^3(A)---

■礪力口類模依解）mSTEPCPJ...

的漆力口用戶控件QJ）

▼可連接的g

礪力口屬性交（B）

隹礪力口用戶文檔3隱搬CH）

WebCl&ss

DdtdRepox*t.

DHTMLPage

DataEnvivoxunen't

ActiveX,xSi-+:§§（SJ---

礪力口文件3）一一一

4、編輯菜單

在空白處右擊一一點(diǎn)擊“菜單編輯器”

菜單編輯器

在“標(biāo)題”里輸入“系統(tǒng)”，在“名稱”里輸入“Sys”（注意此處不能為中文）

點(diǎn)擊“下一種”再點(diǎn)擊“°”

“確定”退到MDI界面點(diǎn)擊“系統(tǒng)”一一“退出”如下，然后編寫代碼。

代碼如下:

PrivateSubExit_Click()

End

EndSub

數(shù)據(jù)庫時(shí)建立

VB6.0中可以創(chuàng)立Access數(shù)據(jù)庫。如下建立一種“顧客表”的數(shù)據(jù)庫，用來寄存顧客信

息及某些出入庫管理信息。如下圖單擊“外接程序”

外接程序R）窗口世）幫助但）

可視化數(shù)據(jù)管理器

外接程序管理器@）.一

I組件服務(wù)

再單擊“可視化數(shù)據(jù)管理器”出現(xiàn)如圖

IS5VisDataS@E

；文件直）牌就用海心如國演

打開數(shù)據(jù)庫@）.一

新建但）.一MicrosoftAccess通）…“Versi，MDB②…

Dbase也）Version7.0fflDB（J）...

FoxPro直）

導(dǎo)入/導(dǎo)出Q）..

Paradox色）

工作空間世）.一

ODBC（Q）...

錯(cuò)誤⑥…

TextFiles（X）...

壓縮MDB（M）..,

修復(fù)MDB⑻…

點(diǎn)擊"文獻(xiàn)"----"新建"----"MicrosoftAccess"--------"Version2.0MDB”輸入數(shù)據(jù)庫名,

“保留”出現(xiàn)如下圖

在數(shù)據(jù)窗口中右擊一一“新建表”，最終如下

文件任)實(shí)用程序也)窗口世)幫助國)

國量砂晉翟國名

費(fèi)數(shù)據(jù)庫窗口13回區(qū)|

w1

回

三-

.-〔Properti，

臥

-丁

-」借出表

，

-「

等-

-

-I:庫存表

曲3歸還表

.-

凈-

-1

-出庫表

曲

-三

-入庫表

曲-1

-用戶登錄信息表

刷新列表

新建表(1)

新建查詢

往數(shù)據(jù)表里添加數(shù)據(jù)在這里就不羅嗦了，請(qǐng)查閱有關(guān)書籍。

登錄界面窗口的建立

最終界面如下:

1、Adodcl時(shí)添加過程為：?jiǎn)螕簟肮こ獭币灰弧安考背霈F(xiàn)下圖所示，選擇“控件”下的

MicrosoftADODataControl6.0(OLEDB)”

部件區(qū)

控件I設(shè)計(jì)器I可插入對(duì)象I

CjHSPViewCtrlActiveXControlmodule

\'HZPlayerControl1.0TypeLibrary

UIconListToolPriv二回苣

UKooPlayerActiveXControlmodules

FlKuGoo3DownXControlLibrary衍II

IZjMediaLib1.0TypeLibrary

IMicrosoftAccessBarCodeControl9.0

；；；?：S園

IMicrosoftAgentControl2.0

MicrosoftCalendarControl12.0

MicrosoftChartControl6.0(SP4)(OUam⑥)...|

MicrosoftCommControl6.0

題「r只顯示選定項(xiàng)⑤)

?MicrosoftAgentControl2.0

定位：C:\WIffl)O?S\msagent\*gentctl.dll

確定|取消|應(yīng)用?

單擊“確定”在工具欄中會(huì)出現(xiàn)“”圖標(biāo)，單擊它并拖動(dòng)到對(duì)應(yīng)位置即可。其他元件

不在一一闡明。

2、本窗體代碼如下：

PrivateSubCommandl_Click()'"登錄"、“確定”按鈕

IfCommand1.Caption=〃確定〃AndCommand2.Caption=〃取消〃Then'假如為"確定”則添加新顧客

IfTextl.Text=〃〃Then'提醒顧客輸入顧客名

MsgBox〃請(qǐng)輸入顧客名！〃，，〃登錄信息提醒：〃

ExitSub

Else

DimusenameAsString'檢測(cè)顧客名與否已經(jīng)存在

DimstrSAsString

usename=Trim(Textl.Text)

strS="select*from顧客登錄信息表where顧客名二'"&usename&"

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strS

Adodcl.Refresh

IfAdodcl.Recordset.EOF=FalseThen

MsgBox〃您輸入的顧客已存在!〃，，〃登錄提醒信息：〃

Textl.Text=

Text2.Text=""

Text3.Text=

Textl.SetFocus

ExitSub

EndIf

EndIf

IfText2.Text="〃Then'提醒顧客密碼不能為空

MsgBox〃密碼不能為空!〃，，〃登錄提醒信息：〃

Text2.SetFocus

ExitSub

EndIf

IfText3.Text=""Then

MsgBox〃請(qǐng)?jiān)俅屋斎朊艽a!”，，〃登錄提醒信息：〃

Text3.SetFocus

ExitSub

EndIf

IfText2.Text<>Text3.TextThen

MsgBox〃兩次輸入的密碼不一致，請(qǐng)確認(rèn)!。，〃登錄提醒信息：〃

Text2.Text=〃”

Text3.Text=""

Text2.SetFocus

ExitSub

Else

Adodcl.Recordset.AddNew'添加新顧客

Adodcl.Recordset.Fields("顧客名")=Trim(Textl.Text)

Adodcl.Recordset.Fields(〃密碼")=Trim(Text2.Text)

MsgBox(〃添加新顧客成功，目前您可以登陸系統(tǒng)了！〃)

Label3.Visible=False

Text3.Visible=False

Command1.Caption=〃登錄”

Command2.Caption="退出"

EndIf

Else'"登錄”按鈕，顧客登錄

DimstrSnoAsString

DimstrSelectAsString

strSno=Trim(Textl.Text)'檢測(cè)顧客名與否存在

strSelect="select密碼from顧客登錄信息表where顧客名=’"&strSno&"

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strSelect

Adodcl.Refresh

IfAdodcl.Recordset.EOF=TrueThen

MsgBox〃顧客名不存在，請(qǐng)重新輸入！〃，，〃登錄提醒信息：〃

Textl.Text=〃”

Text2.Text=""

Textl.SetFocus

ExitSub

EndIf

IfAdodcl.Recordset.Fields("密碼")=Trim(Text2.Text)Then'檢測(cè)密碼與否對(duì)的I

Forml.Hide

*UnloadMe

Form2.Show

'MsgBox〃登陸成功！〃，，〃登錄提醒信息：〃

Else

MsgBox〃密碼不對(duì)的，請(qǐng)重新輸入！〃，，〃登錄提醒信息：〃

Text2.Text=""

Text2.SetFocus

EndIf

EndIf

EndSub

PrivateSubCommand2_Click()'"退出"或"取消"按鈕

IfCommand2.Caption="取消"Then

Label3.Visible=False

Text3.Visible=False

Command1.Caption="登錄"

Command2.Caption="退出"

Textl.Text

Text2.Text

Textl.SetFocus

Else

End5UnloadMe

EndIf

EndSub

PrivateSubCommand3_Click()“新顧客”按鈕

Label3.Visible=True

Text3.Visible=True

Textl.Text=

Text2.Text=

Text3.Text=

Command1.Caption="確定〃

Command2.Caption="取消"

Textl.SetFocus

EndSub

PrivateSubCommand3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Label6.Visible=True

EndSub

PrivateSubCommand3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Labe16.Visible=False

EndSub

PrivateSubForm_Load()

Label3.Visible=False

Text3.Visible=False

EndSub

PrivateSubTimerl_Timer()'時(shí)間timel控件的Itime事件代碼，

用來

'顯示向左移動(dòng)的歡迎字幕

IfLabel4.Left+Label4.Width>0Then‘當(dāng)標(biāo)簽右邊位置不小于0時(shí)，標(biāo)簽

向左移

Label4.MoveLabel4.Left-80

Else'否則標(biāo)簽從頭開始

Label4.Left=Forml.ScaleWidth

EndIf

IfLabel5.Left+Label5.Width>0Then

Label5.MoveLabel5.Left-80

Else

Label5.Left=Forml.ScaleWidth

EndIf

EndSub

主界面窗體

如下:

代碼:

PrivateSubAddNew_Click()

Frame1.Visible=True

Frame2.Visible=False

EndSub

PrivateSubCHKPMCHX_Click()

Frame2.Caption="出庫信息〃

DimpmAsString

DimnAsString

pm=InputBox（"產(chǎn)品名"，"請(qǐng)輸入"，0）

="select*from出庫表where品名='〃&pm&

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGridl

EndSub

PrivateSubCHKXHCHX_Click()

Frame2.Caption="出庫信息〃

DimXHAsString

DimnAsString

XH=InputBox(〃產(chǎn)品型號(hào)〃，〃請(qǐng)輸入〃，0)

n="select*from出庫表where型號(hào)='"&XH&

Adode2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

EndSub

PrivateSubCKCZ_Click()

'Form2.Hide

Form6.Show

EndSub

PrivateSubCKJSHR_Click()

Frame2.Caption="出庫信息’

DimJSHRAsString

DimnAsString

JSHR=InputBox(〃經(jīng)手人〃，〃請(qǐng)輸入〃，0)

n="select*from出庫表where經(jīng)手人='"&JSHR&

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGridl

EndSub

PrivateSubCKSHJ_Click()

Frame2.Caption="出庫信息”

DimCHKRQAsString

DimnAsString

CHKRQ=InputBox。出庫日期，格式為：月/日/年如：12/1/2011〃，〃請(qǐng)輸入〃，0)

n="select*from出庫表where出庫日期='"&CHKRQ&

Adode2.CommandType=adCmdText

Adode2.RecordSource=n

Adodc2.Refresh

CallInitGridl

EndSub

PrivateSubCKZCXClickO

Frame2.Caption="出庫信息”

DimZBAsString

ZB="select*from出庫表

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=ZB

Adodc2.Refresh

CallInitGridl

EndSub

PrivateSubCommandl_Click()

IfTextl.TextThen'提醒顧客輸入顧客名

MsgBox〃請(qǐng)輸入顧客名！〃，，〃登錄信息提醒：〃

ExitSub

Else

DimusenameAsString'檢測(cè)顧客名與否已經(jīng)存在

DimstrSAsString

usename=Trim(Textl.Text)

strS="select*from顧客登錄信息表where顧客名"&usename&

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strS

Adodcl.Refresh

IfAdodcl.Recordset.EOF=FalseThen

MsgBox〃您輸入的顧客已存在!〃，，〃登錄提醒信息：〃

Textl.Text=

Text2.Text=""

Text3.Text=〃〃

Textl.SetFocus

ExitSub

EndIf

EndIf

IfText2.Text="Then'提醒顧客密碼不能為空

MsgBox〃密碼不能為空!〃，，〃登錄提醒信息：〃

Text2.SetFocus

ExitSub

EndIf

IfText3.Text=""Then

MsgBox〃請(qǐng)?jiān)俅屋斎朊艽a!〃，，〃登錄提醒信息：〃

Text3.SetFocus

ExitSub

EndIf

IfText2.Text<>Text3.TextThen

MsgBox〃兩次輸入的密碼不一致，請(qǐng)確認(rèn)!〃，，〃登錄提醒信息：〃

Text2.Text

Text3.Text

Text2.SetFocus

ExitSub

Else

Adodcl.Recordset.AddNew'添加新顧客

Adodcl.Recordset.Fields（"顧客名〃）=Trim（Textl.Text）

Adodcl.Recordset.Fields（〃密碼〃）=Trim（Text2.Text）

DimXAsInteger

X=MsgBox（"成功添加新顧客，與否要重新登錄!”，vbYesNo+vbQuestion+vbDefaultButtonl,“提醒信息！”）

IfX=vbYesThen

UnloadMe

Form3.Show

EndIf

'MsgBox（〃成功添加新顧客！〃）

JLabel3.Visible=False

*Text3.Visible=False

'Command1.Caption=〃登錄”

JCommand2.Caption=〃退出”

EndIf

Framel.Visible=False

Frame2.Visible=True

Textl.Text=

Text2.Text=

Text3.Text=

Form3.Show

EndSub

PrivateSubCommand2_Click()

Frame1.Visible=False

Frame2.Visible=True

EndSub

PrivateSubCXDL_Click()

Form3.Show

UnloadMe

EndSub

PrivateSubExit_Click()

End

UnloadForml

UnloadForm2

UnloadForm3

UnloadForm4

UnloadForm5

UnloadForm6

UnloadForm7

UnloadForm8

EndSub

PrivateSubForm_Load()

TextUserName=Trim(Forml.Textl.Text)

UnloadForml

Frame1.Visible=False

CallInitGridO

Me.Height=MDIForml.Height-1060

Me.Width=MDIForml.Width-560

Me.Top=MDIForml.Top

Me.Left=MDIForml.Left

EndSub

PrivateSubGHCZ_Click()

Form2.Hide

Form8.Show

EndSub

PrivateSubGHPMCX_Click()

Frame2.Caption="償還信息〃

DimpmAsString

DimnAsString

pm=InputBox（“產(chǎn)品名〃，〃請(qǐng)輸入“，0）

n="select*from償還表where品名='"&pm&'

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubGHRCX_Click（）

Frame2.Caption="償還信息”

DimJCRAsString

DimnAsString

JCR=InputBox（"償還人"，"請(qǐng)輸入〃，0）

n="select*from償還表where償還人='”也JCR&

Adode2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubGHSJCX_Click()

Frame2.Caption="償還信息〃

DimJCRQAsString

DimnAsString

JCRQ=InputBox(〃償還日期，格式為：月/日/年如：12/1/2011〃，〃請(qǐng)輸入〃，0)

n="select*from償還表where償還日期二，"&JCRQ&

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubGHXHCX_Click()

Frame2.Caption="償還信息”

DimXHAsString

DimnAsString

XH=InputBox(〃產(chǎn)品型號(hào)〃，〃請(qǐng)輸入〃，0)

n="select*from償還表where型號(hào)='〃&XH&"

Adode2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubGHZCX_Click()

Frame2.Caption="償還信息'

DimZBAsString

ZB="select*from償還表

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=ZB

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubJCCZ_Click()

Form2.Hide

Form7.Show

EndSub

PrivateSubJCHPMCHX_Click()

Frame2.Caption="借出信息’

DimpmAsString

DimnAsString

pm=InputBox（"產(chǎn)品名"，"請(qǐng)輸入"，0）

="select*from借出表where品名='〃&pm&

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubJCHXHCHX_Click()

Frame2.Caption="借出信息〃

DimXHAsString

DimnAsString

XH=InputBox(〃產(chǎn)品型號(hào)〃，〃請(qǐng)輸入〃，0)

n="select*from借出表where型號(hào)='"&XH&

Adode2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubJCRCX_Click()

Frame2.Caption=”借出信息〃

DimJCRAsString

DimnAsString

JCR=InputBox（〃借出人〃，〃請(qǐng)輸入〃，0）

n="select*from借出表where借出人='"&JCR&"

Adodc2.CommandType=adCmdText

Adode2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubJCSHJCX_Click()

Frame2.Caption="借出信息〃

DimJCRQAsString

DimnAsString

JCRQ=InputBox(〃借出日期，格式為：月/日/年如：12/1/20H”,〃請(qǐng)輸入〃，0)

n="select*from借出表where借出日期=JCRQ&"

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubJCZCX_Click()

Frame2.Caption="借出信息”

DimZBAsString

ZB="select*from借出表

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=ZB

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubJSHRCHX_Click()

Frame2.Caption=”償還信息〃

DimJSHRAsString

DimnAsString

JSHR=InputBox(〃經(jīng)手人〃，〃請(qǐng)輸入〃，0)

n="select*from償還表where經(jīng)手人='〃&JSHR&

Adodc2.CommandType=adCmdText

Adode2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubJSHRCX_Click()

Frame2.Caption="借出信息”

DimJSHRAsString

DimnAsString

JSHR=InputBox("經(jīng)手人"，”請(qǐng)輸入〃，0)

n="select*from借出表where經(jīng)手人='〃&JSHR&

Adode2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubPMCX_Click()

Frame2.Caption="庫存信息’

DimpmAsString

DimnAsString

pm=InputBox（"產(chǎn)品名”，〃請(qǐng)輸入“，0）

n="select*from庫存表where品名='"&pm&

Adodc2.CommandType=adCmdText

Adode2.RecordSource=n

Adode2.Refresh

CallInitGridO

EndSub

PrivateSubRKCZ_Click()

Form2.Hide

Form5.Show

EndSub

PrivateSubRKJSHR_Click()

Frame2.Caption="入庫信息”

DimJSHRAsString

DimnAsString

JSHR=InputBox(〃經(jīng)手人"，"請(qǐng)輸入"，0)

n="select*from