sizebill.dfm

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

inherited frmSizeBill: TfrmSizeBill
  Left = 24
  Top = 2
  Width = 753
  Height = 568
  Caption = '个人尺码单'
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label5: TLabel [0]
    Left = 24
    Top = 38
    Width = 54
    Height = 12
    Caption = '尺码单号:'
  end
  object Label18: TLabel [1]
    Left = 40
    Top = 16
    Width = 30
    Height = 12
    Caption = '面料:'
  end
  object sgSizeBill: TSDGrid [2]
    Left = 0
    Top = 185
    Width = 745
    Height = 281
    TabStop = False
    Align = alClient
    Color = clWhite
    ColCount = 11
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 5
    OnClick = sgSizeBillClick
    OnDblClick = sgSizeBillDblClick
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        ColumnWidth = 0
        Merged = True
        ColMergeCount = 2
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '西装'
        ColumnWidth = 0
        Merged = True
      end
      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 = []
        ColumnWidth = 0
        Merged = True
        ColMergeCount = 2
        ColMergeOrder = 3
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '马夹'
        ColumnWidth = 0
        Merged = True
      end
      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 = []
        ColumnWidth = 0
        Merged = True
        ColMergeCount = 2
        ColMergeOrder = 6
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '西裤'
        ColumnWidth = 0
        Merged = True
      end
      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 = []
        ColumnWidth = 0
        Merged = True
        ColMergeCount = 2
        ColMergeOrder = 9
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '裙子'
        ColumnWidth = 0
        Merged = True
      end>
    ColWidths = (
      64
      111
      2
      66
      115
      2
      75
      105
      2
      66
      103)
  end
  object FloatPanel2: TFloatPanel [3]
    Left = 0
    Top = 185
    Width = 745
    Height = 281
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 4
    object Label7: TLabel
      Left = 458
      Top = 86
      Width = 54
      Height = 12
      Caption = '尺码行号:'
    end
    object Label12: TLabel
      Left = 456
      Top = 120
      Width = 30
      Height = 12
      Caption = '备注:'
    end
    object btnOK: TBitBtn
      Left = 479
      Top = 192
      Width = 68
      Height = 27
      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 = 599
      Top = 192
      Width = 68
      Height = 27
      Caption = '取消(&C)'
      TabOrder = 1
      TabStop = False
      OnClick = btnCancelClick
      Kind = bkCancel
    end
    object seSizeBillDLine: TSDEdit
      Tag = 1
      Left = 522
      Top = 81
      Width = 145
      Height = 18
      Ctl3D = False
      MaxLength = 18
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 2
      Text = 'seSizeBillDLine'
      OnKeyDown = seSizeBillCodeKeyDown
      SplitSymbol = ' | '
    end
    object memSizeBillDMemo: TMemo
      Tag = 13
      Left = 521
      Top = 110
      Width = 146
      Height = 51
      Color = clWhite
      Ctl3D = False
      Lines.Strings = (
        '')
      MaxLength = 40
      ParentCtl3D = False
      TabOrder = 3
    end
    object PageControl1: TPageControl
      Left = 0
      Top = 1
      Width = 425
      Height = 281
      ActivePage = TabSheet1
      Anchors = [akLeft, akTop, akBottom]
      TabOrder = 4
      object TabSheet1: TTabSheet
        Caption = '    西装    '
        object FloatPanel4: TFloatPanel
          Left = 0
          Top = 0
          Width = 417
          Height = 254
          Align = alClient
          Color = clWhite
          Caption = 'FloatPanel4'
          ParentColor = False
          TabOrder = 0
          object Label52: TLabel
            Left = 16
            Top = 16
            Width = 30
            Height = 12
            Caption = '面料:'
          end
          object Label53: TLabel
            Left = 16
            Top = 39
            Width = 30
            Height = 12
            Caption = '款号:'
          end
          object Label54: TLabel
            Left = 16
            Top = 62
            Width = 30
            Height = 12
            Caption = '数量:'
          end
          object Label55: TLabel
            Left = 16
            Top = 85
            Width = 54
            Height = 12
            Caption = '标准尺码:'
          end
          object Label56: TLabel
            Left = 16
            Top = 108
            Width = 30
            Height = 12
            Caption = '规格:'
          end
          object Label57: TLabel
            Left = 16
            Top = 132
            Width = 30
            Height = 12
            Caption = '衣长:'
          end
          object Label58: TLabel
            Left = 16
            Top = 155
            Width = 30
            Height = 12
            Caption = '后长:'
          end
          object Label59: TLabel
            Left = 16
            Top = 178
            Width = 30
            Height = 12
            Caption = '胸围:'
          end
          object Label60: TLabel
            Left = 16
            Top = 201
            Width = 30
            Height = 12
            Caption = '肩宽:'
          end
          object Label61: TLabel
            Left = 16
            Top = 224
            Width = 30
            Height = 12
            Caption = '袖长:'
          end
          object Label62: TLabel
            Left = 216
            Top = 152
            Width = 30
            Height = 12
            Caption = '中腰:'
          end
          object Label63: TLabel
            Left = 216
            Top = 129
            Width = 42
            Height = 12
            Caption = '袖隆深:'
          end
          object Label64: TLabel
            Left = 216
            Top = 106
            Width = 42
            Height = 12
            Caption = '后领口:'
          end
          object Label65: TLabel
            Left = 216
            Top = 83
            Width = 30
            Height = 12
            Caption = '下摆:'
          end
          object Label66: TLabel
            Left = 216
            Top = 60
            Width = 30
            Height = 12
            Caption = '背宽:'
          end
          object Label67: TLabel
            Left = 216
            Top = 36
            Width = 30
            Height = 12
            Caption = '胸宽:'
          end
          object Label68: TLabel
            Left = 216
            Top = 13
            Width = 30
            Height = 12
            Caption = '腹围:'
          end
          object seSizeBillDWSCcloth: TSDEdit
            Left = 80
            Top = 8
            Width = 121
            Height = 18
            Ctl3D = False
            ParentColor = True
            ParentCtl3D = False
            TabOrder = 0
            Text = 'SizeBillDWSCcloth'
            OnButtonClick = seSizeBillDWSCclothButtonClick
            ButtonVisible = True
            KeyItem = cbItem2
            DispItem = cbItem1
            SplitSymbol = ' | '
          end
          object seSizeBillDWSCdesign: TSDEdit
            Left = 80
            Top = 32
            Width = 121
            Height = 18
            Ctl3D = False
            ParentColor = True
            ParentCtl3D = False
            TabOrder = 1
            Text = 'SizeBillDWSCdesign'
            OnButtonClick = seSizeBillDWSCdesignButtonClick
            ButtonVisible = True
            KeyItem = cbItem2
            DispItem = cbItem1
            SplitSymbol = ' | '
          end
          object seSizeBillDWSCinstep: TSDEdit
            Left = 264
            Top = 56
            Width = 121
            Height = 18
            Ctl3D = False
            ParentColor = True
            ParentCtl3D = False
            TabOrder = 2
            Text = 'SizeBillDWSCinstep'
            SplitSymbol = ' | '
          end
          object seSizeBillDWSCstdSize: TSDEdit
            Left = 80
            Top = 80
            Width = 121
            Height = 18
            Ctl3D = False
            ParentColor = True
            ParentCtl3D = False
            TabOrder = 3
            Text = 'SizeBillDWSCstdSize'
            OnButtonClick = seSizeBillDWSCstdSizeButtonClick
            ButtonVisible = True
            KeyItem = cbItem2
            DispItem = cbItem1
            SplitSymbol = ' | '
          end
          object seSizeBillDWSCspec: TSDEdit
            Left = 80
            Top = 104
            Width = 121
            Height = 18
            Ctl3D = False
            ParentColor = True
            ParentCtl3D = False
            TabOrder = 4
            Text = 'SizeBillDWSCspec'
            SplitSymbol = ' | '
          end