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 "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
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 "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
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 "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
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 "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
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 "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Ima_yfry_Click()
If Check5.Value = 1 Then
frm_SQJZ_ZB.Label1.Caption = "優(yōu)撫人員"
frm_SQJZ_ZB.Combo1.Text = "優(yōu)撫人員"
frm_SQJZ_ZB.Show
ElseIf Check5.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image1_Click()
If Check1.Value = 1 Then
frm_CZRK_HKB.Show
ElseIf Check1.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image10_Click()
If Check16.Value = 1 Then
frm_XTWH_CZYSZ.Show
ElseIf Check16.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image11_Click()
frm_sjbfyhf.Show
frm_sjbfyhf.Caption = "數(shù)據(jù)備份"
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 = "數(shù)據(jù)恢復"
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 "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
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 "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image5_Click()
If Check11.Value = 1 Then
frm_ZZRK_CZFWGL.Show
ElseIf Check11.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image6_Click()
If Check12.Value = 1 Then
frm_ZZRK_CZFCLGL.Show
ElseIf Check12.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image7_Click()
If Check13.Value = 1 Then
frm_ZZRK_ZKWPGL.Show
ElseIf Check13.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image8_Click()
If Check14.Value = 1 Then
frm_JHSY_ZB.Show
ElseIf Check14.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Image9_Click()
If Check14.Value = 1 Then
frm_JHSY_XXLL.Show
ElseIf Check14.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
End If
End Sub

Private Sub Imasyry_Click()
If Check4.Value = 1 Then

frm_SQJZ_ZB.Label1.Caption = "失業(yè)人員"
frm_SQJZ_ZB.Combo1.Text = "失業(yè)人員"
frm_SQJZ_ZB.Show
ElseIf Check4.Value = 0 Then
MsgBox "對不起,您沒有獲得此項功能的權限,請與系統(tǒng)管理員聯(lián)系確認您是否擁有此權限", 48, "人口信息管理系統(tǒng)"
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