unit1.xfm

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

object Form1: TForm1
  Left = 403
  Top = 192
  Width = 333
  Height = 233
  VertScrollBar.Range = 217
  HorzScrollBar.Range = 321
  ActiveControl = DBEdit1
  Caption = #21333#21521#25968#25454#38598#23454#20363
  Color = clBackground
  PixelsPerInch = 96
  TextHeight = 12
  TextWidth = 6
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 184
    Width = 320
    Height = 33
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 0
    Top = 32
    Width = 121
    Height = 20
    DataField = 'CONTACT_FIRST'
    DataSource = DataSource1
    MaxLength = 7
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 176
    Top = 32
    Width = 145
    Height = 20
    DataField = 'POSTAL_CODE'
    DataSource = DataSource1
    MaxLength = 5
    TabOrder = 2
  end
  object DBEdit3: TDBEdit
    Left = 0
    Top = 88
    Width = 121
    Height = 20
    DataField = 'ADDRESS_LINE1'
    DataSource = DataSource1
    MaxLength = 27
    TabOrder = 3
  end
  object DBEdit4: TDBEdit
    Left = 176
    Top = 88
    Width = 145
    Height = 20
    DataField = 'CITY'
    DataSource = DataSource1
    MaxLength = 9
    TabOrder = 4
  end
  object DBEdit5: TDBEdit
    Left = 0
    Top = 144
    Width = 121
    Height = 20
    DataField = 'COUNTRY'
    DataSource = DataSource1
    MaxLength = 3
    TabOrder = 5
  end
  object DBEdit6: TDBEdit
    Left = 176
    Top = 144
    Width = 145
    Height = 20
    DataField = 'PHONE_NO'
    DataSource = DataSource1
    MaxLength = 14
    TabOrder = 6
  end
  object Label1: TLabel
    Left = 0
    Top = 8
    Width = 84
    Height = 14
    Caption = #31532#19968#36127#36131#20154#65306
    Font.Color = clBlack
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  end
  object Label2: TLabel
    Left = 176
    Top = 8
    Width = 42
    Height = 14
    Caption = #37038#32534#65306
    Font.Color = clBlack
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  end
  object Label3: TLabel
    Left = 0
    Top = 64
    Width = 42
    Height = 14
    Caption = #22320#22336#65306
    Font.Color = clBlack
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  end
  object Label4: TLabel
    Left = 176
    Top = 64
    Width = 42
    Height = 14
    Caption = #22478#24066#65306
    Font.Color = clBlack
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  end
  object Label5: TLabel
    Left = 0
    Top = 120
    Width = 42
    Height = 14
    Caption = #22269#23478#65306
    Font.Color = clBlack
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  end
  object Label6: TLabel
    Left = 176
    Top = 120
    Width = 42
    Height = 14
    Caption = #30005#35805#65306
    Font.Color = clBlack
    Font.Height = 14
    Font.Name = #23435#20307
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
  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 = 136
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = SQLDataSet1
    Left = 32
    Top = 136
  end
  object SQLDataSet1: TSQLDataSet
    Active = True
    CommandText = 'SELECT * FROM CUSTOMER'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 136
    Top = 80
  end
end