Delphi 7数据库开发 配套源代码,内含1-18章各示例代码!~

				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
				    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
				    Aggregates = 
				    Params = 
				    ProviderName = 'DataSetProvider1'
				    Left = 40
				    Top = 152
				  end
				  object DataSetProvider1: TDataSetProvider
				    DataSet = SQLQuery1
				    Left = 40
				    Top = 112
				  end
				end