area.dfm

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

inherited frmArea: TfrmArea
  Left = 76
  Top = 102
  Width = 595
  Height = 441
  Caption = '地区代码'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel [0]
    Left = 0
    Top = 39
    Width = 289
    Height = 334
    Align = alLeft
    Caption = 'Panel1'
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
    object tvArea: TTreeView
      Left = 1
      Top = 1
      Width = 287
      Height = 332
      Align = alClient
      Color = 50331647
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      HideSelection = False
      Indent = 19
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnChange = tvAreaChange
    end
  end
  inherited sbBar: TStatusBar
    Top = 373
    Width = 587
    Panels = <
      item
        Text = '当前操作状态'
        Width = 300
      end
      item
        Text = ' 当前操作员'
        Width = 100
      end
      item
        Text = '登录日期'
        Width = 80
      end
      item
        Text = '当前日期'
        Width = 80
      end
      item
        Text = 'KSERP'
        Width = 50
      end>
  end
  inherited CoolBar1: TCoolBar
    Width = 587
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 587
      end>
    inherited tbMainBar: TToolBar
      Width = 574
    end
  end
  object FloatPanel1: TFloatPanel [3]
    Left = 289
    Top = 39
    Width = 298
    Height = 334
    Align = alClient
    Color = 50331647
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 2
    object Label2: TLabel
      Left = 23
      Top = 30
      Width = 60
      Height = 12
      Caption = '地区编码：'
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 23
      Top = 64
      Width = 60
      Height = 12
      Caption = '地区名称：'
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label1: TLabel
      Left = 23
      Top = 132
      Width = 60
      Height = 12
      Caption = '详细说明：'
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 199
      Top = 28
      Width = 60
      Height = 12
      Caption = '上级编码：'
      Color = clWhite
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object labAreaUpperCode: TLabel
      Left = 267
      Top = 27
      Width = 24
      Height = 12
      Caption = 'Null'
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object Label5: TLabel
      Left = 203
      Top = 9
      Width = 60
      Height = 12
      Caption = '编码长度：'
      Color = clWhite
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object labItemLength: TLabel
      Left = 251
      Top = 56
      Width = 6
      Height = 12
      Color = clWhite
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object seAreaCode: TSDEdit
      Left = 78
      Top = 26
      Width = 107
      Height = 18
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      DigLen = 2
      SplitSymbol = ' | '
    end
    object seAreaName: TSDEdit
      Left = 79
      Top = 59
      Width = 191
      Height = 18
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      SplitSymbol = ' | '
    end
    object memAreaDesc: TMemo
      Left = 22
      Top = 147
      Width = 208
      Height = 60
      Color = 50331647
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
    end
    object chkAreaEnd: TCheckBox
      Left = 23
      Top = 98
      Width = 90
      Height = 15
      Caption = '是否末级'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object seAreaCom: TSDEdit
      Left = 202
      Top = 42
      Width = 81
      Height = 18
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      Visible = False
      DigLen = 2
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 219
    Top = 214
  end
  inherited ImageList1: TImageList
    Left = 125
    Top = 214
  end
  inherited RecPrintDlg: TPrintDialog
    Left = 155
    Top = 214
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 187
    Top = 214
  end
end