frmgradeinfo.frm

员工培训系统

End
Attribute VB_Name = "FrmGradeInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private myAddGrade As OpenRs
Private Sub AddGradeGrid_Click()
myAddGrade.rsDK1 "select * from trainresult_info"
If myAddGrade.rs1.EOF Then
   Exit Sub
End If
txtFind.Text = ""
cmdReturn.Enabled = False

txtproject.Text = AddGradeGrid.TextMatrix(AddGradeGrid.Row, 1)
txteffect.Text = AddGradeGrid.TextMatrix(AddGradeGrid.Row, 2)
cmdDel.Enabled = True
cmdAdd.Caption = "添加(&A)"
cmdSave.Caption = "更新(&U)"
cmdSave.Enabled = True
txteffect.Enabled = True
txteffect.SetFocus
End Sub

Private Sub cmdAdd_Click()
If cmdAdd.Caption = "添加(&A)" Then
   cmdAdd.Caption = "取消(&C)"
   cmdSave.Caption = "保存(&S)"
   cmdSave.Enabled = True
   cmdDel.Enabled = False
   txteffect.Enabled = True
   Call AutoNo
   
   txteffect.Text = ""
  
   txteffect.SetFocus
Else
   cmdAdd.Caption = "添加(&A)"
   txtproject.Text = ""
   txteffect.Text = ""
   cmdSave.Enabled = False
   cmdDel.Enabled = False
   txteffect.Enabled = False
End If
End Sub

Private Sub cmdDel_Click()
On Error Resume Next

If txtproject.Text = "" Then
   MsgBox "请选择要删除的记录！", vbOKOnly + vbInformation, "删除记录"
   Exit Sub
End If
If MsgBox("确认要删除培训项目为 " & txtproject.Text & " 的记录吗？", vbOKCancel + vbQuestion, "删除记录") = vbOK Then
   myAddGrade.rsDK1 "select * from trainresult_info where pro='" & txtproject.Text & "'"
   myAddGrade.rs1.Delete
   myAddGrade.rsDK1 "select * from trainresult_info"
   If myAddGrade.rs1.EOF Then
       AddGradeGrid.Clear
       AddGradeGrid.FormatString = " |   培训项目|培训效果评价        "
   Else
       
       AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
       Set AddGradeGrid.DataSource = myAddGrade.rs1
   End If
   cmdDel.Enabled = False
   cmdSave.Enabled = False
   txtproject.Text = ""
   txteffect.Text = ""
   myAddGrade.rsDK1 "select * from trainresult_info"
   Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
End If
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Cmdfind_Click()
On Error Resume Next
cmdReturn.Enabled = True
myAddGrade.rsDK1 "select * from trainresult_info where pro='" & txtFind.Text & "'"
If myAddGrade.rs1.EOF Then
    AddGradeGrid.Clear
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
    MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation, "提示"
    Call cmdReturn_Click
    txtFind.Text = ""
   
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
Else
   
    txtproject.Text = myAddGrade.rs1!pro
    txteffect.Text = myAddGrade.rs1!effect
    Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
    txteffect.Enabled = True
    cmdAdd.Caption = "添加(&A)"
    cmdDel.Enabled = True
    cmdSave.Caption = "更新(&U)"
    cmdSave.Enabled = True
    myAddGrade.rsDK1 "select * from trainresult_info where pro='" & txtFind.Text & "'"
   Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
End If
End Sub

Private Sub Cmdsave_Click()

On Error Resume Next
If txtproject.Text = "" Then
   MsgBox "请输入培训课程！", vbOKOnly + vbInformation, "信息设置"
   txtproject.SetFocus
   Exit Sub
End If
If txteffect.Text = "" Then
   MsgBox "请输入培训效果评价！", vbOKOnly + vbInformation, "信息设置"
   txteffect.SetFocus
   Exit Sub
End If
   
If cmdSave.Caption = "保存(&S)" Then
    myAddGrade.rsDK1 "select * from trainresult_info where pro='" & txtproject.Text & "'"
    If Not myAddGrade.rs1.EOF Then
        MsgBox "项目已存在,请重新输入！", vbOKOnly + vbInformation, "提示"
        txteffect.Text = ""
        Exit Sub
    End If
    myAddGrade.rsDK1 "select * from trainresult_info"
    With myAddGrade.rs1
        .AddNew
        !pro = Trim(txtproject.Text)
        !effect = Trim(txteffect.Text)
        .Update
    End With
  
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
     Set AddGradeGrid.DataSource = myAddGrade.rs1
    MsgBox "信息已成功添加！", vbOKOnly + vbInformation, "信息设置"
    cmdSave.Caption = "保存(&S)"
    cmdSave.Enabled = False
    cmdDel.Enabled = False
    cmdAdd.Caption = "添加(&A)"
    txteffect.Enabled = False
    myAddGrade.rsDK1 "select * from trainresult_info"
   Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
Else
    myAddGrade.rsDK1 "select * from trainresult_info where pro='" & txtproject.Text & "'"
    myAddGrade.rs1!effect = Trim(txteffect.Text)
    myAddGrade.rs1.Update
   Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
    MsgBox "信息已更新！", vbOKOnly + vbInformation, "信息设置"
    cmdDel.Enabled = False
    cmdSave.Enabled = False
    cmdSave.Caption = "保存(&S)"
    txteffect.Enabled = False
    myAddGrade.rsDK1 "select * from trainresult_info"
   Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
End If

End Sub

Private Sub Form_Load()
On Error Resume Next
Set myAddGrade = New OpenRs
AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "
myAddGrade.rsDK1 "select * from trainresult_info"

    Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "

End Sub

Private Sub txtFind_Change()
On Error Resume Next
txtproject.Text = ""
txteffect.Text = ""
cmdDel.Enabled = False
cmdSave.Enabled = False
If txtFind.Text = "" Then
   cmdFind.Enabled = False
Else
   cmdFind.Enabled = True
End If
End Sub

Private Sub txtFind_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then
   Exit Sub
End If
If Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9" Or LCase(Chr(KeyAscii)) >= "a" And LCase(Chr(KeyAscii)) <= "z" Then
Else
   KeyAscii = 0
End If
End Sub

Private Sub txteffect_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 8 Then
   Exit Sub
End If
If Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9" Or LCase(Chr(KeyAscii)) >= "a" And LCase(Chr(KeyAscii)) <= "z" Then
Else
   KeyAscii = 0
End If
End Sub

Private Sub cmdReturn_Click()
On Error Resume Next
myAddGrade.rsDK1 "select * from trainresult_info"

   Set AddGradeGrid.DataSource = myAddGrade.rs1
    AddGradeGrid.FormatString = " |   培训项目|培训效果评价         "

End Sub

Public Sub AutoNo()


myAddGrade.rsDK2 "select * from trainresult_info"
If myAddGrade.rs2.EOF Then
    txtproject.Text = "project1"
    Exit Sub
Else
   myAddGrade.rs2.MoveLast
   
   
   
    txtproject.Text = "project" & Str(Val(Right(myAddGrade.rs2!pro, 1)) + 1)
    End If
    End Sub