Private Sub SJHF_Click()
frm_sjbfyhf.Show
frm_sjbfyhf.Caption = "數(shù)據(jù)恢復(fù)"
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
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
If Label1.Caption = "低保人員" Then
frm_SQJZ_DBRY.Show
ElseIf Label1.Caption = "優(yōu)撫人員" Then
frm_SQJZ_YFRY.Show
ElseIf Label1.Caption = "兩勞人員" Then
frm_SQJZ_LLRY.Show
ElseIf Label1.Caption = "工作對(duì)象" Then
frm_SQJZ_GZDX.Show
ElseIf Label1.Caption = "老年人" Then
frm_SQJZ_OLD.Show
ElseIf Label1.Caption = "殘疾人" Then
frm_SQJZ_CJRY.Show
ElseIf Label1.Caption = "失業(yè)人員" Then
frm_SQJZ_SYRY.Show
End If
Case 2
Dim i
  If Adodc1.Recordset.EOF = False Then
      c = MsgBox("您確認(rèn)要?jiǎng)h除該記錄嗎?", 17, "人口信息管理系統(tǒng)")
      If c = vbOK Then
          Adodc1.Recordset.Delete
'          Adodc1.Refresh
      Else
      End If
  Else
      MsgBox "當(dāng)前數(shù)據(jù)庫(kù)中已經(jīng)沒(méi)有可刪除的記錄", 32, "人口信息管理系統(tǒng)"
  End If
Case 3

