frmshowstuinfor.frm

sql+vb实现招生管理系统

         
   End If
End Sub

Private Sub cmdChange_Click()
   If cmdChange.Caption = "修   改" Then
      '设置相应的按钮不可用
      cmdDel.Enabled = False
      '设置修改按钮为确定按钮
      cmdChange.Caption = "确   定"
      '设置各个textbox控件可写
      For i = 0 To 7
         Text3(i).Enabled = True
      Next i
      For i = 0 To 7
         Text2(i).Enabled = True
      Next i
      For i = 0 To 5
         Text1(i).Enabled = True
      Next i
      For i = 0 To 3
         Text4(i).Enabled = True
      Next i
      For i = 0 To 13
         Text5(i).Enabled = True
      Next i
   ElseIf cmdChange.Caption = "确   定" Then
      '设置修改、删除按钮可用
   cmdChange.Enabled = True
   cmdDel.Enabled = True
   cmdChange.Caption = "修   改"
   '如果单科分数改动，则需要修改总分
   '计算总成绩
   Dim sum As Integer
   sum = 0
   For i = 0 To 4
      sum = sum + Val(Text2(i).Text)
   Next i
   '总分等于各科分数之和
   Text2(5).Text = sum
   rs_Stu.Update
   rs_Grade.Update
   rs_Wish.Update
   rs_Study.Update
   rs_Relation.Update
   '保存了修改结果之后，需要使各个TextBox控件设为不可写
      For i = 0 To 7
         Text3(i).Enabled = False
      Next i
      For i = 0 To 7
         Text2(i).Enabled = False
      Next i
      For i = 0 To 5
         Text1(i).Enabled = False
      Next i
      For i = 0 To 3
         Text4(i).Enabled = False
      Next i
      For i = 0 To 13
         Text5(i).Enabled = False
      Next i
   End If
End Sub

Private Sub cmdDel_Click()
   '当单击删除记录时，需要弹出一个提示框，警告用户
   Dim answer As String
   answer = MsgBox("确定要删除吗？", vbYesNo, "")
   '确实删除
   If answer = vbYes Then
      rs_Stu.Delete  '删除当前记录
      rs_Stu.Update  '更新删除
      rs_Grade.Delete
      rs_Grade.Update
      rs_Wish.Delete
      rs_Wish.Update
      rs_Study.Delete
      rs_Study.Update
      rs_Relation.Delete
      rs_Relation.Update
      MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
      '设置删除按钮不可用
      cmdDel.Enabled = False
   Else
       Exit Sub
   End If
   '删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录
   '先移动rs_Stu记录到后一条
   rs_Stu.MoveNext
   rs_Grade.MoveNext
   rs_Wish.MoveNext
   rs_Study.MoveNext
   rs_Relation.MoveNext
   
   If rs_Stu.EOF Then
     rs_Stu.MoveLast
     rs_Grade.MoveLast
     rs_Wish.MoveLast
     rs_Study.MoveLast
     rs_Relation.MoveLast
   End If
      For i = 0 To 7
         Text3(i).Text = rs_Stu.Fields(i)
      Next i
      For i = 0 To 7
         Text2(i).Text = rs_Grade.Fields(i + 2)
      Next i
      For i = 0 To 5
         Text1(i).Text = rs_Wish.Fields(i + 2)
      Next i
      For i = 0 To 3
         Text4(i).Text = rs_Study.Fields(i + 2)
      Next i
      For i = 0 To 13
         Text5(i).Text = rs_Relation.Fields(i + 2) & ""
      Next i
     
