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"对系统进行管理"
End
??
??
??
??
本科毕业(设计)论文:
1身份证管理系统
第18页
第1页
第四章系统实现
56本科毕业(设计)论文:湖北师范学院户籍管理系统
7
致谢
上一篇:
VB超市配送运输管理系统(论文和程序)
下一篇:
不规则零件优化排样的神经网络混合优化算法