📄 frm_main.frm
字号:
Caption = "Check10"
Height = 255
Left = -73080
TabIndex = 10
Top = 1920
Width = 975
End
Begin VB.CheckBox Check9
Caption = "Check9"
Height = 255
Left = -74520
TabIndex = 9
Top = 1920
Width = 855
End
Begin VB.CheckBox Check8
Caption = "Check8"
Height = 255
Left = -70560
TabIndex = 8
Top = 1440
Width = 975
End
Begin VB.CheckBox Check7
Caption = "Check7"
Height = 255
Left = -71760
TabIndex = 7
Top = 1440
Width = 975
End
Begin VB.CheckBox Check6
Caption = "Check6"
Height = 255
Left = -73080
TabIndex = 6
Top = 1440
Width = 975
End
Begin VB.CheckBox Check5
Caption = "Check5"
Height = 255
Left = -74520
TabIndex = 5
Top = 1440
Width = 855
End
Begin VB.CheckBox Check4
Caption = "Check4"
Height = 255
Left = -70560
TabIndex = 4
Top = 960
Width = 1095
End
Begin VB.CheckBox Check3
Caption = "Check3"
Height = 300
Left = -71760
TabIndex = 3
Top = 960
Width = 855
End
Begin VB.CheckBox Check2
Caption = "Check2"
Height = 255
Left = -73080
TabIndex = 2
Top = 960
Width = 975
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Left = -74520
TabIndex = 1
Top = 960
Width = 1215
End
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim itmX As ListItem '定义一个ListItem对象
Dim a
Dim key As String '定义字符串变量
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
SSTab1.Tab = 0
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Ima_cjr_Click()
If Check9.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "残疾人"
frm_SQJZ_ZB.Combo1.Text = "残疾人"
frm_SQJZ_ZB.Show
ElseIf Check9.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Ima_dbry_Click()
If Check3.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "低保人员"
frm_SQJZ_ZB.Combo1.Text = "低保人员"
frm_SQJZ_ZB.Show
ElseIf Check3.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Ima_gzdx_Click()
If Check7.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "工作对象"
frm_SQJZ_ZB.Combo1.Text = "工作对象"
frm_SQJZ_ZB.Show
ElseIf Check7.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Ima_llry_Click()
If Check6.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "两劳人员"
frm_SQJZ_ZB.Combo1.Text = "两劳人员"
frm_SQJZ_ZB.Show
ElseIf Check6.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Ima_old_Click()
If Check8.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "老年人"
frm_SQJZ_ZB.Combo1.Text = "老年人"
frm_SQJZ_ZB.Show
ElseIf Check8.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Ima_yfry_Click()
If Check5.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "优抚人员"
frm_SQJZ_ZB.Combo1.Text = "优抚人员"
frm_SQJZ_ZB.Show
ElseIf Check5.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image1_Click()
If Check1.Value = 1 Then
frm_CZRK_HKB.Show
ElseIf Check1.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image10_Click()
If Check16.Value = 1 Then
frm_XTWH_CZYSZ.Show
ElseIf Check16.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image11_Click()
frm_sjbfyhf.Show
frm_sjbfyhf.Caption = "数据备份"
frm_sjbfyhf.Command1.Visible = True
frm_sjbfyhf.Command4.Visible = False
frm_sjbfyhf.Frame1.Visible = True
frm_sjbfyhf.Frame2.Visible = False
frm_sjbfyhf.Picture1.Visible = True
frm_sjbfyhf.Picture2.Visible = False
End Sub
Private Sub Image12_Click()
frm_sjbfyhf.Caption = "数据恢复"
frm_sjbfyhf.Command1.Visible = False
frm_sjbfyhf.Command4.Visible = True
frm_sjbfyhf.Frame1.Visible = False
frm_sjbfyhf.Frame2.Visible = True
frm_sjbfyhf.Picture1.Visible = False
frm_sjbfyhf.Picture2.Visible = True
frm_sjbfyhf.Show
Unload Me
End Sub
Private Sub Image2_Click()
If Check2.Value = 1 Then
frm_CZRK_LXFS.Show
ElseIf Check2.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image3_Click()
frm_SQJZ_ZB.Show
End Sub
Private Sub Image4_Click()
If Check10.Value = 1 Then
frm_ZZRK_ZB.Show
ElseIf Check10.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image5_Click()
If Check11.Value = 1 Then
frm_ZZRK_CZFWGL.Show
ElseIf Check11.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image6_Click()
If Check12.Value = 1 Then
frm_ZZRK_CZFCLGL.Show
ElseIf Check12.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image7_Click()
If Check13.Value = 1 Then
frm_ZZRK_ZKWPGL.Show
ElseIf Check13.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image8_Click()
If Check14.Value = 1 Then
frm_JHSY_ZB.Show
ElseIf Check14.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Image9_Click()
If Check14.Value = 1 Then
frm_JHSY_XXLL.Show
ElseIf Check14.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Imasyry_Click()
If Check4.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "失业人员"
frm_SQJZ_ZB.Combo1.Text = "失业人员"
frm_SQJZ_ZB.Show
ElseIf Check4.Value = 0 Then
MsgBox "对不起,您没有获得此项功能的权限,请与系统管理员联系确认您是否拥有此权限", 48, "人口信息管理系统"
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
Else
End If
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 5 Then
End
Else
End If
End Sub
Private Sub SSTab1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
Else
End If
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
Else
End If
End Sub
Private Sub Picture3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
Else
End If
End Sub
Private Sub Picture4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
Else
End If
End Sub
Private Sub Picture5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -