bled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"备份数据库"
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
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"查询住址"
EndSub
PrivateSubdel_Click()'删除用户
frmsc.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"删除用户"
EndSub
PrivateSubexit_Click()'退出
exit1.Show
Beep
mainfrm.Enabled=False
GetStatus"·退出系统"
EndSub
PrivateSubguanli_Click()
GetStatus"对户籍进行管理"
EndSub
PrivateSubhbaobiao_Click()
DataReport1.Show
GetStatus"户口报表"
EndSub
PrivateSubhomezx_Click()
frmzxh.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"户口注销"
EndSub
PrivateSubhxinxi_Click()
frmcxh.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"查询修改户信息"
EndSub
PrivateSubmfy_Click()'修改用户
frmxg.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"修改密码"
EndSub
PrivateSubpbaobiao_Click()
DataReport2.Show
GetStatus"人口报表"
EndSub
PrivateSubpeoplezx_Click()
frmzxr.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"人口注销"
EndSub
PrivateSubqianchuh_Click()
frmyqh.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"迁出户列表"
EndSub
PrivateSubqianchur_Click()
frmyqr.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"迁出人列表"
EndSub
PrivateSubqingall_Click()
ts8.Show
mainfrm.Enabled=False
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
GetStatus"清空数据库中的全部数据"
EndSub
PrivateSubqinghu_Click()
ts7.Show
mainfrm.Enabled=False
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
GetStatus"清空数据库中的户籍数据"
EndSub
PrivateSubqinguser_Click()
ts6.Show
mainfrm.Enabled=False
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
GetStatus"清空数据库中的用户数据"
EndSub
PrivateSubruhome_Click()'迁入户
frmhome.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
frmhome.Frame3.Enabled=False
frmhome.Label12.Enabled=False
frmhome.Label13.Enabled=False
frmhome.Label14.Enabled=False
frmhome.Text4.Enabled=False
frmhome.Command4.Enabled=False
frmhome.Text4.Text=""
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"添加或迁入户口"
EndSub
PrivateSubrupeople_Click()
frmxz1.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"添加或迁入人口"
EndSub
PrivateSubrxinxi_Click()
frmcxp.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"查询修改人信息"
EndSub
PrivateSubtongji_Click()
GetStatus"报表与统计"
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
EndSub
PrivateSubuserlist_Click()
frmuserlist.Show
guanli.Enabled=False
chaxun.Enabled=False
tongji.Enabled=False
xitong.Enabled=False
bdb.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
GetStatus"用户列表"
EndSub
PrivateSubxitong_Click()
GetStatus"对系统进行管理"
EndSub
5.3添加或迁入户口界面设计
此功能是在主界面第一个下拉菜单下的功能,主要是对户号,户别,户主姓名,家庭地址,迁入时间,何地迁入,迁出日期,到何地点等等进行设置
次功能用到了vb6.0中的按钮,文本框,标签等控件进行了设计,实现具体代码如下:
OptionExplicit
PrivateSubCommand1_Click()
Unloadfrmqchu
'初始化主窗口
mainfrm.guanli.Enabled=True
mainfrm.chaxun.Enabled=True
mainfrm.tongji.Enabled=True
Ifuserid="admin"Then
mainfrm.xitong.Enabled=True
mainfrm.bdb.Enabled=False
Else
mainfrm.xitong.Enabled=False
mainfrm.bdb.Enabled=Fals
上一篇:
VB社会福利保障系统(论文和程序)
下一篇:
马克思主义基本原理概论论文大学论文