资金预算.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{80623D63-54EA-11D5-9618-0050BAA688FF}#1.0#0"; "CellCtrl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmBudget 
   Caption         =   "资金预算"
   ClientHeight    =   8310
   ClientLeft      =   -360
   ClientTop       =   -255
   ClientWidth     =   11880
   FillStyle       =   5  'Downward Diagonal
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   8310
   ScaleWidth      =   11880
   WindowState     =   2  'Maximized
   Begin VB.CommandButton btnUnitName 
      Height          =   255
      Left            =   3720
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   1920
      Visible         =   0   'False
      Width           =   255
   End
   Begin prjTBCtrl.CTBCtrl ocxCtbTool 
      Height          =   660
      Left            =   960
      Top             =   3480
      Visible         =   0   'False
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   1164
   End
   Begin MSComctlLib.ImageList IltTool 
      Left            =   1680
      Top             =   4320
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog comFile 
      Left            =   4200
      Top             =   4080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin CELL2000Lib.Cell ocxCell 
      Height          =   4695
      Left            =   240
      TabIndex        =   12
      Top             =   2400
      Width           =   11415
      _Version        =   65536
      _ExtentX        =   20135
      _ExtentY        =   8281
      _StockProps     =   0
   End
   Begin VB.CommandButton btnDeclare 
      Height          =   255
      Left            =   7560
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   1935
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton btndEnd 
      Height          =   255
      Left            =   10560
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   1440
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.CommandButton btndStart 
      Height          =   255
      Left            =   7560
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   1440
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.TextBox txtdEnd 
      Alignment       =   1  'Right Justify
      Height          =   285
      Left            =   8880
      TabIndex        =   4
      Text            =   " "
      ToolTipText     =   "请填写结束日期!"
      Top             =   1425
      Width           =   1695
   End
   Begin VB.TextBox txtdStart 
      Alignment       =   1  'Right Justify
      Height          =   285
      Left            =   5880
      TabIndex        =   3
      Text            =   " "
      ToolTipText     =   "请填写起始日期!"
      Top             =   1425
      Width           =   1695
   End
   Begin VB.TextBox txtsName 
      Height          =   285
      Left            =   1680
      TabIndex        =   1
      ToolTipText     =   "请填写预算编号!"
      Top             =   1425
      Width           =   2055
   End
   Begin VB.TextBox txtsUnitname 
      Height          =   270
      Left            =   1680
      TabIndex        =   2
      ToolTipText     =   "请填写单位名称!"
      Top             =   1920
      Width           =   2055
   End
   Begin MSComctlLib.StatusBar stbState 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   13
      Top             =   7935
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   661
      SimpleText      =   "相关"
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   "当前状态: "
            TextSave        =   "当前状态: "
            Key             =   "state"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   "制单人: "
            TextSave        =   "制单人: "
            Key             =   "sbill"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   "复核人:"
            TextSave        =   "复核人:"
            Key             =   "sconfirm"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   "审核人: "
            TextSave        =   "审核人: "
            Key             =   "scheck"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   "记录位置: "
            TextSave        =   "记录位置: "
            Key             =   "position"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Text            =   "单位(万元)"
            TextSave        =   "单位(万元)"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar tlbTool 
      Align           =   1  'Align Top
      Height          =   570
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   1005
      ButtonWidth     =   820
      ButtonHeight    =   953
      Wrappable       =   0   'False
      Appearance      =   1
      Style           =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   24
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "print"
            Object.ToolTipText     =   "打印"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "preview"
            Object.ToolTipText     =   "打印预览"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "输出"
            Key             =   "output"
            Object.ToolTipText     =   "输出"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "增加"
            Key             =   "add"
            Object.ToolTipText     =   "增加"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "edit"
            Object.ToolTipText     =   "修改"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "delete"
            Object.ToolTipText     =   "删除"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "审批"
            Key             =   "audit"
            Object.ToolTipText     =   "审批"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "追加"
            Key             =   "append"
            Object.ToolTipText     =   "追加"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "复核"
            Key             =   "confirm"
            Object.ToolTipText     =   "复核"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "弃审"
            Key             =   "desert"
            Object.ToolTipText     =   "弃审"
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "填充"
            Key             =   "fill"
            Object.ToolTipText     =   "填充"
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存"
            Key             =   "save"
            Object.ToolTipText     =   "保存"
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "放弃"
            Key             =   "cancel"
            Object.ToolTipText     =   "放弃"
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "sep"
            Style           =   3
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "query"
            Object.ToolTipText     =   "查找"
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "首张"
            Key             =   "first"
            Object.ToolTipText     =   "首张"
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "上张"
            Key             =   "previous"
            Object.ToolTipText     =   "上一张"
         EndProperty
         BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "下张"
            Key             =   "next"
            Object.ToolTipText     =   "下一张"
         EndProperty
         BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "末张"
            Key             =   "last"
            Object.ToolTipText     =   "末张"
         EndProperty
         BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "刷新"
            Key             =   "refresh"
            Object.ToolTipText     =   "刷新"
         EndProperty
         BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "help"
            Object.ToolTipText     =   "帮助"
         EndProperty
         BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "quit"
            Object.ToolTipText     =   "退出"
         EndProperty
      EndProperty
   End
   Begin VB.TextBox txtdDeclare 
      Alignment       =   1  'Right Justify
      Height          =   285
      Left            =   5880
      TabIndex        =   5
      Text            =   " "
      ToolTipText     =   "请填写申报日期!"
      Top             =   1920
      Width           =   1695
   End
   Begin VB.CommandButton btnApprove 
      Height          =   255
      Left            =   10560
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   1935
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.TextBox txtdApprove 
      Alignment       =   1  'Right Justify
      Height          =   285
      Left            =   8880
      TabIndex        =   6
      Text            =   " "
      ToolTipText     =   "请填写审批日期!"
      Top             =   1920
      Width           =   1695
   End
   Begin VB.Label lbTitle 
      Alignment       =   2  'Center
      Caption         =   "资金预算申报表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3720
      TabIndex        =   20
      Top             =   840
      Width           =   5055
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Caption         =   "到"
      Height          =   255
      Left            =   7920
      TabIndex        =   19
      Top             =   1440
      Width           =   375
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Caption         =   "有效日期:"
      Height          =   255
      Left            =   4440
      TabIndex        =   18
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "单位:"
      Height          =   255
      Left            =   720
      TabIndex        =   17
      Top             =   1920
      Width           =   1095
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "编号:"
      Height          =   255
      Left            =   720
      TabIndex        =   16
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center