u_createdbeditor.dfm

控件作用: 自动创建SQL数据库(可以同时间创建多个数据库) 控件用法: 1:添加数据库(可以添加多个数据库)选择相应的数据库. 2:添加SQL文件(创建数据表,视图,过程.可从SQL文件中

object CreateDBEditor: TCreateDBEditor
  Left = 0
  Top = 104
  Width = 800
  Height = 497
  Caption = 'CreateDBEditor'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Lucida Console'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 11
  object cSp1: TcSplitter
    Left = 200
    Top = 50
    Width = 10
    Height = 413
    Cursor = crHSplit
    Color = clGray
    MinSize = 34
    ParentColor = False
    ResizeStyle = rsUpdate
    OnMoved = cSp1Moved
    OnRClick = cSp1RClick
    MaxSize = 200
  end
  object Panel1: TPanel
    Left = 210
    Top = 50
    Width = 582
    Height = 413
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    Caption = 'pnl'
    TabOrder = 1
    object cSp2: TcSplitter
      Left = 1
      Top = 280
      Width = 580
      Height = 10
      Cursor = crVSplit
      Align = alTop
      Color = clGray
      ParentColor = False
      ResizeStyle = rsUpdate
      OnMoved = cSp2Moved
      MaxSize = 0
    end
    object pnl_Default: TPanel
      Left = 1
      Top = 290
      Width = 580
      Height = 122
      Align = alClient
      Enabled = False
      TabOrder = 0
      object Panel3: TPanel
        Left = 1
        Top = 1
        Width = 578
        Height = 25
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 10
          Height = 25
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
        end
        object Panel5: TPanel
          Left = 10
          Top = 0
          Width = 432
          Height = 25
          Align = alClient
          Alignment = taLeftJustify
          BevelOuter = bvNone
          Caption = 'Default data'
          TabOrder = 1
          OnClick = Panel5Click
        end
        object Panel6: TPanel
          Left = 442
          Top = 0
          Width = 136
          Height = 25
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 2
          object SpeedButton2: TSpeedButton
            Left = 6
            Top = 2
            Width = 124
            Height = 22
            Caption = 'Load from file'
            Flat = True
            OnClick = SpeedButton2Click
          end
        end
      end
      object rEdt_Default: TMemo
        Left = 1
        Top = 26
        Width = 578
        Height = 95
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
        OnChange = REdt_DefaultChange
      end
    end
    object pnl_Struct: TPanel
      Left = 1
      Top = 1
      Width = 580
      Height = 279
      Align = alTop
      Enabled = False
      TabOrder = 1
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 578
        Height = 25
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Panel8: TPanel
          Left = 0
          Top = 0
          Width = 10
          Height = 25
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
        end
        object Panel9: TPanel
          Left = 10
          Top = 0
          Width = 432
          Height = 25
          Align = alClient
          Alignment = taLeftJustify
          BevelOuter = bvNone
          Caption = 'Structure'
          TabOrder = 1
          OnClick = Panel9Click
        end
        object Panel2: TPanel
          Left = 442
          Top = 0
          Width = 136
          Height = 25
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 2
          object SpeedButton1: TSpeedButton
            Left = 6
            Top = 2
            Width = 124
            Height = 22
            Caption = 'Load from file'
            Flat = True
            OnClick = SpeedButton1Click
          end
        end
      end
      object rEdt_Struct: TMemo
        Left = 1
        Top = 26
        Width = 578
        Height = 252
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 1
        WordWrap = False
        OnChange = REdt_StructChange
      end
    end
  end
  object lv_dbs: TListView
    Left = 0
    Top = 50
    Width = 200
    Height = 413
    Align = alLeft
    BevelInner = bvNone
    BevelOuter = bvRaised
    BevelKind = bkFlat
    BorderStyle = bsNone
    Columns = <>
    Ctl3D = False
    DragMode = dmAutomatic
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Lucida Console'
    Font.Style = [fsBold]
    FlatScrollBars = True
    FullDrag = True
    GridLines = True