frm_sqjz_zb.frm

人口信息管理系统 人口信息管理 查询 修改 删除

Private Sub SJHF_Click()
frm_sjbfyhf.Show
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
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 = "优抚人员" Then
frm_SQJZ_YFRY.Show
ElseIf Label1.Caption = "两劳人员" Then
frm_SQJZ_LLRY.Show
ElseIf Label1.Caption = "工作对象" Then
frm_SQJZ_GZDX.Show
ElseIf Label1.Caption = "老年人" Then
frm_SQJZ_OLD.Show
ElseIf Label1.Caption = "残疾人" Then
frm_SQJZ_CJRY.Show
ElseIf Label1.Caption = "失业人员" Then
frm_SQJZ_SYRY.Show
End If
Case 2
Dim i
  If Adodc1.Recordset.EOF = False Then
      c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
      If c = vbOK Then
          Adodc1.Recordset.Delete
'          Adodc1.Refresh
      Else
      End If
  Else
      MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
  End If
Case 3

If Label1.Caption = "低保人员" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "低保人员修改"
frm_SQJZ_XG.Combo1.AddItem ("低保证号")
frm_SQJZ_XG.Combo1.AddItem ("人口编号")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性别")
frm_SQJZ_XG.Combo1.AddItem ("身份证号")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("楼号")
frm_SQJZ_XG.Combo1.AddItem ("户号")
frm_SQJZ_XG.Combo1.AddItem ("经济状况")
frm_SQJZ_XG.Combo1.AddItem ("月总收入")
frm_SQJZ_XG.Combo1.AddItem ("保障金额")
frm_SQJZ_XG.Option1.Value = 1
ElseIf Label1.Caption = "失业人员" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "失业人员修改"
frm_SQJZ_XG.Combo1.AddItem ("失业档案号")
frm_SQJZ_XG.Combo1.AddItem ("人口编号")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性别")
frm_SQJZ_XG.Combo1.AddItem ("身份证号")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("楼号")
frm_SQJZ_XG.Combo1.AddItem ("户号")
frm_SQJZ_XG.Combo1.AddItem ("经济状况")
frm_SQJZ_XG.Combo1.AddItem ("月总收入")
frm_SQJZ_XG.Combo1.AddItem ("原职业")
frm_SQJZ_XG.Combo1.AddItem ("就业状况")
frm_SQJZ_XG.Combo1.AddItem ("求职意向")
frm_SQJZ_XG.Option2.Value = 1
ElseIf Label1.Caption = "优抚人员" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "优抚人员修改"
frm_SQJZ_XG.Combo1.AddItem ("优抚证号")
frm_SQJZ_XG.Combo1.AddItem ("人口编号")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性别")
frm_SQJZ_XG.Combo1.AddItem ("身份证号")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("楼号")
frm_SQJZ_XG.Combo1.AddItem ("户号")
frm_SQJZ_XG.Combo1.AddItem ("经济状况")
frm_SQJZ_XG.Combo1.AddItem ("月总收入")
frm_SQJZ_XG.Combo1.AddItem ("优抚类型")
frm_SQJZ_XG.Combo1.AddItem ("劳动能力")
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 ("人口编号")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性别")
frm_SQJZ_XG.Combo1.AddItem ("身份证号")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("楼号")
frm_SQJZ_XG.Combo1.AddItem ("户号")
frm_SQJZ_XG.Combo1.AddItem ("经济状况")
frm_SQJZ_XG.Combo1.AddItem ("月总收入")
frm_SQJZ_XG.Combo1.AddItem ("刑期")
frm_SQJZ_XG.Combo1.AddItem ("案由")
frm_SQJZ_XG.Option4.Value = 1
ElseIf Label1.Caption = "工作对象" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "工作对象修改"
frm_SQJZ_XG.Combo1.AddItem ("人口编号")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性别")
frm_SQJZ_XG.Combo1.AddItem ("身份证号")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("楼号")
frm_SQJZ_XG.Combo1.AddItem ("户号")
frm_SQJZ_XG.Combo1.AddItem ("经济状况")
frm_SQJZ_XG.Combo1.AddItem ("月总收入")
frm_SQJZ_XG.Combo1.AddItem ("人员类别")
frm_SQJZ_XG.Combo1.AddItem ("监管原因")
frm_SQJZ_XG.Option5.Value = 1
ElseIf Label1.Caption = "老年人" Then
frm_SQJZ_XG.Show
frm_SQJZ_XG.Caption = "老年人修改"
frm_SQJZ_XG.Combo1.AddItem ("人口编号")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性别")
frm_SQJZ_XG.Combo1.AddItem ("身份证号")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("楼号")
frm_SQJZ_XG.Combo1.AddItem ("户号")
frm_SQJZ_XG.Combo1.AddItem ("经济状况")
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 ("残疾证号")
frm_SQJZ_XG.Combo1.AddItem ("人口编号")
frm_SQJZ_XG.Combo1.AddItem ("姓名")
frm_SQJZ_XG.Combo1.AddItem ("性别")
frm_SQJZ_XG.Combo1.AddItem ("身份证号")
frm_SQJZ_XG.Combo1.AddItem ("文化程度")
frm_SQJZ_XG.Combo1.AddItem ("楼号")
frm_SQJZ_XG.Combo1.AddItem ("户号")
frm_SQJZ_XG.Combo1.AddItem ("经济状况")
frm_SQJZ_XG.Combo1.AddItem ("月总收入")
frm_SQJZ_XG.Combo1.AddItem ("残疾状况")
frm_SQJZ_XG.Combo1.AddItem ("监护人")
frm_SQJZ_XG.Combo1.AddItem ("劳动能力")
frm_SQJZ_XG.Combo1.AddItem ("技能特长")
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 ("低保证号")
frm_SQJZ_CX.Combo1.AddItem ("人口编号")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性别")
frm_SQJZ_CX.Combo1.AddItem ("身份证号")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("楼号")
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 ("失业档案号")
frm_SQJZ_CX.Combo1.AddItem ("人口编号")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性别")
frm_SQJZ_CX.Combo1.AddItem ("身份证号")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("楼号")
frm_SQJZ_CX.Combo1.AddItem ("户号")
frm_SQJZ_CX.Combo1.AddItem ("经济状况")
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 ("优抚证号")
frm_SQJZ_CX.Combo1.AddItem ("人口编号")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性别")
frm_SQJZ_CX.Combo1.AddItem ("身份证号")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("楼号")
frm_SQJZ_CX.Combo1.AddItem ("户号")
frm_SQJZ_CX.Combo1.AddItem ("经济状况")
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 ("人口编号")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性别")
frm_SQJZ_CX.Combo1.AddItem ("身份证号")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("楼号")
frm_SQJZ_CX.Combo1.AddItem ("户号")
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 ("人口编号")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性别")
frm_SQJZ_CX.Combo1.AddItem ("身份证号")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("楼号")
frm_SQJZ_CX.Combo1.AddItem ("户号")
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 ("人口编号")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性别")
frm_SQJZ_CX.Combo1.AddItem ("身份证号")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("楼号")
frm_SQJZ_CX.Combo1.AddItem ("户号")
frm_SQJZ_CX.Combo1.AddItem ("经济状况")
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 ("残疾证号")
frm_SQJZ_CX.Combo1.AddItem ("人口编号")
frm_SQJZ_CX.Combo1.AddItem ("姓名")
frm_SQJZ_CX.Combo1.AddItem ("性别")
frm_SQJZ_CX.Combo1.AddItem ("身份证号")
frm_SQJZ_CX.Combo1.AddItem ("文化程度")
frm_SQJZ_CX.Combo1.AddItem ("楼号")
frm_SQJZ_CX.Combo1.AddItem ("户号")
frm_SQJZ_CX.Combo1.AddItem ("经济状况")
frm_SQJZ_CX.Combo1.AddItem ("月总收入")
frm_SQJZ_CX.Combo1.AddItem ("残疾状况")
frm_SQJZ_CX.Combo1.AddItem ("监护人")
frm_SQJZ_CX.Combo1.AddItem ("劳动能力")
frm_SQJZ_CX.Combo1.AddItem ("技能特长")
Else
End If

