📄 mainfrm.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm mainfrm
BackColor = &H00C0E0FF&
Caption = "户籍管理系统"
ClientHeight = 9060
ClientLeft = 165
ClientTop = -540
ClientWidth = 9330
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 1
Top = 0
Width = 9330
_ExtentX = 16457
_ExtentY = 1111
ButtonWidth = 609
ButtonHeight = 953
Appearance = 1
_Version = 393216
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 375
Left = 7560
Picture = "mainfrm.frx":0000
ScaleHeight = 375
ScaleWidth = 1575
TabIndex = 7
Top = 240
Width = 1575
End
Begin VB.CommandButton Command5
Height = 615
Left = 3360
Picture = "mainfrm.frx":04DD
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "退出系统"
Top = 0
Width = 735
End
Begin VB.CommandButton Command4
Enabled = 0 'False
Height = 615
Left = 2520
Picture = "mainfrm.frx":0627
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "备份数据库"
Top = 0
Width = 735
End
Begin VB.CommandButton Command3
Height = 615
Left = 1680
Picture = "mainfrm.frx":07BE
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "查询住址"
Top = 0
Width = 735
End
Begin VB.CommandButton Command2
Height = 615
Left = 840
Picture = "mainfrm.frx":08FE
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "添加或迁入人口"
Top = 0
Width = 735
End
Begin VB.CommandButton Command1
Height = 615
Left = 0
Picture = "mainfrm.frx":0A5C
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "添加或迁入户口"
Top = 0
Width = 735
End
End
Begin MSComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 8790
Width = 9330
_ExtentX = 16457
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
Text = "<就绪>"
TextSave = "<就绪>"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2003-6-16"
EndProperty
EndProperty
End
Begin VB.Menu guanli
Caption = "户籍管理(&M)"
Begin VB.Menu ruhome
Caption = "添加或迁入户口 [&H]"
End
Begin VB.Menu chuhome
Caption = "迁出户口 [&M]"
End
Begin VB.Menu t1
Caption = "-"
End
Begin VB.Menu rupeople
Caption = "添加或迁入人口 [&A]"
End
Begin VB.Menu chupeople
Caption = "迁出人口 [&V]"
End
Begin VB.Menu t2
Caption = "-"
End
Begin VB.Menu homezx
Caption = "户口注销 [&O]"
End
Begin VB.Menu peoplezx
Caption = "人口注销 [&D]"
End
Begin VB.Menu t3
Caption = "-"
End
Begin VB.Menu card
Caption = "打印户口卡 [&P]"
End
Begin VB.Menu t4
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出 [&E]"
End
End
Begin VB.Menu chaxun
Caption = "查询修改(&S)"
Begin VB.Menu chuhao
Caption = "查询户号 [&N]"
End
Begin VB.Menu ct1
Caption = "-"
End
Begin VB.Menu hxinxi
Caption = "查询修改户信息 [&H]"
End
Begin VB.Menu rxinxi
Caption = "查询修改人信息 [&P]"
End
Begin VB.Menu ct2
Caption = "-"
End
Begin VB.Menu czhuzhi
Caption = "查询住址 [&A]"
End
Begin VB.Menu t10
Caption = "-"
End
Begin VB.Menu chalist
Caption = "列表查询 [&L]"
Begin VB.Menu allh
Caption = "全部户口列表 [&U]"
End
Begin VB.Menu allp
Caption = "全部人口列表 [&K]"
End
Begin VB.Menu qianchuh
Caption = "已迁出户列表 [&T]"
End
Begin VB.Menu qianchur
Caption = "已迁出人列表 [&Y]"
End
End
End
Begin VB.Menu tongji
Caption = "报表统计(&C)"
Begin VB.Menu hbaobiao
Caption = "户口报表 [&H]"
End
Begin VB.Menu pbaobiao
Caption = "人口报表 [&P]"
End
End
Begin VB.Menu xitong
Caption = "系统管理(&A)"
Enabled = 0 'False
Begin VB.Menu userlist
Caption = "用户列表 [&L]"
End
Begin VB.Menu t11
Caption = "-"
End
Begin VB.Menu adduser
Caption = "添加用户 [&A]"
End
Begin VB.Menu mfy
Caption = "修改密码 [&M]"
End
Begin VB.Menu del
Caption = "删除用户 [&D]"
End
End
Begin VB.Menu bdb
Caption = "数据库管理(&D)"
Enabled = 0 'False
Begin VB.Menu backupdb
Caption = "备份数据库 [&B]"
End
Begin VB.Menu qingdb
Caption = "清空数据库 [&F]"
Begin VB.Menu qinguser
Caption = "清空用户数据 [&U]"
End
Begin VB.Menu qinghu
Caption = "清空户籍数据 [&H]"
End
Begin VB.Menu qingall
Caption = "清空全部数据 [&A]"
End
End
End
End
Attribute VB_Name = "mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub adduser_Click() '增加用户
frmzj.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 allh_Click()
frmhlist.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 allp_Click()
frmplist.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 backupdb_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 bdb_Click()
GetStatus "数据库管理"
End Sub
Private Sub card_Click()
frmprint.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 chaxun_Click()
GetStatus "查询修改信息"
End Sub
Private Sub chuhao_Click()
frmchuhao.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 chuhome_Click()
frmqch.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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -