form_tmysqltest.dfm

通过Tmysql来访问MSQL Server数据库的应用案例.

object F_Main: TF_Main
  Left = 224
  Top = 131
  Width = 500
  Height = 375
  Caption = 'TmySQL Test Application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PC_All: TPageControl
    Left = 8
    Top = 16
    Width = 474
    Height = 233
    ActivePage = TS_Connect
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object TS_Connect: TTabSheet
      Caption = 'Connect'
      ImageIndex = 4
      object L_ServerHostname: TLabel
        Left = 16
        Top = 64
        Width = 82
        Height = 13
        Caption = 'Server Hostname'
      end
      object L_ThreadedConnect: TLabel
        Left = 136
        Top = 8
        Width = 205
        Height = 13
        Caption = 'Threaded Instance:  Not Connected'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object L_NonThreadedConnect: TLabel
        Left = 136
        Top = 24
        Width = 228
        Height = 13
        Caption = 'Non-threaded Instance:  Not Connected'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object E_ServerHostname: TEdit
        Left = 136
        Top = 56
        Width = 193
        Height = 21
        TabOrder = 0
        Text = '127.0.0.1'
      end
      object B_Connect: TButton
        Left = 136
        Top = 88
        Width = 193
        Height = 25
        Caption = 'Connect'
        Default = True
        TabOrder = 1
        OnClick = B_ConnectClick
      end
      object M_Instructions: TMemo
        Left = 8
        Top = 120
        Width = 449
        Height = 81
        Anchors = [akLeft, akTop, akRight, akBottom]
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 2
      end
    end
    object TS_CreateDatabase: TTabSheet
      Caption = 'Create/Use Database'
      object L_CreateUseDatabase: TLabel
        Left = 8
        Top = 8
        Width = 182
        Height = 13
        Caption = 'Threaded and Non-Threaded Example'
      end
      object B_CreateDatabase: TButton
        Left = 136
        Top = 88
        Width = 193
        Height = 25
        Caption = 'GO'
        Default = True
        TabOrder = 0
        OnClick = B_CreateDatabaseClick
      end
      object M_CreateDatabase: TMemo
        Left = 8
        Top = 120
        Width = 449
        Height = 79
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'create database tmysqltestdb;'
          'use database tmysqltestdb;'
          
            'create table testtable ( id integer not null primary key auto_in' +
            'crement, name text );')
        ReadOnly = True
        TabOrder = 1
      end
    end
    object TS_PopulateDatabase: TTabSheet
      Caption = 'Populate Database'
      ImageIndex = 1
      object L_PopulateDatabase: TLabel
        Left = 8
        Top = 8
        Width = 112
        Height = 13
        Caption = 'Non-Threaded Example'
      end
      object B_NonThreadedExample: TButton
        Left = 136
        Top = 88
        Width = 193
        Height = 25
        Caption = 'GO'
        Default = True
        TabOrder = 0
        OnClick = B_NonThreadedExampleClick
      end
      object LB_Populate: TListBox
        Left = 8
        Top = 120
        Width = 449
        Height = 81
        Anchors = [akLeft, akTop, akRight, akBottom]
        ItemHeight = 13
        TabOrder = 1
      end
      object CB_DoAppProcMesg: TCheckBox
        Left = 136
        Top = 64
        Width = 193
        Height = 17
        Caption = 'Do Application.ProcessMessages'
        TabOrder = 2
      end
    end
    object TS_QueryDatabase: TTabSheet
      Caption = 'Query Database'
      ImageIndex = 2
      object L_Query: TLabel
        Left = 64
        Top = 64
        Width = 34
        Height = 13
        Caption = 'Search'
      end
      object L_QueryDatabase: TLabel
        Left = 8
        Top = 8
        Width = 89
        Height = 13
        Caption = 'Threaded Example'
      end
      object LB_Query1: TListBox
        Left = 8
        Top = 120
        Width = 138
        Height = 81
        Anchors = [akLeft, akTop, akBottom]
        ItemHeight = 13
        TabOrder = 0
      end
      object B_Query: TButton
        Left = 136
        Top = 88
        Width = 193
        Height = 25
        Caption = 'GO'
        Default = True
        TabOrder = 1
        OnClick = B_QueryClick
      end
      object E_Query: TEdit
        Left = 136
        Top = 56
        Width = 193
        Height = 21
        TabOrder = 2
      end
      object LB_Query2: TListBox
        Left = 163
        Top = 120
        Width = 138
        Height = 81
        Anchors = [akTop, akBottom]
        ItemHeight = 13
        TabOrder = 3
      end
      object LB_Query3: TListBox
        Left = 319
        Top = 120
        Width = 138
        Height = 81
        Anchors = [akTop, akRight, akBottom]
        ItemHeight = 13
        TabOrder = 4
      end
    end
    object TS_RemoveAll: TTabSheet
      Caption = 'Remove All'
      ImageIndex = 3
      object L_RemoveAll: TLabel
        Left = 8
        Top = 8
        Width = 112
        Height = 13
        Caption = 'Non-Threaded Example'
      end
      object M_Remove: TMemo
        Left = 8
        Top = 120
        Width = 449
        Height = 79
        Anchors = [akLeft, akTop, akRight]
        Lines.Strings = (
          'delete from testtable;'
          'drop table testtable;'
          'drop database tmysqltestdb;')
        ReadOnly = True
        TabOrder = 0
      end
      object B_Remove: TButton
        Left = 136
        Top = 88
        Width = 193
        Height = 25
        Caption = 'GO'
        Default = True
        TabOrder = 1
        OnClick = B_RemoveClick
      end
    end
  end
  object M_Status: TMemo
    Left = 8
    Top = 256
    Width = 473
    Height = 89
    Anchors = [akLeft, akRight, akBottom]
    ReadOnly = True
    TabOrder = 1
  end
  object mySQLClientThreaded: TmySQLClient
    Hostname = 'localhost'
    Port = 3306
    Capabilities = [_CLIENT_LONG_PASSWORD]
    Threaded = True
    ConnectedTimeOutInterval = 300000
    BlockOnClose = True
    OnConnect = mySQLClientThreadedConnect
    OnConnectError = mySQLClientThreadedConnectError
    OnStatus = mySQLClientThreadedStatus
    Left = 408
    Top = 8
  end
  object mySQLClientNonThreaded: TmySQLClient
    Hostname = 'localhost'
    Port = 3306
    Capabilities = [_CLIENT_LONG_PASSWORD]
    Threaded = False
    ConnectedTimeOutInterval = 300000
    BlockOnClose = True
    OnConnect = mySQLClientNonThreadedConnect
    OnConnectError = mySQLClientNonThreadedConnectError
    OnStatus = mySQLClientNonThreadedStatus
    Left = 440
    Top = 8
  end
end