unit1.~xfm

来自「Delphi_7.0数据库开发源代码。有内容十一章节」· ~XFM 代码 · 共 77 行

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 522
  Height = 226
  VertScrollBar.Range = 201
  HorzScrollBar.Range = 449
  ActiveControl = DBGrid1
  Caption = 'TSimpleDataSet'#24212#29992#23454#20363
  Color = clBackground
  PixelsPerInch = 96
  TextHeight = 12
  TextWidth = 6
  object DBGrid1: TDBGrid
    Left = 80
    Top = 16
    Width = 369
    Height = 137
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 12
    TitleFont.Name = #23435#20307
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    TitleFont.Weight = 40
  end
  object DBNavigator1: TDBNavigator
    Left = 112
    Top = 168
    Width = 310
    Height = 33
    DataSource = DataSource1
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = SimpleDataSet1
    Left = 32
    Top = 72
  end
  object SimpleDataSet1: TSimpleDataSet
    Active = True
    Aggregates = <>
    DataSet.CommandText = 'COUNTRY'
    DataSet.CommandType = ctTable
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 104
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'IBLocal'
    DriverName = 'Interbase'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpint.dll'
    Params.Strings = (
      'BlobSize=-1'
      'CommitRetain=False'
      'Database=f:\temp\employee.gdb'
      'DriverName=Interbase'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet='
      'SQLDialect=1'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=sysdba'
      'WaitOnLocks=True')
    VendorLib = 'GDS32.DLL'
    Connected = True
    Left = 32
    Top = 32
  end
end