frm_czrk_hkb.frm

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

         Caption         =   "访问我们的网站"
      End
      Begin VB.Menu XX 
         Caption         =   "给我们写信"
      End
      Begin VB.Menu FF 
         Caption         =   "-"
      End
      Begin VB.Menu ABOUT 
         Caption         =   "关于 社区人口信息管理系统"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出(&E)"
   End
End
Attribute VB_Name = "frm_CZRK_HKB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub ABOUT_Click()
frmAbout.Show
End Sub

Private Sub ADD_Click()
frm_CZRK_EDIT.Show
End Sub
Private Sub CSRY_Click()
DataEnvironment2.rsczrk_bncs.Open "select * from Table_HKB where 出生日期 between '" + Str(DTPicker1) + "' and '" + Str(DTPicker2) + "'"
 If DataEnvironment2.rsczrk_bncs.RecordCount > 0 Then
 DataRep_bncs.Show
 DataEnvironment2.rsczrk_bncs.Close
 Else
   MsgBox "本年度没有出生人员", 32, "社区人口信息管理系统"
 DataEnvironment2.rsczrk_bncs.Close
 End If
End Sub

Private Sub CZYSZ_Click()
frm_XTWH_CZYSZ.Show
End Sub

Private Sub DataGrid1_Error(ByVal DataError As Integer, Response As Integer)
Response = 0                  '隐藏系统提示的错误
End Sub

Private Sub DEL_Click()
frm_CZRK_BJTJ.Caption = "人口信息删除"
frm_CZRK_BJTJ.Option1.Visible = True
frm_CZRK_BJTJ.Option2.Visible = True
frm_CZRK_BJTJ.Label3.Visible = False
frm_CZRK_BJTJ.Cmd_del_grxx.Visible = True
frm_CZRK_BJTJ.Cmd_del_jtxx.Visible = True
frm_CZRK_BJTJ.Cmd_edit.Visible = False
frm_CZRK_BJTJ.Cmd_edit1.Visible = False
frm_CZRK_BJTJ.Show
End Sub

Private Sub DYJSZ_Click()
CommonDialog1.ShowPrinter
End Sub

Private Sub DYYL_Click()
DataEnvironment2.rsczrk_jbqk.Open "select * from Table_HKB "
 If DataEnvironment2.rsczrk_jbqk.RecordCount > 0 Then
DataRep_czrk_jbqk.Show
 Else
   MsgBox "当前数据库中没有常住人口的基本信息", 32, "人口信息管理系统"
 DataEnvironment2.rsczrk_jbqk.Close
 End If
End Sub

Private Sub EXIT_Click()
Unload Me
End Sub

Private Sub Form_Activate()
StatusBar1.Panels(4).Text = Format(Now, "yyyy年mm月dd日")
StatusBar1.Panels.Item(3).Text = "当前操作员： " + frm_main.Text1.Text
If frm_main.Check16.Value = 0 Then
CZYSZ.Enabled = False
MAXG.Enabled = False
GHCZY.Enabled = False
ElseIf frm_main.Check16.Value = 1 Then
CZYSZ.Enabled = True
MAXG.Enabled = True
GHCZY.Enabled = True
End If
End Sub

