unit1.xfm

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

object Form1: TForm1
  Left = 249
  Top = 112
  Width = 352
  Height = 288
  VertScrollBar.Range = 281
  HorzScrollBar.Range = 345
  ActiveControl = DBGrid1
  Caption = #21333#21521#25968#25454#38598#23454#29616#25968#25454#32534#36753
  Color = clBackground
  PixelsPerInch = 96
  TextHeight = 12
  TextWidth = 6
  object DBGrid1: TDBGrid
    Left = 0
    Top = 8
    Width = 345
    Height = 233
    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 = 16
    Top = 256
    Width = 220
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
  end
  object Button1: TButton
    Left = 256
    Top = 256
    Width = 75
    Height = 25
    Caption = #26356#26032#25968#25454
    TabOrder = 2
    OnClick = Button1Click
  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 = 40
    Top = 24
  end
  object SQLQuery1: TSQLQuery
    Active = True
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select * from EMPLOYEE')
    SQLConnection = SQLConnection1
    Left = 40
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 40
    Top = 192
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 40
    Top = 152
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLQuery1
    Left = 40
    Top = 112
  end
end