2022年仓库管理系统 2.pdf

《2022年仓库管理系统 2.pdf》由会员分享，可在线阅读，更多相关《2022年仓库管理系统 2.pdf（33页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、仓库管理系统项目的建立这是本人利用闲暇之余在VB6.0 上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail QQ：1355044347 最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码（1 1 ）单击“登录”或单击“新用户”添加新用户进入如下主界面：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 33 页 - - - - - -

2、- - - 建立工程1、 创建标准EXE 2、 按“打开”名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 33 页 - - - - - - - - - 3、 添加 MDI 窗体打开4、 编辑菜单在空白处右击点击“菜单编辑器”名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 33 页 - - - - - - - - - 在“标题”里输入“系统”，在“名称

3、”里输入“Sys ” （注意此处不能为汉字）点击“下一个”再点击“”“确定”退到MDI 界面点击“系统”“退出”如下，然后编写代码。代码如下：Private Sub Exit_Click() End End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 33 页 - - - - - - - - - 数据库的建立VB6.0 中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管

4、理器”出现如图点击“文件”“新建”“Microsoft Access”“ Version 2.0 MDB”输入数据库名，“保存”出现如下图在数据窗口中右击“新建表”，最终如下往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。登录界面窗口的建立最终界面如下：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 33 页 - - - - - - - - - 1、 Adodc1 的添加过程为：单击“工程”“部件”出现下图所示，选择“控件”下的“Microsoft ADO Data

5、Control 6.0 （OLEDB ） ”单击“确定”在工具栏中会出现“”图标，单击它并拖动到相应位置即可。其它元件不在一一说明。2、 本窗体代码如下：Private Sub Command1_Click() “登录”、 “确定”按钮 If Command1.Caption = 确定 And Command2.Caption = 取消 Then 如果为“确定”则添加新用户 If Text1.Text = Then 提示用户输入用户名 MsgBox 请输入用户名！ , , 登录信息提示： Exit Sub Else Dim usename As String 检测用户名是否已经存在 Dim s

6、trS As String usename = Trim(Text1.Text) strS = select * from 用户登录信息表 where 用户名 = & usename & Adodc1.CommandType = adCmdText Adodc1.RecordSource = strS Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 您输入的用户已存在!, , 登录提示信息： Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus 名师资料总结 - - -精

7、品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 33 页 - - - - - - - - - Exit Sub End If End If If Text2.Text = Then 提示用户密码不能为空 MsgBox 密码不能为空 !, , 登录提示信息： Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请再次输入密码 !, , 登录提示信息： Text3.SetFocus Exit Sub End If If Text2.Te

8、xt Text3.Text Then MsgBox 两次输入的密码不一致, 请确认 !, , 登录提示信息： Text2.Text = Text3.Text = Text2.SetFocus Exit Sub Else Adodc1.Recordset.AddNew 添加新用户 Adodc1.Recordset.Fields(用户名) = Trim(Text1.Text) Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Adodc1.Recordset.Update MsgBox (添加新用户成功，现在您可以登陆系统了！) Label3.Visib

9、le = False Text3.Visible = False Command1.Caption = 登录 Command2.Caption = 退出 End If Else “登录”按钮，用户登录 Dim strSno As String Dim strSelect As String strSno = Trim(Text1.Text) 检测用户名是否存在 strSelect = select 密码 from 用户登录信息表 where 用户名 = & strSno & Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSele

10、ct Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox 用户名不存在，请重新输入！, , 登录提示信息： Text1.Text = Text2.Text = Text1.SetFocus Exit Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 33 页 - - - - - - - - - End If If Adodc1.Recordset.Fields(密码 ) = Trim(Text2.Tex

11、t) Then 检测密码是否正确 Form1.Hide Unload Me Form2.Show MsgBox 登陆成功！ , , 登录提示信息： Else MsgBox 密码不正确，请重新输入！, , 登录提示信息： Text2.Text = Text2.SetFocus End If End If End Sub Private Sub Command2_Click() “退出”或“取消”按钮 If Command2.Caption = 取消 Then Label3.Visible = False Text3.Visible = False Command1.Caption = 登录 Co

