frm_sqjz_zb.frm

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

Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(4).Enabled = False
Toolbar1.Buttons(5).Enabled = False
Toolbar1.Buttons(6).Enabled = False
End Sub
Public Sub ky()
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
Toolbar1.Buttons(3).Enabled = True
Toolbar1.Buttons(4).Enabled = True
Toolbar1.Buttons(5).Enabled = True
Toolbar1.Buttons(6).Enabled = True
End Sub

Private Sub about_RKXXGLXX_Click()
frmAbout.Show
End Sub

Private Sub ADD_Click()
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
End Sub

Private Sub Combo1_Change()
Call Combo1_Click
End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
   Adodc1.RecordSource = "select * from Table_SQJZ_DBRY"
   Adodc1.Refresh
   Label1.Caption = "低保人员"
Case 1
   Adodc1.RecordSource = "select * from Table_SQJZ_SYRY"
   Adodc1.Refresh
   Label1.Caption = "失业人员"
Case 2
   Adodc1.RecordSource = "select * from Table_SQJZ_YFRY"
   Adodc1.Refresh
   Label1.Caption = "优抚人员"
Case 3
   Adodc1.RecordSource = "select * from Table_SQJZ_LLRY"
   Adodc1.Refresh
   Label1.Caption = "两劳人员"
Case 4
   Adodc1.RecordSource = "select * from Table_SQJZ_GZDX"
   Adodc1.Refresh
   Label1.Caption = "工作对象"
Case 5
   Adodc1.RecordSource = "select * from Table_SQJZ_OLD"
   Adodc1.Refresh
   Label1.Caption = "老年人"
Case 6
   Adodc1.RecordSource = "select * from Table_SQJZ_CJRB"
   Adodc1.Refresh
   Label1.Caption = "残疾人"
End Select
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
If Label1.Caption = "低保人员" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_DBRY"
'   Adodc1.Refresh
   If Adodc1.Recordset.RecordCount > 0 Then
   i = MsgBox("您确认要删除该员工的信息吗?", 17, "人口信息管理系统")
   If i = vbOK Then
   Adodc1.Recordset.Delete
   Else
   End If
   Else
   MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
   End If
ElseIf Label1.Caption = "失业人员" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_SYRY"
'   Adodc2.Refresh
   If Adodc1.Recordset.RecordCount > 0 Then
   i = MsgBox("您确认要删除该员工的信息吗?", 17, "人口信息管理系统")
   If i = vbOK Then
   Adodc1.Recordset.Delete
   Else
   End If
   Else
   MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
   End If
ElseIf Label1.Caption = "优抚人员" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_YFRY "
'   Adodc3.Refresh
   If Adodc1.Recordset.RecordCount > 0 Then
   i = MsgBox("您确认要删除该员工的信息吗?", 17, "人口信息管理系统")
   If i = vbOK Then
   Adodc3.Recordset.Delete
   Else
   End If
   Else
   MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
   End If
ElseIf Label1.Caption = "两劳人员" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_LLRY"
'   Adodc4.Refresh
   If Adodc1.Recordset.RecordCount > 0 Then
   i = MsgBox("您确认要删除该员工的信息吗?", 17, "人口信息管理系统")
   If i = vbOK Then
   Adodc1.Recordset.Delete
   Else
   End If
   Else
   MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
   End If
ElseIf Label1.Caption = "工作对象" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_GZDX"
'   Adodc5.Refresh
   If Adodc1.Recordset.RecordCount > 0 Then
   i = MsgBox("您确认要删除该员工的信息吗?", 17, "人口信息管理系统")
   If i = vbOK Then
   Adodc1.Recordset.Delete
   Else
   End If
   Else
   MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
   End If
ElseIf Label1.Caption = "老年人" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_OLD"
'   Adodc6.Refresh
   If Adodc1.Recordset.RecordCount > 0 Then
   i = MsgBox("您确认要删除该员工的信息吗?", 17, "人口信息管理系统")
   If i = vbOK Then
   Adodc6.Recordset.Delete
   Else
   End If
   Else
   MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
   End If
ElseIf Label1.Caption = "残疾人" Then
   Adodc1.RecordSource = "select * from Table_SQJZ_CJRY"
'   Adodc7.Refresh
   If Adodc1.Recordset.RecordCount > 0 Then
   i = MsgBox("您确认要删除该员工的信息吗?", 17, "人口信息管理系统")
   If i = vbOK Then
   Adodc1.Recordset.Delete
   Else
   End If
   Else
   MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
   End If
Else
End If
End Sub

Private Sub DYJSZ_Click()
CommonDialog1.ShowPrinter
End Sub

Private Sub DYYL_Click()
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
End Sub

Private Sub EDIT_Click()
frm_SQJZ_XG.Show
End Sub

Private Sub EXIT_Click()
Unload Me
End Sub

Private Sub Form_Activate()
If frm_main.Check16.Value = 0 Then
CZYSZ.Enabled = False
MMXG.Enabled = False
GHCZY.Enabled = False
ElseIf frm_main.Check16.Value = 1 Then
CZYSZ.Enabled = True
MMXG.Enabled = True
GHCZY.Enabled = True
End If
End Sub

Private Sub Form_Load()
frm_SQJZ_ZB.Left = 10
frm_SQJZ_ZB.Top = 200
Combo1.ListIndex = 0
'Me.Left = (Screen.Width - Me.Width) / 2
'Me.Top = (Screen.Height - Me.Height) / 2
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 MMXG_Click()
frm_xgmm.Show
End Sub

Private Sub print_Click()
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
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