unit1.xfm

数据库文件的使用

object Form1: TForm1
  Left = 187
  Top = 128
  Width = 533
  Height = 258
  VertScrollBar.Range = 249
  HorzScrollBar.Range = 507
  ActiveControl = DBGrid1
  Caption = 'Form1'
  Color = clBackground
  PixelsPerInch = 96
  TextHeight = 12
  TextWidth = 6
  object DBGrid1: TDBGrid
    Left = 34
    Top = 58
    Width = 473
    Height = 144
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 12
    TitleFont.Name = '??'#236'?'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    TitleFont.Weight = 40
  end
  object DBNavigator1: TDBNavigator
    Left = 98
    Top = 208
    Width = 330
    Height = 41
    DataSource = DataSource1
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 215
    Top = 17
  end
  object SQLQuery1: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select * from department')
    SQLConnection = SQLConnection1
    Left = 72
    Top = 16
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 158
    Top = 18
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLQuery1
    Left = 119
    Top = 16
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'IBConnection'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    Params.Strings = (
      'DriverName=Interbase'
      'Database=Employee.gdb'
      'RoleName=RoleName'
      'User_Name=sysdba'
      'Password=masterkey'
      'ServerCharSet='
      'SQLDialect=1'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'BlobSize=-1'
      'CommitRetain=False'
      'WaitOnLocks=True'
      'Interbase TransIsolation=ReadCommited'
      'Trim Char=False')
    VendorLib = 'GDS32.DLL'
    Left = 31
    Top = 16
  end
end