main.dfm

Delphi7数据库开发教程,包含该书21套实例

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 409
  Height = 263
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lblStatus: TLabel
    Left = 8
    Top = 48
    Width = 137
    Height = 17
    AutoSize = False
    Caption = #24403#21069#36523#20221#39564#35777#29366#24577#20026#65306
  end
  object btnConnect: TButton
    Left = 120
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 0
    OnClick = btnConnectClick
  end
  object cbxLoginPrompt: TCheckBox
    Left = 16
    Top = 16
    Width = 97
    Height = 17
    Caption = 'LoginPrompt'
    TabOrder = 1
    OnClick = cbxLoginPromptClick
  end
  object btnDisconnect: TButton
    Left = 216
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Disconnect'
    TabOrder = 2
    OnClick = btnDisconnectClick
  end
  object memStatus: TMemo
    Left = 8
    Top = 72
    Width = 385
    Height = 153
    ScrollBars = ssBoth
    TabOrder = 3
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'IBConnection'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Interbase'
      'Database=C:\Delphi7\Borland Shared\Data\Employee.gdb'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password='
      'ServerCharSet='
      'SQLDialect=1'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=False')
    VendorLib = 'gds32.dll'
    AfterConnect = SQLConnection1AfterConnect
    AfterDisconnect = SQLConnection1AfterDisconnect
    BeforeConnect = SQLConnection1BeforeConnect
    OnLogin = SQLConnection1Login
    Left = 312
    Top = 8
  end
end