現代企業人才管理系統分析-資料下載頁

　　

【正文】 Wend End With MsgBox 數據回收站已經被清空！！ + Space(5), vbOKOnly + 48, 回收站操作信息！ adAffectAll Set_Move_Button False Set_Back_Button FalseCase 2 Toolbar(1).Buttons(6).Value = tbrUnpressed On Error Resume Next With Judge_Table .Delete .MoveNext If .EOF Then .MoveLast End If End With MsgBox 數據回收站當前記錄已經被刪除！！ + Space(5), vbOKOnly + 48, 回收站操作信息！ adAffectCurrent If = 0 Then Set_Move_Button False Set_Back_Button False End If Case 3 Toolbar(1).Buttons(7).Value = tbrUnpressed On Error Resume Next For i = 0 To 1 SData(i) = (i).Value Next i With Judge_Table .Delete .MoveNext If .EOF Then .MoveLast End If End With adAffectAll For i = 0 To 1 (i).Value = SData(i) Next i adAffectAll MsgBox 數據回收站當前記錄已經被還原！！ + Space(5), vbOKOnly + 48, 回收站操作信息！ If = 0 Then Set_Move_Button False Set_Back_Button False End IfEnd SelectCycle_Set = 0Set_StatusbarEnd SubPrivate Sub First_Recorder()Set_StatusbarEnd SubPrivate Sub Previous_Recorder()With Judge_Table.MovePreviousIf .BOF Then.MoveFirstEnd IfEnd WithSet_StatusbarEnd SubPrivate Sub Next_Recorder()With Judge_Table.MoveNextIf .EOF Then .MoveLastEnd IfEnd WithSet_StatusbarEnd SubPrivate Sub Last_Recorder()With Judge_Table.MoveLastEnd WithSet_StatusbarEnd SubPrivate Sub Cancle_Recorder()Dim i As IntegerSet_Enable Judge_Form, FalseSet_Save_Button FalseSet_Query_Button TrueSet_Report_Button True = TrueToolbar(0).Buttons(15).Enabled = TrueSelect Case Reco_CancelCase 1On Error Resume Next With Judge_Table .Delete .MoveNext If Not .BOF And .EOF Then .MoveLast Set_Move_Button True Set_Main_Button True If .BOF Then Set_Main_Button False Set_Move_Button False Toolbar(1).Buttons(1).Enabled = True End If End If End WithCase 2For i = 0 To 1 (i).Value = SData(i)Next iOn Error Resume Next adAffectAll = BMarkSet_Move_Button TrueSet_Main_Button TrueCase 3On Error Resume NextFor i = 0 To 1 (i).Value = SData(i)Next i adAffectAllSet_Move_Button TrueSet_Main_Button TrueEnd SelectEnd SubPrivate Sub Save_Recorder()Dim i As IntegerIf Reco_Cancel = 3 Then On Error Resume Next For i = 0 To 1 (i).Value = SData(i) Next i adAffectAllEnd IfOn Error Resume NextIf ThenEnd IfIf ThenEnd IfSet_Enable Judge_Form, FalseSet_Save_Button False = TrueToolbar(0).Buttons(15).Enabled = TrueIf = 0 Then Toolbar(1).Buttons(1).Enabled = True Set_Query_Button False Set_Report_Button FalseElse Set_Query_Button True Set_Report_Button True Set_Move_Button True Set_Main_Button TrueEnd IfSet_StatusbarEnd SubPrivate Sub Present_Search()Search_TableEnd SubPrivate Sub Other_Search()Dim sSQLString, sSQLString1, sSQLString2 As StringDim sDELString As StringSet Judge_Back = Judge_TablesSQLString = vbNullStringSelect Case Select_TableCase 1 If TableSelect = True Then sDELString = delete * from 招聘打印表 sSQLString1 = insert into 招聘打印表 select * from 招聘 where (性別 = 39。不限39。 End If sSQLString2 = select * from 招聘 where (性別 = 39。不限39。 If Len(Trim((性別).Value)) 0 Then sSQLString = sSQLString + or 性別 = 39。 + Trim((性別).Value) + 39。) End If If Len(Trim((擬從事工作（1）).Value)) 0 Then sSQLString = sSQLString + and (專業 = 39。不限39。 or 專業 = 39。 + Trim((擬從事工作（1）).Value) + 39。 If Len(Trim((擬從事工作（2）).Value)) 0 Then sSQLString = sSQLString + or 專業 = 39。 + Trim((擬從事工作（2）).Value) + 39。) Else sSQLString = sSQLString + ) End If Else If Len(Trim((擬從事工作（2）).Value)) 0 Then sSQLString = sSQLString + and (專業 = 39。不限39。 or 專業 = 39。 + Trim((擬從事工作（2）).Value) + 39。) End If End If If Len(Trim((學位學歷（1）).Value)) 0 Then sSQLString = sSQLString + and (學歷 = 39。不限39。 or 學歷 = 39。 + Trim((學位學歷（1）).Value) + 39。 If Len(Trim((學位學歷（2）).Value)) 0 Then sSQLString = sSQLString + or 學歷 = 39。 + Trim((學位學歷（2）).Value) + 39。 If Len(Trim((學位學歷（3）).Value)) 0 Then sSQLString = sSQLString + or 學歷 = 39。 + Trim((學位學歷（3）).Value) + 39。) Else sSQLString = sSQLString + ) End If Else If Len(Trim((學位學歷（3）).Value)) 0 Then sSQLString = sSQLString + or 學歷 = 39。 + Trim((學位學歷（3）).Value) + 39。) Else sSQLString = sSQLString + ) End If End If Else If Len(Trim((學位學歷（2）).Value)) 0 Then sSQLString = sSQLString + and (學歷 = 39。不限39。 or 學歷 = 39。 + Trim((學位學歷（2）).Value) + 39。 If Len(Trim((學位學歷（3）).Value)) 0 Then sSQLString = sSQLString + or 學歷 = 39。 + Trim((學位學歷（3）).Value) + 39。) Else sSQLString = sSQLString + ) End If Else If Len(Trim((學位學歷（3）).Value)) 0 Then sSQLString = sSQLString + and (學歷 = 39。不限39。 or 學歷 = 39。 + Trim((學位學歷（3）).Value) + 39。) End If End IfEnd If Select_Table = 3 Set Judge_Form = engage_windowCase 2 If TableSelect = True Then sDELString = delete * from 招聘打印表 sSQLString1 = insert into 招聘打印表 select * from 招聘 where (單位編號 = 39。 + Trim((單位編號).Value) + 39。) End If sSQLString2 = select * from 招聘 where (單位編號 = 39。 + Trim((單位編號).Value) + 39。) Select_Table = 3 Set Jud