倉庫管理系統(tǒng)VBAccess源代碼

1、倉庫管理系統(tǒng)項目的建立這是本人利用閑暇之余在上制作的一個簡陋的類庫管系統(tǒng)，現(xiàn)圖文結(jié)合的方式一步一步展現(xiàn)制作過程。由于本人是個初學者，里面存在很多不足之處望得到高手們的指導。此文可作供初學者們學習交流。作者聯(lián)系方式：E-mail最終運行效果打開軟件出現(xiàn)如下登錄界面輸入系統(tǒng)預設(shè)用戶名及密碼（11 ）單擊“登錄”或單擊“新用戶”添加新用戶進入如下主界面：建立工程1、創(chuàng)建標準EXE2、按“打開”3、添加MDI窗體一一打開4、編輯菜單在空白處右擊點擊“菜單編輯器”在“標題”里輸入“系統(tǒng)”，在“名稱”里輸入“ SyS（注意此處不能為漢字）點擊“下一個”再點擊“確定”退到 MDI界面點擊“系統(tǒng)”一一“退出”

2、如下，然后編寫代碼。代碼如下：Private Sub Exit_Click()EndEnd Sub點擊“文件” _ “新建”Microsoft Access-“ Version MDB”輸入數(shù)據(jù)庫名,“保存”出現(xiàn)如下圖e 錄 義襄*査霰翌 土nlt.ss戶HK歸出人甲+:上數(shù)據(jù)庫的建立中可以創(chuàng)建Access數(shù)據(jù)庫。如下建立一個“用戶表”的數(shù)據(jù)庫，用來存放用戶信息及一 些出入庫管理信息。如下圖單擊“外接程序”再單擊“可視化數(shù)據(jù)管理器”出現(xiàn)如圖在數(shù)據(jù)窗口中右擊一一“新建表”，最終如下往數(shù)據(jù)表里添加數(shù)據(jù)在這里就不羅嗦了，請查閱相關(guān)書籍。登錄界面窗口的建立最終界面如下:帰無呼醫(yī)|宙口血 幫創(chuàng)密I* V

3、jflPat-Hi 口| M單擊確定”在工具欄中會出現(xiàn)護”圖標，單擊它并拖動到相應位置即可。其它元件不在 -說明。2、本窗體代碼如下：Private Sub Command1_Click()If = 確定And = 取消ThenIf = ThenMsgBox 請輸入用戶名！, 登錄信息提示:“登錄”、“確定”按鈕如果為“確定”則添加新用戶提示用戶輸入用戶名Exit SubElseDim usename As StringDim strS As Stringusename = TrimstrS = select * from=adCmdText=strS檢測用戶名是否已經(jīng)存在用戶登錄信息表 wh

4、ere用戶名=，& use name &If = False ThenMsgBox _ nn您輸入的用戶已存在!,登錄提示信息:1、Adodcl的添加過程為：單擊“工程”一一“部件”出現(xiàn)下圖所示，選擇“控件”下的a Microsoft ADO Data Con trol(OLEDB”Exit SubEnd IfEnd IfIf = Then 提示用戶密碼不能為空MsgBox 密碼不能為空 !, , 登錄提示信息： Exit SubEnd IfIf = ThenMsgBox 請再次輸入密碼 !, , 登錄提示信息： Exit SubEnd IfIf ThenMsgBox 兩次輸入的密碼不一致 ,

5、 請確認 !, , 登錄提示信息： Exit SubElse 添加新用戶用戶名 ) = Trim密碼 ) = TrimMsgBox ( 添加新用戶成功，現(xiàn)在您可以登陸系統(tǒng)了！ )= False= False= 登錄 = 退出 End IfElse “登錄”按鈕，用戶登錄Dim strSno As StringDim strSelect As StringstrSno = Trim 檢測用戶名是否存在strSelect = select 密碼 from 用戶登錄信息表 where 用戶名 = & strSno & = adCmdText= strSelectIf = True ThenMsgBo

6、x 用戶名不存在，請重新輸入！ , , 登錄提示信息： = _ HI!Exit SubEnd If退出”或“取消”按鈕新用戶”按鈕Unload MeMsgBox 登陸成功！ , , 登錄提示信息： ElseMsgBox 密碼不正確，請重新輸入！ , , 登錄提示信息：_ HI!End IfEnd IfEnd SubPrivate Sub Command2_Click()If = 取消 Then= False= False= 登錄 = 退出 ElseEnd Unload MeEnd IfEnd SubPrivate Sub Command3_Click()= True= True= 確定= 取消

