frm_zzrk_zb.frm

基于VB开发的一个连接数据库的人口管理系统 其中包括程序设计报告 使用说明等 源码

      Begin VB.Menu GWMXX 
         Caption         =   "给我们写信"
      End
      Begin VB.Menu about 
         Caption         =   "关于 人口信息管理系统"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出(&E)"
   End
End
Attribute VB_Name = "frm_ZZRK_ZB"
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_ZZRK_EDIT.Show
    Adodc1.RecordSource = "select * from Table_ZZRKB order by 暂住证号"
    Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveLast
        frm_ZZRK_EDIT.Text1.Text = Adodc1.Recordset.Fields("暂住证号")
                    frm_ZZRK_EDIT.Text1.Text = Val(frm_ZZRK_EDIT.Text1.Text) + 1
                    Else
  frm_ZZRK_EDIT.Text1.Text = 100001
 End If
End Sub

Private Sub CS_Click()
DataEnvironment1.rszzrk_bncs.Open "select * from Table_ZZRKB where 出生日期 between '" + Str(DTPicker1) + "' and '" + Str(DTPicker2) + "'"
 If DataEnvironment1.rszzrk_bncs.RecordCount > 0 Then
DataRep_zzrk_bncs.Show
 Else
   MsgBox "本年度没有出生人员", 32, "人口信息管理系统"
 DataEnvironment1.rszzrk_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()
Dim i
Adodc1.RecordSource = "select * from Table_ZZRKB"
'Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
  i = MsgBox("您确认要删除该信息吗?", 17, "人口信息管理系统")
  If i = vbOK Then
  Adodc1.Recordset.Delete
  Else
  End If
Else
MsgBox "数据库中已经没有可以删除的记录", 48, "人口信息管理系统"
End If
End Sub

Private Sub DYJSZ_Click()
    CommonDialog1.ShowPrinter
End Sub

Private Sub DYYL_Click()
DataEnvironment1.rszzrk_jbqk.Open "select * from Table_ZZRKB "
 If DataEnvironment1.rszzrk_jbqk.RecordCount > 0 Then
DataRep_zzrk_jbqk.Show
 Else
   MsgBox "本年度没有出生人员", 32, "人口信息管理系统"
 DataEnvironment1.rszzrk_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()
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
End Sub

Private Sub FWWMDWZ_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 GWMXX_Click()
Dim HyperJump
Dim w
w = "mailto:" + "[e-mail]"
HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub JBQK_Click()
DataEnvironment1.rszzrk_jbqk.Open "select * from Table_ZZRKB "
 If DataEnvironment1.rszzrk_jbqk.RecordCount > 0 Then
DataRep_zzrk_jbqk.Show
 Else
   MsgBox "本年度没有出生人员", 32, "人口信息管理系统"
 DataEnvironment1.rszzrk_jbqk.Close
 End If
End Sub

Private Sub LEARCH_Click()
frm_ZZRK_BJGX.Caption = "暂住人口查询条件"
frm_ZZRK_BJGX.Show
End Sub

Private Sub List1_Click()
If List1.ListIndex = 1 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB"
    Adodc1.Refresh
ElseIf List1.ListIndex = 2 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB where 原户口类型='未落常住人口'"
    Adodc1.Refresh
ElseIf List1.ListIndex = 3 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB where 原户口类型='非农业户口'"
    Adodc1.Refresh
ElseIf List1.ListIndex = 4 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB where 原户口类型='农业户口'"
    Adodc1.Refresh
ElseIf List1.ListIndex = 5 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB where 原户口类型='寄住户口'"
    Adodc1.Refresh
ElseIf List1.ListIndex = 6 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB where 原户口类型='暂住户口'"
    Adodc1.Refresh
ElseIf List1.ListIndex = 7 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB where 原户口类型='蓝印户口'"
    Adodc1.Refresh
ElseIf List1.ListIndex = 8 Then
    Adodc1.RecordSource = "select * from Table_ZZRKB where 原户口类型='其他户口'"
    Adodc1.Refresh
Else
End If
End Sub

Private Sub List2_Click()
If List2.ListIndex = 1 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄< 1"
Adodc1.Refresh
ElseIf List2.ListIndex = 2 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=1 and 年龄<10"
Adodc1.Refresh
ElseIf List2.ListIndex = 3 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=10 and 年龄<20"
Adodc1.Refresh
ElseIf List2.ListIndex = 4 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=20 and 年龄<30"
Adodc1.Refresh
ElseIf List2.ListIndex = 5 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=30 and 年龄<40"
Adodc1.Refresh
ElseIf List2.ListIndex = 6 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=40 and 年龄<50"
Adodc1.Refresh
ElseIf List2.ListIndex = 7 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=50 and 年龄<60"
Adodc1.Refresh
ElseIf List2.ListIndex = 8 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=60 and 年龄<70"
Adodc1.Refresh
ElseIf List2.ListIndex = 9 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=70 and 年龄<80"
Adodc1.Refresh
ElseIf List2.ListIndex = 10 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=80 and 年龄<90"
Adodc1.Refresh
ElseIf List2.ListIndex = 11 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>=90 and 年龄<100"
Adodc1.Refresh
ElseIf List2.ListIndex = 12 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 年龄>100"
Adodc1.Refresh
Else
End If
End Sub

