main.dfm

Delphi7数据库开发教程,包含该书21套实例

object Form1: TForm1
  Left = 186
  Top = 160
  Width = 469
  Height = 346
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 16
    Top = 8
    Width = 313
    Height = 297
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object btnApplyUpdates: TButton
    Left = 360
    Top = 16
    Width = 75
    Height = 25
    Caption = #26356#26032#25968#25454
    TabOrder = 1
    OnClick = btnApplyUpdatesClick
  end
  object btnCancel: TButton
    Left = 360
    Top = 48
    Width = 75
    Height = 25
    Caption = #21462#28040#26356#26032
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object btnRefresh: TButton
    Left = 360
    Top = 80
    Width = 75
    Height = 25
    Caption = #21047#26032
    TabOrder = 3
    OnClick = btnRefreshClick
  end
  object cbxCache: TCheckBox
    Left = 344
    Top = 120
    Width = 97
    Height = 17
    Caption = #32531#23384#26356#26032
    Checked = True
    State = cbChecked
    TabOrder = 4
    OnClick = cbxCacheClick
  end
  object cbxIBUpdateSQL: TCheckBox
    Left = 344
    Top = 144
    Width = 97
    Height = 17
    Caption = 'IBUpdateSQL'
    Checked = True
    State = cbChecked
    TabOrder = 5
    OnClick = cbxIBUpdateSQLClick
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    ForcedRefresh = True
    Active = True
    BufferChunks = 1000
    CachedUpdates = True
    SQL.Strings = (
      'select JOB_CODE, JOB_GRADE, MAX_SALARY, MIN_SALARY'
      'from JOB'
      'order by job_grade')
    UpdateObject = IBUpdateSQL1
    Left = 336
    Top = 240
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  JOB_CODE,'
      '  JOB_GRADE,'
      '  JOB_COUNTRY,'
      '  JOB_TITLE,'
      '  MIN_SALARY,'
      '  MAX_SALARY,'
      '  JOB_REQUIREMENT,'
      '  LANGUAGE_REQ'
      'from job '
      'where'
      '  JOB_CODE = :JOB_CODE and'
      '  JOB_GRADE = :JOB_GRADE and'
      '  MAX_SALARY = :MAX_SALARY and'
      '  MIN_SALARY = :MIN_SALARY')
    ModifySQL.Strings = (
      'update job'
      'set'
      '  JOB_CODE = :JOB_CODE,'
      '  JOB_GRADE = :JOB_GRADE,'
      '  MAX_SALARY = :MAX_SALARY,'
      '  MIN_SALARY = :MIN_SALARY'
      'where'
      '  JOB_CODE = :OLD_JOB_CODE and'
      '  JOB_GRADE = :OLD_JOB_GRADE and'
      '  MAX_SALARY = :OLD_MAX_SALARY and'
      '  MIN_SALARY = :OLD_MIN_SALARY')
    InsertSQL.Strings = (
      'insert into job'
      '  (JOB_CODE, JOB_GRADE, MAX_SALARY, MIN_SALARY)'
      'values'
      '  (:JOB_CODE, :JOB_GRADE, :MAX_SALARY, :MIN_SALARY)')
    DeleteSQL.Strings = (
      'delete from job'
      'where'
      '  JOB_CODE = :OLD_JOB_CODE and'
      '  JOB_GRADE = :OLD_JOB_GRADE and'
      '  MAX_SALARY = :OLD_MAX_SALARY and'
      '  MIN_SALARY = :OLD_MIN_SALARY')
    Left = 368
    Top = 240
  end
  object DataSource1: TDataSource
    DataSet = IBQuery1
    Left = 336
    Top = 208
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 
      'E:\Books\Delphi'#25968#25454#24211#25945#31243'\Demos\'#31532'14'#31456'  InterBase'#25968#25454#24211#32534#31243'\'#26412#22320#32531#23384'\EMPLOYEE.GD' +
      'B'
    Params.Strings = (
      'user_name=SYSDBA'
      'lc_ctype=GB_2312')
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 400
    Top = 240
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    AutoStopAction = saNone
    Left = 368
    Top = 208
  end
end