仓库标准管理系统VBAccess源代码.doc
《仓库标准管理系统VBAccess源代码.doc》由会员分享,可在线阅读,更多相关《仓库标准管理系统VBAccess源代码.doc(47页珍藏版)》请在咨信网上搜索。
1、仓库管理系统 项目标建立 这是本人利用闲暇之余在VB6.0上制作一个简陋类库管系统,现图文结合方法一步一步展现制作过程。因为本人是个初学者,里面存在很多不足之处望得到高手们指导。此文可作供初学者们学习交流。作者联络方法:E-mail QQ:最终运行效果打开软件出现以下登录界面输入系统预设用户名及密码( 1 1 )单击“登录”或单击“新用户”添加新用户进入以下主界面:建立工程1、 创建标准EXE2、 按“打开” 3、 添加MDI窗体打开 4、 编辑菜单在空白处右击点击“菜单编辑器” 在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)点击“下一个”再点击“ ”“确定”退到M
2、DI界面点击“系统”“退出”以下,然后编写代码。代码以下: Private Sub Exit_Click() EndEnd Sub数据库建立VB6.0中能够创建Access数据库。以下建立一个“用户表”数据库,用来存放用户信息及部分出入库管理信息。以下图单击“外接程序”再单击“可视化数据管理器”出现图点击“文件”“新建”“Microsoft Access”“Version 2.0 MDB”输入数据库名,“保留”出现以下图在数据窗口中右击“新建表”,最终以下往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。登录界面窗口建立 最终界面以下:1、Adodc1添加过程为:单击“工程”“部件”出现下图
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 Sub Else Dim usename
4、 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 = Te
5、xt1.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 MsgBox 两次输入密码不一致,请确定!, , 登录提醒信息: Text2.Text = Text3.Text = Text2.S
6、etFocus Exit Sub Else Adodc1.Recordset.AddNew 添加新用户 Adodc1.Recordset.Fields(用户名) = Trim(Text1.Text) Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Adodc1.Recordset.Update MsgBox (添加新用户成功,现在您能够登陆系统了!) Label3.Visible = False Text3.Visible = False Command1.Caption = 登录 Command2.Caption = 退出 End If Else
7、 “登录”按钮,用户登录 Dim strSno As String Dim strSelect As String strSno = Trim(Text1.Text) 检测用户名是否存在 strSelect = select 密码 from 用户登录信息表 where 用户名 = & strSno & Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSelect Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox 用户名不存在,请重新输入!, , 登录提醒信息: Te
8、xt1.Text = Text2.Text = Text1.SetFocus Exit Sub End If If Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Then 检测密码是否正确 Form1.Hide Unload Me Form2.Show MsgBox 登陆成功!, , 登录提醒信息: Else MsgBox 密码不正确,请重新输入!, , 登录提醒信息: Text2.Text = Text2.SetFocus End If End IfEnd SubPrivate Sub Command2_Click() “退出”或“取消”按钮
9、If Command2.Caption = 取消 Then Label3.Visible = False Text3.Visible = False Command1.Caption = 登录 Command2.Caption = 退出 Text1.Text = Text2.Text = Text1.SetFocus Else End Unload Me End IfEnd SubPrivate Sub Command3_Click() “新用户”按钮 Label3.Visible = True Text3.Visible = True Text1.Text = Text2.Text = Te
10、xt3.Text = Command1.Caption = 确定 Command2.Caption = 取消 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.Vis
11、ible = FalseEnd SubPrivate Sub Form_Load() Label3.Visible = False Text3.Visible = FalseEnd SubPrivate Sub Timer1_Timer() 时间time1控件time事件代码,用来 显示向左移动欢迎字幕 If Label4.Left + Label4.Width 0 Then 当标签右边位置大于0时,标签向左移 Label4.Move Label4.Left - 80 Else 不然标签从头开始 Label4.Left = Form1.ScaleWidth End If If Label5.L
12、eft + Label5.Width 0 Then Label5.Move Label5.Left - 80 Else Label5.Left = Form1.ScaleWidth End IfEnd Sub主界面窗体以下:代码: Private Sub AddNew_Click() Frame1.Visible = True Frame2.Visible = FalseEnd SubPrivate Sub CHKPMCHX_Click() Frame2.Caption = 出库信息 Dim pm As String Dim n As String pm = InputBox(产品名, 请输入
13、, 0) n = select * from 出库表 where 品名 = & pm & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid1End SubPrivate Sub CHKXHCHX_Click() Frame2.Caption = 出库信息 Dim XH As String Dim n As String XH = InputBox(产品型号, 请输入, 0) n = select * from 出库表 where 型号 = & XH & Adodc2.Comma
14、ndType = adCmdText Adodc2.RecordSource = n Adodc2.RefreshEnd SubPrivate Sub CKCZ_Click() Form2.Hide Form6.ShowEnd SubPrivate Sub CKJSHR_Click() Frame2.Caption = 出库信息 Dim JSHR As String Dim n As String JSHR = InputBox(经手人, 请输入, 0) n = select * from 出库表 where 经手人 = & JSHR & Adodc2.CommandType = adCmdT
15、ext Adodc2.RecordSource = n Adodc2.Refresh Call InitGrid1End SubPrivate Sub CKSHJ_Click() Frame2.Caption = 出库信息 Dim CHKRQ As String Dim n As String CHKRQ = InputBox(出库日期,格式为:月/日/年 如:12/1/, 请输入, 0) n = select * from 出库表 where 出库日期 = & CHKRQ & Adodc2.CommandType = adCmdText Adodc2.RecordSource = n Ado
16、dc2.Refresh Call InitGrid1End SubPrivate Sub CKZCX_Click() Frame2.Caption = 出库信息 Dim ZB As String ZB = select * from 出库表 Adodc2.CommandType = adCmdText Adodc2.RecordSource = ZB Adodc2.Refresh Call InitGrid1End SubPrivate Sub Command1_Click() If Text1.Text = Then 提醒用户输入用户名 MsgBox 请输入用户名!, , 登录信息提醒: E
17、xit Sub Else Dim usename 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 = Text
18、2.Text = Text3.Text = Text1.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 MsgBox 两次输入密码不一致,请确定!, , 登录提醒信息: Text2.Tex
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 仓库 标准 管理 系统 VBAccess 源代码
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【二***】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【二***】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。