?? frm_sqjz_zb.frm

?? 人口信息管理系統人口信息管理查詢修改刪除
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
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:" + "mrsoft@163.com"
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
?? 文件大小 1544 K
?? 上傳用戶 cq745
?? 所屬分類企業管理
??? 相關標簽

#信息管理系統 #信息管理 #查詢 #修改
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frm_sqjz_zb.frm

?? 快捷鍵說明
