Delphi 7数据库开发 配套源代码,内含1-18章各示例代码!~
源代码在线查看: unit1.~xfm
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