《仓库管理方案计划系统VBAccess源代码》由会员分享,可在线阅读,更多相关《仓库管理方案计划系统VBAccess源代码(30页珍藏版)》请在金锄头文库上搜索。
1、.精心整理仓库管理系统项目的建立这是本人利用闲暇之余在 VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展 现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。 此文可作供初学 者们学习交流。作者联系方式:E-mail最终运行效果打开软件出现如下登录界面输入系统预设用户名及密码(1 1 )单击“登录”或单击“新用户”添加新用户进入如下主界面:建立工程1、创建标准EXE2、按“打开”3、添加MDI窗体打开4、编辑菜单在空白处右击一一点击“菜单编辑器”在“标题”里输入“系统”,在“名称”里输入“ SyS(注意此处不能为汉字)点击“下一个”再点击“;”“确定”退到
2、MDI界面点击“系统”一一“退出”如下,然后编写代码。 代码如下:Private Sub Exit_Click()EndEnd Sub数据库的建立VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库,用来存放用户信息及一 些出入库管理信息。如下图单击“外接程序”再单击“可视化数据管理器”出现如图点击“文件”“新建”“ Microsoft Access”“ Version 2.0 MDB输入数据库名,“保存”出现如下图在数据窗口中右击一一“新建表”,最终如下 往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。精心整理登录界面窗口的建立最终界面如下:1、 Adodcl的添加过程
3、为:单击“工程”一一“部件”出现下图所示,选择“控件”下的“Microsoft ADO Data Control 6.0( OLEDB ”单击“确定”在工具栏中会出现“图标,单击它并拖动到相应位置即可。其它元件不在一一说明。2、本窗体代码如下:Private Sub Command1_Click()“登录”、“确定”按钮If Command1.Caption = 确定 “ And Command2.Caption = 取消 “ Then如果为“确定”则添加新用户If Text1.Text = Then提示用户输入用户名MsgBox 请输入用户名!, 登录信息提示:Exit SubElseDim
4、 usename As String检测用户名是否已经存在Dim strS As Stringusename = Trim(Text1.Text)strS = select * from用户登录信息表 where 用户名=& usename & 川Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSAdodc1.RefreshMsgBox 您输入的用户已存在r:, 登录提示信息:Text1.Text =Text2.Text =Text3.Text =Text1.SetFocusExit SubEnd IfEnd IfIf Text2.
5、Text = Then提示用户密码不能为空MsgBox 密码不能为空r:,登录提示信息:Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请再次输入密码!,登录提示信息:Text3.SetFocusExit SubEnd IfIf Text2.Text Text3.Text ThenMsgBox 两次输入的密码不一致,请确认!,登录提示信息:Text2.Text =Text3.Text =Text2.SetFocusExit SubElseMsgBox ( 添加新用户成功,现在您可以登陆系统了! )Label3.Visible = F
6、alseText3.Visible = FalseCommand1.Caption = 登录 Command2.Caption = 退出 End IfElse登录”按钮,用户登录Dim strSno As StringDim strSelect As StringstrSno = Trim(Text1.Text)检测用户名是否存在strSelect = select密码 from 用户登录信息表 where 用户名 = & strSno & Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strSelectAdodc1.RefreshMs
7、gBox 用户名不存在,请重新输入! , , 登录提示信息:Text1.Text = Text2.Text = Text1.SetFocusExit SubEnd IfForm1.HideUnload MeForm2.ShowMsgBox 登陆成功! , , 登录提示信息: ElseMsgBox 密码不正确,请重新输入! , , 登录提示信息:Text2.Text = Text2.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = 取消 ThenLabel3.Visible = FalseTe
8、xt3.Visible = FalseCommand1.Caption = 登录 Command2.Caption = 退出 Text1.Text = Text2.Text = Text1.SetFocusElseEnd Unload MeEnd IfEnd SubPrivate Sub Command3_Click()Label3.Visible = True退出”或“取消”按钮新用户”按钮Text3.Visible = TrueText1.Text = Text2.Text = Text3.Text = Command1.Caption = 确定 Command2.Caption = 取消
9、 Text1.SetFocusEnd SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.Visible = FalseEnd SubPrivate Sub Form_Load()Label3.Visible
10、 = FalseText3.Visible = False时间 time1 控件的 time 事件代码,用来显示向左移动的欢迎字幕 当标签右边位置大于 0 时,标签向左移否则标签从头开始End SubPrivate Sub Timer1_Timer()If Label4.Left + Label4.Width 0 ThenLabel4.Move Label4.Left - 80ElseLabel4.Left = Form1.ScaleWidthEnd IfIf Label5.Left + Label5.Width 0 ThenLabel5.Move Label5.Left - 80ElseLa
11、bel5.Left = Form1.ScaleWidthEnd IfEnd Sub主界面窗体如下:代码:Private Sub AddNew_Click()Frame1.Visible = TrueFrame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click()Frame2.Caption = 出库信息 Dim pm As StringDim n As Stringpm = InputBox( 产品名, 请输入, 0)n = select * from出库表 where 品名 = & pm & Adodc2.CommandType = adCm
12、dTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CHKXHCHX_Click()Frame2.Caption = 出库信息 Dim XH As StringDim n As StringXH = InputBox( 产品型号 , 请输入 , 0)n = select * from 出库表 where 型号 = & XH & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd SubPrivate Sub
13、CKCZ_Click()Form2.HideForm6.ShowEnd SubPrivate Sub CKJSHR_Click()Frame2.Caption = 出库信息 Dim JSHR As StringDim n As StringJSHR = InputBox( 经手人 , 请输入 , 0)n = select * from 出库表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKSHJ_
14、Click()Frame2.Caption = 出库信息 Dim CHKRQ As StringDim n As String请输入 , 0)CHKRQ = InputBox( 出库日期,格式为:月 / 日 / 年 如: 12/1/2011, n = select * from 出库表 where 出库日期 = & CHKRQ & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall InitGrid1End SubPrivate Sub CKZCX_Click()Frame2.Caption = 出库信息 Dim ZB As String