main.nfm

Crlab公司用来连接MySQL数据库的控件

object fmMain: TfmMain
  Left = 207
  Top = 155
  Width = 740
  Height = 437
  Caption = 'MySQL Data Access Demo - using MySQL Embedded Server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid: TDBGrid
    Left = 0
    Top = 25
    Width = 732
    Height = 185
    Align = alClient
    DataSource = DataSource
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 732
    Height = 25
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel1: TPanel
      Left = 1
      Top = 0
      Width = 398
      Height = 24
      BevelOuter = bvNone
      Color = 16591631
      TabOrder = 0
      object btClose: TSpeedButton
        Left = 84
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object DBNavigator: TDBNavigator
        Left = 167
        Top = 1
        Width = 230
        Height = 22
        DataSource = DataSource
        Flat = True
        TabOrder = 0
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 391
    Width = 732
    Height = 19
    Panels = <
      item
        Text = 'State'
        Width = 50
      end>
  end
  object Memo1: TMemo
    Left = 0
    Top = 210
    Width = 732
    Height = 181
    Align = alBottom
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object DataSource: TDataSource
    DataSet = MyTable
    Left = 320
    Top = 144
  end
  object MyTable: TMyTable
    TableName = 'EMP'
    OrderFields = 'ENAME'
    Connection = MyConnection
    FetchAll = True
    Left = 288
    Top = 144
  end
  object MyScript: TMyScript
    SQL.Strings = (
      'CREATE TABLE EMP ('
      '  EMPNO INT PRIMARY KEY,'
      '  ENAME VARCHAR(10),'
      '  JOB VARCHAR(9),'
      '  MGR INT,'
      '  HIREDATE DATETIME,'
      '  SAL FLOAT,'
      '  COMM FLOAT,'
      '  DEPTNO INT REFERENCES DEPT'
      ');'
      ''
      'INSERT INTO EMP VALUES'
      '  (7369,'#39'SMITH'#39','#39'CLERK'#39',7902,'#39'1980-12-17'#39',800,NULL,20);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7499,'#39'ALLEN'#39','#39'SALESMAN'#39',7698,'#39'1981-2-20'#39',1600,300,30);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7521,'#39'WARD'#39','#39'SALESMAN'#39',7698,'#39'1981-2-22'#39',1250,500,30);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7566,'#39'JONES'#39','#39'MANAGER'#39',7839,'#39'1981-4-2'#39',2975,NULL,20);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7654,'#39'MARTIN'#39','#39'SALESMAN'#39',7698,'#39'1981-9-28'#39',1250,1400,30);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7698,'#39'BLAKE'#39','#39'MANAGER'#39',7839,'#39'1981-5-1'#39',2850,NULL,30);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7782,'#39'CLARK'#39','#39'MANAGER'#39',7839,'#39'1981-6-9'#39',2450,NULL,10);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7788,'#39'SCOTT'#39','#39'ANALYST'#39',7566,'#39'1987-7-13'#39',3000,NULL,20);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7839,'#39'KING'#39','#39'PRESIDENT'#39',NULL,'#39'1981-11-17'#39',5000,NULL,10);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7844,'#39'TURNER'#39','#39'SALESMAN'#39',7698,'#39'1981-9-8'#39',1500,0,30);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7876,'#39'ADAMS'#39','#39'CLERK'#39',7788,'#39'1987-7-13'#39',1100,NULL,20);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7900,'#39'JAMES'#39','#39'CLERK'#39',7698,'#39'1981-12-3'#39',950,NULL,30);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7902,'#39'FORD'#39','#39'ANALYST'#39',7566,'#39'1981-12-3'#39',3000,NULL,20);'
      ''
      'INSERT INTO EMP VALUES'
      '  (7934,'#39'MILLER'#39','#39'CLERK'#39',7782,'#39'1982-1-23'#39',1300,NULL,10);')
    Connection = MyConnection
    Left = 256
    Top = 144
  end
  object MyConnection: TMyEmbConnection
    Database = 'test'
    Params.Strings = (
      '--basedir=.'
      '--datadir=data')
    OnLog = MyConnectionLog
    OnLogError = MyConnectionLog
    Left = 224
    Top = 144
  end
end