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
PrivateSubczhuzhi_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
PrivateSubdel_Click()'删除用户
frmsc.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"删除用户"
EndSub
PrivateSubexit_Click()'退出
exit1.Show
Beep
mainfrm.Enabled=False
GetStatus"·退出系统"
EndSub
PrivateSubguanli_Click()
GetStatus"对户籍进行管理"
EndSub
PrivateSubhbaobiao_Click()
DataReport1.Show
GetStatus"户口报表"
EndSub
PrivateSubhxinxi_Click()
frmcxh.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询修改户信息"
EndSub
PrivateSubmfy_Click()'修改用户
frmxg.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"修改密码"
EndSub
PrivateSubpbaobiao_Click()
DataReport2.Show
GetStatus"人口报表"
EndSub
PrivateSubqianchuh_Click()
frmyqh.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"迁出户列表"
EndSub
PrivateSubqianchur_Click()
frmyqr.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"迁出人列表"
EndSub
PrivateSubruhome_Click()'迁入户
frmhome.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.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=""
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"添加或迁入户口"
EndSub
PrivateSubrupeople_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
PrivateSubrxinxi_Click()
frmcxp.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"查询修改人信息"
EndSub
PrivateSubTimer1_Timer()
Text1.Text=Time$
EndSub
PrivateSubtongji_Click()
GetStatus"报表与统计"
EndSub
PrivateSubuserlist_Click()
frmuserlist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
GetStatus"用户列表"
EndSub
PrivateSubxitong_Click()
GetStatus"对系统进行管理"
EndSub
??
??
??
??
本科毕业(设计)论文:
1户籍管理系统
第30页
第1页
第四章系统实现
30本科毕业(设计)论文:湖北师范学院户籍管理系统
7
致谢
上一篇:
vb彩票销售管理系统(论文和程序)
下一篇:
法律专业开题报告范文