12、mmand2.Caption = 退出 Text1.Text = Text2.Text = Text1.SetFocus Else End Unload Me End If End Sub Private Sub Command3_Click() “新用户”按钮 Label3.Visible = True Text3.Visible = True Text1.Text = Text2.Text = Text3.Text = Command1.Caption = 确定 Command2.Caption = 取消 Text1.SetFocus End Sub Private Sub Command

13、3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Label6.Visible = True End Sub Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label6.Visible = False End Sub Private Sub Form_Load() Label3.Visible = False 名师资料总结 - - -精品资料欢迎下载 - -

14、- - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 33 页 - - - - - - - - - Text3.Visible = False End Sub Private Sub Timer1_Timer() 时间 time1 控件的 time 事件代码，用来 显示向左移动的欢迎字幕 If Label4.Left + Label4.Width 0 Then 当标签右边位置大于0 时，标签向左移 Label4.Move Label4.Left - 80 Else 否则标签从头开始 Label4.Left = Form1.Sc

15、aleWidth End If If Label5.Left + Label5.Width 0 Then Label5.Move Label5.Left - 80 Else Label5.Left = Form1.ScaleWidth End If End Sub 主界面窗体如下：代码：Private Sub AddNew_Click() Frame1.Visible = True Frame2.Visible = False End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - -

16、- 第 9 页，共 33 页 - - - - - - - - - Private Sub CHKPMCHX_Click() Frame2.Caption = 出库信息 Dim pm As String Dim n As String pm = InputBox(产品名 , 请输入 , 0) n = select * from 出库表 where 品名 = & pm & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid1 End Sub Private Sub CHKXHCHX_

17、Click() Frame2.Caption = 出库信息 Dim XH As String Dim n As String XH = InputBox(产品型号 , 请输入 , 0) n = select * from 出库表 where 型号 = & XH & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh End Sub Private Sub CKCZ_Click() Form2.Hide Form6.Show End Sub Private Sub CKJSHR_Click() Frame2.

18、Caption = 出库信息 Dim JSHR As String Dim n As String JSHR = InputBox(经手人 , 请输入 , 0) n = select * from 出库表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid1 End Sub Private Sub CKSHJ_Click() Frame2.Caption = 出库信息 Dim CHKRQ As String Dim n As String

19、 CHKRQ = InputBox(出库日期，格式为：月/ 日/ 年 如：12/1/2011, 请输入 , 0) n = select * from 出库表 where 出库日期 = & CHKRQ & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 33 页 - - - - - - - - - Adodc2.Refresh Call InitGrid1 End

20、 Sub Private Sub CKZCX_Click() Frame2.Caption = 出库信息 Dim ZB As String ZB = select * from 出库表 Adodc2.CommandType = adCmdText Adodc2.RecordSource = ZB Adodc2.Refresh Call InitGrid1 End Sub Private Sub Command1_Click() If Text1.Text = Then 提示用户输入用户名 MsgBox 请输入用户名！ , , 登录信息提示： Exit Sub Else Dim usename

21、As String 检测用户名是否已经存在 Dim strS As String usename = Trim(Text1.Text) strS = select * from 用户登录信息表 where 用户名 = & usename & Adodc1.CommandType = adCmdText Adodc1.RecordSource = strS Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 您输入的用户已存在!, , 登录提示信息： Text1.Text = Text2.Text = Text3.Text = T

22、ext1.SetFocus Exit Sub End If End If If Text2.Text = Then 提示用户密码不能为空 MsgBox 密码不能为空 !, , 登录提示信息： Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请再次输入密码 !, , 登录提示信息： Text3.SetFocus Exit Sub End If If Text2.Text Text3.Text Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理

23、 - - - - - - - 第 11 页，共 33 页 - - - - - - - - - MsgBox 两次输入的密码不一致,请确认 !, , 登录提示信息： Text2.Text = Text3.Text = Text2.SetFocus Exit Sub Else Adodc1.Recordset.AddNew 添加新用户 Adodc1.Recordset.Fields(用户名 ) = Trim(Text1.Text) Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Adodc1.Recordset.Update Dim X As Inte

24、ger X = MsgBox(成功添加新用户，是否要重新登录!, vbYesNo + vbQuestion + vbDefaultButton1, 提示信息 !) If X = vbYes Then Unload Me Form3.Show End If MsgBox (成功添加新用户！) Label3.Visible = False Text3.Visible = False Command1.Caption = 登录 Command2.Caption = 退出 End If Frame1.Visible = False Frame2.Visible = True Text1.Text =

