专业课教材费支出.frm

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

               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
         BeginProperty Column08 
            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 Column09 
            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 Column10 
            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 Column11 
            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 Column12 
            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     =   1124.787
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   1184.882
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1395.213
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   1170.142
            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
            BeginProperty Column08 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column09 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column10 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column11 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column12 
               ColumnWidth     =   1275.024
            EndProperty
         EndProperty
      End
      Begin VB.Line Line1 
         X1              =   -60
         X2              =   10200
         Y1              =   5880
         Y2              =   5880
      End
   End
End
Attribute VB_Name = "专业课教材费支出"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Combo1_Click()
    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
    sql = "select distinct  bj from 学生专业课教材费支出情况表 where xi like '%" & Combo1 & "' "
    Set rs = cnn.Execute(sql)
    rs.MoveFirst
    Combo3.Clear
    Do While Not rs.EOF
       Combo3.AddItem rs.Fields("bj")
       rs.MoveNext
    Loop
    rs.Close
    Adodc1.RecordSource = "select * from 学生专业课教材费支出情况表 where xi='" & Trim(Combo1.Text) & "' order by xh"
    Adodc1.Refresh
    Text1.Text = Adodc1.Recordset.RecordCount
    Adodc1.Recordset.MoveFirst
    
End Sub
Private Sub Combo3_Click()
    Adodc1.RecordSource = "select * from 学生专业课教材费支出情况表 where xi='" & Trim(Combo1.Text) & "'" _
     & " and bj='" & Trim(Combo3.Text) & "' order by xh"
    Adodc1.Refresh
    Text1.Text = Adodc1.Recordset.RecordCount
End Sub

Private Sub Command1_Click()
    Set Datajcgl1.rs专业课教材费支出.DataSource = Adodc1
    
    专业课教材费支出情况登记.Show
End Sub

Private Sub Command2_Click()
    Unload Me
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
    sql = "select distinct xi from 学生专业课教材费支出情况表 "
    Set rs = cnn.Execute(sql)
    rs.MoveFirst
    Combo1.Clear
    Do While Not rs.EOF
        Combo1.AddItem rs.Fields("xi")
        rs.MoveNext
    Loop
    rs.Close
End Sub