7、End SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)= TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)= FalseEnd SubPrivate Sub Form_Load()= False= FalseIf密碼) = Trim Then檢測密碼是否正確End SubPrivate Sub T

8、imer1_Timer()用來If + 0 Then-80Else時間time1控件的time事件代碼，顯示向左移動的歡迎字幕當標簽右邊位置大于 0時，標簽向左移否則標簽從頭開始End IfIf + 0 Then-80ElseEnd IfEnd Sub主界面窗體如下:代碼:Private Sub AddNew_Click()=True=FalseEnd SubPrivate Sub CHKPMCHX_Click()出庫信息請輸入 , 0)Dim pm As StringDim n As Stringpm = InputBox( 產(chǎn)品名 , 請輸入 , 0)n = select * from 出

9、庫表 where 品名 = & pm & = adCmdText= nCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()= 出庫信息 Dim XH As StringDim n As StringXH = InputBox( 產(chǎn)品型號 , 請輸入 , 0)n = select * from 出庫表 where 型號 = & XH & = adCmdText= nEnd SubPrivate Sub CKCZ_Click()IEnd SubPrivate Sub CKJSHR_Click()= 出庫信息 Dim JSHR As StringDim

10、n As StringJSHR = InputBox( 經(jīng)手人 , 請輸入 , 0)n = select * from 出庫表 where 經(jīng)手人 = & JSHR & = adCmdText= nCall InitGrid1End SubPrivate Sub CKSHJ_Click()= 出庫信息 Dim CHKRQ As StringDim n As StringCHKRQ = InputBox( 出庫日期，格式為：月 / 日 / 年 如： 12/1/2011, n = select * from 出庫表 where 出庫日期 = & CHKRQ & = adCmdText= nCall

11、 InitGrid1End SubPrivate Sub CKZCX_Click()= 出庫信息 Dim ZB As StringZB = select * from出庫表= adCmdText= ZBCall InitGrid1End SubPrivate Sub Command1_Click()If = Then 提示用戶輸入用戶名MsgBox 請輸入用戶名！ , , 登錄信息提示： Exit SubElse Dim usename As String 檢測用戶名是否已經(jīng)存在Dim strS As Stringusename = TrimstrS = select * from 用戶登錄信

12、息表 where 用戶名 = & usename & = adCmdText= strSIf = False ThenMsgBox 您輸入的用戶已存在 !, , 登錄提示信息： = = _ HI!Exit SubEnd IfEnd IfIf = Then 提示用戶密碼不能為空MsgBox 密碼不能為空 !, , 登錄提示信息： Exit SubEnd IfIf = ThenMsgBox 請再次輸入密碼 !, , 登錄提示信息： Exit SubEnd IfIf ThenMsgBox 兩次輸入的密碼不一致 , 請確認 !, , 登錄提示信息： 提示信息 !)Exit SubElse 添加新用戶用

