VBAccess 优化仓库管理系统的代码控制

仓库管理系统

项目的建立

这是本人运用闲暇之余在VB6.0上制作的一种简陋的I类库管系统，现图文结合的方式一步

一步展现制作过程。由于本人是个初学者，里面存在诸多局限性之处望得到高手们的指导。

此文可作供初学者们学习交流。作者联络方式：E-mail—：

最终运行效果

打开软件出现如下登录界面

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

输入系统预设顾客名及密码（11）单击“登录”或单击“新顾客”添加新顾客进入如下

主界面:

建立工程

1、创立原则EXE

2、按“打开”

卜工程1一・icrosoftVisualBasic［设计］□回国

文件&）编辑②视图包）工程电）格式⑥调试@）运行®查询也）图表复）工具①）外接程序®）so®）帮助凶

学•'n，制0?。喧~I>II・⑻直名将及@-匕0,0曲0635x6030

阿

AJ*.Foral□回区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、编辑菜单

在空白处右击一一点击“菜单编辑器”

菜单编辑器

在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为中文）

点击“下一种”再点击“°”

“确定”退到MDI界面点击“系统”一一“退出”如下，然后编写代码。

代码如下:

PrivateSubExit_Click()

End

EndSub

数据库时建立

VB6.0中可以创立Access数据库。如下建立一种“顾客表”的数据库，用来寄存顾客信

息及某些出入库管理信息。如下图单击“外接程序”

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

可视化数据管理器

外接程序管理器@）.一

I组件服务

再单击“可视化数据管理器”出现如图

IS5VisDataS@E

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

打开数据库@）.一

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

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

FoxPro直）

导入/导出Q）..

Paradox色）

工作空间世）.一

ODBC（Q）...

错误⑥…

TextFiles（X）...

压缩MDB（M）..,

修复MDB⑻…

点击"文献"----"新建"----"MicrosoftAccess"--------"Version2.0MDB”输入数据库名,

“保留”出现如下图

在数据窗口中右击一一“新建表”，最终如下

文件任)实用程序也)窗口世)帮助国)

国量砂晋翟国名

费数据库窗口13回区|

w1

回

三-

.-〔Properti，

卧

-丁

-」借出表

，

-「

等-

-

-I:库存表

曲3归还表

.-

净-

-1

-出库表

曲

-三

-入库表

曲-1

-用户登录信息表

刷新列表

新建表(1)

新建查询

往数据表里添加数据在这里就不罗嗦了，请查阅有关书籍。

登录界面窗口的建立

最终界面如下:

1、Adodcl时添加过程为：单击“工程”一一“部件”出现下图所示，选择“控件”下的

MicrosoftADODataControl6.0(OLEDB)”

部件区

控件I设计器I可插入对象I

CjHSPViewCtrlActiveXControlmodule

\'HZPlayerControl1.0TypeLibrary

UIconListToolPriv二回苣

UKooPlayerActiveXControlmodules

FlKuGoo3DownXControlLibrary衍II

IZjMediaLib1.0TypeLibrary

IMicrosoftAccessBarCodeControl9.0

；；；•：S园

IMicrosoftAgentControl2.0

MicrosoftCalendarControl12.0

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

MicrosoftCommControl6.0

题「r只显示选定项⑤)

।MicrosoftAgentControl2.0

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

确定|取消|应用®

单击“确定”在工具栏中会出现“”图标，单击它并拖动到对应位置即可。其他元件

不在一一阐明。

2、本窗体代码如下：

PrivateSubCommandl_Click()'"登录"、“确定”按钮

IfCommand1.Caption=〃确定〃AndCommand2.Caption=〃取消〃Then'假如为"确定”则添加新顾客

IfTextl.Text=〃〃Then'提醒顾客输入顾客名

MsgBox〃请输入顾客名！〃，，〃登录信息提醒：〃

ExitSub

Else

DimusenameAsString'检测顾客名与否已经存在

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〃请再次输入密码!”，，〃登录提醒信息：〃

Text3.SetFocus

ExitSub

EndIf

IfText2.Text<>Text3.TextThen

MsgBox〃两次输入的密码不一致，请确认!。，〃登录提醒信息：〃

Text2.Text=〃”

Text3.Text=""

Text2.SetFocus

ExitSub

Else

Adodcl.Recordset.AddNew'添加新顾客

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

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

