vdatadict.dfm

邮 电 公 司 erp源码

inherited frmVDataDict: TfrmVDataDict
  Left = 49
  Top = 41
  Width = 731
  Height = 522
  Caption = '视图维护'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object FloatPanel2: TFloatPanel [0]
    Left = -4
    Top = 221
    Width = 727
    Height = 234
    Color = 16118752
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 3
    Visible = False
    object Label6: TLabel
      Left = 363
      Top = 170
      Width = 30
      Height = 12
      Caption = '备注:'
    end
    object GroupBox1: TGroupBox
      Left = 9
      Top = 20
      Width = 342
      Height = 199
      TabOrder = 0
      object Label8: TLabel
        Left = 21
        Top = 21
        Width = 36
        Height = 12
        Caption = '序号：'
      end
      object Label7: TLabel
        Left = 21
        Top = 53
        Width = 48
        Height = 12
        Caption = '字段名：'
      end
      object Label9: TLabel
        Left = 21
        Top = 84
        Width = 60
        Height = 12
        Caption = '字段说明：'
      end
      object Label10: TLabel
        Left = 21
        Top = 116
        Width = 60
        Height = 12
        Caption = '数据类型：'
      end
      object Label11: TLabel
        Left = 21
        Top = 147
        Width = 60
        Height = 12
        Caption = '字段宽度：'
      end
      object Label12: TLabel
        Left = 21
        Top = 179
        Width = 60
        Height = 12
        Caption = '字段精度：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object seVFieldNo: TSDEdit
        Left = 87
        Top = 17
        Width = 185
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 0
        SplitSymbol = ' | '
      end
      object seVFieldName: TSDEdit
        Left = 87
        Top = 48
        Width = 185
        Height = 18
        CharCase = ecUpperCase
        Ctl3D = False
        MaxLength = 30
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 1
        SplitSymbol = ' | '
      end
      object seVFieldDesc: TSDEdit
        Left = 87
        Top = 80
        Width = 185
        Height = 18
        Ctl3D = False
        MaxLength = 30
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 2
        SplitSymbol = ' | '
      end
      object scVFieldType: TSDComboBox
        Left = 87
        Top = 111
        Width = 185
        Height = 20
        Style = csDropDownList
        Color = 16118752
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 3
        OnExit = scVFieldTypeExit
        KeyItem = cbItem2
      end
      object seVFieldWidth: TSDEdit
        Left = 87
        Top = 143
        Width = 185
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 4
        Text = '0'
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seVFieldScale: TSDEdit
        Left = 87
        Top = 174
        Width = 185
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 5
        Text = '0'
        DataType = dtNumber
        CharType = ctNumeric
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
    end
    object GroupBox2: TGroupBox
      Left = 359
      Top = 58
      Width = 337
      Height = 105
      TabOrder = 1
      object Label13: TLabel
        Left = 8
        Top = 40
        Width = 66
        Height = 12
        Caption = '字段表达式:'
      end
      object chkVFieldFlg: TCheckBox
        Left = 12
        Top = 12
        Width = 97
        Height = 17
        Caption = '虚拟字段'
        TabOrder = 0
      end
      object memVFieldExpr: TMemo
        Left = 84
        Top = 36
        Width = 237
        Height = 64
        Color = 16118752
        Ctl3D = False
        Lines.Strings = (
          'memVFieldExpr')
        MaxLength = 255
        ParentCtl3D = False
        TabOrder = 1
      end
    end
    object memVFieldMemo: TMemo
      Left = 402
      Top = 170
      Width = 294
      Height = 48
      Color = 16118752
      Ctl3D = False
      Lines.Strings = (
        'memVFieldMemo')
      MaxLength = 255
      ParentCtl3D = False
      TabOrder = 2
    end
    object btnOK: TBitBtn
      Left = 422
      Top = 19
      Width = 82
      Height = 28
      Caption = '确定(&O)'
      TabOrder = 3
      TabStop = False
      OnClick = btnOKClick
      Kind = bkOK
    end
    object btnCancel: TBitBtn
      Left = 538
      Top = 19
      Width = 83
      Height = 28
      Caption = '取消(&C)'
      TabOrder = 4
      TabStop = False
      OnClick = btnCancelClick
      Kind = bkCancel
    end
  end
  object sgVDataDict: TSDGrid [1]
    Left = 0
    Top = 221
    Width = 723
    Height = 233
    Align = alClient
    Color = 16118752
    ColCount = 8
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
    ParentCtl3D = False
    TabOrder = 2
    OnDblClick = sgVDataDictDblClick
    OnSelectCell = sgVDataDictSelectCell
    Columns = <
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = 'MS Sans Serif'
        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
      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
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = ' 虚拟字段标志'
        ColumnWidth = 0
      end>
    ColWidths = (
      10
      34
      133
      123
      49
      49
      53
      80)
  end
  inherited sbBar: TStatusBar
    Top = 454
    Width = 723
    Color = clMenu
  end
  inherited CoolBar1: TCoolBar
    Width = 723
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 723
      end>
    inherited tbMainBar: TToolBar
      Width = 710
      inherited tbCheck: TToolButton
        Visible = False
      end
    end
  end
  object FloatPanel1: TFloatPanel [4]
    Left = 0
    Top = 39
    Width = 723
    Height = 182
    Align = alTop
    Color = 16118752
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 4
    object Label1: TLabel
      Left = 27
      Top = 13
      Width = 48
      Height = 12
      Caption = '视图名：'
    end
    object Label2: TLabel
      Left = 375
      Top = 13
      Width = 60
      Height = 12
      Caption = '视图说明：'
    end
    object Label3: TLabel
      Left = 27
      Top = 39
      Width = 60
      Height = 12
      Caption = '所属模块：'
    end
    object Label5: TLabel
      Left = 375
      Top = 39
      Width = 54
      Height = 12
      Caption = '系统日期:'
    end
    object Label4: TLabel
      Left = 375
      Top = 118
      Width = 54
      Height = 12
      Caption = '排序字段:'
    end
    object Label19: TLabel
      Left = 27
      Top = 66
      Width = 54
      Height = 12
      Caption = '引用表名:'
    end
    object Label20: TLabel
      Left = 375
      Top = 66
      Width = 54
      Height = 12
      Caption = '过滤条件:'
    end
    object Label21: TLabel
      Left = 27
      Top = 118
      Width = 54
      Height = 12
      Caption = '分组字段:'
    end
    object lbViewDate: TLabel
      Left = 439
      Top = 38
      Width = 60
      Height = 12
      Caption = 'lbViewDate'
    end
    object seViewName: TSDEdit
      Left = 97
      Top = 8
      Width = 245
      Height = 18
      CharCase = ecUpperCase
      Ctl3D = False
      MaxLength = 18
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 0
      OnKeyDown = seViewNameKeyDown
      SplitSymbol = ' | '
    end
    object seViewDesc: TSDEdit
      Left = 439
      Top = 8
      Width = 241
      Height = 18
      Ctl3D = False
      MaxLength = 40
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 1
      SplitSymbol = ' | '
    end
    object scViewClassID: TSDComboBox
      Left = 97
      Top = 33
      Width = 245
      Height = 20
      Color = 16118752
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 2
      KeyItem = cbItem2
    end
    object memViewWhere: TMemo
      Left = 439
      Top = 60
      Width = 245
      Height = 48
      Color = 16118752
      Ctl3D = False
      Lines.Strings = (
        'memViewWhere')
      MaxLength = 255
      ParentCtl3D = False
      TabOrder = 5
    end
    object memViewTable: TMemo
      Left = 97
      Top = 60
      Width = 241
      Height = 48
      Color = 16118752
      Ctl3D = False
      Lines.Strings = (
        'memViewTable')
      MaxLength = 255
      ParentCtl3D = False
      TabOrder = 3
    end
    object memViewOrder: TMemo
      Left = 439
      Top = 116
      Width = 245
      Height = 48
      Color = 16118752
      Ctl3D = False
      Lines.Strings = (
        'memViewOrder')
      MaxLength = 255
      ParentCtl3D = False
      TabOrder = 6
    end
    object memViewGroup: TMemo
      Left = 97
      Top = 116
      Width = 241
      Height = 48
      Color = 16118752
      Ctl3D = False
      Lines.Strings = (
        'memViewGroup')
      MaxLength = 255
      ParentCtl3D = False
      TabOrder = 4
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 649
    Top = 9
  end
  inherited ImageList1: TImageList
    Left = 632
    Top = 5
  end
end