End Sub

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdFirst_Click()
   '先移动rs_Stu记录到第一条
   rs_Stu.MoveFirst
   '同时需要设置相应按钮为不可用和不可用
   cmdForward.Enabled = False
   cmdFirst.Enabled = False
   cmdAfterward.Enabled = True
   cmdLast.Enabled = True
   '如果已经是第一条记录，则提示用户
   If rs_Stu.BOF = True Then
      MsgBox "对不起，已经是第一条记录了！", vbOKOnly + vbInformation, "注意"
      Exit Sub
   '如果不是，则个数据表的记录位置移到第一条记录，并且显示之
   Else
      For i = 0 To 7
         Text3(i).Text = rs_Stu.Fields(i)
      Next i
      '移动其他各表游标到该记录并显示
      rs_Grade.MoveFirst
      For i = 0 To 7
         Text2(i).Text = rs_Grade.Fields(i + 2)
      Next i
      rs_Wish.MoveFirst
      For i = 0 To 5
         Text1(i).Text = rs_Wish.Fields(i + 2)
      Next i
      rs_Study.MoveFirst
      For i = 0 To 3
         Text4(i).Text = rs_Study.Fields(i + 2)
      Next i
      rs_Relation.MoveFirst
      For i = 0 To 13
         Text5(i).Text = rs_Relation.Fields(i + 2) & ""
      Next i
         
   End If
End Sub

Private Sub cmdForward_Click()
   '先移动rs_Stu记录到前一条
   rs_Stu.MovePrevious
   rs_Grade.MovePrevious
   '设置后一条和最后一条按钮可用
   cmdAfterward.Enabled = True
   cmdLast.Enabled = True
   '如果已经是第一条记录，则提示用户
   If rs_Stu.BOF = True Or rs_Grade.BOF = True Then
      MsgBox "对不起，已经是第一条记录了！", vbOKOnly + vbInformation, "注意"
      '并且设置“前一条”和第一条按钮不可用
      cmdForward.Enabled = False
      cmdFirst.Enabled = False
      Exit Sub
   '如果不是，则个数据表的记录位置移到前一条记录，并且显示之
   Else
      For i = 0 To 7
         Text3(i).Text = rs_Stu.Fields(i)
      Next i
      '移动其他各表游标到该记录并显示
'      rs_Grade.MovePrevious
      For i = 0 To 7
         Text2(i).Text = rs_Grade.Fields(i + 2)
      Next i
      rs_Wish.MovePrevious
      For i = 0 To 5
         Text1(i).Text = rs_Wish.Fields(i + 2)
      Next i
      rs_Study.MovePrevious
      For i = 0 To 3
         Text4(i).Text = rs_Study.Fields(i + 2)
      Next i
      rs_Relation.MovePrevious
      For i = 0 To 13
         Text5(i).Text = rs_Relation.Fields(i + 2) & ""
      Next i
                  
   End If
End Sub

Private Sub cmdLast_Click()
   '先移动rs_Stu记录到最后一条
   rs_Stu.MoveLast
   '同时需要设置后一条和最后一条按钮不可用,第一条和前一条按钮可用
   cmdAfterward.Enabled = False
   cmdLast.Enabled = False
   cmdFirst.Enabled = True
   cmdForward.Enabled = True
   '如果已经是最后一条记录，则提示用户
   If rs_Stu.EOF = True Then
      MsgBox "对不起，已经是最后一条记录了！", vbOKOnly + vbInformation, "注意"
      
      Exit Sub
   '如果不是，则个数据表的记录位置移到最后一条记录，并且显示之
   Else
      For i = 0 To 7
         Text3(i).Text = rs_Stu.Fields(i)
      Next i
      '移动其他各表游标到该记录并显示
      rs_Grade.MoveLast
      For i = 0 To 7
         Text2(i).Text = rs_Grade.Fields(i + 2)
      Next i
      rs_Wish.MoveLast
      For i = 0 To 5
         Text1(i).Text = rs_Wish.Fields(i + 2)
      Next i
      rs_Study.MoveLast
      For i = 0 To 3
         Text4(i).Text = rs_Study.Fields(i + 2)
      Next i
      rs_Relation.MoveLast
      For i = 0 To 13
         Text5(i).Text = rs_Relation.Fields(i + 2) & ""
      Next i
              
   End If
End Sub

