frmsum.frm

Visual Basic 开发的帐务管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmsum 
   BackColor       =   &H00FFC0C0&
   Caption         =   "汇总"
   ClientHeight    =   7215
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6735
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7215
   ScaleWidth      =   6735
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   2160
      TabIndex        =   11
      Text            =   "选择客户名称"
      Top             =   2160
      Width           =   1695
   End
   Begin VB.CheckBox Check3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "按客户名称汇总"
      Height          =   375
      Left            =   360
      TabIndex        =   10
      Top             =   2040
      Width           =   1815
   End
   Begin VB.CheckBox Check2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "按日期汇总"
      Height          =   375
      Left            =   360
      TabIndex        =   9
      Top             =   1080
      Width           =   1455
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "按账目名称汇总"
      Height          =   255
      Left            =   360
      TabIndex        =   8
      Top             =   480
      Width           =   1695
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   375
      Left            =   5040
      TabIndex        =   7
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "汇总"
      Height          =   375
      Left            =   5040
      TabIndex        =   6
      Top             =   480
      Width           =   1335
   End
   Begin MSComCtl2.DTPicker DTPicker2 
      Height          =   255
      Left            =   2160
      TabIndex        =   5
      Top             =   1680
      Width           =   1695
      _ExtentX        =   2990
      _ExtentY        =   450
      _Version        =   393216
      Format          =   20119553
      CurrentDate     =   37998
   End
   Begin MSComCtl2.DTPicker DTPicker1 
      Height          =   255
      Left            =   2160
      TabIndex        =   2
      Top             =   1200
      Width           =   1695
      _ExtentX        =   2990
      _ExtentY        =   450
      _Version        =   393216
      Format          =   20119553
      CurrentDate     =   37998
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   2160
      TabIndex        =   1
      Text            =   "选择名称"
      Top             =   480
      Width           =   1695
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3495
      Left            =   240
      TabIndex        =   0
      Top             =   3240
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   6165
      _Version        =   393216
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "到"
      Height          =   255
      Left            =   1920
      TabIndex        =   4
      Top             =   1680
      Width           =   255
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "从"
      Height          =   255
      Left            =   1920
      TabIndex        =   3
      Top             =   1200
      Width           =   255
   End
End
Attribute VB_Name = "frmsum"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs_sum As New ADODB.Recordset
Dim addup As Double

Private Sub Command2_Click()
summary_menu = ""
If Check1.Value = 1 Then
   summary_menu = summary_menu + "_check"
End If
If Check2.Value = 1 Then
   summary_menu = summary_menu + "_date"
End If
If Check3.Value = 1 Then
   summary_menu = summary_menu + "_custom"
End If
Form_Load
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim sql As String
MSFlexGrid1.Clear
Select Case summary_menu
       Case "_check"       '按账目名称汇总
            sql = "select 账目名称,sum(金额) as 总金额 from 账务资料 group by 账目名称 order by sum(金额)"
            rs_sum.CursorLocation = adUseClient
            rs_sum.Open sql, conn, adOpenKeyset, adLockPessimistic
            addup = 0
            MSFlexGrid1.Rows = rs_sum.RecordCount + 2
            MSFlexGrid1.Cols = 3
            ' 设置表头
            MSFlexGrid1.Row = 0
            MSFlexGrid1.Col = 0
            MSFlexGrid1.Text = "账目名称"
            MSFlexGrid1.Col = 1
            MSFlexGrid1.Text = "总金额"
            MSFlexGrid1.Col = 2
            MSFlexGrid1.Text = "进出账"
            If rs_sum.EOF = False Then
               rs_sum.MoveFirst
               Do While Not rs_sum.EOF
                        MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                        MSFlexGrid1.Col = 0
                        MSFlexGrid1.Text = rs_sum.Fields(0)
                        MSFlexGrid1.Col = 1
                        If CDbl(rs_sum.Fields(1)) < 0 Then
                           MSFlexGrid1.Text = Replace(rs_sum.Fields(1), "-", "")
                           MSFlexGrid1.Col = 2
                           MSFlexGrid1.Text = "出账"
                        Else
                           MSFlexGrid1.Text = rs_sum.Fields(1)
                           MSFlexGrid1.Col = 2
                           MSFlexGrid1.Text = "进账"
                        End If
                        addup = addup + CDbl(rs_sum.Fields(1))
                        rs_sum.MoveNext
               Loop
                        MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                        MSFlexGrid1.Col = 0
                        MSFlexGrid1.Text = "(总计)"
                        MSFlexGrid1.Col = 1
                        MSFlexGrid1.Text = addup
            End If
            rs_sum.Close
       Case "_date"             '按日期汇总
            sql = "select 日期,sum(金额) as 总金额 from 账务资料 group by 日期 order by sum(金额)"
            rs_sum.CursorLocation = adUseClient
            rs_sum.Open sql, conn, adOpenKeyset, adLockPessimistic
            addup = 0
            MSFlexGrid1.Rows = rs_sum.RecordCount + 2
            MSFlexGrid1.Cols = 3
            MSFlexGrid1.Row = 0
            MSFlexGrid1.Col = 0
            MSFlexGrid1.Text = "日期"
            MSFlexGrid1.Col = 1
            MSFlexGrid1.Text = "总金额"
            MSFlexGrid1.Col = 2
            MSFlexGrid1.Text = "进出账"
            If rs_sum.EOF = False Then
               rs_sum.MoveFirst
               Do While Not rs_sum.EOF
                        MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                        MSFlexGrid1.Col = 0
                        MSFlexGrid1.Text = rs_sum.Fields(0)
                        MSFlexGrid1.Col = 1
                        If CDbl(rs_sum.Fields(1)) < 0 Then
                           MSFlexGrid1.Text = Replace(rs_sum.Fields(1), "-", "")
                           MSFlexGrid1.Col = 2
                           MSFlexGrid1.Text = "出账"
                        Else
                           MSFlexGrid1.Text = rs_sum.Fields(1)
                           MSFlexGrid1.Col = 2
                           MSFlexGrid1.Text = "进账"
                        End If
                        addup = addup + CDbl(rs_sum.Fields(1))
                        rs_sum.MoveNext
               Loop
                        MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                        MSFlexGrid1.Col = 0
                        MSFlexGrid1.Text = "(总计)"
                        MSFlexGrid1.Col = 1
                        MSFlexGrid1.Text = addup
            End If
            rs_sum.Close