If Label1.Caption = "低保人員" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "低保人員修改"
frm_SQJZ_XG.Combo1.AddItem ("低保證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性別")
frm_SQJZ_XG.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_XG.Combo1.AddItem ("月總收入")
frm_SQJZ_XG.Combo1.AddItem ("保障金額")
frm_SQJZ_XG.Option1.Value = 1
ElseIf Label1.Caption = "失業(yè)人員" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "失業(yè)人員修改"
frm_SQJZ_XG.Combo1.AddItem ("失業(yè)檔案號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性別")
frm_SQJZ_XG.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_XG.Combo1.AddItem ("月總收入")
frm_SQJZ_XG.Combo1.AddItem ("原職業(yè)")
frm_SQJZ_XG.Combo1.AddItem ("就業(yè)狀況")
frm_SQJZ_XG.Combo1.AddItem ("求職意向")
frm_SQJZ_XG.Option2.Value = 1
ElseIf Label1.Caption = "優(yōu)撫人員" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "優(yōu)撫人員修改"
frm_SQJZ_XG.Combo1.AddItem ("優(yōu)撫證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性別")
frm_SQJZ_XG.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_XG.Combo1.AddItem ("月總收入")
frm_SQJZ_XG.Combo1.AddItem ("優(yōu)撫類型")
frm_SQJZ_XG.Combo1.AddItem ("勞動(dòng)能力")
frm_SQJZ_XG.Combo1.AddItem ("生活能力")
frm_SQJZ_XG.Option3.Value = 1
ElseIf Label1.Caption = "兩勞人員" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "兩勞人員修改"
frm_SQJZ_XG.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性別")
frm_SQJZ_XG.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_XG.Combo1.AddItem ("月總收入")
frm_SQJZ_XG.Combo1.AddItem ("刑期")
frm_SQJZ_XG.Combo1.AddItem ("案由")
frm_SQJZ_XG.Option4.Value = 1
ElseIf Label1.Caption = "工作對(duì)象" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "工作對(duì)象修改"
frm_SQJZ_XG.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性別")
frm_SQJZ_XG.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_XG.Combo1.AddItem ("月總收入")
frm_SQJZ_XG.Combo1.AddItem ("人員類別")
frm_SQJZ_XG.Combo1.AddItem ("監(jiān)管原因")
frm_SQJZ_XG.Option5.Value = 1
ElseIf Label1.Caption = "老年人" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "老年人修改"
frm_SQJZ_XG.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性別")
frm_SQJZ_XG.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_XG.Combo1.AddItem ("月總收入")
frm_SQJZ_XG.Combo1.AddItem ("居住情況")
frm_SQJZ_XG.Combo1.AddItem ("配偶情況")
frm_SQJZ_XG.Combo1.AddItem ("退休金")
frm_SQJZ_XG.Option6.Value = 1
ElseIf Label1.Caption = "殘疾人" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "殘疾人員修改"
frm_SQJZ_XG.Combo1.AddItem ("殘疾證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性別")
frm_SQJZ_XG.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_XG.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_XG.Combo1.AddItem ("月總收入")
frm_SQJZ_XG.Combo1.AddItem ("殘疾狀況")
frm_SQJZ_XG.Combo1.AddItem ("監(jiān)護(hù)人")
frm_SQJZ_XG.Combo1.AddItem ("勞動(dòng)能力")
frm_SQJZ_XG.Combo1.AddItem ("技能特長(zhǎng)")
frm_SQJZ_XG.Option7.Value = 1
Else
End If
Case 4
If Label1.Caption = "低保人員" Then
frm_SQJZ_CX.Show
frm_SQJZ_CX.Caption = "低保人員查詢"
frm_SQJZ_CX.Combo1.AddItem ("低保證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性別")
frm_SQJZ_CX.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_CX.Combo1.AddItem ("月總收入")
frm_SQJZ_CX.Combo1.AddItem ("保障金額")
ElseIf Label1.Caption = "失業(yè)人員" Then
frm_SQJZ_CX.Show
frm_SQJZ_CX.Caption = "失業(yè)人員查詢"
frm_SQJZ_CX.Combo1.AddItem ("失業(yè)檔案號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性別")
frm_SQJZ_CX.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_CX.Combo1.AddItem ("月總收入")
frm_SQJZ_CX.Combo1.AddItem ("原職業(yè)")
frm_SQJZ_CX.Combo1.AddItem ("就業(yè)狀況")
frm_SQJZ_CX.Combo1.AddItem ("求職意向")
ElseIf Label1.Caption = "優(yōu)撫人員" Then
frm_SQJZ_CX.Show
frm_SQJZ_CX.Caption = "優(yōu)撫人員查詢"
frm_SQJZ_CX.Combo1.AddItem ("優(yōu)撫證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性別")
frm_SQJZ_CX.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_CX.Combo1.AddItem ("月總收入")
frm_SQJZ_CX.Combo1.AddItem ("優(yōu)撫類型")
frm_SQJZ_CX.Combo1.AddItem ("勞動(dòng)能力")
frm_SQJZ_CX.Combo1.AddItem ("生活能力")
ElseIf Label1.Caption = "兩勞人員" Then
frm_SQJZ_CX.Show
frm_SQJZ_CX.Caption = "兩勞人員查詢"
frm_SQJZ_CX.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性別")
frm_SQJZ_CX.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_CX.Combo1.AddItem ("月總收入")
frm_SQJZ_CX.Combo1.AddItem ("刑期")
frm_SQJZ_CX.Combo1.AddItem ("案由")
ElseIf Label1.Caption = "工作對(duì)象" Then
frm_SQJZ_CX.Show
frm_SQJZ_CX.Caption = "工作對(duì)象查詢"
frm_SQJZ_CX.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性別")
frm_SQJZ_CX.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_CX.Combo1.AddItem ("月總收入")
frm_SQJZ_CX.Combo1.AddItem ("人員類別")
frm_SQJZ_CX.Combo1.AddItem ("監(jiān)管原因")
ElseIf Label1.Caption = "老年人" Then
frm_SQJZ_CX.Show
frm_SQJZ_CX.Caption = "老年人查詢"
frm_SQJZ_CX.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性別")
frm_SQJZ_CX.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_CX.Combo1.AddItem ("月總收入")
frm_SQJZ_CX.Combo1.AddItem ("居住情況")
frm_SQJZ_CX.Combo1.AddItem ("配偶情況")
frm_SQJZ_CX.Combo1.AddItem ("退休金")
ElseIf Label1.Caption = "殘疾人" Then
frm_SQJZ_CX.Show
frm_SQJZ_CX.Caption = "殘疾人員查詢"
frm_SQJZ_CX.Combo1.AddItem ("殘疾證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("人口編號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性別")
frm_SQJZ_CX.Combo1.AddItem ("身份證號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("樓號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("戶號(hào)")
frm_SQJZ_CX.Combo1.AddItem ("經(jīng)濟(jì)狀況")
frm_SQJZ_CX.Combo1.AddItem ("月總收入")
frm_SQJZ_CX.Combo1.AddItem ("殘疾狀況")
frm_SQJZ_CX.Combo1.AddItem ("監(jiān)護(hù)人")
frm_SQJZ_CX.Combo1.AddItem ("勞動(dòng)能力")
frm_SQJZ_CX.Combo1.AddItem ("技能特長(zhǎng)")
Else
End If

Case 5
If Label1.Caption = "低保人員" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_DBRY"
   Adodc1.Refresh
ElseIf Label1.Caption = "失業(yè)人員" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_SYRY"
   Adodc1.Refresh
ElseIf Label1.Caption = "優(yōu)撫人員" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_YFRY "
   Adodc1.Refresh
ElseIf Label1.Caption = "兩勞人員" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_LLRY"
   Adodc1.Refresh
ElseIf Label1.Caption = "工作對(duì)象" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_GZDX"
   Adodc1.Refresh
ElseIf Label1.Caption = "老年人" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_OLD"
   Adodc1.Refresh
ElseIf Label1.Caption = "殘疾人" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_CJRY"
   Adodc1.Refresh
Else
End If
Case 6
If Label1.Caption = "工作對(duì)象" Then
DataEnvironment1.rssqjz_gzdx.Open "select * from Table_SQJZ_GZDX"
 If DataEnvironment1.rssqjz_gzdx.RecordCount > 0 Then
DataRep_sqjz_gzdx.Show
 Else
   MsgBox "沒(méi)有工作對(duì)象人員", 32, "人口信息管理系統(tǒng)"
 DataEnvironment1.rssqjz_gzdx.Close
 End If
 ElseIf Label1.Caption = "低保人員" Then
DataEnvironment1.rssqjz_dbry.Open "select * from Table_SQJZ_DBRY"
 If DataEnvironment1.rssqjz_dbry.RecordCount > 0 Then
DataRep_sqjz_dbry.Show
 Else
   MsgBox "沒(méi)有低保人員", 32, "人口信息管理系統(tǒng)"
 DataEnvironment1.rssqjz_dbry.Close
 End If
 ElseIf Label1.Caption = "優(yōu)撫人員" Then
DataEnvironment1.rssqjz_yfry.Open "select * from Table_SQJZ_YFRY"
 If DataEnvironment1.rssqjz_yfry.RecordCount > 0 Then
DataRep_sqjz_yfry.Show
 Else
   MsgBox "沒(méi)有優(yōu)撫人員", 32, "人口信息管理系統(tǒng)"
 DataEnvironment1.rssqjz_yfry.Close
 End If
 ElseIf Label1.Caption = "失業(yè)人員" Then
DataEnvironment1.rssqjz_syry.Open "select * from Table_SQJZ_SYRY"
 If DataEnvironment1.rssqjz_syry.RecordCount > 0 Then
DataRep_sqjz_syry.Show
 Else
   MsgBox "沒(méi)有失業(yè)人員", 32, "人口信息管理系統(tǒng)"
 DataEnvironment1.rssqjz_syry.Close
 End If
 ElseIf Label1.Caption = "兩勞人員" Then
DataEnvironment1.rssqjz_llry.Open "select * from Table_SQJZ_LLRY"
 If DataEnvironment1.rssqjz_llry.RecordCount > 0 Then
DataRep_sqjz_llry.Show
 Else
   MsgBox "沒(méi)有兩勞人員", 32, "人口信息管理系統(tǒng)"
 DataEnvironment1.rssqjz_llry.Close
 End If
 ElseIf Label1.Caption = "老年人" Then
DataEnvironment1.rssqjz_old.Open "select * from Table_SQJZ_OLD"
 If DataEnvironment1.rssqjz_old.RecordCount > 0 Then
DataRep_sqjz_old.Show
 Else
   MsgBox "沒(méi)有老年人員", 32, "人口信息管理系統(tǒng)"
 DataEnvironment1.rssqjz_old.Close
 End If
 ElseIf Label1.Caption = "殘疾人" Then
DataEnvironment1.rssqjz_cjr.Open "select * from Table_SQJZ_CJRB"
 If DataEnvironment1.rssqjz_cjr.RecordCount > 0 Then
DataRep_sqjz_cjr.Show
 Else
   MsgBox "沒(méi)有殘疾人員", 32, "人口信息管理系統(tǒng)"
 DataEnvironment1.rssqjz_cjr.Close
 End If
Else
End If

Case 7
Unload Me
End Select
End Sub