MsgBox(〃添加新顾客成功，目前您可以登陆系统了！〃)

Label3.Visible=False

Text3.Visible=False

Command1.Caption=〃登录”

Command2.Caption="退出"

EndIf

Else'"登录”按钮，顾客登录

DimstrSnoAsString

DimstrSelectAsString

strSno=Trim(Textl.Text)'检测顾客名与否存在

strSelect="select密码from顾客登录信息表where顾客名=’"&strSno&"

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=strSelect

Adodcl.Refresh

IfAdodcl.Recordset.EOF=TrueThen

MsgBox〃顾客名不存在，请重新输入！〃，，〃登录提醒信息：〃

Textl.Text=〃”

Text2.Text=""

Textl.SetFocus

ExitSub

EndIf

IfAdodcl.Recordset.Fields("密码")=Trim(Text2.Text)Then'检测密码与否对的I

Forml.Hide

*UnloadMe

Form2.Show

'MsgBox〃登陆成功！〃，，〃登录提醒信息：〃

Else

MsgBox〃密码不对的，请重新输入！〃，，〃登录提醒信息：〃

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()'时间timel控件的Itime事件代码，

用来

'显示向左移动的欢迎字幕

IfLabel4.Left+Label4.Width>0Then‘当标签右边位置不小于0时，标签

向左移

Label4.MoveLabel4.Left-80

Else'否则标签从头开始

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（"产品名"，"请输入"，0）

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

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGridl

EndSub

PrivateSubCHKXHCHX_Click()

Frame2.Caption="出库信息〃

DimXHAsString

DimnAsString

XH=InputBox(〃产品型号〃，〃请输入〃，0)

n="select*from出库表where型号='"&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(〃经手人〃，〃请输入〃，0)

n="select*from出库表where经手人='"&JSHR&

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGridl

EndSub

PrivateSubCKSHJ_Click()

Frame2.Caption="出库信息”

DimCHKRQAsString

DimnAsString

CHKRQ=InputBox。出库日期，格式为：月/日/年如：12/1/2011〃，〃请输入〃，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〃请输入顾客名！〃，，〃登录信息提醒：〃

ExitSub

Else

DimusenameAsString'检测顾客名与否已经存在

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〃请再次输入密码!〃，，〃登录提醒信息：〃

Text3.SetFocus

ExitSub

EndIf

IfText2.Text<>Text3.TextThen

MsgBox〃两次输入的密码不一致，请确认!〃，，〃登录提醒信息：〃

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（“产品名〃，〃请输入“，0）

n="select*from偿还表where品名='"&pm&'

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubGHRCX_Click（）

Frame2.Caption="偿还信息”

DimJCRAsString

DimnAsString

JCR=InputBox（"偿还人"，"请输入〃，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〃，〃请输入〃，0)

n="select*from偿还表where偿还日期二，"&JCRQ&

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubGHXHCX_Click()

Frame2.Caption="偿还信息”

DimXHAsString

DimnAsString

XH=InputBox(〃产品型号〃，〃请输入〃，0)

n="select*from偿还表where型号='〃&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（"产品名"，"请输入"，0）

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

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=n

Adode2.Refresh

CallInitGrid2

EndSub

PrivateSubJCHXHCHX_Click()

Frame2.Caption="借出信息〃

DimXHAsString

DimnAsString

XH=InputBox(〃产品型号〃，〃请输入〃，0)

n="select*from借出表where型号='"&XH&

Adode2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubJCRCX_Click()

Frame2.Caption=”借出信息〃

DimJCRAsString

DimnAsString

JCR=InputBox（〃借出人〃，〃请输入〃，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”,〃请输入〃，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(〃经手人〃，〃请输入〃，0)

n="select*from偿还表where经手人='〃&JSHR&

Adodc2.CommandType=adCmdText

Adode2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubJSHRCX_Click()

Frame2.Caption="借出信息”

DimJSHRAsString

DimnAsString

JSHR=InputBox("经手人"，”请输入〃，0)

n="select*from借出表where经手人='〃&JSHR&

Adode2.CommandType=adCmdText

Adodc2.RecordSource=n

Adodc2.Refresh

CallInitGrid2

EndSub

PrivateSubPMCX_Click()

Frame2.Caption="库存信息’

DimpmAsString

DimnAsString

pm=InputBox（"产品名”，〃请输入“，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(〃经手人"，"请输入"，0)

n="select*from