Private Sub Form_Load()
MS1.Visible = True
DataGrid1.Visible = False
Text1.Text = Format(Now, "yyyy")                     '格式化日期
Text2.Text = Format(Now, "yyyy")
Text1.Text = Text1.Text + "-01-01"
Text2.Text = Text2.Text + "-12-31"
DTPicker1.Value = Text1.Text
DTPicker2.Value = Text2.Text
Dim i, j, n As Integer
Dim s, y
MS1.ColWidth(0) = 100
i = 1
j = 1
MS1.Row = 1
MS1.Cols = 55
Adodc1.RecordSource = "select * from Table_HKB"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Do While Adodc1.Recordset.EOF = False                  '将记录显示到MS1控件中
MS1.TextMatrix(MS1.Row, 0) = ""
MS1.TextMatrix(MS1.Row, 1) = Adodc1.Recordset.Fields("户口簿号")
MS1.TextMatrix(MS1.Row, 2) = Adodc1.Recordset.Fields("户口类型")
MS1.TextMatrix(MS1.Row, 3) = Adodc1.Recordset.Fields("楼号")
MS1.TextMatrix(MS1.Row, 4) = Adodc1.Recordset.Fields("户号")
MS1.TextMatrix(MS1.Row, 5) = Adodc1.Recordset.Fields("户主姓名")
MS1.TextMatrix(MS1.Row, 6) = Adodc1.Recordset.Fields("联系电话1")
MS1.TextMatrix(MS1.Row, 7) = Adodc1.Recordset.Fields("家庭地址")
MS1.TextMatrix(MS1.Row, 8) = Adodc1.Recordset.Fields("总人数")
MS1.TextMatrix(MS1.Row, 9) = Adodc1.Recordset.Fields("男子数")
MS1.TextMatrix(MS1.Row, 10) = Adodc1.Recordset.Fields("女子数")
MS1.TextMatrix(MS1.Row, 11) = Adodc1.Recordset.Fields("月总收入")
MS1.TextMatrix(MS1.Row, 12) = Adodc1.Recordset.Fields("经济状况")
MS1.TextMatrix(MS1.Row, 13) = Adodc1.Recordset.Fields("住所类型")
MS1.TextMatrix(MS1.Row, 14) = Adodc1.Recordset.Fields("家庭备注")
MS1.TextMatrix(MS1.Row, 15) = Adodc1.Recordset.Fields("人口编号")
MS1.TextMatrix(MS1.Row, 16) = Adodc1.Recordset.Fields("姓名")
MS1.TextMatrix(MS1.Row, 17) = Adodc1.Recordset.Fields("曾用名")
MS1.TextMatrix(MS1.Row, 18) = Adodc1.Recordset.Fields("与户主关系")
MS1.TextMatrix(MS1.Row, 19) = Adodc1.Recordset.Fields("身份证号")
MS1.TextMatrix(MS1.Row, 20) = Adodc1.Recordset.Fields("出生日期")
MS1.TextMatrix(MS1.Row, 21) = Adodc1.Recordset.Fields("年龄")
MS1.TextMatrix(MS1.Row, 22) = Adodc1.Recordset.Fields("出生地")
MS1.TextMatrix(MS1.Row, 23) = Adodc1.Recordset.Fields("性别")
MS1.TextMatrix(MS1.Row, 24) = Adodc1.Recordset.Fields("身高")
MS1.TextMatrix(MS1.Row, 25) = Adodc1.Recordset.Fields("血型")
MS1.TextMatrix(MS1.Row, 26) = Adodc1.Recordset.Fields("健康状况")
MS1.TextMatrix(MS1.Row, 27) = Adodc1.Recordset.Fields("民族")
MS1.TextMatrix(MS1.Row, 28) = Adodc1.Recordset.Fields("籍贯")
MS1.TextMatrix(MS1.Row, 29) = Adodc1.Recordset.Fields("联系电话2")
MS1.TextMatrix(MS1.Row, 30) = Adodc1.Recordset.Fields("其他住址")
MS1.TextMatrix(MS1.Row, 31) = Adodc1.Recordset.Fields("文化程度")
MS1.TextMatrix(MS1.Row, 32) = Adodc1.Recordset.Fields("婚姻状况")
MS1.TextMatrix(MS1.Row, 33) = Adodc1.Recordset.Fields("兵役状况")
MS1.TextMatrix(MS1.Row, 34) = Adodc1.Recordset.Fields("宗教信仰")
MS1.TextMatrix(MS1.Row, 35) = Adodc1.Recordset.Fields("政治面貌")
MS1.TextMatrix(MS1.Row, 36) = Adodc1.Recordset.Fields("职业")
MS1.TextMatrix(MS1.Row, 37) = Adodc1.Recordset.Fields("服务处所")
MS1.TextMatrix(MS1.Row, 38) = Adodc1.Recordset.Fields("备注")
MS1.TextMatrix(MS1.Row, 39) = Adodc1.Recordset.Fields("迁入日期")
MS1.TextMatrix(MS1.Row, 40) = Adodc1.Recordset.Fields("原地址")
MS1.TextMatrix(MS1.Row, 41) = Adodc1.Recordset.Fields("迁入类别")
MS1.TextMatrix(MS1.Row, 42) = Adodc1.Recordset.Fields("迁入原因")
MS1.TextMatrix(MS1.Row, 43) = Adodc1.Recordset.Fields("迁出日期")
MS1.TextMatrix(MS1.Row, 44) = Adodc1.Recordset.Fields("迁出地址")
MS1.TextMatrix(MS1.Row, 45) = Adodc1.Recordset.Fields("迁出类型")
MS1.TextMatrix(MS1.Row, 46) = Adodc1.Recordset.Fields("迁出原因")
MS1.TextMatrix(MS1.Row, 47) = Adodc1.Recordset.Fields("登记时间")
MS1.TextMatrix(MS1.Row, 48) = Adodc1.Recordset.Fields("户籍状况")
MS1.TextMatrix(MS1.Row, 49) = Adodc1.Recordset.Fields("已亡故")
MS1.TextMatrix(MS1.Row, 50) = Adodc1.Recordset.Fields("死亡日期")
MS1.TextMatrix(MS1.Row, 51) = Adodc1.Recordset.Fields("死亡原因")
MS1.TextMatrix(MS1.Row, 52) = Adodc1.Recordset.Fields("户口已注销")
MS1.TextMatrix(MS1.Row, 53) = Adodc1.Recordset.Fields("注销日期")
MS1.TextMatrix(MS1.Row, 54) = Adodc1.Recordset.Fields("注销原因")
    If Adodc1.Recordset.Fields("已亡故") = 1 And Adodc1.Recordset.Fields("户口已注销") = 1 Then
    MS1.Col = 1
       Do While MS1.Col < 54
       MS1.CellBackColor = RGB(220, 0, 255)              '使注销并且亡故的人口信息变色
       MS1.Col = MS1.Col + 1
       Loop
       MS1.CellBackColor = RGB(220, 0, 255)
    ElseIf Adodc1.Recordset.Fields("户口已注销") = 1 Then    '使注销的人口信息变色
    MS1.Col = 1
       Do While MS1.Col < 54
       MS1.CellBackColor = RGB(200, 255, 0)
       MS1.Col = MS1.Col + 1
       Loop
       MS1.CellBackColor = RGB(200, 255, 0)
      ElseIf Adodc1.Recordset.Fields("已亡故") = 1 Then      '使已亡故的人口信息变色
      MS1.Col = 1
       Do While MS1.Col < 54
       MS1.CellBackColor = RGB(255, 200, 230)
       MS1.Col = MS1.Col + 1
       Loop
       MS1.CellBackColor = RGB(255, 200, 230)
    Else
    End If
