unit1.xfm

Delphi_7.0数据库开发源代码。有内容十一章节

object Form1: TForm1
  Left = 277
  Top = 127
  Width = 380
  Height = 180
  VertScrollBar.Range = 177
  HorzScrollBar.Range = 369
  ActiveControl = DBGrid1
  Caption = 'TSimpleDataSet'#24212#29992#23454#20363
  Color = clBackground
  PixelsPerInch = 96
  TextHeight = 12
  TextWidth = 6
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    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 = 40
    Top = 144
    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 = <>
    Connection.ConnectionName = 'IBLocal'
    Connection.DriverName = 'Interbase'
    Connection.GetDriverFunc = 'getSQLDriverINTERBASE'
    Connection.LibraryName = 'dbexpint.dll'
    Connection.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')
    Connection.VendorLib = 'GDS32.DLL'
    Connection.Connected = True
    DataSet.Active = True
    DataSet.CommandText = 'CUSTOMER'
    DataSet.CommandType = ctTable
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    Params = <>
    Left = 32
    Top = 104
  end
end