frmclassinfo.frm

学生信息管理系统用vb做的 学生信息管理系统用vb做的

   cmdSave.Enabled = True
   cmdAdd.Caption = "添加(&A)"
   txtClassNo.Enabled = False
   cboGradeno.Enabled = True
   cboUserid.Enabled = True
End If
End Sub

Private Sub cmdAdd_Click()
If cmdAdd.Caption = "添加(&A)" Then
   cmdAdd.Caption = "取消(&C)"
   cmdSave.Caption = "保存(&S)"
   txtClassNo.Text = ""
   cboGradeno.Text = ""
   cboUserid.Text = ""
   cmdSave.Enabled = True
   cmdDel.Enabled = False
   txtClassNo.Enabled = True
   cboGradeno.Enabled = True
   cboUserid.Enabled = True
   txtClassNo.SetFocus
ElseIf cmdAdd.Caption = "取消(&C)" Then
   cmdAdd.Caption = "添加(&A)"
   txtClassNo.Text = ""
   cboGradeno.Text = ""
   cboUserid.Text = ""
   cmdSave.Enabled = False
   cmdDel.Enabled = False
   txtClassNo.Enabled = False
   cboGradeno.Enabled = False
   cboUserid.Enabled = False
End If
End Sub

Private Sub cmdDel_Click()
If txtClassNo.Text = "" Then
   MsgBox "请选择要删除的记录！", vbOKOnly + vbInformation, "删除记录"
   Exit Sub
End If
If MsgBox("确定要删除班号为 " & txtClassNo.Text & " 的记录吗？", vbOKCancel + vbQuestion, "删除记录") = vbOK Then
   myModiClass.rsDK1 "select * from class_info where class_No='" & txtClassNo.Text & "'"
   myModiClass.rs1.Delete
   cmdDel.Enabled = False
   cmdSave.Enabled = False
   txtClassNo.Text = ""
   cboGradeno.Text = ""
   cboUserid.Text = ""
   ClassGrid.Clear
   ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
   myModiClass.rsDK1 "select * from class_info"
   If Not myModiClass.rs1.EOF Then
        Set ClassGrid.DataSource = myModiClass.rs1
        ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
   End If
End If
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Cmdfind_Click()
cmdReturn.Enabled = True
myModiClass.rsDK1 "select * from class_info where class_No='" & txtFind.Text & "'"

If Not myModiClass.rs1.EOF Then
    Set ClassGrid.DataSource = myModiClass.rs1
    ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
    txtClassNo.Text = myModiClass.rs1!Class_no
    cboGradeno.Text = myModiClass.rs1!grade_no
    cboUserid.Text = myModiClass.rs1!user_id
    txtClassNo.Enabled = False
    cboGradeno.Enabled = True
    cboUserid.Enabled = True
    cmdSave.Caption = "更新(&U)"
    cmdAdd.Caption = "添加(&A)"
    cmdSave.Enabled = True
    cmdDel.Enabled = True
Else
    ClassGrid.Clear
    ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
    txtFind.Text = ""
    MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation, "提示"
End If
End Sub

Private Sub cmdReturn_Click()
myModiClass.rsDK1 "select * from class_info"
If Not myModiClass.rs1.EOF Then
    Set ClassGrid.DataSource = myModiClass.rs1
    ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
End If
End Sub

Private Sub Cmdsave_Click()
If cmdSave.Caption = "保存(&S)" Then
    If txtClassNo.Text = "" Then
       MsgBox "请输入班号！", vbOKOnly + vbInformation, "班级信息添加"
       txtClassNo.SetFocus
       Exit Sub
    End If
    If cboGradeno.Text = "" Then
       MsgBox "请输入年级编号！", vbOKOnly + vbInformation, "班级信息添加"
       cboGradeno.SetFocus
       Exit Sub
    End If
    If cboUserid.Text = "" Then
       MsgBox "请输入或选择班主任编号！", vbOKOnly + vbInformation, "班级信息添加"
       cboUserid.SetFocus
       Exit Sub
    End If
    
    If RightClass_No() = True Then
       MsgBox "您输入的班号已存在！", vbOKOnly + vbInformation, "班级信息添加"
       txtClassNo.Text = ""
       txtClassNo.SetFocus
       Exit Sub
    End If
    
    If RightGrade_No() = False Then
       MsgBox "输入的年级编号不存在,请重新输入!", vbOKOnly + vbInformation, "班级信息添加"
       cboGradeno.Text = ""
       cboGradeno.SetFocus
       Exit Sub
    End If
    
    If RightUser_id() = False Then
       MsgBox "输入的班主任编号不存在,请重新输入!", vbOKOnly + vbInformation, "班级信息添加"
       cboUserid.Text = ""
       cboUserid.SetFocus
       Exit Sub
    End If
    
    myModiClass.rsDK1 "select * from class_info"
    myModiClass.rs1.AddNew
    myModiClass.rs1!Class_no = Trim(txtClassNo.Text)
    myModiClass.rs1!grade_no = Trim(cboGradeno.Text)
    myModiClass.rs1!user_id = Trim(cboUserid.Text)
    myModiClass.rs1.Update
        Set ClassGrid.DataSource = myModiClass.rs1
        ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
    MsgBox "班级信息已成功添加！", vbOKOnly + vbInformation, "班级信息添加"
    txtClassNo.Enabled = False
    cboGradeno.Enabled = False
    cboUserid.Enabled = False
    cmdSave.Caption = "保存(&S)"
    cmdAdd.Caption = "添加(&A)"
    cmdSave.Enabled = False
    cmdDel.Enabled = False
    
    Exit Sub
