《仓库管理系统(VB+Access+源代码)精品资料.doc》由会员分享，可在线阅读，更多相关《仓库管理系统(VB+Access+源代码)精品资料.doc（27页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、仓库管理系统项目的建立 这是本人利用闲暇之余在B6。0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流.作者联系方式：E-mal l。shiyeahoo.om。cn QQ：13550443最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码( 1 1）单击“登录”或单击“新用户”添加新用户进入如下主界面：建立工程1、 创建标准EXE2、 按“打开”3、 添加DI窗体打开4、 编辑菜单在空白处右击点击“菜单编辑器 在“标题里输入“系统”，在“名称”里输入“Sys”（注意此处不能为汉字
2、)点击“下一个再点击“ ”“确定退到MDI界面点击“系统”“退出”如下,然后编写代码。代码如下： Pae b Exit_Click() EnEnd ub数据库的建立B6。0中可以创建Access数据库.如下建立一个“用户表的数据库，用来存放用户信息及一些出入库管理信息。如下图单击“外接程序再单击“可视化数据管理器”出现如图点击“文件”“新建”“Microsoft Acce”“Version2。0MD”输入数据库名，“保存出现如下图在数据窗口中右击“新建表，最终如下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。登录界面窗口的建立 最终界面如下：1、Adodc1的添加过程为：单击“工程”-“
3、部件”出现下图所示，选择“控件”下的“Micrsf DOata ontrol 6。0 (OEDB）” 单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可.其它元件不在一一说明。2、 本窗体代码如下：Piate Sommand1_Click() “登录”、“确定按钮 f Cmmnd.ption = ”确定nd Command2。ation = 取消” Thn 如果为“确定”则添加新用户 If Text1Text ” The 提示用户输入用户名 MsgBox 请输入用户名！， ， ”登录信息提示： Eit ub Else Dimsme sStrin 检测用户名是否已经存在 Dimtr
4、As String uam = Trim(Text.Text) strS =lect * frm 用户登录信息表wee用户名= &usename ” ddc。ommandType =adCmdText Adodc.RecSorce =stS Aod。Rees IfAdc1。Reoset.EOF = False Then MsBox ”您输入的用户已存在!”,， ”登录提示信息： Text1.Txt =” Text2ext = Tet3et = ” Tet。etFocus it b nd If Ed If IfTxt2。ext = Ten 提示用户密码不能为空 MsBox 密码不能为空!， ,
5、”登录提示信息： Tex2。eFocs xit Sub E If If ex3。ex Then MsgBox 请再次输入密码！”,，登录提示信息：” Tet。SeFocus Ext ub E If If ext.ext Text3.ext hen Msgox 两次输入的密码不一致,请确认！， , ”登录提示信息: Tt。ex = ” ext3。Text = ” TextSetFocus Ex Sb lse Adodc1Rdset。AdNew 添加新用户 ddc1.Rerdt.Fe(”用户名)= Tri(Txt1ext） od1.Recordse.Field(密码）= Trm（Tet2Text)
6、 Adodc1。ecordstUdte Mox(添加新用户成功，现在您可以登陆系统了!”） Lal3.Vsible als Text。Visible =Fae Comman1Ction=”登录” mad.Cpton= 退出” End f Ele “登录按钮,用户登录 Dim stSnoAtring D stree A Sting stSno Trim（Tex1。Tet） 检测用户名是否存在 sSlet ”lect 密码frm 用户登录信息表 wer 用户名 = ”& stSno& ” Adodc1.CommdType aCmdex ddc1。Reordoue= stSeet Adodc.res
7、h If Ac1.Reorset。O True Thn sgBx用户名不存在，请重新输入!”， ， ”登录提示信息: Tt1.Tt = ext2.Text ” ext1etFocs Exit Sub End If If Adoc1Recoret。Felds(”密码”)= Trm(Tx2.Te) The 检测密码是否正确 For1。ide UnloadMe Formow MsgBox ”登陆成功！”,，登录提示信息: Ese MsgBox 密码不正确，请重新输入!， ， 登录提示信息: et。Text Text2。SFocus ndI End IfEnd bPria Sub CmmndClik（
8、） “退出”或“取消”按钮 If ommand2aton = 取消” Then Lbl3.Vsible ase Te3.isil = Fl Cmmand1.Caion = ”登录 Command2.Cptio = ”退出 xt1。x ” Txt。Tt = t1。SeFocus Ele End nlde End IESuPivate ubCommack（) “新用户”按钮Labe3.Viie=True Tet3。Visile = Tue Text1。ext= ” ext2。ext= Text3ext = ” Cmmd.atin= 确定” Cmmand2。aptn 取消 Tet1SeFocusn
9、SubPriva Sub mnd3MouseDown（utton Asntger, ShfAs Iteger，As ge, As Sinle） abe6。Visible = TrueEnduPrivate Sub CommandMouseU（Btton s Iter，ShftAsneger，X ASile， Y Sige） Labl6Visible = asend bPrivate Suboa（) Label.Visile = le Text3.VisealseEnd SurivaeSbTir1_Tmer() 时间tim1控件的tie事件代码，用来 显示向左移动的欢迎字幕I Lael4.Lef
10、t ael。idth 0 Then 当标签右边位置大于0时，标签向左移 Lal4.MoveLbel4.Left 80 Els 否则标签从头开始 Lbl4Lft =Fo.SaleWidth nd f Lbl5。Let Label5Width The LabelMvael5Let 0 Else Label5Let =o1。SlWidt Ed Ind Su主界面窗体如下:代码: rvat SubAdNewCic（） Frame。Visile = Tru rame2Visble = FalendbrivateSu CHKPCHXClic（） rame2。apion = ”出库信息” D m s rin
11、gim Srn pm= Iputox（产品名, ”请输入”, 0） ”slct * om 出库表 whre品名= pm & ” ddc2Commadyp mdTet Adc2.RcSurc = n doc2Refrsh all Initid1En Survae Sub HKXHCH_Clic（） Frm。Cation= ”出库信息” Dm XH AsStrin Dm n s String XH= Iputx（”产品型号”，”请输入，0） =select *fro 出库表 whee 型号 & X ” Adodc2CondType aCmdTxt Adod2RordSuce = n dodc2Re
12、freshEnd PrivateSb CKCZ_Click(） Frm2。Hde For6.SowEndbrive Sb CJSH_Cli（) Fram。Catin 出库信息 DimJSHR As Stri Dim n String SHR InpuBo(经手人, 请输入， 0） n seet * fo 出库表 were 经手人 = JHR & ” Aoc。CmmandType = adCmdTxt Adoc2。Reordurc = n Adod.Reresh Cl IntGrd uPrivate Sub CKSHClick（) rme2.Captin ”出库信息” DimCHRQ Sig D
13、i n As String CHKRQ = IptBox(出库日期,格式为：月日/年如:1/1/11,请输入”， 0） n= select * fo 出库表whre 出库日期 & CHRQ &” Ado2.CommnTyp =aCdTt Ad2.ecrSure =n AddcReresh Call IniGrid1End SubPivatSu CKCX_li（) F。Catn= 出库信息” Dm ZB Strig B = elet * from出库表 Adodc2。ComandT adCmText Adoc2.ReorSrce=ZB Aoc2。Refresh CalIniGi1End Subi
14、vate ub Command1Click(） If T1。Txt ” Thn 提示用户输入用户名 MgBox 请输入用户名！， ，”登录信息提示： Exi S Ese Dim seame A trig 检测用户名是否已经存在 im str A Strig usenam=Trim（Text1。Tet） trS = lect * fom 用户登录信息表 where 用户名= useame & Addc.CmndTye = dCmdTxt dod1。eoSou = strS Aodc。efeh If Adodc1。Recrdet。EOF = Fle Then MsgBx 您输入的用户已存在!, 登
15、录提示信息:” Tet1.Text ” T2.et = ” Text3Tet= Text1.etFocs Exit Sub End If Ed If Tx2.Tx = Ten 提示用户密码不能为空 MgBx”密码不能为空!,， 登录提示信息：” Text.SetFous Exit Su Ed f I Tt3。Text = ” Thn MsBox 请再次输入密码！”, , 登录提示信息: TeSetFcu Exit b End If If t2。Text Tex3。t Then Msox两次输入的密码不一致,请确认！, ”登录提示信息：” Tet2.xt= ” et3。Text= ” Txt.e
16、tFocus ExSub Else do1。RcorseAddNew 添加新用户 Aodc.Recost.Fie(用户名）=T（Text1。xt) Adod1。Rcodset。Fil（”密码） =Trm（Tx.Tet） ddc1ecordst.pdate im AsIntg X =sgBox(成功添加新用户，是否要重新登录!”， vbYso + vbQesion +bDefaulButtn1, 提示信息!） fX bYes Th Unlod M om3Sh End Mgox (成功添加新用户！”) Label3Visle =ale Text3。isible= Fase CmmandCat= 登
17、录” Command2。ptio = ”退出 Ed f FraVisb=False Frame2.Visib =True Text1。Text ” Tx2Text = ” ext3。Text = Form3.ShowEn PrivateS Commad2_Cic（) Fae1。Vsle = False Frae2。isible TueEn bPate SCXLick（) orm3。Shw UnoaMeEndSuPrvte Sb Exit_Clc（） nd nload Fo1 Unlad orm2 nlad r3 UnoadFo nlod Fr5 Unloa Form6 Unoad Form7
18、UloadFrm8EdSuPrivat S o_od（） TxtUserm= Trim(Fom1。Tex1。xt） Ulo orm1 Fme1.Viibe= Fase Cll Intrid0 Me.Hight IForm1Heit 060 Me.dh = MDIo1。Wdth -56 MeTo = MIFrm1Tp MeLeft=DFor1.LeEd SuPiate Sb GHZCik（) Form2。ide orm8.ShwEn Suvate Sub GPMX_Click（） rae2.Captn 归还信息 i pAs trig Dim nAstin m =npuox（产品名”,请输入”，
19、0） n = sect * fm 归还表 hr 品名 = & pm Adodc2.Commndype =admdTet Adoc2。ReodSource = n Adodc2.Rfresh Cl Intridnd SuPrivt Sub GHRX_lic() Fame2Cption =归还信息” Dm JCR A Strin imAs Sting JC InputBox(归还人”， ”请输入”, 0） n = selct om 归还表 where归还人 = JCR ” AdCommndType = adCText Ado。RcodSorce n A.Rfreh ClIitGri2EndSubP
20、riate Su GSJCXClick（) Fame。Capton = 归还信息” DimJCRQ As tringDimnAs Strng CQ IptBo（”归还日期,格式为:月/日/年 如:1/011”, ”请输入,0）n= ”seect * fro归还表 were归还日期 = ” &JRQ &” AdocCoandType = dCdTx ARcorSource = n Ado。Refre ntGrd2nd SbPrivate SubGXHX_Clck(） Frame2.Cpo = 归还信息 DiH AsStrng im nAs Stng X= IptBox(产品型号,请输入，0） n
21、 lect * from归还表 where型号 =” & XH & ” Adodc2。CommandType= dmdxt dc2RecordSrce=n dod。Refesh Call IitGid2End SbPrivat Sub GHCXClick（） rame2。Caption= 归还信息” Dim ZAs String ZB selct frm 归还表 do2.Commandype = adCmdTex Addc2.Rcrduce = Z Adc2Refrsh CallInitidnd Subrie S JCCZ_lick(） Form.Hid Form7。ShE SubPrivat
22、e Sub JCHPMCH_Click（) Fram2.aptn = 借出信息 Dim pm As ting Di n s Strig pm = InputBox（”产品名”， 请输入, ） n seect * from 借出表 whre 品名 = m& Aoc2。CmmnTyp = adCmdText dodc2RcordSuc = n Adodc2Resh al InitGid2End SubPrvatub JCHHC_Click() Frae2aptin= ”借出信息 Di XHs Sting mn Atn XH = Inutox（”产品型号， 请输入”， 0) se frm 借出表 w
23、here 型号 = ” Adodc2。CmmadType = admdTt Adod2.RecodurcenAoc2.Refresh Cal nitGrid2d ubPrivae ubJCRCX_Clck（） Frmptio = 借出信息” imJCR As Strn Di n strinCR = InuBox（”借出人, ”请输入,0） n =select fro借出表 whe 借出人 = J Adodc。CommandTpe admdxt dodc2.ReordSource =n Adoc。efres Cal IGrid2n SuPite ub CSHJCX_Cck（） rme2。Cpto
24、n =借出信息 Dm JCRQ s ring im sString RQ = putBx(”借出日期,格式为：月/日/年 如：121/20, 请输入”, 0） n ”sect fom借出表 were 借出日期 ”& JCRQ Adod2。ommadT addext Adod2.Recordoue = dodc2eesh Ca IniGi2En SubPriatSub JCZCXCick（） Frae。ati = 借出信息 Dm Z As tring ZB =selt*frm 借出表” Aod2omdType= admdext Aodc.RecorSc = doc.rhCa Iniri2End
25、brivaeSuJRCXlic（) Frame2。apion = 归还信息 Dm JSR AsStrng Dim n Asrg JH= Inputo（经手人，请输入”， 0) = eect rom 归还表where经手人 & SR”Adodc。CommnTy = adCmdText Adod2。RecodSource= Adodc2。efresh Ca itri2Ed uPit S JHCClick(） Frme。Capti = 借出信息” im JSHR As Sting Di n A Strig JSH Inputo(”经手人， 请输入, ) = sect* from借出表 where 经
26、手人 = &JSHR & ” Adod。CommandTpe=aCmdTet dodc2RedSure = n dodc2.Refresh alInitGri2End ubPateuMC_（) rame2Capin ”库存信息” i pm As String im n Astrig m InputBox（产品名, 请输入， 0）= ”select om库存表 where品名 ” pm & odc。Commndype = dCmdText Aodc2.RecordSrce = ndodc2。Refrsh CallntGriEnd SubPrvate RKCZ_lick(） o2.Hide For
27、m5。ShowEd ubPv ub RKJHRClc(） Fa2.apion = ”入库信息 im JSHR A Sring Dim n As trig SHR = InputBo（经手人”， ”请输入, ) n = slect rom 入库表 ee 经手人 JSH & ” AdodCommanType =CdTxt dodc。RecorSurce = Ado2fresh Cl tri1n Subriaub RKH_Click（） Fram2。Caption ”入库信息 Dm pm A rig im s trng pm =ntBo（产品名， ”请输入,0) I Len(p） Then n se
28、lect from入库表 whre 品名 = ” pm Adod2.ComadType= adCmdText Adod2.crdour = n Adodcefsh nd If Call IniGrd1End bPrvat ub RKSHJ_Ck（） Frame2。apion = 入库信息 i RKRQAs Sg Din As Strng KR = ptBox（入库日期,格式为：月/日/年 如：2/12011， 请输入,) sele *rom入库表 where 入库日期 RKRQ ” Adodc2。mndype = dCmdTt Aodc2。RecordSurce = Adodc2Refesh
29、llntrid1n Subivte Sb RKHCHX_lic（） rame2.Capion = ”入库信息 i XH A Sring Dm Strin XH =InputBox（产品型号， 请输入， 0） f n(XH) Te = selct * ro入库表where 型号 = XH ” Adoc2。CommdTyp = adCmText Aodc。ordorce =n Adodc2。Refsh En f CalnitGrid1EnSbPriva Sub RKZC_C(） Fam。Caption = 入库信息” Dim ZB As String Z sect from 入库表 ” Aodc2.ComadTye = admdTt Adodc2。crdSurce Z dodceresh Call IntGid1EdSrivte Sub Tier1_Tim（）If ael.ft + abl4.With 0 Thn 当标签右边位置大于0时，标签向左移 Lael4.ove Lbel4。eft 0 Ele