frm_setclass.frm

学生信息的管理是学校经常遇到的问题。学生数量的积聚增加和学生认识制度的改革

      Width           =   450
   End
   Begin VB.Image imgleftbottom 
      Height          =   450
      Left            =   15
      Picture         =   "frm_setclass.frx":F05A
      Top             =   3765
      Width           =   450
   End
   Begin VB.Image imglefttitle 
      Height          =   450
      Left            =   0
      Picture         =   "frm_setclass.frx":FB64
      Top             =   0
      Width           =   450
   End
   Begin VB.Image imgrighttitle 
      Height          =   525
      Left            =   6705
      Picture         =   "frm_setclass.frx":1066E
      Top             =   0
      Width           =   375
   End
   Begin VB.Image imgtop 
      Height          =   450
      Left            =   270
      Picture         =   "frm_setclass.frx":11114
      Stretch         =   -1  'True
      Top             =   0
      Width           =   6435
   End
End
Attribute VB_Name = "frm_setclass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim myClass As Cls_Class
Dim mysem As Cls_Sem


Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then KeyAscii = 0
End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then KeyAscii = 0
End Sub

Private Sub Form_Load()
    Dim i As Integer
    SetWindow Me
    AlwaysOnTop Me, False
    Set myClass = New Cls_Class
    Set mysem = New Cls_Sem
    Text1(2).Enabled = False
    Move (frm_main.Width - Me.Width) / 2, (frm_main.Height - Me.Height) / 2 - 800
    
    '显示学年名称在combo1中
    mysem.QuerySemOnlyYearName
    If mysem.GetQrySemOnlyYearNameRs.EOF = False Then
       Do Until mysem.GetQrySemOnlyYearNameRs.EOF
          Combo1.AddItem mysem.GetQrySemOnlyYearNameRs.Fields(0)
          mysem.GetQrySemOnlyYearNameRs.MoveNext
       Loop
    End If
    '设置窗体加载时各控件的默认状态
    State "cencel"
    Combo2.Enabled = False
    For i = 0 To 3
        command1(i).DragMode = 1
    Next
End Sub

Private Sub Combo2_Click()
    List1.Clear
    State "cencel"
    myClass.PrcClassById Trim(Combo2)
    If myClass.GetPrcClassByIdRs.EOF = False Then
       Do Until myClass.GetPrcClassByIdRs.EOF
          List1.AddItem myClass.GetPrcClassByIdRs.Fields(0)
          myClass.GetPrcClassByIdRs.MoveNext
       Loop
    End If
    command1(0).DragMode = 0
End Sub


Private Sub Combo1_Click()
Combo2.Enabled = True
Combo2.Clear
List1.Clear
State "cencel"
'按combo1的值查询，将符合的记录显示在combo2中
mysem.PrcSemByYearName Trim(Combo1)
If mysem.GetPrcSemByYearNameRs.EOF = False Then
   Do Until mysem.GetPrcSemByYearNameRs.EOF
      Combo2.AddItem mysem.GetPrcSemByYearNameRs.Fields(1)
      mysem.GetPrcSemByYearNameRs.MoveNext
   Loop
End If
command1(0).DragMode = 1
End Sub

Private Sub List1_Click()
Dim i As Integer
'按选中的学费编号将详细信息显示在文本框中
myClass.QueryClassById Trim(List1)
If myClass.GetQryClassByIdRs.EOF = False Then
   For i = 0 To 2
     Text1(i) = Trim(myClass.GetQryClassByIdRs.Fields(i))
   Next
End If
For i = 0 To List1.ListCount - 1
    List1.Selected(i) = False
Next
State "selected"
End Sub


Private Sub command1_Click(Index As Integer)
Dim i As Integer
Select Case Index
'增加
Case 0
    If command1(0).Caption = "增加" Then
       If Combo2 = "" Then
          command1(0).DragMode = 1
          Exit Sub
       End If
       State "add"
       '按combo2的值查询，将对应学期名称的学期编号显示在text1(2)中
       mysem.PrcSemBySemName (Combo2)
       If mysem.GetPrcSemBySemNameRs.EOF = False Then
          Text1(2) = Trim(mysem.GetPrcSemBySemNameRs.Fields(0))
       End If
    Else
       '调用Cls_Class类，添加数据
       If Text1(0) <> "" And Text1(1) <> "" And Text1(2) <> "" Then
          myClass.QueryClassById Trim(Text1(0))
          If myClass.GetQryClassByIdRs.EOF Then
                frm_ProgressBar.Show 1
                myClass.OpenClass
                myClass.GetClassRs.AddNew
                For i = 0 To 2
                   myClass.GetClassRs.Fields(i) = Trim(Text1(i))
                Next
                myClass.GetClassRs.Update
                myClass.GetClassRs.Requery
                '调用combo2的click 事件刷新list1
                Combo2_Click
                State "cencel"
          Else
              MsgBox "该班级已存在，请重新输入！"
              Exit Sub
          End If
        Else
           MsgBox "请先输入数据！"
           Text1(0).SetFocus
        End If
    End If
