学生收费情况.frm

学生教材管理系统:对学校书库进销存进行管理的系统

         EndProperty
         BeginProperty Column02 
            DataField       =   "xi"
            Caption         =   "系别"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "bj"
            Caption         =   "班级"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "第一学年"
            Caption         =   "第一学年"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "第二学年"
            Caption         =   "第二学年"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "第三学年"
            Caption         =   "第三学年"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "第四学年"
            Caption         =   "第四学年"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   1170.142
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   1305.071
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1289.764
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   1230.236
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   1275.024
            EndProperty
         EndProperty
      End
      Begin VB.Line Line1 
         X1              =   0
         X2              =   10455
         Y1              =   5460
         Y2              =   5460
      End
   End
End
Attribute VB_Name = "学生收费情况"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    

Private Sub Combo1_Click()
    Adodc1.RecordSource = "select distinct bj from 学生收费表 where  xi ='" & Trim(Combo1) + "'"
    Adodc1.Refresh
    Combo2.Clear
    Do While Not Adodc1.Recordset.EOF
            Combo2.AddItem Adodc1.Recordset.Fields(0)
            Adodc1.Recordset.MoveNext
    Loop
    Adodc1.Recordset.Close
    Adodc1.RecordSource = "select * from 学生收费表 where xi ='" & Combo1 + "'"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Combo2_Click()
    Adodc1.RecordSource = "select * from 学生收费表 where bj = '" & Combo2 + "'"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub



Private Sub Command1_Click()
    Adodc1.RecordSource = "select * from 学生收费表 where xi ='" & Combo1.Text + "' and bj ='" & Combo2.Text + "'"
    Adodc1.Refresh
    If Combo1.Text = "" Or Combo2.Text = "" Or Text1 = "" Then
        MsgBox "信息不能为空,请输入!", vbOKOnly + vbInformation
    Else
        aaaaaaa = 0
        For i = 1 To Len(Text1)
            If Asc(Mid$(Text1, i, 1)) < 48 Or Asc(Mid$(Text1, i, 1)) > 57 Then aaaaaaa = 1
        Next
        If aaaaaaa = 1 Then
            MsgBox "收费值不能为空或字符!", vbOKOnly + vbInformation: Text1.SetFocus
        Else
        Select Case Combo3.Text
           Case "第一学年"
            Do While Adodc1.Recordset.EOF = False
               Adodc1.Recordset.Fields(4) = Text1.Text
               Adodc1.Recordset.Update
               Adodc1.Recordset.MoveNext
            Loop
           Set DataGrid1.DataSource = Adodc1
            Case "第二学年"
            Do While Not Adodc1.Recordset.EOF
               Adodc1.Recordset.Fields(5) = Text1
               Adodc1.Recordset.Update
               Adodc1.Recordset.MoveNext
            Loop
            Set DataGrid1.DataSource = Adodc1
            Case "第三学年"
            Do While Not Adodc1.Recordset.EOF
               Adodc1.Recordset.Fields(6) = Text1
               Adodc1.Recordset.Update
               Adodc1.Recordset.MoveNext
            Loop
            Set DataGrid1.DataSource = Adodc1
            Case "第四学年"
            Do While Not Adodc1.Recordset.EOF
               Adodc1.Recordset.Fields(7) = Text1
               Adodc1.Recordset.Update
               Adodc1.Recordset.MoveNext
            Loop
            Set DataGrid1.DataSource = Adodc1
        End Select
        End If
    End If
    
End Sub

Private Sub Command2_Click()
   
   Unload Me
End Sub


Private Sub Command3_Click()
    Me.Enabled = False
    学生收费特殊情况.Show
End Sub

Private Sub Form_Load()
    On Error Resume Next
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim cnn As ADODB.Connection
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生教材管理系统.mdb;Persist Security Info=False"
    Dim sql As String
    Combo1.Clear
    sql = "select distinct xi from 学生收费表 "
    Set rs = cnn.Execute(sql)
    If rs.RecordCount = 0 Then
        MsgBox ("请初始化" & Chr$(34) & "学生收费表" & Chr$(34))
    Else
    rs.MoveFirst
    Do While rs.EOF = False
       Combo1.AddItem rs.Fields(0)
       rs.MoveNext
    Loop
    rs.Close
    Combo2.Clear
    sql = "select distinct bj from 学生收费表 "
    Set rs = cnn.Execute(sql)
    rs.MoveFirst
    Do While rs.EOF = False
        Combo2.AddItem rs.Fields(0)
        rs.MoveNext
    Loop
    rs.Close
    Combo3.Clear
    Combo3.AddItem "第一学年"
    Combo3.AddItem "第二学年"
    Combo3.AddItem "第三学年"
    Combo3.AddItem "第四学年"
    Combo3.ListIndex = 0
    'Adodc1.RecordSource = "select * from 学生收费表  "
    'Adodc1.Refresh
    'Set DataGrid1.DataSource = Adodc1
    End If
    cnn.Close
End Sub