szrh.dfm

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

inherited frmSzrh: TfrmSzrh
  Left = 37
  Top = 122
  Width = 702
  Height = 471
  Caption = '销售折让'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object FloatPanel2: TFloatPanel [0]
    Left = 0
    Top = 146
    Width = 697
    Height = 224
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 3
    object GroupBox2: TGroupBox
      Left = 10
      Top = 16
      Width = 663
      Height = 191
      TabOrder = 2
      object Label10: TLabel
        Left = 35
        Top = 26
        Width = 36
        Height = 12
        Caption = '行号：'
      end
      object Label19: TLabel
        Left = 35
        Top = 60
        Width = 60
        Height = 12
        Caption = '发货单号：'
      end
      object Label20: TLabel
        Left = 35
        Top = 93
        Width = 72
        Height = 12
        Caption = '发货单行号：'
      end
      object Label21: TLabel
        Left = 35
        Top = 127
        Width = 48
        Height = 12
        Caption = '订单号：'
        Enabled = False
      end
      object Label22: TLabel
        Left = 35
        Top = 160
        Width = 60
        Height = 12
        Caption = '订单行号：'
        Enabled = False
      end
      object Label12: TLabel
        Left = 277
        Top = 24
        Width = 60
        Height = 12
        Caption = '交易数量：'
        Enabled = False
      end
      object Label16: TLabel
        Left = 277
        Top = 56
        Width = 60
        Height = 12
        Caption = '折让金额：'
      end
      object Label17: TLabel
        Left = 277
        Top = 88
        Width = 60
        Height = 12
        Caption = '折让现金：'
      end
      object Label18: TLabel
        Left = 277
        Top = 121
        Width = 36
        Height = 12
        Caption = '备注：'
      end
      object seSzrdLine: TSDEdit
        Left = 106
        Top = 19
        Width = 121
        Height = 18
        Ctl3D = False
        Enabled = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 0
        Text = 'seSzrdLine'
        SplitSymbol = ' | '
      end
      object seSzrdSodLine: TSDEdit
        Left = 106
        Top = 152
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 1
        Text = 'seSzrdSodLine'
        SplitSymbol = ' | '
      end
      object seSzrdQty: TSDEdit
        Left = 349
        Top = 23
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 2
        Text = '0'
        DigLen = 6
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seSzrdAmt: TSDEdit
        Left = 349
        Top = 54
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 3
        Text = '0'
        DigLen = 2
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seSzrdCashAmt: TSDEdit
        Left = 349
        Top = 84
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 4
        Text = '0'
        DigLen = 2
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seSzrdDesc: TMemo
        Left = 328
        Top = 119
        Width = 273
        Height = 53
        Color = clWhite
        Ctl3D = False
        Lines.Strings = (
          'seSzrdDesc')
        ParentCtl3D = False
        TabOrder = 5
      end
      object seSzrdSogdLine: TSDEdit
        Left = 106
        Top = 86
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 6
        Text = 'seSzrdSogdLine'
        OnButtonClick = seSzrdSogCodeButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object seSzrdSogCode: TSDEdit
        Left = 106
        Top = 52
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 7
        Text = 'seSzrdSogCode'
        OnButtonClick = seSzrdSogCodeButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object seSzrdSoCode: TSDEdit
        Left = 106
        Top = 119
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 8
        Text = 'seSzrdSoCode'
        SplitSymbol = ' | '
      end
    end
    object btnOK: TBitBtn
      Left = 512
      Top = 37
      Width = 93
      Height = 28
      Caption = '确定(&O)'
      ModalResult = 1
      TabOrder = 0
      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 = 512
      Top = 85
      Width = 94
      Height = 28
      Caption = '取消(&C)'
      TabOrder = 1
      TabStop = False
      OnClick = btnCancelClick
      Kind = bkCancel
    end
  end
  object sgSzrd: TSDGrid [1]
    Left = 1
    Top = 146
    Width = 692
    Height = 218
    Color = clWhite
    ColCount = 9
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
    ParentCtl3D = False
    TabOrder = 4
    OnClick = sgSzrdClick
    OnDblClick = sgSzrdDblClick
    OddGridColor = clWhite
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '发货单号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '发货单行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '订单号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET