真个系统的功能还是比较稳定,虽然在某些地方还不尽如人意,但是我们开发的目的还是达到了,作为第一次开发软件,第一次做毕业设计,我们从中还是学到了不少的知识,通过这次开发,我们为以后进入计算机行业做开发工作积累了一定的经验。
致词
经过一个多月的设计和开发,我完成了身份证管理系统的分析、设计与编程工作,系统基本开发完毕。其功能基本符合用户需求,能够完成身份证档案信息的存储和查询及以及各类相关报表的浏览。并提供部分系统管理功能,使用户方便进行新用户的添加、旧用户的修改和删除.对于数据的一致性的问题也通过程序进行了有效的解决。避免了由于人为方式固有的不严密性所带来的各种工作中的疏漏,实现了管理的科学化和严谨化。但是由于系统设计时间较短,所以该系统还有许多不尽如人意的地方,比如功能比较少,用户界面不够美观,出错处理不够等多方面问题。这些都有待进一步改善。十分感谢系领导以及曾教导过我们的每一位老师一直以来对我们的学习和生活上的悉心培育和关心!特别感谢张斌老师在本系统的设计和论文的编写上给予的帮助和指导!
在本次毕业设计中,,指导老师老师给予我了极大的帮助,我从老师身上学到了很多东西。张老师认真负责的工作态度,严谨的治学精神和深厚的理论水平和实际操作能力都使我收益匪浅。在他的帮助下使得系统能及时开发完成,非常感谢他耐心的辅导。另外,同学同样给与我不少帮助,这里一并表示感谢。他无论在理论上还是在实践中,都给予我很大的帮助,使我得到不少的提高和认识.这对于我以后的工作和学习都是一种极大的帮助,我在此真诚地感谢他耐心的辅导和帮助!
最后要感谢在这四年的学习和生活中我们所遇到的每一位可敬的老师们,感谢你们的无私奉献!感谢你们的悉心教导!感谢你们的点点滴滴!
参考文献
1、VisualBasic程序设计作者:谭浩强薛淑斌袁玫编著
出版社:清华大学出版社
2、VisualBasic数据库系统设计与开发作者:李春葆张植民编著
出版社:清华大学出版社
3、VisualBasic课程设计与系统开发案例作者:伍俊良主编
出版社:清华大学出版社
4、VisualBasic程序设计作者:杭国英主编
出版社:机械工业出版社
5、Access2000项目案例导航作者:郑小玲王学军编著
出版社:科学出版社出版日期:2003年7月
第七章附录
用户登录主界面及代码:
OptionExplicit
PrivateSubCommcancel_Click()
End
EndSub
PrivateSubCommok_Click()
'声明变量
DimusernameAsString
DimpasswordAsString
Dimlocal_dbAsString
DimcnnAsNewADODB.Connection
DimrstAsNewADODB.Recordset
IfText1.Text=""Then
MsgBox"请输入用户名",,"警告"
Text1.SetFocus
Else
IfText2.Text=""Then
MsgBox"请输入密码",,"警告"
Text2.SetFocus
EndIf
EndIf
IfText1.Text<>""AndText2.Text<>""Then
Setcnn=NewADODB.Connection
Setrst=NewADODB.Recordset
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path&"\data\db.mdb"+";PersistSecurityInfo=False;"'连接数据库
username=Trim(Text1.Text)
password=Text2.Text
'检查用户名是否正确
local_db="select用户名from用户表"+_
"where用户表.用户名="+"'"+_
username+"'"
rst.Openlocal_db,cnn
IfNot(rst.BOFAndrst.EOF)Then
rst.Close
'检查密码是否正确
local_db="select密码from用户表"+_
"where用户表.用户名="+"'"+_
username+"'and"+_
"用户表.密码="+"'"+password+"'"
rst.Openlocal_db,cnn
IfNot(rst.BOFAndrst.EOF)Then
userid=Text1.Text
Unloadfrmdl
'判断登陆用户是否为admin
Ifusername="admin"Then
mainfrm.xitong.Enabled=True'激活主窗口系统菜单
Else
mainfrm.xitong.Enabled=False
EndIf
frmver.Show'显示版本窗口
Else
MsgBox"您输入的密码不正确,请重新输入!",,"警告"
Text2.Text=""
Text2.SetFocus
EndIf
Else
MsgBox"系统中无此用户",,"警告"
Text1.Text=""
Text1.SetFocus
EndIf
EndIf
EndSub
PrivateSubForm_Load()
EndSub
PrivateSubTimer1_Timer()
EndSub
系统主界面及代码:
PrivateSubadduser_Click()'增加用户
frmzj.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"添加用户"
EndSub
PrivateSuballh_Click()
frmhlist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"身份证列表"
EndSub
PrivateSuballp_Click()
frmplist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"人口列表"
EndSub
PrivateSubchaxun_Click()
GetStatus"查询修改信息"
EndSub
PrivateSubchuhao_Click()
frmchuhao.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询户号"
EndSub
PrivateSubchuhome_Click()
frmqch.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"迁出身份证"
EndSub
PrivateSubchupeople_Click()
frmqcr.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"迁出人口"
EndSub
PrivateSubCommand1_Click()
frmhome.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
frmhome.Frame3.Enabled=False
frmhome.Label12.Enabled=False
frmhome.Label13.Enabled=False
frmhome.Label14.Enabled=False
frmhome.Text4.Enabled=False
frmhome.Text4.Text=""
GetStatus"添加、迁入身份证"
EndSub
PrivateSubCommand2_Click()
frmxz1.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"添加、迁入人口"
EndSub
PrivateSubCommand3_Click()
frmczhuzhi.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询住址"
EndSub
PrivateSubCommand4_Click()
frmxg.Show
EndSub
PrivateSubCommand5_Click()
exit1.Show
Beep
mainfrm.Enabled=False
GetStatus"·退出系统"
EndSub
上一篇:
VB超市配送运输管理系统(论文和程序)
下一篇:
村落共同体的核心架构研究