13、戶名 ) = Trim密碼 ) = TrimDim X As IntegerX = MsgBox( 成功添加新用戶，是否要重新登錄 !, vbYesNo + vbQuestion + vbDefaultButton1,If X = vbYes ThenUnload MeEnd IfMsgBox (成功添加新用戶！ ) = False = False = 登錄 = 退出End If= False= TrueEnd SubPrivate Sub Command2_Click()= False= TrueEnd SubPrivate Sub CXDL_Click()Unload MeEnd SubP

14、rivate Sub Exit_Click()EndUnload Form1Unload Form2Unload Form3Unload Form4Unload Form5Unload Form6Unload Form7Unload Form8End SubPrivate Sub Form_Load()TextUserName = Trim Unload Form1 = FalseCall InitGrid0= - 1060= - 560End SubPrivate Sub GHCZ_Click()End SubPrivate Sub GHPMCX_Click()= 歸還信息 Dim pm A

15、s StringDim n As Stringpm = InputBox( 產(chǎn)品名 , 請輸入 , 0)n = select * from 歸還表 where 品名 = & pm & = adCmdText= nCall InitGrid2End SubPrivate Sub GHRCX_Click()= 歸還信息 Dim JCR As StringDim n As StringJCR = InputBox( 歸還人 , 請輸入 , 0)n = select * from 歸還表 where 歸還人 = & JCR & = adCmdText= nCall InitGrid2End SubPr

16、ivate Sub GHSJCX_Click()= 歸還信息 Dim JCRQ As String請輸入, 0)Dim n As StringJCRQ = InputBox( 歸還日期，格式為：月 / 日 / 年 如： 12/1/2011, n = select * from 歸還表 where 歸還日期 = & JCRQ & = adCmdText= nCall InitGrid2End SubPrivate Sub GHXHCX_Click()= 歸還信息 Dim XH As StringDim n As StringXH = InputBox( 產(chǎn)品型號 , 請輸入 , 0)n = se

17、lect * from 歸還表 where 型號 = & XH & = adCmdText= nCall InitGrid2End SubPrivate Sub GHZCX_Click()= 歸還信息 Dim ZB As StringZB = select * from 歸還表 = adCmdText= ZBCall InitGrid2End SubPrivate Sub JCCZ_Click()IEnd SubPrivate Sub JCHPMCHX_Click()= 借出信息 Dim pm As StringDim n As Stringpm = InputBox( 產(chǎn)品名 , 請輸入 ,

18、 0)n = select * from 借出表 where 品名 = & pm & = adCmdText請輸入, 0)Call InitGrid2End SubPrivate Sub JCHXHCHX_Click()= 借出信息 Dim XH As StringDim n As StringXH = InputBox( 產(chǎn)品型號 , 請輸入 , 0)n = select * from 借出表 where 型號 = & XH & = adCmdText= nCall InitGrid2End SubPrivate Sub JCRCX_Click()= 借出信息 Dim JCR As Stri

19、ngDim n As StringJCR = InputBox( 借出人 , 請輸入 , 0)n = select * from 借出表 where 借出人 = & JCR & = adCmdText= nCall InitGrid2End SubPrivate Sub JCSHJCX_Click()= 借出信息 Dim JCRQ As StringDim n As StringJCRQ = InputBox( 借出日期，格式為：月 / 日 / 年 如： 12/1/2011, n = select * from 借出表 where 借出日期 = & JCRQ & = adCmdText= nC

20、all InitGrid2End SubPrivate Sub JCZCX_Click()= 借出信息 Dim ZB As StringZB = select * from 借出表 = adCmdText= ZBCall InitGrid2End SubPrivate Sub JSHRCHX_Click()= 歸還信息 Dim JSHR As StringDim n As StringJSHR = InputBox( 經(jīng)手人 , 請輸入 , 0)n = select * from 歸還表 where 經(jīng)手人 = & JSHR & = adCmdText= nCall InitGrid2End

21、SubPrivate Sub JSHRCX_Click()= 借出信息 Dim JSHR As StringDim n As StringJSHR = InputBox( 經(jīng)手人 , 請輸入 , 0)n = select * from 借出表 where 經(jīng)手人 = & JSHR & = adCmdText= nCall InitGrid2End SubPrivate Sub PMCX_Click()= 庫存信息 Dim pm As StringDim n As Stringpm = InputBox( 產(chǎn)品名 , 請輸入 , 0)n = select * from 庫存表 where 品名

22、= & pm & = adCmdText= nCall InitGrid0End SubPrivate Sub RKCZ_Click()IEnd SubPrivate Sub RKJSHR_Click()= 入庫信息 Dim JSHR As StringDim n As StringJSHR = InputBox( 經(jīng)手人 , 請輸入 , 0)請輸入, 0)n = select * from 入庫表 where 經(jīng)手人 = & JSHR & = adCmdText= nCall InitGrid1End SubPrivate Sub RKPMCHX_Click()= 入庫信息 Dim pm A

