- 1、本文档共21页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
仓库管理系统
项目的建立
这是本人利用闲暇之余在VB6.0上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式:E-mail
最终运行效果
打开软件出现如下登录界面
输入系统预设用户名及密码( 1 1 )单击“登录”或单击“新用户”添加新用户进入如下主界面:
建立工程
创建标准EXE
按“打开”
添加MDI窗体——打开
编辑菜单
在空白处右击——点击“菜单编辑器”
在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)
点击“下一个”再点击“ ”
“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码。
代码如下:
Private Sub Exit_Click()
End
End Sub
数据库的建立
VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。如下图单击“外接程序”
再单击“可视化数据管理器”出现如图
点击“文件”——“新建”——“Microsoft Access”——“Version 2.0 MDB”输入数据库名,“保存”出现如下图
在数据窗口中右击——“新建表”,最终如下
往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。
登录界面窗口的建立
最终界面如下:
1、Adodc1的添加过程为:单击“工程”——“部件”出现下图所示,选择“控件”下的“Microsoft ADO Data Control 6.0 (OLEDB)”
单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。其它元件不在一一说明。
本窗体代码如下:
Private Sub Command1_Click() “登录”、“确定”按钮
If Command1.Caption = 确定 And Command2.Caption = 取消 Then 如果为“确定”则添加新用户
If Text1.Text = Then 提示用户输入用户名
MsgBox 请输入用户名!, , 登录信息提示:
Exit 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
MsgBox 您输入的用户已存在!, , 登录提示信息:
Text1.Text =
Text2.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 两次输入的密码不一致,请确认!, , 登录
文档评论(0)