apob.dfm

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 640 行

inherited frmApob: TfrmApob
  Left = 102
  Top = 84
  Width = 680
  Height = 460
  Caption = '其他应付单'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 392
    Width = 672
  end
  inherited CoolBar1: TCoolBar
    Width = 672
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 672
      end>
    inherited tbMainBar: TToolBar
      Width = 659
    end
  end
  object sgApob: TSDGrid [2]
    Left = 0
    Top = 39
    Width = 329
    Height = 320
    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 = sgApobClick
    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
      91
      75
      84
      58)
  end
  object FloatPanel3: TFloatPanel [3]
    Left = 0
    Top = 359
    Width = 672
    Height = 33
    Align = alBottom
    Color = 50331647
    Enabled = False
    Caption = 'FloatPanel3'
    ParentColor = False
    TabOrder = 3
    object Label9: TLabel
      Left = 122
      Top = 8
      Width = 48
      Height = 12
      Caption = '审核人：'
    end
    object lbApobChecker: TLabel
      Left = 170
      Top = 8
      Width = 78
      Height = 12
      Caption = 'lbApobChecker'
    end
    object Label6: TLabel
      Left = 290
      Top = 8
      Width = 60
      Height = 12
      Caption = '审核日期：'
    end
    object lbApobCheckDate: TLabel
      Left = 351
      Top = 8
      Width = 90
      Height = 12
      Caption = 'lbApobCheckDate'
    end
    object Label7: TLabel
      Left = 487
      Top = 8
      Width = 48
      Height = 12
      Caption = '操作员：'
    end
    object lbApobUser: TLabel
      Left = 536
      Top = 8
      Width = 60
      Height = 12
      Caption = 'lbApobUser'
    end
    object chkApobCheck: TCheckBox
      Left = 48
      Top = 6
      Width = 45
      Height = 17
      Caption = '审核'
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 0
    end
  end
  object FloatPanel1: TFloatPanel [4]
    Left = 329
    Top = 39
    Width = 343
    Height = 320
    Align = alClient
    Color = 50331647
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 4
    object Label2: TLabel
      Left = 14
      Top = 18
      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 = 14
      Top = 103
      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 = 14
      Top = 46
      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 = 160
      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 = 174
      Top = 132
      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 = 132
      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 = 14
      Top = 188
      Width = 60
      Height = 12
      Caption = '红冲金额：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seApnpEiRate1: TLabel
      Left = 174
      Top = 160
      Width = 60
      Height = 12
      Caption = '核销金额：'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 174
      Top = 75
      Width = 60
      Height = 12
      Caption = '原 单 号：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 174
      Top = 22
      Width = 60
      Height = 12
      Caption = '单据日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object scApnpState1: TLabel
      Left = 174
      Top = 188
      Width = 60
      Height = 12
      Caption = '状    态：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label19: TLabel
      Left = 174
      Top = 50
      Width = 60
      Height = 12
      Caption = '应付日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 14
      Top = 217
      Width = 60
      Height = 12
      Caption = '备    注：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 106
      Top = 217
      Width = 60
      Height = 12
      Caption = '系统日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object lbApobSysDate: TLabel
      Left = 163
      Top = 216
      Width = 78
      Height = 12
      Caption = 'lbApobSysDate'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object scApobState: TSDComboBox
      Left = 231
      Top = 184
      Width = 92
      Height = 20
      Style = csDropDownList
      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
      Visible = False
      KeyItem = cbItem2
    end
    object scApobFmonth: TSDComboBox
      Left = 70
      Top = 40
      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 = 2
      Text = 'scApobFmonth'
      KeyItem = cbItem2
      ReadOnly = True
    end
    object seApobEnrate: TSDEdit
      Left = 231
      Top = 128
      Width = 92
      Height = 18
      Ctl3D = False
      Enabled = False
      MaxLength = 13
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 8
      Text = '0'
      DigLen = 4
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object seApobAmt: TSDEdit
      Left = 70
      Top = 156
      Width = 91
      Height = 18
      Ctl3D = False
      MaxLength = 13
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 9
      Text = '0'
      DigLen = 2
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object seApobRAmt: TSDEdit
      Left = 70
      Top = 184
      Width = 92
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 11
      Text = '0'
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object seApobOCode: TSDEdit
      Left = 231
      Top = 71
      Width = 91
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 5
      OnButtonClick = seApobOCodeButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
    object seApobCode: TSDEdit
      Left = 70
      Top = 13
      Width = 92
      Height = 18
      Ctl3D = False
      MaxLength = 18
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 0
      Text = 'seApobCode'
      OnKeyDown = seApobCodeKeyDown
      SplitSymbol = ' | '
    end
    object scApobSupply: TSDComboBox
      Left = 70
      Top = 98
      Width = 251
      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 = 6
      Text = 'scApobSupply'
      KeyItem = cbItem2
    end
    object deApobDate: TDateEdit
      Left = 231
      Top = 19
      Width = 92
      Height = 18
      LineOffset = 2
      LineColor = clGreen
      LineVisible = False
      CDate = '2003-05-12'
      InitDate = '2003-05-12 16:10:47'
      ModalResult = 0
      TabOrder = 3
      Color = 50331647
      Ctl3D = False
      ParentCtl3D = False
    end
    object memApobDesc: TMemo
      Left = 15
      Top = 240
      Width = 311
      Height = 53
      Color = 50331647
      Ctl3D = False
      Lines.Strings = (
        '')
      ParentCtl3D = False
      TabOrder = 13
    end
    object deApobPDate: TDateEdit
      Left = 231
      Top = 46
      Width = 92
      Height = 18
      LineOffset = 2
      LineColor = clGreen
      LineVisible = False
      CDate = '2003-05-12'
      InitDate = '2003-05-12 16:10:47'
      ModalResult = 0
      TabOrder = 1
      Color = 50331647
      Ctl3D = False
      ParentCtl3D = False
    end
    object scApobCurrency: TSDComboBox
      Left = 70
      Top = 127
      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 = 7
      Text = 'scApobCurrency'
      OnClick = scApobCurrencyClick
      KeyItem = cbItem2
      ReadOnly = True
    end
    object seApobCAmt: TSDEdit
      Left = 232
      Top = 156
      Width = 91
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 10
      Text = '0'
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object chkApobRed: TCheckBox
      Left = 13
      Top = 75
      Width = 81
      Height = 17
      Alignment = taLeftJustify
      Caption = '红    字：'
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 4
      OnMouseUp = chkApobRedMouseUp
    end
    object SupplyCodeButton: TSDEdit
      Left = 300
      Top = 100
      Width = 22
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 14
      Text = 'sePohPsite'
      OnButtonClick = SupplyCodeButtonButtonClick
      ButtonVisible = True
      KeyItem = cbItem2
      SplitSymbol = ' | '
    end
  end
  inherited RecPrintDlg: TPrintDialog
    Left = 603
    Top = 65535
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 619
    Top = 65527
  end
  inherited SaveDataDlg: TSaveDialog
    Left = 445
  end
end