Private Sub List3_Click()
If List3.ListIndex = 1 Then
Adodc1.RecordSource = "select * from Table_ZZRKB "
Adodc1.Refresh
ElseIf List3.ListIndex = 2 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 婚姻状况='未婚'"
Adodc1.Refresh
ElseIf List3.ListIndex = 3 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 婚姻状况='已婚'"
Adodc1.Refresh
ElseIf List3.ListIndex = 4 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 婚姻状况='离婚'"
Adodc1.Refresh
ElseIf List3.ListIndex = 5 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 婚姻状况='丧偶'"
Adodc1.Refresh
ElseIf List3.ListIndex = 6 Then
Adodc1.RecordSource = "select * from Table_ZZRKB where 婚姻状况='其他'"
Adodc1.Refresh
Else
End If
End Sub

Private Sub SW_Click()

End Sub

Private Sub MAXG_Click()
frm_xgmm.Show
End Sub

Private Sub QC_Click()
DataEnvironment1.rszzrk_bnqc.Open "select * from Table_ZZRKB where 注销日期 between '" + Str(DTPicker1) + "' and '" + Str(DTPicker2) + "'"
 If DataEnvironment1.rszzrk_bnqc.RecordCount > 0 Then
DataRep_zzrk_bnqc.Show
 Else
   MsgBox "本年度没有出生人员", 32, "人口信息管理系统"
 DataEnvironment1.rszzrk_bnqc.Close
 End If

End Sub

Private Sub QR_Click()
DataEnvironment1.rszzrk_bnqr.Open "select * from Table_ZZRKB where 来本地日期 between '" + Str(DTPicker1) + "' and '" + Str(DTPicker2) + "'"
 If DataEnvironment1.rszzrk_bnqr.RecordCount > 0 Then
DataRep_zzrk_qrry.Show
 Else
   MsgBox "本年度没有出生人员", 32, "人口信息管理系统"
 DataEnvironment1.rszzrk_bnqr.Close
 End If

End Sub

Private Sub RSTJ_Click()
   Adodc1.RecordSource = "select count(*) 暂住证号 from Table_ZZRKB where 姓名<>''"
   Adodc1.Refresh
   frm_ZZRKTJ.Text1.Text = DataGrid1.Columns.Item(0).Text
   frm_ZZRKTJ.Show
   Adodc1.RecordSource = "select * from Table_ZZRKB "
   Adodc1.Refresh
End Sub

Private Sub SJBF_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 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     '添加暂住人口信息
    frm_ZZRK_EDIT.Show
    Adodc1.RecordSource = "select * from Table_ZZRKB order by 暂住证号"
    Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            Adodc1.Recordset.MoveLast
            frm_ZZRK_EDIT.Text1.Text = Adodc1.Recordset.Fields("暂住证号")
            frm_ZZRK_EDIT.Text1.Text = Val(frm_ZZRK_EDIT.Text1.Text) + 1
        Else
            frm_ZZRK_EDIT.Text1.Text = 100001
        End If

Case 2     '删除暂住人口信息
Dim i
       If Adodc1.Recordset.EOF = False Then
           i = MsgBox("您确认要删除该信息么?", 17, "人口信息管理系统")
              If i = vbOK Then
                  Adodc1.Recordset.Delete
              Else
              End If
       Else
           MsgBox "数据库中已经没有可以删除的记录", 48, "人口信息管理系统"
       End If
Case 3
       frm_ZZRK_BJGX.Caption = "暂住人口编辑条件"
       frm_ZZRK_BJGX.Show
Case 4
       frm_ZZRK_BJGX.Caption = "暂住人口查询条件"
       frm_ZZRK_BJGX.Show
Case 5
       Adodc1.RecordSource = "select * from Table_ZZRKB"
       Adodc1.Refresh
Case 6
       DataEnvironment1.rszzrk_jbqk.Open "select * from Table_ZZRKB "
           If DataEnvironment1.rszzrk_jbqk.RecordCount > 0 Then
                DataRep_zzrk_jbqk.Show
           Else
                MsgBox "本年度没有出生人员", 32, "人口信息管理系统"
                DataEnvironment1.rszzrk_jbqk.Close
           End If
Case 7
       Unload Me
End Select
End Sub

Private Sub XG_Click()
frm_ZZRK_BJGX.Caption = "暂住人口编辑条件"
frm_ZZRK_BJGX.Show
End Sub