分部统计.frm

财务管理系统！ 经过本人操作可以使用！

VERSION 5.00
Begin VB.Form 分部统计 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   ClientHeight    =   7560
   ClientLeft      =   90
   ClientTop       =   -90
   ClientWidth     =   11835
   Icon            =   "分部统计.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   504
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   789
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Text6 
      DataField       =   "支出累计"
      DataSource      =   "Data2"
      Height          =   315
      Left            =   8370
      TabIndex        =   15
      Text            =   "Text6"
      Top             =   3030
      Visible         =   0   'False
      Width           =   945
   End
   Begin VB.TextBox Text5 
      DataField       =   "收入累计"
      DataSource      =   "Data2"
      Height          =   315
      Left            =   7290
      TabIndex        =   14
      Text            =   "Text5"
      Top             =   3030
      Visible         =   0   'False
      Width           =   945
   End
   Begin VB.TextBox Text4 
      DataField       =   "年份"
      DataSource      =   "Data2"
      Height          =   315
      Left            =   6174
      TabIndex        =   13
      Text            =   "Text4"
      Top             =   3030
      Visible         =   0   'False
      Width           =   945
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   6330
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3870
      Visible         =   0   'False
      Width           =   1755
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   4170
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3870
      Visible         =   0   'False
      Width           =   1755
   End
   Begin VB.Frame Frame1 
      Caption         =   "统计单位选择"
      Height          =   1095
      Left            =   660
      TabIndex        =   6
      Top             =   6210
      Width           =   6465
      Begin VB.OptionButton Option6 
         Caption         =   "食  品  部"
         Height          =   225
         Left            =   1860
         TabIndex        =   12
         Top             =   690
         Width           =   1305
      End
      Begin VB.OptionButton Option5 
         Caption         =   "鞋  帽  部"
         Height          =   225
         Left            =   300
         TabIndex        =   11
         Top             =   690
         Width           =   1305
      End
      Begin VB.OptionButton Option4 
         Caption         =   "服  装  部"
         Height          =   225
         Left            =   4980
         TabIndex        =   10
         Top             =   240
         Width           =   1305
      End
      Begin VB.OptionButton Option3 
         Caption         =   "文教用品部"
         Height          =   225
         Left            =   1860
         TabIndex        =   9
         Top             =   240
         Width           =   1305
      End
      Begin VB.OptionButton Option2 
         Caption         =   "家用电器部"
         Height          =   225
         Left            =   3420
         TabIndex        =   8
         Top             =   240
         Width           =   1305
      End
      Begin VB.OptionButton Option1 
         Caption         =   "糖茶饮料部"
         Height          =   225
         Left            =   300
         TabIndex        =   7
         Top             =   240
         Width           =   1305
      End
   End
   Begin VB.TextBox Text3 
      DataField       =   "支出"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   5076
      TabIndex        =   5
      Text            =   "Text3"
      Top             =   3030
      Visible         =   0   'False
      Width           =   945
   End
   Begin VB.TextBox Text2 
      DataField       =   "收入"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   3978
      TabIndex        =   4
      Text            =   "Text2"
      Top             =   3030
      Visible         =   0   'False
      Width           =   945
   End
   Begin VB.TextBox Text1 
      DataField       =   "日期"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   2880
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   3030
      Visible         =   0   'False
      Width           =   945
   End
   Begin VB.CommandButton Command2 
      Caption         =   "返   回"
      Height          =   345
      Left            =   9450
      TabIndex        =   1
      Top             =   6960
      Width           =   1365
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打   印"
      Enabled         =   0   'False
      Height          =   345
      Left            =   8070
      TabIndex        =   0
      Top             =   6960
      Width           =   1365
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H80000001&
      BorderWidth     =   2
      Height          =   645
      Left            =   2370
      Shape           =   4  'Rounded Rectangle
      Top             =   210
      Width           =   7455
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      BorderWidth     =   2
      X1              =   2
      X2              =   800
      Y1              =   66
      Y2              =   66
   End
   Begin VB.Label Label1 
      Caption         =   "    分     部     统     计"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   480
      Left            =   2580
      TabIndex        =   2
      Top             =   300
      Width           =   7005
   End
End
Attribute VB_Name = "分部统计"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim A(6) As String, B(1 To 13) As String
Dim S(1 To 6) As String, D(1 To 6) As String, E(1 To 6) As String
Dim I As Integer, J As Integer, K As String
Dim T1 As Single, T2 As Single, N As String, Num As Integer
Dim H1(12) As Single, H2(12) As Single, H3(12) As Single
Dim Hj1 As Single, Hj2 As Single
Dim L1(12) As Single, L2(12) As Single, L3(12) As Single
Dim Y As Single, X As Single
Private Sub Form_Load()
Me.Left = 0: Me.Top = 0
Label1.Left = (Me.ScaleWidth - Label1.Width) / 2
Shape1.Left = (Me.ScaleWidth - Shape1.Width) / 2