Case 5
If Label1.Caption = "低保人员" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_DBRY"
   Adodc1.Refresh
ElseIf Label1.Caption = "失业人员" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_SYRY"
   Adodc1.Refresh
ElseIf Label1.Caption = "优抚人员" 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 = "工作对象" 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 = "工作对象" Then
DataEnvironment1.rssqjz_gzdx.Open "select * from Table_SQJZ_GZDX"
 If DataEnvironment1.rssqjz_gzdx.RecordCount > 0 Then
DataRep_sqjz_gzdx.Show
 Else
   MsgBox "没有工作对象人员", 32, "人口信息管理系统"
 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 "没有低保人员", 32, "人口信息管理系统"
 DataEnvironment1.rssqjz_dbry.Close
 End If
 ElseIf Label1.Caption = "优抚人员" Then
DataEnvironment1.rssqjz_yfry.Open "select * from Table_SQJZ_YFRY"
 If DataEnvironment1.rssqjz_yfry.RecordCount > 0 Then
DataRep_sqjz_yfry.Show
 Else
   MsgBox "没有优抚人员", 32, "人口信息管理系统"
 DataEnvironment1.rssqjz_yfry.Close
 End If
 ElseIf Label1.Caption = "失业人员" Then
DataEnvironment1.rssqjz_syry.Open "select * from Table_SQJZ_SYRY"
 If DataEnvironment1.rssqjz_syry.RecordCount > 0 Then
DataRep_sqjz_syry.Show
 Else
   MsgBox "没有失业人员", 32, "人口信息管理系统"
 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 "没有两劳人员", 32, "人口信息管理系统"
 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 "没有老年人员", 32, "人口信息管理系统"
 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 "没有残疾人员", 32, "人口信息管理系统"
 DataEnvironment1.rssqjz_cjr.Close
 End If
Else
End If

Case 7
Unload Me
End Select
End Sub