loc.dfm

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

inherited frmLoc: TfrmLoc
  Left = 10
  Top = 159
  Width = 736
  Height = 538
  Caption = '货位编码维护'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 471
    Width = 728
  end
  inherited CoolBar1: TCoolBar
    Width = 728
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 728
      end>
    inherited tbMainBar: TToolBar
      Width = 715
      inherited tbQuery: TToolButton
        Visible = False
      end
    end
  end
  object FloatPanel2: TFloatPanel [2]
    Left = 0
    Top = 39
    Width = 728
    Height = 40
    Align = alTop
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 2
    object Label6: TLabel
      Left = 22
      Top = 13
      Width = 54
      Height = 12
      Caption = '所属仓库:'
    end
    object scLocSthCode: TSDComboBox
      Left = 72
      Top = 9
      Width = 209
      Height = 20
      TabStop = False
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      OnClick = scLocSthCodeClick
    end
  end
  object sgLoc: TSDGrid [3]
    Left = 0
    Top = 79
    Width = 337
    Height = 392
    Align = alLeft
    Color = clWhite
    ColCount = 4
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 3
    OnClick = sgLocClick
    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>
    ColWidths = (
      5
      74
      161
      90)
  end
  object FloatPanel1: TFloatPanel [4]
    Left = 337
    Top = 79
    Width = 391
    Height = 392
    BorderWidth = 1
    Color = clWhite
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 4
    object Label1: TLabel
      Left = 29
      Top = 29
      Width = 54
      Height = 12
      Caption = '货位代码:'
    end
    object Label2: TLabel
      Left = 29
      Top = 56
      Width = 54
      Height = 12
      Caption = '货位名称:'
    end
    object Label3: TLabel
      Left = 28
      Top = 302
      Width = 30
      Height = 12
      Caption = '说明:'
    end
    object Label4: TLabel
      Left = 29
      Top = 84
      Width = 54
      Height = 12
      Caption = '货位类型:'
    end
    object Label5: TLabel
      Left = 29
      Top = 111
      Width = 54
      Height = 12
      Caption = '盘点方法:'
    end
    object Label7: TLabel
      Left = 31
      Top = 140
      Width = 18
      Height = 12
      Caption = '长:'
    end
    object Label8: TLabel
      Left = 31
      Top = 166
      Width = 18
      Height = 12
      Caption = '宽:'
    end
    object Label9: TLabel
      Left = 31
      Top = 190
      Width = 18
      Height = 12
      Caption = '高:'
    end
    object Label10: TLabel
      Left = 31
      Top = 216
      Width = 30
      Height = 12
      Caption = '容积:'
    end
    object seLocCode: TSDEdit
      Left = 82
      Top = 24
      Width = 204
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 0
      Text = 'seLocCode'
      OnExit = seLocCodeExit
      SplitSymbol = ' | '
    end
    object seLocName: TSDEdit
      Left = 82
      Top = 51
      Width = 206
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 1
      Text = 'seLocName'
      SplitSymbol = ' | '
    end
    object scLocType: TSDComboBox
      Left = 82
      Top = 79
      Width = 152
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 2
      KeyItem = cbItem2
    end
    object scLocStkCode: TSDComboBox
      Left = 82
      Top = 106
      Width = 152
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 3
      KeyItem = cbItem2
    end
    object GroupBox1: TGroupBox
      Left = 22
      Top = 243
      Width = 331
      Height = 47
      Caption = '属性'
      Color = clWhite
      ParentColor = False
      TabOrder = 4
      object cheLocVirtual: TCheckBox
        Left = 8
        Top = 20
        Width = 93
        Height = 15
        Caption = '虚拟货位标识'
        TabOrder = 0
      end
      object cheLocPlnflg: TCheckBox
        Left = 105
        Top = 19
        Width = 118
        Height = 16
        Caption = '是否参与计划运算'
        TabOrder = 1
      end
      object chFreez: TCheckBox
        Left = 225
        Top = 18
        Width = 75
        Height = 17
        Caption = '是否冷藏'
        TabOrder = 2
      end
    end
    object memLocDesc: TMemo
      Left = 61
      Top = 300
      Width = 289
      Height = 58
      Color = clWhite
      Ctl3D = False
      Lines.Strings = (
        'memLocDesc')
      ParentCtl3D = False
      TabOrder = 5
    end
    object seWidth: TSDEdit
      Left = 80
      Top = 162
      Width = 152
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 6
      Text = 'seWidth'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seHeight: TSDEdit
      Left = 80
      Top = 188
      Width = 152
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 7
      Text = 'seHeight'
      OnExit = seHeightExit
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seCubag: TSDEdit
      Left = 80
      Top = 213
      Width = 152
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 8
      Text = 'seCubag'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seLong: TSDEdit
      Left = 83
      Top = 135
      Width = 150
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 9
      Text = 'seLong'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 610
    Top = 11
  end
  inherited ImageList1: TImageList
    Left = 577
    Top = 10
  end
  inherited RecPrintDlg: TPrintDialog
    Left = 523
    Top = 7
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 547
    Top = 7
  end
end