apcl.dfm

一个以前收集的基于C/S架构的ERP客户端源代码

inherited frmApcl: TfrmApcl
  Left = 130
  Top = 72
  Width = 640
  Height = 451
  Caption = '应付货币总帐'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 380
    Width = 632
  end
  inherited CoolBar1: TCoolBar
    Width = 632
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 632
      end>
    inherited tbMainBar: TToolBar
      Width = 619
      ButtonWidth = 43
      inherited tbAddHead: TToolButton
        Caption = '初始化'
      end
      inherited tbEditHead: TToolButton
        Left = 47
        Visible = False
      end
      inherited tbDeleteHead: TToolButton
        Left = 82
        Visible = False
      end
      inherited ToolButton10: TToolButton
        Left = 117
      end
      inherited tbGenrate: TToolButton
        Left = 119
      end
      inherited ToolButton3: TToolButton
        Left = 154
      end
      inherited tbCancel: TToolButton
        Left = 156
      end
      inherited tbSave: TToolButton
        Left = 191
      end
      inherited ToolButton6: TToolButton
        Left = 226
      end
      inherited tbCheck: TToolButton
        Left = 228
      end
      inherited tbClose: TToolButton
        Left = 263
      end
      inherited ToolButton1: TToolButton
        Left = 306
      end
      inherited tbFirst: TToolButton
        Left = 308
      end
      inherited tbPrevious: TToolButton
        Left = 343
      end
      inherited tbNext: TToolButton
        Left = 378
      end
      inherited tbLast: TToolButton
        Left = 413
      end
      inherited ToolButton2: TToolButton
        Left = 448
      end
      inherited tbQuery: TToolButton
        Left = 450
      end
      inherited tbPrint: TToolButton
        Left = 485
      end
      inherited tbExport: TToolButton
        Left = 520
      end
      inherited ToolButton4: TToolButton
        Left = 555
      end
      inherited tbHelp: TToolButton
        Left = 557
      end
      inherited tbControl: TToolButton
        Left = 592
      end
    end
  end
  object sgApcl: TSDGrid [2]
    Left = 0
    Top = 71
    Width = 361
    Height = 309
    Align = alLeft
    Color = 50331647
    Ctl3D = False
    DefaultRowHeight = 22
    FixedColor = 8564917
    RowCount = 1
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 2
    OnClick = sgApclClick
    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
      185
      60
      60
      37)
  end
  object FloatPanel1: TFloatPanel [3]
    Left = 361
    Top = 71
    Width = 271
    Height = 309
    Align = alClient
    Color = 50331647
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 3
    object Label4: TLabel
      Left = 14
      Top = 30
      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 = 14
      Top = 85
      Width = 60
      Height = 12
      Caption = '年 初 数：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 14
      Top = 58
      Width = 60
      Height = 12
      Caption = '币    种：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seApnpEiRate1: TLabel
      Left = 14
      Top = 113
      Width = 60
      Height = 12
      Caption = '期 初 数：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 14
      Top = 168
      Width = 60
      Height = 12
      Caption = '本年付款：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 14
      Top = 140
      Width = 60
      Height = 12
      Caption = '本年发生：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seApclBoyAmt: TSDEdit
      Left = 70
      Top = 79
      Width = 91
      Height = 18
      Ctl3D = False
      MaxLength = 13
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 2
      Text = '0'
      DigLen = 2
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object seApclOoyAmt: TSDEdit
      Left = 70
      Top = 163
      Width = 92
      Height = 18
      Ctl3D = False
      MaxLength = 13
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 5
      Text = '0'
      DigLen = 2
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object scApclSupply: TSDComboBox
      Left = 70
      Top = 24
      Width = 166
      Height = 20
      Style = csSimple
      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 = 'scApclSupply'
      KeyItem = cbItem2
    end
    object scApclCurrency: TSDComboBox
      Left = 70
      Top = 53
      Width = 92
      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 = 'scApclCurrency'
      KeyItem = cbItem2
      ReadOnly = True
    end
    object seApclBopAmt: TSDEdit
      Left = 71
      Top = 107
      Width = 91
      Height = 18
      Ctl3D = False
      MaxLength = 13
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 3
      Text = '0'
      DigLen = 2
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object seApclIoyAmt: TSDEdit
      Left = 71
      Top = 135
      Width = 91
      Height = 18
      Ctl3D = False
      MaxLength = 13
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 4
      Text = '0'
      DigLen = 2
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object chkApclInit: TCheckBox
      Left = 13
      Top = 193
      Width = 78
      Height = 17
      Alignment = taLeftJustify
      Caption = '初始标记：'
      TabOrder = 6
    end
    object SupplyCodeButton: TSDEdit
      Left = 215
      Top = 26
      Width = 22
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 7
      Text = 'sePohPsite'
      OnButtonClick = SupplyCodeButtonButtonClick
      ButtonVisible = True
      KeyItem = cbItem2
      SplitSymbol = ' | '
    end
  end
  object FloatPanel2: TFloatPanel [4]
    Left = 0
    Top = 39
    Width = 632
    Height = 32
    Align = alTop
    Color = 50331647
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 4
    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 Label1: TLabel
      Left = 16
      Top = 9
      Width = 60
      Height = 12
      Caption = '财务月份：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object scApclFmonth: TSDComboBox
      Left = 73
      Top = 4
      Width = 110
      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 = 'scApclFmonth'
      OnClick = scApclFmonthClick
      KeyItem = cbItem2
      ReadOnly = True
    end
  end
  inherited MainMenu1: TMainMenu
    inherited muFile: TMenuItem
      inherited muAddDetail: TMenuItem
        Caption = '初始化(&N)'
      end
      inherited muEditDetail: TMenuItem
        Visible = False
      end
      inherited muDeleteDetail: TMenuItem
        Visible = False
      end
    end
  end
end