- 1、本文档共24页,可阅读全部内容。
- 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上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由
于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式:
最终运行效果
打开软件出现如下登录界面
输入系统预设用户名及密码(11)单击“登录”或单击“新用户”添加新用户进入如下主界面:
建立工程
1、创建标准EXE
2、按“打开”
3、添加MDI窗体——打开
4、编辑菜单
在空白处右击——点击“菜单编辑器”
在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字)
点击“下一个”再点击“”
“确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码。
代码如下:
PrivateSubExit_Click()
End
EndSub
数据库的建立
VB6.0中可以创建Access数据库。如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理
信息。如下图单击“外接程序”
再单击“可视化数据管理器”出现如图
点击“文件”——“新建”——“MicrosoftAccess”——“Version2.0MDB”输入数据库名,“保存”出现如下图
在数据窗口中右击——“新建表”,最终如下
往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。
登录界面窗口的建立
最终界面如下:
1、Adodc1的添加过程为:单击“工程”——“部件”出现下图所示,选择“控件”下的“MicrosoftADODataControl6.0
(OLEDB)”
单击“确定”在工具栏中会出现“”图标,单击它并拖动到相应位置即可。其它元件不在一一说明。
2、本窗体代码如下:
PrivateSubCommand1_Click()“登录”、“确定”按钮
确定确定取消取消如果为“确定”则添加新用户
提示用户输入用户名
请输入用户名!请输入用户名!登录信息提示:登录信息提示:
ExitSub
Else
DimusenameAsString检测用户名是否已经存在
DimstrSAsString
usename=Trim(Text1.Text)usename=Trim(Text1.Text)
用户登录信息表where用户名用户名
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strS
Adodc1.Refresh
If=FalseThenIf=FalseThen
您输入的用户已存在您输入的用户已存在登录提示信息:登录提示信息:登录提示信息:登录提示信息:登录提示信息:
Text1.SetFocus
ExitSub
EndIf
EndIfEndIf
提示用户密码不能为空
密码不能为空密码不能为空登录提示信息:登录提示信息:
Text2.SetFocus
ExitSub
EndIfEndIfEndIf
请再次输入密码请再次输入密码登录提示信息:登录提示信息:
Text3.SetFocus
ExitSub
EndIf
IfText2.TextText3.TextThenIfText2.TextText3.TextThen
两次输入的密码不一致,请确认请确认
您可能关注的文档
- 依法行政依法办事规章制度7篇.pdf
- 会议系统方案策划.pdf
- 会计继续教育培训总结范文(通用17篇).pdf
- 企业创业孵化与创新基地管理制度.pdf
- 人教部编版七年级上册语文第21课《女娲造人》同步练习题.pdf
- 人教版六年级语文下册第六单元教学设计.pdf
- 人教版八年级英语上册 Unit 3《 I’m more outgoing than my siste.pdf
- 高中物理(必修第二册 人教版)高考复习课件:实验-验证机械能守恒定律.pptx
- 选择性必修3收官测试二(教师版)-2024年高中化学精品讲义(选择性必修三).docx
- 高中物理(选择性必修第三册 人教版)高考复习课件:分子动理论-分子运动速率分布规律.ppt
- 高中英语人教版 选择性必修第二册教案讲义:UNIT 2 BRIDGING CULTURES-Section Ⅰ.docx
- 高中地理人教版 选择性必修三教案讲义:走向生态文明.docx
- 四川省成都市金牛区2024-2025学年高三上学期开学考试生物试题含答案.docx
- 高中物理(选择性必修第三册 人教版)高考复习课件:气体、固体和液体-液体.ppt
- 高中物理(选择性必修第三册 人教版)高考复习课件:原子核-核裂变与核聚变-“基本”粒子.ppt
- 高中物理(选择性必修第三册 人教版)高考复习课件:分子动理论-实验用油膜法估测油酸分子的大小.ppt
- 高中物理(选择性必修第三册 人教版)高考复习课件:热力学定律-热力学第二定律.ppt
- 高中化学人教版 选择性必修三教案讲义:核酸.docx
- 高中物理(选择性必修第三册 人教版)高考复习课件:原子结构和波粒二象性-原子的核式结构模型.ppt
- 高中物理(选择性必修第三册 人教版)高考复习课件:气体、固体和液体-温度和温标.ppt
文档评论(0)