VB开发的ERP系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form FAVari_Lessen 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "固定资产减少"
   ClientHeight    =   5805
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9375
   HelpContextID   =   503001
   Icon            =   "资产减少.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5805
   ScaleWidth      =   9375
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.ListBox Lst_Sort 
      Height          =   5100
      Left            =   60
      TabIndex        =   45
      Top             =   630
      Width           =   2775
   End
   Begin VB.Frame Frame1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   5085
      Left            =   2910
      TabIndex        =   6
      Top             =   660
      Width           =   6405
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   13
         Left            =   4140
         TabIndex        =   53
         Text            =   "13"
         Top             =   3138
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   4
         Left            =   1080
         TabIndex        =   52
         Text            =   "4"
         Top             =   1606
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   16
         Left            =   1080
         TabIndex        =   1
         Text            =   "16"
         Top             =   3904
         Width           =   1725
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   17
         Left            =   4140
         TabIndex        =   2
         Text            =   "17"
         Top             =   3904
         Width           =   2055
      End
      Begin VB.CommandButton YdCommand 
         Height          =   300
         Index           =   0
         Left            =   2820
         Picture         =   "资产减少.frx":1042
         Style           =   1  'Graphical
         TabIndex        =   49
         Top             =   3904
         Visible         =   0   'False
         Width           =   300
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   15
         Left            =   4140
         TabIndex        =   3
         Text            =   "15"
         Top             =   3521
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   12
         Left            =   1080
         TabIndex        =   5
         Text            =   "12"
         Top             =   3138
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   0
         Left            =   1080
         TabIndex        =   46
         Text            =   "0"
         Top             =   840
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   5
         Left            =   4140
         TabIndex        =   17
         Text            =   "5"
         Top             =   1606
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   2
         Left            =   1080
         TabIndex        =   16
         Text            =   "2"
         Top             =   1223
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   3
         Left            =   4140
         TabIndex        =   15
         Text            =   "3"
         Top             =   1223
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   1
         Left            =   4140
         TabIndex        =   14
         Text            =   "1"
         Top             =   840
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   7
         Left            =   4140
         TabIndex        =   13
         Text            =   "7"
         Top             =   1989
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   6
         Left            =   1080
         TabIndex        =   12
         Text            =   "6"
         Top             =   1989
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   14
         Left            =   1080
         TabIndex        =   0
         Text            =   "14"
         Top             =   3521
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   8
         Left            =   1080
         TabIndex        =   11
         Text            =   "8"
         Top             =   2372
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   9
         Left            =   4140
         TabIndex        =   10
         Text            =   "9"
         Top             =   2372
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         Height          =   300
         Index           =   10
         Left            =   1080
         TabIndex        =   9
         Text            =   "10"
         Top             =   2755
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   11
         Left            =   4140
         TabIndex        =   8
         Text            =   "11"
         Top             =   2755
         Width           =   2055
      End
      Begin VB.TextBox lrtext 
         Enabled         =   0   'False
         ForeColor       =   &H00000000&
         Height          =   300
         Index           =   18
         Left            =   1080
         TabIndex        =   4
         Text            =   "18"
         Top             =   4290
         Width           =   5115
      End
      Begin VB.CommandButton QdCommand 
         Caption         =   "确定(&O)"
         Enabled         =   0   'False
         Height          =   300
         Left            =   5160
         TabIndex        =   7
         Top             =   4680
         Width           =   1005
      End
      Begin VB.Label LblName 
         AutoSize        =   -1  'True
         Caption         =   "净 残 值:"
         ForeColor       =   &H00000080&
         Height          =   180
         Index           =   12
         Left            =   3330
         TabIndex        =   54
         Top             =   3198
         Width           =   810
      End
      Begin VB.Label LblName 
         AutoSize        =   -1  'True
         Caption         =   "凭证类别:"
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   51
         Top             =   3964
         Width           =   810
      End
      Begin VB.Label LblName 
         AutoSize        =   -1  'True
         Caption         =   "凭 证 号:"
         Height          =   180
         Index           =   1
         Left            =   3330
         TabIndex        =   50
         Top             =   3964
         Width           =   810
      End
      Begin VB.Label LblName 
         AutoSize        =   -1  'True
         Caption         =   "清理收入:"
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   10
         Left            =   3330
         TabIndex        =   48
         Top             =   3581
         Width           =   810
      End
      Begin VB.Label LblName 
         AutoSize        =   -1  'True
         Caption         =   "净 残 值:"
         Height          =   180
         Index           =   3
         Left            =   240
         TabIndex        =   47
         Top             =   3198
         Width           =   810
      End
      Begin VB.Label Label29 
         AutoSize        =   -1  'True
         Caption         =   "操作员:"
         Height          =   180
         Left            =   4410
         TabIndex        =   44
         Top             =   360
         Width           =   630
      End