i = i + 1
MS1.AddItem (i)
MS1.Row = MS1.Row + 1
Adodc1.Recordset.MoveNext
Loop
Else
End If
s = Array("1200", "1200", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "2000", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "1500", "2000")
y = Array("", "户口簿号", "户口类别", "楼号", "户号", "户主姓名", "联系电话（家庭）", "家庭住址", "总人数", "男子数", "女子数", "月总收入", "经济状况", "住所类型", "家庭备注", "人口编号", "姓名", "曾用名", "与户主关系", "身份证号", "出生日期", "年龄", "出生地", "性别", "身高", "血型", "健康状况", "民族", "籍贯", "联系电话", "其他住址", "文化程度", "婚姻状况", "兵役状况", "宗教信仰", "政治面貌", "职业", "服务处所", "备注", "迁入日期", "原地址", "迁入类别", "迁入原因", "迁出日期", "迁出到", "迁出类别", "迁出原因", "登记日期", "户籍状况", "已亡故", "死亡日期", "死亡原因", "户口已注销", "注销日期", "注销原因", "注销原因")
For n = 1 To 54
MS1.ColWidth(n) = s(n)
MS1.TextMatrix(0, n) = y(n)
Next n
End Sub
Private Sub FWWZ_Click()        '连接所要访问的网站
Dim HyperJump
Dim w
w = "www.mingrisoft.com"
HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
End Sub
Private Sub GHCZY_Click()
frm_XTDL.Show
End Sub
Private Sub JBQK_Click()
DataEnvironment2.rsczrk_jbqk.Open "select * from Table_HKB "
 If DataEnvironment2.rsczrk_jbqk.RecordCount > 0 Then
DataRep_czrk_jbqk.Show
' DataEnvironment2.rsczrk_jbqk.Close
 Else
   MsgBox "当前数据库中没有常住人口的基本信息", 32, "人口信息管理系统"
 DataEnvironment2.rsczrk_jbqk.Close
 End If
End Sub

