dset.MoveLast
EndSub
PrivateSubCommand8_Click()
Data1.Recordset.MoveLast
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\仓库.mdb"
Command2.Enabled=False
EndSub
修改密码程序代码:
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\仓库.mdb"'自动识别数据库路径
EndSub
PrivateSubCommand1_Click()'确认修改操作员信息
Data1.RecordSource="select*frommawhere操作员='"&Text1.Text&"'"'查询操作员信息
Data1.Refresh
IfText1.Text<>""AndText2.Text<>""AndText2.Text=ma.TextThen
IfText3.Text=""Then
MsgBox("请输入新密码!!")
Text3.SetFocus
Else
Data1.Recordset.Edit
Data1.Recordset.Fields("密码")=Text3.Text
IfText3.Text<>Text4.TextThen
MsgBox("两次密码不一样,请重新输入!")
Text3.Text=""
Text4.Text=""
Text3.SetFocus
Else
Data1.Recordset.Update
MsgBox("密码修改成功!")
Text1.Text="":Text2.Text="":Text3.Text="":Text4.Text="":
EndIf
EndIf
Else
IfText1.Text=""Then
MsgBox("请输入用户名!")
Text1.SetFocus
Else
IfData1.Recordset.EOFThen
MsgBox"无此用户"
Data1.RecordSource="ma"
Data1.Refresh
Text1.Text=""
Text1.SetFocus
Else
IfText2.Text=""Then
MsgBox("请输入旧密码!")
Text2.SetFocus
Else
IfText2.Text<>Data1.Recordset.Fields("密码")Then
MsgBox("旧密码错误,请重新输入旧密码!")
Text2.SetFocus
EndIf
EndIf
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
frm_main.Enabled=True
UnloadMe
EndSub
数据备份窗口代码:
PrivateSubCommand1_Click()'确认数据备份
YesNo=MsgBox("准备好了吗?",vbNo+vbQuestion)
IfYesNo=vbNoThen
ExitSub
EndIf
GoToerrprompt
Me.MousePointer=11
MkDir(Text1.Text&":\数据备份")
FileCopyApp.Path&"\yyjxc.mdb",Text1.Text&":\数据备份\yyjxc.mdb"
Me.MousePointer=0
MsgBox"数据已备份完毕。"
errprompt:
Me.MousePointer=0
SelectCaseErr.Number
Case57
MsgBox"磁盘已满!",vbCritical
Case70
MsgBox"磁盘写保护!",vbCritical
EndSelect
EndSub
PrivateSubCommand2_Click()
Loadfrm_main
frm_main.Show
frm_main.Enabled=True
UnloadMe
EndSub
数据恢复窗口代码:
PrivateSubForm_Activate()
'赋值给text1
Text1.Text="A"
EndSub
PrivateSubCommand1_Click()'确认数据恢复
YesNo=MsgBox("准备好了吗?",vbNo+vbQuestion)
IfYesNo=vbNoThen
ExitSub
EndIf
GoToerrprompt
Me.MousePointer=11
FileCopyText1.Text&":\数据备份\yyjxc.mdb",App.Path&"\yyjxc.mdb"
Me.MousePointer=0
MsgBox"数据已恢复完毕。"
errprompt:
Me.MousePointer=0
SelectCaseErr.Number
Case57
MsgBox"磁盘已满!",vbCritical
Case70
MsgBox"磁盘写保护!",vbCritical
EndSelect
EndSub
PrivateSubCommand2_Click()
Loadfrm_main
frm_main.Show
frm_main.Enabled=True
UnloadMe
EndSub
第五章使用说明
1、简介
本软件是一个简单的商品进销存管理系统,前台界面是使用VB开发的,后台是ACCESS数据库。用户可以使用本软件对商品的进、销、存纪录进行管理,及时的掌握商品的进、销、存情况。
2、软件开发目的
针对小型的商品零售单位,业务发生频繁,每笔业务涉及金额小、内容重复等特点。
3、软件适用范围
小型超市、商店、个体工商户
4销售管理系统是专为小企业开发的货物挡案计算机管理系统。它可以将原先货物档案手工管理变为计算机可视化管理,充分发挥了计算机的快捷、准确、方便、高效的特点,使原来几个小时的大工作量变为在短短的几分钟就完成而且准确无误,极大的提高了工作效率和工作质量。该系统具有高度的可靠性和安全保密性,操作简单,易行,用户界面简单,友好,又具有一定的美观性,菜单式的使用方式方便,不繁琐,便于用户查询、统计和打印等。让人操作起来,得心应手,满足了用户的需要。
第六章附录
开发小组人员分工一览表
日常业务登记模块:苏兆民闫新民
库存管理模块:霍宪斌闫新民
查询统计模块:李业森霍宪斌
业务信息管理模块:苏兆民李业森
打印报表模块:闫新民苏兆民
系统设置和帮助:霍宪斌李业森
参考文献
书名
作者
出版社
VB程序设计简明教程
龚沛曾陆慰民杨志强
高等教育出版社
VB数据库开发
入门与范例解析
郭胜夏邦贵
机械工业出版社
VB程序设计教程
谭浩强
清华大学出版社
VB程序设计题典
刘圣才李春葆
清华大学出版社
VBForWindows语言参考详解
周民光王复康
北京航空航天大学出版社
结束语
通过使用VB编程,使人真正体会到了可视化编程的优点,自己动手开发小规模的应用系统,学会一种规范化的编程方法,使我加深了对软件的理解。学以致用,学用结合,这既是学习理论知识目的,也是检验学习的最好方法。
毕业设计是整个教学过程的最后环节,是学生综合运用所学知识解决实际问题能力的考查。这次毕业设计不尽使我了解了VB在数据库方面编程的概要,更让我知道了计算机的编程秘诀在于严密的思考与仔细的推敲,只有这样,才会有一个完善的软件生成。
在此,我能够依据实际情况以及课堂上所学习的知识,应用到自己的实际工作,帮助解决工作过程中的问题,对实施方法程序有深刻理解,在数据库设计方面,编程技术方面有了一定的进步。通过这一系列工作使我系统地掌握三年来所学的专业知识,并基本掌握了开发一个应用软件的能力。
通过这次毕业设计,我受益匪浅,不仅巩固了三年来所学的知识,还深入学习了VisualBasic6.程序设计语言,这种面向对象程序设计理念及快捷灵活的编程手法让人耳目一新。
在任老师的细心指导下,我解决了许多设计中遇到的问题,在此深表感谢,同时希望各位老师和同学对本系统提出宝贵意见,谢谢大家。
??
??
??
??
上一篇:
VB电脑租赁系统(论文和程序)
下一篇:
画一卷情长,念一世安好