选修课教材费支出.frm

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

               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     =   2085.166
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   2085.166
            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.Frame Frame2 
         Height          =   735
         Left            =   90
         TabIndex        =   1
         Top             =   6435
         Width           =   10335
         Begin VB.TextBox Text1 
            Height          =   300
            Left            =   9180
            TabIndex        =   7
            Top             =   240
            Width           =   915
         End
         Begin VB.ComboBox Combo3 
            Height          =   300
            Left            =   4740
            TabIndex        =   6
            Top             =   240
            Width           =   1815
         End
         Begin VB.ComboBox Combo1 
            Height          =   300
            Left            =   960
            TabIndex        =   5
            Top             =   240
            Width           =   1695
         End
         Begin VB.Label Label6 
            AutoSize        =   -1  'True
            Caption         =   "人  数："
            Height          =   180
            Left            =   8340
            TabIndex        =   4
            Top             =   300
            Width           =   720
         End
         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            Caption         =   "班级名："
            Height          =   180
            Left            =   3960
            TabIndex        =   3
            Top             =   300
            Width           =   720
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            Caption         =   "系  名："
            Height          =   180
            Left            =   240
            TabIndex        =   2
            Top             =   300
            Width           =   720
         End
      End
      Begin VB.Line Line1 
         X1              =   45
         X2              =   10545
         Y1              =   6390
         Y2              =   6390
      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