frmscanfixcard.frm

来自「金算盘软件代码」· FRM 代码 · 共 1,811 行 · 第 1/5 页

FRM
1,811
字号
            Height          =   180
            Index           =   3
            Left            =   150
            TabIndex        =   37
            Top             =   1950
            Width           =   540
         End
         Begin VB.Label Label16 
            AutoSize        =   -1  'True
            Caption         =   "原币"
            Height          =   180
            Index           =   2
            Left            =   150
            TabIndex        =   36
            Top             =   1590
            Width           =   360
         End
         Begin VB.Label Label16 
            AutoSize        =   -1  'True
            Caption         =   "汇率"
            Height          =   180
            Index           =   1
            Left            =   150
            TabIndex        =   35
            Top             =   1230
            Width           =   360
         End
         Begin VB.Label Label16 
            AutoSize        =   -1  'True
            Caption         =   "币种"
            Height          =   180
            Index           =   0
            Left            =   150
            TabIndex        =   34
            Top             =   870
            Width           =   360
         End
         Begin MSForms.CommandButton cmdMutiCurr 
            Height          =   345
            Left            =   1470
            TabIndex        =   33
            Top             =   270
            Width           =   1215
            VariousPropertyBits=   25
            Caption         =   "多币种..."
            PicturePosition =   524294
            Size            =   "2143;617"
            FontName        =   "宋体"
            FontEffects     =   1073750016
            FontHeight      =   180
            FontCharSet     =   134
            FontPitchAndFamily=   34
            ParagraphAlign  =   3
         End
      End
      Begin MSFlexGridLib.MSFlexGrid grdAux 
         Bindings        =   "frmScanFixCard.frx":0543
         Height          =   1275
         Left            =   120
         TabIndex        =   27
         Top             =   4260
         Width           =   6345
         _ExtentX        =   11192
         _ExtentY        =   2249
         _Version        =   393216
         Cols            =   7
         FixedCols       =   0
         Enabled         =   -1  'True
      End
      Begin VB.Frame Frame2 
         Caption         =   "折旧费用科目"
         Height          =   1155
         Left            =   3510
         TabIndex        =   22
         Top             =   3000
         Width           =   2925
         Begin VB.CommandButton cmdMutiAccount 
            Caption         =   "多个科目..."
            Enabled         =   0   'False
            Height          =   350
            Left            =   1590
            TabIndex        =   26
            Top             =   270
            Width           =   1215
         End
         Begin VB.OptionButton optSngAccount 
            Caption         =   "单个科目"
            Enabled         =   0   'False
            Height          =   255
            Left            =   120
            TabIndex        =   24
            Top             =   300
            Value           =   -1  'True
            Width           =   1035
         End
         Begin VB.OptionButton optMutiAccount 
            Enabled         =   0   'False
            Height          =   285
            Left            =   1290
            TabIndex        =   23
            Top             =   270
            Width           =   1095
         End
         Begin ListRefer.ListText ltxtAcc 
            Height          =   300
            Left            =   570
            TabIndex        =   13
            Top             =   690
            Width           =   2265
            _ExtentX        =   3995
            _ExtentY        =   556
            BackColor       =   -2147483643
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin VB.Label Label14 
            AutoSize        =   -1  'True
            Caption         =   "科目"
            Height          =   180
            Left            =   150
            TabIndex        =   25
            Top             =   750
            Width           =   360
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "使用部门"
         Height          =   1155
         Left            =   150
         TabIndex        =   17
         Top             =   3000
         Width           =   2895
         Begin ListRefer.ListText ltxtDpm 
            Height          =   300
            Left            =   570
            TabIndex        =   12
            Top             =   690
            Width           =   2265
            _ExtentX        =   3995
            _ExtentY        =   556
            BackColor       =   -2147483643
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin VB.CommandButton cmdMutiDpm 
            Caption         =   "多个部门..."
            Enabled         =   0   'False
            Height          =   350
            Left            =   1590
            TabIndex        =   20
            Top             =   270
            Width           =   1215
         End
         Begin VB.OptionButton optMutiDpm 
            Enabled         =   0   'False
            Height          =   285
            Left            =   1290
            TabIndex        =   19
            Top             =   270
            Width           =   1095
         End
         Begin VB.OptionButton optSngDpm 
            Caption         =   "单个部门"
            Enabled         =   0   'False
            Height          =   255
            Left            =   120
            TabIndex        =   18
            Top             =   300
            Value           =   -1  'True
            Width           =   1215
         End
         Begin VB.Label Label13 
            AutoSize        =   -1  'True
            Caption         =   "部门"
            Height          =   180
            Left            =   150
            TabIndex        =   21
            Top             =   750
            Width           =   360
         End
      End
      Begin VB.ComboBox cboUseStatus 
         Enabled         =   0   'False
         Height          =   300
         Left            =   4350
         TabIndex        =   11
         Top             =   1890
         Width           =   2115
      End
      Begin ListRefer.ListText ltxtFixedType 
         Height          =   300
         Left            =   960
         TabIndex        =   10
         Top             =   1890
         Width           =   2115
         _ExtentX        =   3731
         _ExtentY        =   556
         BackColor       =   -2147483643
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin GACALENDARLibCtl.Calendar cldDate 
         Height          =   300
         Index           =   0
         Left            =   4350
         OleObjectBlob   =   "frmScanFixCard.frx":0558
         TabIndex        =   86
         Top             =   2235
         Width           =   2115
      End
      Begin GACALENDARLibCtl.Calendar cldDate 
         Height          =   300
         Index           =   1
         Left            =   4335
         OleObjectBlob   =   "frmScanFixCard.frx":05E1
         TabIndex        =   87
         Top             =   2580
         Width           =   2115
      End
      Begin GATLCTRLLibCtl.CalEdit TEdit4 
         Height          =   285
         Index           =   0
         Left            =   -74130
         OleObjectBlob   =   "frmScanFixCard.frx":066A
         TabIndex        =   91
         Top             =   3165
         Width           =   2025
      End
      Begin GATLCTRLLibCtl.CalEdit TEdit4 
         Height          =   285
         Index           =   1
         Left            =   -74130
         OleObjectBlob   =   "frmScanFixCard.frx":06EB
         TabIndex        =   92
         Top             =   3510
         Width           =   2025
      End
      Begin MSFlexGridLib.MSFlexGrid grdFixedAlter 
         Bindings        =   "frmScanFixCard.frx":076C
         Height          =   5175
         Left            =   -74910
         TabIndex        =   102
         Top             =   375
         Width           =   6435
         _ExtentX        =   11351
         _ExtentY        =   9128
         _Version        =   393216
         Cols            =   20
         FixedCols       =   0
         SelectionMode   =   1
      End
      Begin GACALENDARLibCtl.Calendar cldCustom 
         Height          =   285
         Index           =   0
         Left            =   -73050
         OleObjectBlob   =   "frmScanFixCard.frx":0783
         TabIndex        =   116
         Top             =   4275
         Visible         =   0   'False
         Width           =   1305
      End
      Begin GATLCTRLLibCtl.CalEdit calCustom 
         Height          =   285
         Index           =   0
         Left            =   -70380
         OleObjectBlob   =   "frmScanFixCard.frx":080C
         TabIndex        =   117
         Top             =   2955
         Visible         =   0   'False
         Width           =   1845
      End
      Begin GATLCTRLLibCtl.CalEdit calCustom 
         Height          =   285
         Index           =   1
         Left            =   -73620
         OleObjectBlob   =   "frmScanFixCard.frx":088D
         TabIndex        =   118
         Top             =   3405
         Visible         =   0   'False
         Width           =   1845
      End
      Begin GATLCTRLLibCtl.CalEdit calCustom 
         Height          =   285
         Index           =   2
         Left            =   -70365
         OleObjectBlob   =   "frmScanFixCard.frx":090E
         TabIndex        =   119
         Top             =   3390
         Visible         =   0   'False
         Width           =   1845
      End
      Begin GATLCTRLLibCtl.CalEdit calCustom 
         Height          =   285
         Index           =   3
         Left            =   -73620
         OleObjectBlob   =   "frmScanFixCard.frx":098F
         TabIndex        =   120
         Top             =   3825
         Visible         =   0   'False
         Width           =   1845
      End
      Begin GATLCTRLLibCtl.CalEdit calCustom 
         Height          =   285
         Index           =   4
         Left            =   -70365
         OleObjectBlob   =   "frmScanFixCard.frx":0A10
         TabIndex        =   121
         Top             =   3810
         Visible         =   0   'False
         Width           =   1845
      End
      Begin GACALENDARLibCtl.Calendar cldCustom 
         Height          =   285
         Index           =   1
         Left            =   -69795
         OleObjectBlob   =   "frmScanFixCard.frx":0A91
         TabIndex        =   122
         Top             =   4260
         Visible         =   0   'False
         Width           =   1305
      End
      Begin VB.Label lblCustom 
         AutoSize        =   -1  'True
         Caption         =   "自定卡片项目20"
         Height          =   180
         Index           =   19
         Left            =   -71640
         TabIndex        =   142
         Top             =   4305
         Visible         =   0   'False
         Width           =   1260
      End
      Begin VB.Label lblCustom 
         AutoSize        =   -1  'True
         Caption         =   "自定卡片项目19"
         Height          =   180
         Index           =   18
         Left            =   -74895
         TabIndex        =   141
         Top             =   4320
         Visible         =   0   'False
         Width           =   1260

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?