23、s StringDim n As Stringpm = InputBox( 產(chǎn)品名 , 請輸入 , 0)If Len(pm) 0 Thenn = select * from入庫表 where 品名 = & pm & = adCmdText= nEnd IfCall InitGrid1End SubPrivate Sub RKSHJ_Click()= 入庫信息 Dim RKRQ As StringDim n As StringRKRQ = InputBox( 入庫日期，格式為：月 / 日 / 年 如： 12/1/2011, n = select * from 入庫表 where 入庫日期 = &

24、 RKRQ & = adCmdText= nCall InitGrid1End SubPrivate Sub RKXHCHX_Click()= 入庫信息 Dim XH As StringDim n As StringXH = InputBox( 產(chǎn)品型號 , 請輸入 , 0)If Len(XH) 0 Thenn = select * from入庫表 where 型號 = & XH & = adCmdText= nEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()= 入庫信息 Dim ZB As StringZB = select * fro

25、m入庫表= adCmdText= ZBCall InitGrid1End SubPrivate Sub Timer1_Timer()If + 0 Then 當標簽右邊位置大于 0 時，標簽向左移- 80Else 否則標簽從頭開始End IfIf + 0 Then- 80ElseEnd IfIf + 0 Then- 80ElseEnd IfIf + 0 Then- 80ElseEnd IfEnd SubPrivate Sub XGMM_Click()IEnd SubPrivate Sub XHCX_Click()= 庫存信息 Dim XH As StringDim n As StringXH =

26、 InputBox( 產(chǎn)品型號 , 請輸入 , 0)If Len(XH) 0 Then And Val(XH) 0 n = select * from 庫存表 where 型號 = & XH & = adCmdText= nEnd IfCall InitGrid0End SubPrivate Sub ZB_Click()= 庫存信息 Dim ZB As StringDim N As StringPM = InputBox( 產(chǎn)品名 , 請輸入 , 0)ZB = select * from 庫存表 where 品名 = & PM & = adCmdText= ZBCall InitGrid0En

27、d SubPrivate Sub InitGrid0()With DataGrid1.Columns(0).Width = 1600.Columns(1).Width = 2200.Columns(2).Width = 2200.Columns(3).Width = 1000.Columns(4).Width = 1000.Columns(5).Width = 4000End WithEnd SubPrivate Sub InitGrid1()With DataGrid1.Columns(0).Width = 800.Columns(1).Width = 1600.Columns(2).Wid

28、th = 1600.Columns(3).Width = 800.Columns(4).Width = 800.Columns(5).Width = 1000.Columns(6).Width = 800.Columns(7).Width = 4000End WithEnd SubPrivate Sub InitGrid2()With DataGrid1.Columns(0).Caption = 學號 .Columns(1).Caption = 課程名 .Columns(2).Caption = 學分 成績.Colum ns(3) .Captio n =設(shè)置DtgCond的列寬.Colum n

29、s(0).Width = 800.Colum ns(1).Width = 1600.Colum ns(2).Width = 1600.Colum ns(3).Width = 800.Colum ns(4).Width = 800.Colum ns(5).Width = 800.Colum ns(6).Width = 1000.Colum ns(7).Width = 800.Colum ns(8).Width = 4000End WithEnd Sub用戶重新登錄界面代碼：Private Sub Command1_Click()Dim strSno As StringDim strSelect

30、As StringstrS no = Trim檢測用戶名是否存在strSelect = select密碼 from 用戶登錄信息表 where 用戶名=& strSno &=adCmdText=strSelectIf = True ThenMsgBox 用戶名不存在，請重新輸入！,登錄提示信息:Exit Sub代碼:Private Sub Comma nd1_Click()If Trim The nMsgBox 用戶名不正確，請確認！, 信息提示!Exit SubElseDim name As StringDim names As Stringname = Trimnames = select

31、 * from=adCmdText用戶登錄信息表 where用戶名=，& name &=namesEnd IfIf 密碼)=Trim Then檢測密碼是否正確Unload MeMsgBox 登陸成功！,登錄提示信息：ElseMsgBox 密碼不正確，請重新輸入！, 登錄提示信息：_ HHEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub修改用戶密碼界面If = ThenMsgBox 請輸入舊密碼 !, , 信息提示！ Exit SubEnd IfIf 密碼 ) Trim ThenMsgBox 舊密碼不正確，請確認 !, , 信息提

32、示！ _ HI!Exit SubEnd IfIf = ThenMsgBox 請輸入新密碼 !, , 信息提示！ Exit SubEnd If If = ThenMsgBox 請再次輸入新密碼 !, , 信息提示！ Exit SubEnd IfIf Trim Trim ThenMsgBox 兩次輸入的新密碼不一致 !, , 信息提示！ _ HI!= Exit SubElse 密碼 ) = TrimMsgBox ( 密碼修改成功！ )Unload MeIEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub入庫管理代碼：Pri

