?? frm_zzrk_zb.frm
字號:
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:" + "mrsoft@163.com"
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -