planparam.dfm

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

object frmPlanParam: TfrmPlanParam
  Left = 78
  Top = 64
  Width = 686
  Height = 503
  Caption = '参数维护'
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010000000000000680500001600000028000000100000002000
    000001000800000000004001000000000000000000000001000000000000FFFF
    FF00FF690000FCF9F900F7EFF000F0E2E300EFE0E100EEDEDF00EEDDDE00EBD7
    D900E9D3D500E2C6C800DDBCBF00DDBBBE00DBB8BB00DAB6B900D6ADB100D2A6
    AA00D1A5A900CFA1A500C68F9400C58C9100BF818600BD7D8300BD7C8200B873
    7900B46A7000B2666D00AF616800AE5F6600AC5B6200AB596000A64F5700A44C
    5400A1464E00A1454D009D3D450098343D0096303900962F3800952D36008C1C
    26008B1A24008A1822008A17210089151F0088131D00850E1800850D17008106
    11008105100080040F0080030E007F020D00FF870C00FF004700FF0000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000363636360000163636361F0C0000000036
    363636001B363636363636130000000000000000000000000000000000000036
    3636360000002736363636362000003636363600000000363636363636000000
    00000000000000000000000000000036363636000A3636000036363622000036
    3636360021363624030036360F00000000000000000000000000000000000036
    36363600363636363618000000000036363636001C3636363636140000000000
    0000000000000000000000000000003636363600001536363636362300000036
    363636000000122436361A000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object FloatPanel1: TFloatPanel
    Left = 356
    Top = 0
    Width = 322
    Height = 476
    Align = alClient
    Color = 50331647
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 0
    object Label2: TLabel
      Left = 26
      Top = 72
      Width = 65
      Height = 13
      Caption = '参数名称：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 26
      Top = 101
      Width = 65
      Height = 13
      Caption = '参数描述：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 26
      Top = 21
      Width = 65
      Height = 13
      Caption = '上级编码：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 26
      Top = 146
      Width = 65
      Height = 13
      Caption = '参数类型：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object lbParaUpperCode: TLabel
      Left = 87
      Top = 20
      Width = 28
      Height = 13
      Caption = 'Null'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 26
      Top = 46
      Width = 65
      Height = 13
      Caption = '本级编码：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seParaName: TSDEdit
      Left = 87
      Top = 63
      Width = 198
      Height = 19
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      Text = 'seParaName'
      SplitSymbol = ' | '
    end
    object seParaItem: TSDEdit
      Left = 87
      Top = 39
      Width = 195
      Height = 19
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = 'seParaItem'
      SplitSymbol = ' | '
    end
    object scParaType: TSDComboBox
      Left = 88
      Top = 142
      Width = 119
      Height = 21
      Style = csDropDownList
      Color = 50331647
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 13
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      KeyItem = cbItem2
    end
    object GroupBox1: TGroupBox
      Left = 26
      Top = 170
      Width = 263
      Height = 168
      Caption = '参数的值'
      Color = 50331647
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 4
      object Label9: TLabel
        Left = 4
        Top = 21
        Width = 78
        Height = 13
        Caption = '参数值类型：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 17
        Top = 48
        Width = 65
        Height = 13
        Caption = '参数的值：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 4
        Top = 74
        Width = 78
        Height = 13
        Caption = '参数值描述：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object scParaValueType: TSDComboBox
        Left = 81
        Top = 13
        Width = 115
        Height = 21
        Style = csDropDownList
        Color = 50331647
        Ctl3D = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 13
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        KeyItem = cbItem2
      end
      object seParaValue: TSDEdit
        Left = 82
        Top = 42
        Width = 155
        Height = 19
        Ctl3D = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentColor = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
        Text = 'seParaValue'
        SplitSymbol = ' | '
      end
      object memParaValueDesc: TMemo
        Left = 9
        Top = 92
        Width = 243
        Height = 65
        Color = 50331647
        Ctl3D = False
        Lines.Strings = (
          'memParaDesc')
        ParentCtl3D = False
        TabOrder = 2
      end
    end
    object memParaDesc: TMemo
      Left = 87
      Top = 91
      Width = 196
      Height = 48
      Color = 50331647
      Ctl3D = False
      Lines.Strings = (
        'memParaDesc')
      ParentCtl3D = False
      TabOrder = 2
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 356
    Height = 476
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 1
    object tvParameter: TTreeView
      Left = 1
      Top = 1
      Width = 354
      Height = 474
      Align = alClient
      Color = 50331647
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      Indent = 19
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnChange = tvParameterChange
      OnClick = tvParameterClick
    end
  end
end