'Private Sub Label1_Click()
'Dim HyperJump
'Dim w
'w = Label1.Caption
'HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
'
'End Sub
Private Sub List1_Click()
MS1.Visible = False
DataGrid1.Visible = True
If List1.ListIndex = 1 Then
Adodc1.RecordSource = "select * from Table_HKB"
Adodc1.Refresh
ElseIf List1.ListIndex = 2 Then
Adodc1.RecordSource = "select * from Table_HKB where 户口类型='未落常住人口'"
Adodc1.Refresh
ElseIf List1.ListIndex = 3 Then
Adodc1.RecordSource = "select * from Table_HKB where 户口类型='非农业户口'"
Adodc1.Refresh
ElseIf List1.ListIndex = 4 Then
Adodc1.RecordSource = "select * from Table_HKB where 户口类型='农业户口'"
Adodc1.Refresh
ElseIf List1.ListIndex = 5 Then
Adodc1.RecordSource = "select * from Table_HKB where 户口类型='寄住户口'"
Adodc1.Refresh
ElseIf List1.ListIndex = 6 Then
Adodc1.RecordSource = "select * from Table_HKB where 户口类型='暂住户口'"
Adodc1.Refresh
ElseIf List1.ListIndex = 7 Then
Adodc1.RecordSource = "select * from Table_HKB where 户口类型='蓝印户口'"
Adodc1.Refresh
ElseIf List1.ListIndex = 8 Then
Adodc1.RecordSource = "select * from Table_HKB where 户口类型='其他户口'"
Adodc1.Refresh
Else
End If
End Sub
Private Sub List2_Click()
MS1.Visible = False
DataGrid1.Visible = True
If List2.ListIndex = 1 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄< 1"
Adodc1.Refresh
ElseIf List2.ListIndex = 2 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=1 and 年龄<10"
Adodc1.Refresh
ElseIf List2.ListIndex = 3 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=10 and 年龄<20"
Adodc1.Refresh
ElseIf List2.ListIndex = 4 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=20 and 年龄<30"
Adodc1.Refresh
ElseIf List2.ListIndex = 5 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=30 and 年龄<40"
Adodc1.Refresh
ElseIf List2.ListIndex = 6 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=40 and 年龄<50"
Adodc1.Refresh
ElseIf List2.ListIndex = 7 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=50 and 年龄<60"
Adodc1.Refresh
ElseIf List2.ListIndex = 8 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=60 and 年龄<70"
Adodc1.Refresh
ElseIf List2.ListIndex = 9 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=70 and 年龄<80"
Adodc1.Refresh
ElseIf List2.ListIndex = 10 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=80 and 年龄<90"
Adodc1.Refresh
ElseIf List2.ListIndex = 11 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>=90 and 年龄<100"
Adodc1.Refresh
ElseIf List2.ListIndex = 12 Then
Adodc1.RecordSource = "select * from Table_HKB where 年龄>100"
Adodc1.Refresh
Else
End If
End Sub
Private Sub List3_Click()
MS1.Visible = False
DataGrid1.Visible = True
If List3.ListIndex = 1 Then
Adodc1.RecordSource = "select * from Table_HKB "
Adodc1.Refresh
ElseIf List3.ListIndex = 2 Then
Adodc1.RecordSource = "select * from Table_HKB where 婚姻状况='未婚'"
Adodc1.Refresh
ElseIf List3.ListIndex = 3 Then
Adodc1.RecordSource = "select * from Table_HKB where 婚姻状况='已婚'"
Adodc1.Refresh
ElseIf List3.ListIndex = 4 Then
Adodc1.RecordSource = "select * from Table_HKB where 婚姻状况='离婚'"
Adodc1.Refresh
ElseIf List3.ListIndex = 5 Then
Adodc1.RecordSource = "select * from Table_HKB where 婚姻状况='丧偶'"
Adodc1.Refresh
ElseIf List3.ListIndex = 6 Then
Adodc1.RecordSource = "select * from Table_HKB where 婚姻状况='其他'"
Adodc1.Refresh
Else
End If
End Sub
Private Sub MAXG_Click()
frm_xgmm.Show
End Sub
Private Sub QCRY_Click()              '打印信息代码
DataEnvironment2.rsczrk_bnqc.Open "select * from Table_HKB where 迁出日期 between '" + Str(DTPicker1) + "' and '" + Str(DTPicker2) + "'"
 If DataEnvironment2.rsczrk_bnqc.RecordCount > 0 Then
DataRep_bnqc.Show
' DataEnvironment2.rsczrk_bnqc.Close
 Else
   MsgBox "本年度没有迁出人员", 32, "社区人口信息管理系统"
 DataEnvironment2.rsczrk_bnqc.Close
 End If
End Sub
Private Sub QRRY_Click()
DataEnvironment2.rsczrk_bnqr.Open "select * from Table_HKB where 迁入日期 between '" + Str(DTPicker1) + "' and '" + Str(DTPicker2) + "'"
 If DataEnvironment2.rsczrk_bnqr.RecordCount > 0 Then
DataRep_bnqr.Show
' DataEnvironment2.rsczrk_bnqr.Close
 Else
   MsgBox "本年度没有迁入人员", 32, "人口信息管理系统"
 D