sqldriverediteh.dfm

EhLib v4.3.21 (完整源码) Ehlib 是著名的数据库连接控制

              Text = 'TableName'
              Visible = True
            end
            object GroupBox1: TGroupBox
              Left = 10
              Top = -2
              Width = 264
              Height = 69
              Caption = ' Dinamic generation '
              TabOrder = 3
              object cbDinaDeleteSQL: TCheckBox
                Left = 10
                Top = 49
                Width = 248
                Height = 14
                Caption = 'Dinamic delete SQL'
                TabOrder = 0
              end
              object cbDinaInsertSQL: TCheckBox
                Left = 10
                Top = 32
                Width = 248
                Height = 13
                Caption = 'Dinamic insert SQL'
                TabOrder = 1
              end
              object cbDinaUpdateSQL: TCheckBox
                Left = 10
                Top = 15
                Width = 249
                Height = 14
                Caption = 'Dinamic update SQL'
                TabOrder = 2
              end
            end
          end
          object Panel12: TPanel
            Left = 0
            Top = 0
            Width = 274
            Height = 249
            Align = alClient
            BevelOuter = bvNone
            Caption = 'Panel12'
            TabOrder = 1
            object mSpecParams: TMemo
              Left = 0
              Top = 26
              Width = 274
              Height = 223
              Align = alClient
              TabOrder = 0
            end
            object Panel10: TPanel
              Left = 0
              Top = 0
              Width = 274
              Height = 26
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 1
              object Label4: TLabel
                Left = 3
                Top = 7
                Width = 58
                Height = 13
                Caption = 'SpecParams'
              end
              object Bevel4: TBevel
                Left = 72
                Top = 14
                Width = 133
                Height = 2
              end
              object bLoadSpecString: TButton
                Left = 209
                Top = 2
                Width = 66
                Height = 24
                Caption = 'Load list'
                TabOrder = 0
                OnClick = bLoadSpecStringClick
              end
            end
          end
        end
      end
      object bBuildUpdates: TButton
        Left = 349
        Top = 1
        Width = 79
        Height = 22
        Caption = 'Build updates'
        TabOrder = 1
        OnClick = bBuildUpdatesClick
      end
    end
  end
  object MemTableEh1: TMemTableEh
    Params = <>
    AfterOpen = MemTableEh1AfterOpen
    Left = 6
    Top = 319
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 34
    Top = 319
  end
  object mtParams: TMemTableEh
    Active = True
    CachedUpdates = True
    Params = <>
    Left = 452
    Top = 222
    object mtParamsParName: TStringField
      DisplayWidth = 10
      FieldName = 'ParName'
      Size = 255
    end
    object mtParamsParType: TStringField
      DefaultExpression = 'ftString'
      DisplayWidth = 13
      FieldName = 'ParType'
      Size = 255
    end
    object mtParamsParValue: TStringField
      DisplayWidth = 14
      FieldName = 'ParValue'
      Size = 255
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object ParName: TMTStringDataFieldEh
          FieldName = 'ParName'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 255
          Transliterate = False
        end
        object ParType: TMTStringDataFieldEh
          FieldName = 'ParType'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 255
          Transliterate = False
        end
        object ParValue: TMTStringDataFieldEh
          FieldName = 'ParValue'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 255
          Transliterate = False
        end
      end
      object RecordsList: TRecordsListEh
      end
    end
  end
  object dsParams: TDataSource
    DataSet = mtParams
    Left = 424
    Top = 222
  end
  object mtTreeDetail: TMemTableEh
    Params = <>
    Left = 12
    Top = 247
  end
  object dsTreeDetail: TDataSource
    Left = 40
    Top = 247
  end
  object PopupMenu1: TPopupMenu
    Left = 248
    Top = 162
    object Ggg1: TMenuItem
      Caption = ' '
      OnClick = Ggg1Click
    end
  end
  object dsDBTree: TDataSource
    DataSet = mtDBTree
    OnDataChange = dsDBTreeDataChange
    Left = 8
    Top = 156
  end
  object mtDBTree: TMemTableEh
    Active = True
    FieldDefs = <
      item
        Name = 'Id'
        DataType = ftAutoInc
      end
      item
        Name = 'RefParent'
        DataType = ftInteger
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 500
      end
      item
        Name = 'ChieldCount'
        DataType = ftInteger
      end
      item
        Name = 'Description'
        DataType = ftString
        Size = 500
      end
      item
        Name = 'RefData'
      end
      item
        Name = 'ImageIndex'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 38
    Top = 156
    object mtDBTreeId: TAutoIncField
      FieldName = 'Id'
    end
    object mtDBTreeRefParent: TIntegerField
      FieldName = 'RefParent'
    end
    object mtDBTreeName: TStringField
      FieldName = 'Name'
      Size = 500
    end
    object mtDBTreeChieldCount: TIntegerField
      FieldName = 'ChieldCount'
    end
    object mtDBTreeDescription: TStringField
      FieldName = 'Description'
      Size = 500
    end
    object mtDBTreeRefData: TRefObjectField
      FieldName = 'RefData'
    end
    object mtDBTreeImageIndex: TIntegerField
      FieldName = 'ImageIndex'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object Id: TMTNumericDataFieldEh
          FieldName = 'Id'
          NumericDataType = fdtAutoIncEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          currency = False
          Precision = 0
        end
        object RefParent: TMTNumericDataFieldEh
          FieldName = 'RefParent'
          NumericDataType = fdtIntegerEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          currency = False
          Precision = 0
        end
        object Name: TMTStringDataFieldEh
          FieldName = 'Name'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 500
          Transliterate = False
        end
        object ChieldCount: TMTNumericDataFieldEh
          FieldName = 'ChieldCount'
          NumericDataType = fdtIntegerEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          currency = False
          Precision = 0
        end
        object Description: TMTStringDataFieldEh
          FieldName = 'Description'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 500
          Transliterate = False
        end
        object RefData: TMTRefObjectFieldEh
          FieldName = 'RefData'
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
        end
        object ImageIndex: TMTNumericDataFieldEh
          FieldName = 'ImageIndex'
          NumericDataType = fdtIntegerEh
          Alignment = taLeftJustify