fadc.dfm

科思ERP部分源码及控件

inherited frmFaDc: TfrmFaDc
  Left = 63
  Top = 75
  Width = 691
  Height = 490
  Caption = '计提折旧'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 422
    Width = 683
  end
  inherited CoolBar1: TCoolBar
    Width = 683
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 683
      end>
    inherited tbMainBar: TToolBar
      Width = 670
      ButtonWidth = 55
      inherited tbAddHead: TToolButton
        Visible = False
      end
      inherited tbEditHead: TToolButton
        Caption = '计提折旧'
      end
      inherited tbDeleteHead: TToolButton
        Left = 94
        Visible = False
      end
      inherited ToolButton10: TToolButton
        Left = 129
        Visible = False
      end
      inherited tbGenrate: TToolButton
        Left = 131
      end
      inherited ToolButton3: TToolButton
        Left = 166
        Visible = True
      end
      inherited tbCancel: TToolButton
        Left = 168
      end
      inherited tbSave: TToolButton
        Left = 203
      end
      inherited ToolButton6: TToolButton
        Left = 238
      end
      inherited tbCheck: TToolButton
        Left = 240
      end
      inherited tbClose: TToolButton
        Left = 275
      end
      inherited ToolButton1: TToolButton
        Left = 330
      end
      inherited tbFirst: TToolButton
        Left = 332
      end
      inherited tbPrevious: TToolButton
        Left = 367
      end
      inherited tbNext: TToolButton
        Left = 402
      end
      inherited tbLast: TToolButton
        Left = 437
      end
      inherited ToolButton2: TToolButton
        Left = 472
      end
      inherited tbQuery: TToolButton
        Left = 474
        Visible = False
      end
      inherited tbPrint: TToolButton
        Left = 509
      end
      inherited tbExport: TToolButton
        Left = 544
      end
      inherited ToolButton4: TToolButton
        Left = 579
      end
      inherited tbHelp: TToolButton
        Left = 581
      end
      inherited tbControl: TToolButton
        Left = 616
      end
    end
  end
  object FloatPanel2: TFloatPanel [2]
    Left = 0
    Top = 39
    Width = 683
    Height = 30
    Align = alTop
    Color = 50331647
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 2
    object Label9: TLabel
      Left = 9
      Top = 7
      Width = 60
      Height = 12
      Caption = '财务月份：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object labLgLocName: TLabel
      Left = 256
      Top = 7
      Width = 6
      Height = 11
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object scFaDcFMonth: TSDComboBox
      Left = 63
      Top = 2
      Width = 145
      Height = 20
      Color = 50331647
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = 'scFaDcFMonth'
      OnClick = scFaDcFMonthClick
    end
  end
  object FloatPanel1: TFloatPanel [3]
    Left = 353
    Top = 69
    Width = 330
    Height = 353
    Align = alClient
    Color = 50331647
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 3
    object Label2: TLabel
      Left = 13
      Top = 29
      Width = 60
      Height = 12
      Caption = '设备编码：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 13
      Top = 123
      Width = 60
      Height = 12
      Caption = '原    值：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 13
      Top = 92
      Width = 60
      Height = 12
      Caption = '折旧方法：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 170
      Top = 123
      Width = 72
      Height = 12
      Caption = '预计净残值：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 13
      Top = 154
      Width = 60
      Height = 12
      Caption = '使用期限：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 170
      Top = 154
      Width = 84
      Height = 12
      Caption = '累计使用期限：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 13
      Top = 279
      Width = 48
      Height = 12
      Caption = '操作员：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 84
      Top = 248
      Width = 48
      Height = 12
      Caption = '凭证号：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 13
      Top = 60
      Width = 60
      Height = 12
      Caption = '设备名称：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 170
      Top = 217
      Width = 60
      Height = 12
      Caption = '累计折旧：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 13
      Top = 217
      Width = 72
      Height = 12
      Caption = '本期折旧额：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 170
      Top = 186
      Width = 60
      Height = 12
      Caption = '总工作量：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 13
      Top = 185
      Width = 72
      Height = 12
      Caption = '累计工作量：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seFaDcOVal: TSDEdit
      Left = 81
      Top = 118
      Width = 82
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      Text = 'seFaDcOVal'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object scFaDcFadn: TSDComboBox
      Left = 70
      Top = 23
      Width = 132
      Height = 20
      Color = 50331647
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = 'scFaDcFadn'
      OnChange = scFaDcFadnChange
      OnKeyDown = scFaDcFadnKeyDown
    end
    object scFaDcFadm: TSDComboBox
      Left = 71
      Top = 86
      Width = 132
      Height = 20
      Color = 50331647
      Ctl3D = False
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      Text = 'scFaDcFadm'
      KeyItem = cbItem2
      ReadOnly = True
    end
    object seFaDcEVal: TSDEdit
      Left = 240
      Top = 118
      Width = 74
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 3
      Text = 'seFaDcEVal'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seFaDcPeriod: TSDEdit
      Left = 81
      Top = 150
      Width = 82
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 5
      Text = 'seFaDcPeriod'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seFaDcAPeriod: TSDEdit
      Left = 253
      Top = 150
      Width = 59
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 4
      Text = 'seFaDcAPeriod'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object chkFaDcPost: TCheckBox
      Left = 13
      Top = 248
      Width = 62
      Height = 17
      Caption = '制凭证'
      TabOrder = 10
    end
    object seFaDcPzCode: TSDEdit
      Left = 130
      Top = 243
      Width = 181
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 11
      Text = 'seFaDcPzCode'
      SplitSymbol = ' | '
    end
    object seFaDcFadnName: TSDEdit
      Left = 70
      Top = 55
      Width = 130
      Height = 18
      Ctl3D = False
      Enabled = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 13
      Text = 'seFaDcFadnName'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object scFaDcUser: TSDComboBox
      Left = 62
      Top = 272
      Width = 127
      Height = 20
      Color = 50331647
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 12
      Text = 'scFaDcUser'
      KeyItem = cbItem2
    end
    object seFaDcDVal: TSDEdit
      Left = 234
      Top = 213
      Width = 79
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 9
      Text = 'seFaDcDVal'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seFaDcVal: TSDEdit
      Left = 82
      Top = 212
      Width = 78
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 8
      Text = 'seFaDcVal'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seFaDcTWork: TSDEdit
      Left = 234
      Top = 182
      Width = 80
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 7
      Text = 'seFaDcTWork'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seFaDcAWork: TSDEdit
      Left = 82
      Top = 181
      Width = 78
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 6
      Text = 'seFaDcAWork'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
  end
  object sgFaDc: TSDGrid [4]
    Left = 0
    Top = 69
    Width = 353
    Height = 353
    Align = alLeft
    Color = 50331647
    Ctl3D = False
    DefaultRowHeight = 22
    FixedColor = 8564917
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 4
    OnClick = sgFaDcClick
    EvenGridColor = 50331647
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '设备编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '折旧方法'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '本期折旧'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '累计折旧'
        ColumnWidth = 0
      end>
    ColWidths = (
      9
      92
      98
      106
      64)
  end
  inherited MainMenu1: TMainMenu
    Left = 154
    Top = 163
  end
end