End If
'*****更新*****
If cmdSave.Caption = "更新(&U)" Then
   If cboGradeno.Text = "" Then
      MsgBox "年级编号不能为空，请输入年级编号！", vbOKOnly + vbInformation, "班级信息添加"
      cboGradeno.SetFocus
      Exit Sub
   End If
   If cboUserid.Text = "" Then
      MsgBox "班主任编号不能为空，请输入年级编号！", vbOKOnly + vbInformation, "班级信息添加"
      cboUserid.SetFocus
      Exit Sub
   End If
   
       If RightGrade_No() = False Then
       MsgBox "输入的年级编号不存在,请重新输入!", vbOKOnly + vbInformation, "班级信息添加"
       cboGradeno.Text = ""
       cboGradeno.SetFocus
       Exit Sub
    End If
    
    If RightUser_id() = False Then
       MsgBox "输入的班主任编号不存在,请重新输入!", vbOKOnly + vbInformation, "班级信息添加"
       cboUserid.Text = ""
       cboUserid.SetFocus
       Exit Sub
    End If
   
    myModiClass.rsDK1 "select * from class_info where Class_No='" & txtClassNo.Text & "'"
    myModiClass.rs1!grade_no = Trim(cboGradeno.Text)
    myModiClass.rs1!user_id = Trim(cboUserid.Text)
    myModiClass.rs1.Update
    Set ClassGrid.DataSource = myModiClass.rs1
    ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
    MsgBox "班级信息已成功更新！", vbOKOnly + vbInformation, "班级信息添加"
    txtClassNo.Enabled = False
    cboGradeno.Enabled = False
    cboUserid.Enabled = False
    cmdSave.Caption = "保存(&S)"
    cmdAdd.Caption = "添加(&A)"
    cmdSave.Enabled = False
    cmdDel.Enabled = False
End If
End Sub

Private Sub Form_Load()
Set myModiClass = New OpenRs
'添加年级编号
myModiClass.rsDK1 "select * from schoolgrade_info"
While Not myModiClass.rs1.EOF
   cboGradeno.AddItem myModiClass.rs1!grade_no
   myModiClass.rs1.MoveNext
Wend
'添加班主任编号
myModiClass.rsDK1 "select * from user_info"
While Not myModiClass.rs1.EOF
   cboUserid.AddItem myModiClass.rs1!user_id
   myModiClass.rs1.MoveNext
Wend

ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
myModiClass.rsDK1 "select * from class_info"
If Not myModiClass.rs1.EOF Then
    Set ClassGrid.DataSource = myModiClass.rs1
    ClassGrid.FormatString = " | 班号 |年级编号  |班主任编号 "
End If
cmdSave.Enabled = False
cmdDel.Enabled = False
End Sub

Private Sub txtClassNo_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
   cboGradeno.SetFocus
ElseIf KeyAscii = 39 Then
   KeyAscii = 0
End If
End Sub

Private Sub cboGradeno_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   cboUserid.SetFocus
ElseIf KeyAscii = 39 Then
   KeyAscii = 0
End If
End Sub

Private Sub txtFind_Change()
txtClassNo.Text = ""
cboGradeno.Text = ""
cboUserid.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)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If Not ((Chr(KeyAscii) <= "Z" And Chr(KeyAscii) >= "A") Or (Chr(KeyAscii) <= "9" And Chr(KeyAscii) >= "0") Or KeyAscii = 8) Then
    KeyAscii = 0
End If
End Sub

Private Function RightGrade_No() As Boolean
myModiClass.rsDK1 "select * from schoolgrade_info where grade_no='" & cboGradeno.Text & "'"
If myModiClass.rs1.EOF Then
   RightGrade_No = False
Else
   RightGrade_No = True
End If
End Function

Private Function RightClass_No() As Boolean
myModiClass.rsDK1 "select * from class_info where class_no='" & txtClassNo.Text & "'"
If myModiClass.rs1.EOF Then
   RightClass_No = False
Else
   RightClass_No = True
End If
End Function

Private Function RightUser_id() As Boolean
myModiClass.rsDK1 "select * from user_info where user_id='" & cboUserid.Text & "'"
If myModiClass.rs1.EOF Then
   RightUser_id = False
Else
   RightUser_id = True
End If
End Function