Private Sub cmdQuery_Click()
   Dim Markstu As String
   Dim strInput As String  '用于保存用户输入的考生CandidatesID
   Dim lonInput As Long   '用于保存转换成数字后的考生CandidatesID
   strInput = InputBox("请输入要查询的考生CandidatesID：", "输入CandidatesID")
   If Len(strInput) = 0 Then
      MsgBox "没有输入CandidatesID，取消查询！", vbOKOnly + vbInformation, "注意"
   Else
      lonInput = Val(strInput)
      Markstu = rs_Stu.Bookmark
           
      '使用find 方法查找记录
      rs_Stu.Find "CandidatesID like '" & lonInput & "'"
      '如果没有找到则提示用户
      If rs_Stu.EOF Then
         MsgBox "对不起，没有找到你所要的记录！", vbOKOnly + vbInformation, "注意"
         Exit Sub
      Else
      '如果找到则显示该记录并且相应各表游标都移到该记录
         For i = 0 To 7
            Text3(i).Text = rs_Stu.Fields(i)
         Next i
         '移动其他各表游标到该记录并显示
         rs_Grade.Find "CandidatesID like '" & lonInput & "'"
         For i = 0 To 7
            Text2(i).Text = rs_Grade.Fields(i + 2)
         Next i
         rs_Wish.Find "CandidatesID like '" & lonInput & "'"
         For i = 0 To 5
            Text1(i).Text = rs_Wish.Fields(i + 2)
         Next i
         rs_Study.Find "CandidatesID like '" & lonInput & "'"
         For i = 0 To 3
            Text4(i).Text = rs_Study.Fields(i + 2)
         Next i
         rs_Relation.Find "CandidatesID like '" & lonInput & "'"
         For i = 0 To 13
            Text5(i).Text = rs_Relation.Fields(i + 2) & ""
         Next i
                  
      End If
            
   End If
End Sub

Private Sub Command9_Click()

End Sub

Private Sub Form_Load()
   Dim sql_Stu As String
   Dim sql_Grade As String
   Dim sql_Wish As String
   Dim sql_Study As String
   Dim sql_Relation As String
   Dim i As Integer
  Set MyConnection = New ADODB.Connection
  ConString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Education_Maneger_System"
  MyConnection.Open ConString


   '在from_laod（)方法中打开5个考生信息表
   sql_Stu = "select * from StuBasicInfor"
   rs_Stu.CursorLocation = adUseClient
   rs_Stu.Open sql_Stu, MyConnection, adOpenStatic, adLockOptimistic
   If rs_Stu.EOF = True Then
    MsgBox "没有记录！", vbOKOnly + vbInformation, "注意"
     
   Else
    
   For i = 0 To 7
      Text3(i).Text = rs_Stu.Fields(i)
   Next i
   
   sql_Grade = "select * from StudentGrade"
   rs_Grade.CursorLocation = adUseClient
   rs_Grade.Open sql_Grade, MyConnection, adOpenStatic, adLockOptimistic
   For i = 0 To 7
      Text2(i).Text = rs_Grade.Fields(i + 2)
   Next i
   
   sql_Wish = "select * from StuVolunteers"
   rs_Wish.CursorLocation = adUseClient
   rs_Wish.Open sql_Wish, MyConnection, adOpenStatic, adLockOptimistic
   For i = 0 To 5
      Text1(i).Text = rs_Wish.Fields(i + 2)
   Next i
   
   sql_Study = "select * from StuExperience"
   rs_Study.CursorLocation = adUseClient
   rs_Study.Open sql_Study, MyConnection, adOpenStatic, adLockOptimistic
   For i = 0 To 3
      Text4(i).Text = rs_Study.Fields(i + 2)
   Next i
   
   sql_Relation = "select * from Sturelation"
   rs_Relation.CursorLocation = adUseClient
   rs_Relation.Open sql_Relation, MyConnection, adOpenStatic, adLockOptimistic
   For i = 0 To 13
      Text5(i).Text = rs_Relation.Fields(i + 2) & ""
   Next i
   
   '下面需要设置各个textbox控件不可修改
      For i = 0 To 7
         Text3(i).Enabled = False
      Next i
      For i = 0 To 7
         Text2(i).Enabled = False
      Next i
      For i = 0 To 5
         Text1(i).Enabled = False
      Next i
      For i = 0 To 3
         Text4(i).Enabled = False
      Next i
      For i = 0 To 13
         Text5(i).Enabled = False
      Next i
     End If
     
End Sub

Private Sub Form_Unload(Cancel As Integer)
  rs_Stu.Close
   rs_Grade.Close
   rs_Wish.Close
   rs_Study.Close
   rs_Relation.Close
  
End Sub