25、Text2.Text = Text3.Text = Form3.Show End Sub Private Sub Command2_Click() Frame1.Visible = False Frame2.Visible = True End Sub Private Sub CXDL_Click() Form3.Show Unload Me End Sub Private Sub Exit_Click() End Unload Form1 Unload Form2 Unload Form3 Unload Form4 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - -

26、 - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 33 页 - - - - - - - - - Unload Form5 Unload Form6 Unload Form7 Unload Form8 End Sub Private Sub Form_Load() TextUserName = Trim(Form1.Text1.Text) Unload Form1 Frame1.Visible = False Call InitGrid0 Me.Height = MDIForm1.Height - 1060 Me.Width = MDIForm1.

27、Width - 560 Me.Top = MDIForm1.Top Me.Left = MDIForm1.Left End Sub Private Sub GHCZ_Click() Form2.Hide Form8.Show End Sub Private Sub GHPMCX_Click() Frame2.Caption = 归还信息 Dim pm As String Dim n As String pm = InputBox(产品名 , 请输入 , 0) n = select * from 归还表 where 品名 = & pm & Adodc2.CommandType = adCmdTe

28、xt Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub GHRCX_Click() Frame2.Caption = 归还信息 Dim JCR As String Dim n As String JCR = InputBox(归还人 , 请输入, 0) n = select * from 归还表 where 归还人 = & JCR & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGri

29、d2 End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 33 页 - - - - - - - - - Private Sub GHSJCX_Click() Frame2.Caption = 归还信息 Dim JCRQ As String Dim n As String JCRQ = InputBox(归还日期，格式为：月/ 日/ 年 如： 12/1/2011, 请输入 , 0) n = select * from 归还表 where 归还日期 = & JC

30、RQ & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub GHXHCX_Click() Frame2.Caption = 归还信息 Dim XH As String Dim n As String XH = InputBox(产品型号 , 请输入 , 0) n = select * from 归还表 where 型号 = & XH & Adodc2.CommandType = adCmdText Adodc2.RecordSource

31、 = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub GHZCX_Click() Frame2.Caption = 归还信息 Dim ZB As String ZB = select * from 归还表 Adodc2.CommandType = adCmdText Adodc2.RecordSource = ZB Adodc2.Refresh Call InitGrid2 End Sub Private Sub JCCZ_Click() Form2.Hide Form7.Show End Sub Private Sub JCHPMCHX

32、_Click() Frame2.Caption = 借出信息 Dim pm As String Dim n As String pm = InputBox(产品名 , 请输入 , 0) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 33 页 - - - - - - - - - n = select * from 借出表 where 品名 = & pm & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Ad

33、odc2.Refresh Call InitGrid2 End Sub Private Sub JCHXHCHX_Click() Frame2.Caption = 借出信息 Dim XH As String Dim n As String XH = InputBox(产品型号 , 请输入 , 0) n = select * from 借出表 where 型号 = & XH & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub JCRCX

34、_Click() Frame2.Caption = 借出信息 Dim JCR As String Dim n As String JCR = InputBox(借出人 , 请输入, 0) n = select * from 借出表 where 借出人 = & JCR & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub JCSHJCX_Click() Frame2.Caption = 借出信息 Dim JCRQ As String Di

35、m n As String JCRQ = InputBox(借出日期，格式为：月/ 日/ 年 如： 12/1/2011, 请输入 , 0) n = select * from 借出表 where 借出日期 = & JCRQ & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub JCZCX_Click() Frame2.Caption = 借出信息 Dim ZB As String ZB = select * from 借出表 Adodc

36、2.CommandType = adCmdText 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 33 页 - - - - - - - - - Adodc2.RecordSource = ZB Adodc2.Refresh Call InitGrid2 End Sub Private Sub JSHRCHX_Click() Frame2.Caption = 归还信息 Dim JSHR As String Dim n As String JSHR = InputBox(

37、经手人 , 请输入 , 0) n = select * from 归还表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub JSHRCX_Click() Frame2.Caption = 借出信息 Dim JSHR As String Dim n As String JSHR = InputBox(经手人 , 请输入 , 0) n = select * from 借出表 where 经手人 =

