budgetsetcard1.frm

金算盘软件代码

VERSION 5.00
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Begin VB.Form frmBudgetSetCard1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   4245
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7005
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4245
   ScaleWidth      =   7005
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdBudget 
      Height          =   345
      Index           =   0
      Left            =   5700
      Style           =   1  'Graphical
      TabIndex        =   40
      Top             =   90
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdBudget 
      Height          =   345
      Index           =   1
      Left            =   5700
      Style           =   1  'Graphical
      TabIndex        =   41
      Top             =   555
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CheckBox chkBudgetitem 
      Caption         =   "包含税金"
      Height          =   360
      Index           =   7
      Left            =   5700
      TabIndex        =   43
      Top             =   1470
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "预算项目(&I)"
      Height          =   975
      Left            =   60
      TabIndex        =   2
      Top             =   390
      Width           =   5475
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "地区"
         Height          =   255
         Index           =   10
         Left            =   1470
         TabIndex        =   9
         Top             =   600
         UseMaskColor    =   -1  'True
         Width           =   705
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "单位类型"
         Height          =   255
         Index           =   9
         Left            =   120
         TabIndex        =   8
         Top             =   600
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "商品类型"
         Height          =   255
         Index           =   8
         Left            =   120
         TabIndex        =   3
         Top             =   240
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "商品"
         Height          =   255
         Index           =   0
         Left            =   1470
         TabIndex        =   4
         Top             =   240
         UseMaskColor    =   -1  'True
         Width           =   705
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "单位"
         Height          =   255
         Index           =   1
         Left            =   2490
         TabIndex        =   10
         Top             =   600
         UseMaskColor    =   -1  'True
         Width           =   705
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "部门"
         Height          =   255
         Index           =   2
         Left            =   2490
         TabIndex        =   5
         Top             =   240
         UseMaskColor    =   -1  'True
         Width           =   705
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "职员"
         Height          =   255
         Index           =   3
         Left            =   3510
         TabIndex        =   6
         Top             =   240
         UseMaskColor    =   -1  'True
         Width           =   705
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "工程"
         Height          =   255
         Index           =   4
         Left            =   3510
         TabIndex        =   11
         Top             =   600
         UseMaskColor    =   -1  'True
         Width           =   705
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "统计"
         Height          =   255
         Index           =   5
         Left            =   4530
         TabIndex        =   12
         Top             =   600
         UseMaskColor    =   -1  'True
         Width           =   705
      End
      Begin VB.CheckBox chkBudgetitem 
         Caption         =   "项目"
         Height          =   255
         Index           =   6
         Left            =   4530
         TabIndex        =   7
         Top             =   240
         UseMaskColor    =   -1  'True
         Width           =   705
      End
   End
   Begin VB.CommandButton cmdBudget 
      Height          =   345
      Index           =   2
      Left            =   5700
      Style           =   1  'Graphical
      TabIndex        =   42
      Top             =   1005
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "预算对象(&O)"
      Height          =   2715
      Left            =   60
      TabIndex        =   13
      Top             =   1440
      Width           =   5475
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "采购订单金额"
         Height          =   255
         Index           =   23
         Left            =   1660
         TabIndex        =   15
         Top             =   210
         UseMaskColor    =   -1  'True
         Width           =   1485
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "领用金额"
         Height          =   255
         Index           =   17
         Left            =   1660
         TabIndex        =   35
         Top             =   1985
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "加工数量"
         Height          =   255
         Index           =   14
         Left            =   3200
         TabIndex        =   32
         Top             =   1630
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "分期金额"
         Height          =   255
         Index           =   13
         Left            =   1660
         TabIndex        =   31
         Top             =   1630
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "委托数量"
         Height          =   255
         Index           =   10
         Left            =   3200
         TabIndex        =   28
         Top             =   1275
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "受托金额"
         Height          =   255
         Index           =   9
         Left            =   1660
         TabIndex        =   27
         Top             =   1275
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "库存数量"
         Height          =   255
         Index           =   6
         Left            =   3200
         TabIndex        =   24
         Top             =   920
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "销售毛利"
         Height          =   255
         Index           =   5
         Left            =   1660
         TabIndex        =   23
         Top             =   920
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "销售数量"
         Height          =   255
         Index           =   2
         Left            =   3200
         TabIndex        =   20
         Top             =   565
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "采购数量"
         Height          =   255
         Index           =   0
         Left            =   3200
         TabIndex        =   16
         Top             =   210
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "回款数量"
         Height          =   255
         Index           =   18
         Left            =   3200
         TabIndex        =   36
         Top             =   1985
         UseMaskColor    =   -1  'True
         Width           =   1035
      End
      Begin VB.CheckBox chkBudgetObject 
         Caption         =   "付款金额"
         Height          =   255