班级教材费结算清单.frm

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

               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     =   1275.024
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   1365.165
            EndProperty
         EndProperty
      End
      Begin VB.CommandButton Command3 
         Caption         =   "返回"
         Height          =   450
         Left            =   5310
         TabIndex        =   10
         Top             =   7245
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "打印"
         Height          =   450
         Left            =   3540
         TabIndex        =   9
         Top             =   7290
         Width           =   1335
      End
      Begin VB.Frame Frame2 
         Height          =   1155
         Left            =   90
         TabIndex        =   1
         Top             =   5805
         Width           =   10170
         Begin VB.TextBox Text7 
            Height          =   300
            Left            =   4620
            Locked          =   -1  'True
            TabIndex        =   15
            Top             =   240
            Width           =   1515
         End
         Begin VB.ComboBox Combo1 
            Height          =   300
            ItemData        =   "班级教材费结算清单.frx":08DF
            Left            =   1020
            List            =   "班级教材费结算清单.frx":08E1
            TabIndex        =   12
            Top             =   300
            Width           =   1515
         End
         Begin VB.TextBox Text4 
            Height          =   300
            Left            =   8460
            Locked          =   -1  'True
            TabIndex        =   8
            Top             =   180
            Width           =   1455
         End
         Begin VB.TextBox Text3 
            Height          =   300
            Left            =   8460
            Locked          =   -1  'True
            TabIndex        =   7
            Top             =   720
            Width           =   1455
         End
         Begin VB.TextBox Text2 
            Height          =   300
            Left            =   4620
            Locked          =   -1  'True
            TabIndex        =   6
            Top             =   660
            Width           =   1455
         End
         Begin VB.Label Label6 
            AutoSize        =   -1  'True
            Caption         =   "总余额："
            Height          =   180
            Left            =   3900
            TabIndex        =   16
            Top             =   300
            Width           =   720
         End
         Begin VB.Line Line2 
            X1              =   6720
            X2              =   6720
            Y1              =   120
            Y2              =   1140
         End
         Begin VB.Line Line1 
            X1              =   3300
            X2              =   3300
            Y1              =   120
            Y2              =   1140
         End
         Begin VB.Label Label5 
            Caption         =   "应补交费："
            Height          =   255
            Left            =   7440
            TabIndex        =   5
            Top             =   300
            Width           =   915
         End
         Begin VB.Label Label4 
            Caption         =   "应 退 费："
            Height          =   315
            Left            =   7440
            TabIndex        =   4
            Top             =   780
            Width           =   1035
         End
         Begin VB.Label Label3 
            Caption         =   "欠　费："
            Height          =   195
            Left            =   3900
            TabIndex        =   3
            Top             =   720
            Width           =   1035
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "班　级："
            Height          =   180
            Left            =   300
            TabIndex        =   2
            Top             =   300
            Width           =   720
         End
      End
      Begin VB.Line Line3 
         X1              =   0
         X2              =   10305
         Y1              =   7155
         Y2              =   7155
      End
   End
End
Attribute VB_Name = "班级教材费结算清单"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim zshf!, zj!, zye!, zqf!, ytf!

Private Sub Combo1_Click()
    On Error Resume Next
    zshf = 0
    zj = 0
    zye = 0
    zqf = 0
    ytf = 0
    Adodc1.RecordSource = "select * from 学生教材费支出总表  where bj=" + Chr(39) & Combo1.Text & "'"   '& " and xh like '" & jb & "%'"
    Adodc1.Refresh
    Adodc2.Recordset.MoveFirst
    Adodc2.Recordset.Find "bj='" & Trim(Combo1.Text) & "'"
    Do While Not Adodc1.Recordset.EOF
        zshf = zshf + Adodc1.Recordset.Fields("总收费")
        zj = zj + Adodc1.Recordset.Fields("总计")
        zqf = zqf + Adodc1.Recordset.Fields("欠费")
        Adodc1.Recordset.MoveNext
    Loop
    zye = zshf - zj
    Adodc2.Recordset.Fields("总余额") = zye
    Adodc2.Recordset.Fields("欠费") = zqf
    ytf = zye - zqf
    If ytf > 0 Then
        Adodc2.Recordset.Fields("应退费") = ytf
        Adodc2.Recordset.Fields("应补交费") = 0
        Text3.Text = ytf
    Else
        Adodc2.Recordset.Fields("应补交费") = Abs(ytf)
        Adodc2.Recordset.Fields("应退费") = 0
        Text4.Text = Abs(ytf)
    End If
    Text7.Text = zye
    Text2.Text = zqf
    DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
    Set Datajcgl1.rs班级教材费结算清单.DataSource = Adodc2
    各班级教材费结算清单.Show
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Activate()
    On Error Resume Next
    Dim i%, cn As Integer
    Adodc1.Recordset.MoveFirst
    i = 0
    Do While Not Adodc1.Recordset.EOF
        Combo1.AddItem Adodc1.Recordset.Fields("bj"), i
        Adodc1.Recordset.MoveNext
        i = i + 1
    Loop
    cn = Combo1.ListCount
    For i = 0 To cn
        Adodc2.Recordset.MoveFirst
        Adodc2.Recordset.Find "bj='" & Trim(Combo1.List(i)) & "'"
        If Adodc2.Recordset.EOF Then
            Adodc2.Recordset.AddNew
            Adodc2.Recordset.Fields("bj") = Trim(Combo1.List(i))
            Adodc2.Recordset.Update
            Adodc2.Refresh
        End If
    Next
End Sub


Private Sub Form_Load()
    Dim jb As String
    jb = Mid$(Year(Date) - 4, 3, 2)
    Adodc1.RecordSource = "select bj from 学生教材费支出总表 where xh like '" & jb & "%'" & " group by bj"
    Adodc1.Refresh
    Set Text5.DataSource = Adodc1
    Text5.DataField = "bj"
End Sub