38、& JSHR & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid2 End Sub Private Sub PMCX_Click() Frame2.Caption = 库存信息 Dim pm As String Dim n As String pm = InputBox(产品名 , 请输入 , 0) n = select * from 库存表 where 品名 = & pm & Adodc2.CommandType = adCmdText Adodc2.RecordSourc

39、e = n Adodc2.Refresh Call InitGrid0 End Sub Private Sub RKCZ_Click() Form2.Hide Form5.Show End Sub Private Sub RKJSHR_Click() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 33 页 - - - - - - - - - Frame2.Caption = 入库信息 Dim JSHR As String Dim n As String JSHR =

40、InputBox(经手人 , 请输入 , 0) n = select * from 入库表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid1 End Sub Private Sub RKPMCHX_Click() Frame2.Caption = 入库信息 Dim pm As String Dim n As String pm = InputBox(产品名 , 请输入 , 0) If Len(pm) 0 Then n = select

41、 * from 入库表 where 品名 = & pm & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh End If Call InitGrid1 End Sub Private Sub RKSHJ_Click() Frame2.Caption = 入库信息 Dim RKRQ As String Dim n As String RKRQ = InputBox(入库日期，格式为：月/ 日/ 年 如： 12/1/2011, 请输入 , 0) n = select * from 入库表 where 入库日

42、期 = & RKRQ & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid1 End Sub Private Sub RKXHCHX_Click() Frame2.Caption = 入库信息 Dim XH As String Dim n As String XH = InputBox(产品型号 , 请输入 , 0) If Len(XH) 0 Then n = select * from 入库表 where 型号 = & XH & Adodc2.CommandType = ad

43、CmdText Adodc2.RecordSource = n Adodc2.Refresh 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 33 页 - - - - - - - - - End If Call InitGrid1 End Sub Private Sub RKZCX_Click() Frame2.Caption = 入库信息 Dim ZB As String ZB = select * from 入库表 Adodc2.CommandType = adCm

44、dText Adodc2.RecordSource = ZB Adodc2.Refresh Call InitGrid1 End Sub Private Sub Timer1_Timer() If Label4.Left + Label4.Width 0 Then 当标签右边位置大于0 时，标签向左移 Label4.Move Label4.Left - 80 Else 否则标签从头开始 Label4.Left = Form2.ScaleWidth End If If Label5.Left + Label5.Width 0 Then Label5.Move Label5.Left - 80 E

45、lse Label5.Left = Form2.ScaleWidth End If If Label6.Left + Label6.Width 0 Then Label6.Move Label6.Left - 80 Else Label6.Left = Form2.ScaleWidth End If If Label7.Left + Label7.Width 0 Then Label7.Move Label7.Left - 80 Else Label7.Left = Form2.ScaleWidth End If End Sub Private Sub XGMM_Click() Form2.H

46、ide Form4.Show End Sub Private Sub XHCX_Click() Frame2.Caption = 库存信息 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 33 页 - - - - - - - - - Dim XH As String Dim n As String XH = InputBox(产品型号 , 请输入 , 0) If Len(XH) 0 Then And Val(XH) 0 n = select * from 库存表 whe

47、re 型号 = & XH & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh End If Call InitGrid0 End Sub Private Sub ZB_Click() Frame2.Caption = 库存信息 Dim ZB As String Dim N As String PM = InputBox(产品名 , 请输入, 0) ZB = select * from 库存表 where 品名 = & PM & Adodc2.CommandType = adCmdText Adodc2.

48、RecordSource = ZB Adodc2.Refresh Call InitGrid0 End Sub Private 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 = 4000 End With End Sub Private Sub InitGrid1() With DataGrid1

49、 .Columns(0).Width = 800 .Columns(1).Width = 1600 .Columns(2).Width = 1600 .Columns(3).Width = 800 .Columns(4).Width = 800 .Columns(5).Width = 1000 .Columns(6).Width = 800 .Columns(7).Width = 4000 End With End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共

50、 33 页 - - - - - - - - - Private Sub InitGrid2() With DataGrid1 .Columns(0).Caption = 学号 .Columns(1).Caption = 课程名 .Columns(2).Caption = 学分 .Columns(3).Caption = 成绩 设置 DtgCond 的列宽 .Columns(0).Width = 800 .Columns(1).Width = 1600 .Columns(2).Width = 1600 .Columns(3).Width = 800 .Columns(4).Width = 800