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

源代码在线查看: unit1.~xfm

软件大小: 662 K
上传用户: struggle10000
关键词: Delphi 18 数据库 代码
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源