vw_arrsd.dfm

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

object frmVW_Arrsd: TfrmVW_Arrsd
  Left = 37
  Top = 78
  Width = 721
  Height = 445
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = '退款红字核销明细行'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object sgArrsd: TSDGrid
    Left = 0
    Top = 49
    Width = 713
    Height = 368
    Hint = '双击查看原核销单'
    Align = alClient
    Color = clWhite
    ColCount = 7
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnDblClick = sgArrsdDblClick
    Columns = <
      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 = (
      52
      149
      64
      76
      88
      85
      185)
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 713
    Height = 49
    Align = alTop
    Color = clWhite
    TabOrder = 1
    object Label1: TLabel
      Left = 12
      Top = 17
      Width = 84
      Height = 12
      Caption = '红字核销单号：'
    end
    object Label2: TLabel
      Left = 248
      Top = 17
      Width = 72
      Height = 12
      Cursor = crHandPoint
      Hint = '双击查看来款单据'
      Caption = '退款单据号：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnDblClick = Label2DblClick
    end
    object Label3: TLabel
      Left = 486
      Top = 17
      Width = 84
      Height = 12
      Caption = '退款单据类型：'
    end
    object seCode: TSDEdit
      Left = 93
      Top = 13
      Width = 136
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
      Text = 'seCode'
      SplitSymbol = ' | '
    end
    object seDocCode: TSDEdit
      Left = 332
      Top = 13
      Width = 136
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 1
      Text = 'seDocCode'
      SplitSymbol = ' | '
    end
    object seDocType: TSDEdit
      Left = 567
      Top = 13
      Width = 136
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      Text = 'seDocType'
      SplitSymbol = ' | '
    end
  end
end