arivh.dfm

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

inherited frmArivh: TfrmArivh
  Left = 3
  Top = 70
  Height = 536
  Caption = '应收发票'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object sgArivd: TSDGrid [0]
    Left = 1
    Top = 177
    Width = 774
    Height = 254
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clWhite
    ColCount = 12
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 4
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 4
    OnDblClick = sgArivdDblClick
    OnSelectCell = sgArivdSelectCell
    OddGridColor = clWhite
    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
      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
      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 = (
      5
      65
      64
      82
      52
      116
      34
      69
      69
      64
      68
      64)
  end
  object FloatPanel2: TFloatPanel [1]
    Left = 0
    Top = 177
    Width = 779
    Height = 257
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 3
    object zArivdLine: TLabel
      Left = 16
      Top = 10
      Width = 54
      Height = 12
      Caption = '发票行号:'
    end
    object zArivdArlt: TLabel
      Left = 16
      Top = 34
      Width = 42
      Height = 12
      Caption = '行类型:'
    end
    object zArivdDocCode: TLabel
      Left = 16
      Top = 90
      Width = 42
      Height = 12
      Caption = '单据号:'
    end
    object zArivdDocLine: TLabel
      Left = 16
      Top = 122
      Width = 54
      Height = 12
      Caption = '单据行号:'
    end
    object zArivdDesc: TLabel
      Left = 18
      Top = 150
      Width = 30
      Height = 12
      Caption = '备注:'
    end
    object Label5: TLabel
      Left = 16
      Top = 62
      Width = 54
      Height = 12
      Caption = '生成来源:'
    end
    object btnOK: TBitBtn
      Left = 687
      Top = 176
      Width = 80
      Height = 27
      Caption = '确定(&O)'
      ModalResult = 1
      TabOrder = 9
      TabStop = False
      OnClick = btnOKClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnCancel: TBitBtn
      Left = 687
      Top = 210
      Width = 80
      Height = 27
      Caption = '取消(&C)'
      TabOrder = 10
      TabStop = False
      OnClick = btnCancelClick
      Kind = bkCancel
    end
    object seArivdLine: TSDEdit
      Left = 77
      Top = 7
      Width = 117
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 0
      Text = 'seArivdLine'
      SplitSymbol = ' | '
    end
    object seArivdDocCode: TSDEdit
      Left = 76
      Top = 88
      Width = 125
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      Text = 'seArivdDocCode'
      OnButtonClick = seArivdDocCodeButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
    object seArivdDocLine: TSDEdit
      Left = 76
      Top = 122
      Width = 120
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 3
      Text = 'seArivdDocLine'
      SplitSymbol = ' | '
    end
    object memArivdDesc: TMemo
      Left = 19
      Top = 168
      Width = 176
      Height = 67
      Color = 50331647
      Ctl3D = False
      Lines.Strings = (
        'memArivdDesc')
      ParentCtl3D = False
      TabOrder = 8
    end
    object GroupBox1: TGroupBox
      Left = 207
      Top = 21
      Width = 368
      Height = 116
      Caption = '数量单价'
      TabOrder = 4
      object zArivdGoods: TLabel
        Left = 14
        Top = 24
        Width = 54
        Height = 12
        Caption = '物料编码:'
      end
      object zArivdUnit: TLabel
        Left = 14
        Top = 56
        Width = 54
        Height = 12
        Caption = '计量单位:'
      end
      object zArivdQty: TLabel
        Left = 14
        Top = 89
        Width = 42
        Height = 12
        Caption = '数  量:'
      end
      object zArivdPrice: TLabel
        Left = 198
        Top = 25
        Width = 42
        Height = 12
        Caption = '单  价:'
      end
      object zArivdDRate: TLabel
        Left = 198
        Top = 56
        Width = 42
        Height = 12
        Caption = '折扣率:'
      end
      object zArivdDAmt: TLabel
        Left = 198
        Top = 89
        Width = 42
        Height = 12
        Caption = '折扣额:'
        Enabled = False
      end
      object seArivdGoods: TSDEdit
        Left = 72
        Top = 19
        Width = 113
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 0
        Text = 'seArivdGoods'
        OnButtonClick = seArivdGoodsButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object scArivdUnit: TSDComboBox
        Left = 72
        Top = 51
        Width = 110
        Height = 20
        Style = csDropDownList
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 1
        KeyItem = cbItem2
      end
      object seArivdQty: TSDEdit
        Left = 72
        Top = 84
        Width = 110
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 2
        Text = 'seArivdQty'
        OnExit = seArivdQtyExit
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
      object seArivdPrice: TSDEdit
        Left = 245
        Top = 22
        Width = 110
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 3
        Text = 'seArivdPrice'
        OnExit = seArivdQtyExit
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
      object seArivdDRate: TSDEdit
        Left = 244
        Top = 52
        Width = 110
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 4
        Text = 'seArivdDRate'
        OnExit = seArivdQtyExit
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
      object seArivdDAmt: TSDEdit
        Left = 246
        Top = 84
        Width = 110
        Height = 18
        TabStop = False
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 5
        Text = 'seArivdDAmt'
        CharType = ctMathematic
        SplitSymbol = ' | '
      end
    end
    object GroupBox2: TGroupBox
      Left = 583
      Top = 21
      Width = 185
      Height = 148
      Caption = '参考资料'
      TabOrder = 6
      object zArivdCAmt: TLabel
        Left = 6
        Top = 56
        Width = 54
        Height = 12
        Caption = '核销金额:'
      end
      object zArivdBAmt: TLabel
        Left = 6
        Top = 88
        Width = 54
        Height = 12
        Caption = '坏账金额:'
      end
      object zArivdRAmt: TLabel
        Left = 6
        Top = 25
        Width = 54
        Height = 12
        Caption = '红冲金额:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object zArivdPzCode: TLabel
        Left = 6
        Top = 121
        Width = 42
        Height = 12
        Caption = '凭证号:'
      end
      object seArivdCAmt: TSDEdit
        Left = 63
        Top = 52
        Width = 110
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 1
        Text = 'seArivdCAmt'
        SplitSymbol = ' | '
      end
      object seArivdBAmt: TSDEdit
        Left = 63
        Top = 84
        Width = 110
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 2
        Text = 'seArivdBAmt'
        SplitSymbol = ' | '
      end
      object seArivdRAmt: TSDEdit
        Left = 63