33、vate Sub Command1_Click()If = And = ThenMsgBox “品名”和“型號”不能同時為空，必須輸入其中一項r:,提示信息!Exit SubElseIf = And = ThenMsgBox 請輸入產(chǎn)品“數(shù)量”或“單位”之一!,提示信息!Exit SubEnd IfIf = ThenMsgBox 請經(jīng)手人簽名！, vbCritical,提示信息!Exit SubEnd If添加品名)=Trim型號)=Trim數(shù)量)=Trim單位)=Trim經(jīng)手人)=Trim入庫日期)=Date說明)=TrimEnd IfDim pm As StringDim pms As S

34、tringDim n As String提示信息 !)Dim m As String pm = Trim n = Val pms = select * from 庫存表 where 品名 = & pm & = adCmdText= pmsIf ThenWith Form2. . 品名 ) = Trim.型號 ) = Trim.數(shù)量 ) = Trim.單位 ) = Trim.說明 ) = Trim. End WithElsem = 數(shù)量 ).ValueIf 型號 ) = Trim Then 數(shù)量 ) = Val(m) + Val(n)End IfEnd IfDim X As IntegerX =

35、 MsgBox( 產(chǎn)品入庫登記成功，是否繼續(xù)添加產(chǎn)品 !, vbYesNo + vbQuestion + vbDefaultButton1, If X = vbNo ThenUnload MeIElseEnd If= 入庫信息 Dim ZB As StringZB = select * from 入庫表 where 品名 = & PM & = adCmdText= ZBSubPrivate Sub Command2_Click()_ nn_ nn_ nn_ nnEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub出庫管理代碼：Private S

36、ub Command1_Click()If = And = Then = And = ThenMsgBox “品名”和“型號”不能同時為空，必須輸入其中一項r:,提示信息!Exit SubElseIf = And = Then = ThenMsgBox 請輸入產(chǎn)品“數(shù)量”或“單位”之一r:,提示信息!Exit SubEnd IfIf = ThenMsgBox 請經(jīng)手人簽名！, vbCritical,提示信息!Exit SubEnd If添加品名)=Trim Trim型號)=Trim Trim提示信息 !)數(shù)量 ) = Trim單位 ) = Trim Trim經(jīng)手人 ) = Trim 出庫日期

37、) = Date說明 ) = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As Stringpm = Trimn = Valpms = select * from庫存表 where 品名 = & pm & = adCmdText= pmsm = 數(shù)量 ).ValueIf 型號) = Trim Then 數(shù)量 ) = Val(m) - Val(n)End IfDim X As IntegerX = MsgBox( 產(chǎn)品出庫登記成功，是否繼續(xù)添加產(chǎn)品 !, vbYesNo + vbQuestion + vbDefa

38、ultButton1, If X = vbNo ThenUnload MeIEnd If= 出庫信息 Dim ZB As StringZB = select * from 出庫表 where 品名 = & PM & = adCmdText= ZBSubPrivate Sub Command2_Click()型號)請經(jīng)手人簽名！, vbCritical,提示信息!End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Do Until1 品名)1 單位)LoopEnd Sub借出管理代碼：Private

39、Sub Command1_Click()If = And = Then = And = ThenMsgBox “品名”和“型號”不能同時為空，必須輸入其中一項r:,提示信息!Exit SubElseIf = And = Then = ThenMsgBox 請輸入產(chǎn)品“數(shù)量”或“單位”之一 r:,提示信息!Exit SubEnd IfIf = ThenMsgBox Exit SubEnd If提示信息 !)添加品名 ) = Trim Trim型號 ) = Trim Trim數(shù)量 ) = Trim單位 ) = Trim Trim經(jīng)手人 ) = Trim借出人 ) = Trim 借出日期 ) = D

40、ate說明 ) = TrimEnd IfDim pm As StringDim pms As StringDim n As StringDim m As String pm = Trim n = Valpms = select * from庫存表 where 品名 = & pm & = adCmdText= pmsm = 數(shù)量 ).ValueIf 型號) = Trim Then 數(shù)量 ) = Val(m) - Val(n)End IfDim X As IntegerX = MsgBox( 產(chǎn)品借出登記成功，是否繼續(xù)添加產(chǎn)品 !, vbYesNo + vbQuestion + vbDefaultButton1, If X = vbNo ThenUnload MeEnd If= 借出信息 Dim ZB As StringZB = select * from 借出表 where 品名 = & PM & = adCmdText= ZBSubPrivate Sub Command2_Click()品名)End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Do Until 型號) 單位)LoopEnd Sub歸還管理代碼：Private Sub Command1_Clic