mainfrm.frm

我VB遍的工资管理系统

Command4.Enabled = False
GetStatus "迁出户口"
End Sub

Private Sub chupeople_Click()
frmqcr.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 "迁出人口"
End Sub

Private Sub Command1_Click()
frmhome.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
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 = ""
GetStatus "添加、迁入户口"
End Sub

Private Sub Command2_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 "添加、迁入人口"
End Sub

Private Sub Command3_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 "查询住址"
End Sub

Private Sub Command4_Click()
frmbackup.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 "备份数据库"
End Sub

Private Sub Command5_Click()
exit1.Show
Beep
mainfrm.Enabled = False
GetStatus "·退出系统"
End Sub

Private Sub czhuzhi_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 "查询住址"
End Sub

Private Sub del_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 "删除用户"
End Sub

Private Sub exit_Click() '退出
exit1.Show
Beep
mainfrm.Enabled = False
GetStatus "·退出系统"
End Sub

Private Sub guanli_Click()
GetStatus "对户籍进行管理"
End Sub

Private Sub hbaobiao_Click()
DataReport1.Show
GetStatus "户口报表"
End Sub

Private Sub homezx_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 "户口注销"
End Sub

Private Sub hxinxi_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 "查询修改户信息"
End Sub

Private Sub mfy_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 "修改密码"
End Sub

Private Sub pbaobiao_Click()
DataReport2.Show
GetStatus "人口报表"
End Sub

Private Sub peoplezx_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 "人口注销"
End Sub

Private Sub qianchuh_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 "迁出户列表"
End Sub

Private Sub qianchur_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 "迁出人列表"
End Sub

Private Sub qingall_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 "清空数据库中的全部数据"
End Sub

Private Sub qinghu_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 "清空数据库中的户籍数据"
End Sub

Private Sub qinguser_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 "清空数据库中的用户数据"
End Sub

Private Sub ruhome_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 "添加或迁入户口"
End Sub

Private Sub rupeople_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 "添加或迁入人口"
End Sub

Private Sub rxinxi_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 "查询修改人信息"
End Sub

Private Sub tongji_Click()
GetStatus "报表与统计"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub

Private Sub userlist_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 "用户列表"
End Sub

Private Sub xitong_Click()
GetStatus "对系统进行管理"
End Sub