'修改
Case 1
    If command1(1).Caption = "修改" Then
       State "edit"
    Else
       frm_ProgressBar.Show 1
       myClass.QueryClassById Trim(Text1(0))
       If myClass.GetQryClassByIdRs.EOF = False Then
          For i = 0 To 2
             myClass.GetQryClassByIdRs.Fields(i) = Trim(Text1(i))
          Next
          myClass.GetQryClassByIdRs.Update
          myClass.GetQryClassByIdRs.Requery
       End If
       State "cencel"
    End If
'删除
Case 2
    Dim yn As String
    yn = MsgBox("真的删除吗？", vbYesNo, "删除")
    If yn = vbYes Then
      frm_ProgressBar.Show 1
      myClass.QueryClassById Trim(Text1(0))
      If myClass.GetQryClassByIdRs.EOF = False Then
         myClass.GetQryClassByIdRs.Delete
         myClass.GetQryClassByIdRs.Requery
      End If
       Combo2_Click
       State "delete"
    Else
      State "cencel"
    End If
'取消
Case 3
       State "cencel"
'退出
Case 4
       Unload Me
End Select
End Sub

Public Sub State(kind As String)
'各种操作时各个控件的状态
Dim i As Integer
Select Case kind
Case "add"
 For i = 0 To 1
     Text1(i) = ""
     Text1(i).Enabled = True
 Next
    Text1(0).SetFocus
    command1(0).Caption = "提交"
    command1(0).DragMode = 0
    command1(1).DragMode = 1
    command1(2).DragMode = 1
    command1(3).DragMode = 0
    command1(4).DragMode = 1
    
Case "edit"
 Text1(1).Enabled = True
 Text1(1).SetFocus
 command1(1).Caption = "更新"
 command1(0).DragMode = 1
 command1(1).DragMode = 0
 command1(2).DragMode = 1
 command1(3).DragMode = 0
 command1(4).DragMode = 1
 
Case "cencel"
 For i = 0 To 2
     Text1(i) = ""
     Text1(i).Enabled = False
 Next
 
 command1(0).Caption = "增加"
 command1(1).Caption = "修改"
 command1(0).DragMode = 0
 command1(1).DragMode = 1
 command1(2).DragMode = 1
 command1(3).DragMode = 1
 command1(4).DragMode = 0
Case "delete"
 For i = 0 To 1
     Text1(i) = ""
     Text1(i).Enabled = False
 Next
 command1(0).Caption = "增加"
 command1(1).Caption = "修改"
 command1(0).DragMode = 0
 command1(1).DragMode = 1
 command1(2).DragMode = 1
 command1(3).DragMode = 1
 command1(4).DragMode = 0

Case "selected"
 For i = 0 To 1
     Text1(i).Enabled = False
 Next
 command1(0).Caption = "增加"
 command1(1).Caption = "修改"
 command1(0).DragMode = 0
 command1(1).DragMode = 0
 command1(2).DragMode = 0
 command1(3).DragMode = 1
 command1(4).DragMode = 0
End Select
End Sub


Private Sub Text1_GotFocus(Index As Integer)
'设定文本框获得焦点时处于全部被选中状态
Text1(Index).SelLength = Len(Text1(Index).Text)
Select Case Index
Case 1
   If Text1(0) = "" Then Text1(0).SetFocus
End Select
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
'传递焦点
Select Case Index
Case 0
    If KeyAscii = 13 Then Text1(1).SetFocus
Case 1
    If KeyAscii = 13 And Text1(2).Enabled = False And command1(0).DragMode = 0 Then
       command1(0).SetFocus
    ElseIf KeyAscii = 13 And Text1(2).Enabled = False And command1(0).DragMode = 1 Then
       command1(1).SetFocus
    End If
End Select
End Sub

Private Sub imgclose_Click()
    Unload Me
End Sub


Private Sub imglefttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub

Private Sub imgtop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub


Private Sub imgrighttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   DrawForms Me
End Sub