join1rdm.dfm

《Delphi开发人员指南》配书原码

object Join1Server: TJoin1Server
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object Database1: TDatabase
    AliasName = 'DDG5IB'
    DatabaseName = 'Join1'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 52
    Top = 20
  end
  object qryJoin: TQuery
    DatabaseName = 'Join1'
    SQL.Strings = (
      'select e.*, p.hourlyrate from Emp e, PTEmp p'
      '  where e.empno=p.empno')
    Left = 44
    Top = 76
    object qryJoinEMPNO: TFloatField
      FieldName = 'EMPNO'
    end
    object qryJoinLASTNAME: TStringField
      FieldName = 'LASTNAME'
    end
    object qryJoinFIRSTNAME: TStringField
      FieldName = 'FIRSTNAME'
    end
    object qryJoinHIREDATE: TDateTimeField
      FieldName = 'HIREDATE'
    end
    object qryJoinHOURLYRATE: TFloatField
      FieldName = 'HOURLYRATE'
      ProviderFlags = []
    end
  end
  object prvJoin: TProvider
    DataSet = qryJoin
    Constraints = True
    OnGetTableName = prvJoinGetTableName
    Left = 100
    Top = 72
  end
  object qryJoinUSQL: TQuery
    DatabaseName = 'Join1'
    SQL.Strings = (
      'select e.*, p.hourlyrate from Emp e, PTEmp p'
      '  where e.empno=p.empno')
    UpdateObject = usqlJoin
    Left = 48
    Top = 172
  end
  object usqlJoin: TUpdateSQL
    ModifySQL.Strings = (
      'update Emp'
      'set'
      '  EMPNO = :EMPNO,'
      '  LASTNAME = :LASTNAME,'
      '  FIRSTNAME = :FIRSTNAME,'
      '  HIREDATE = :HIREDATE'
      'where'
      '  EMPNO = :OLD_EMPNO')
    InsertSQL.Strings = (
      'insert into Emp'
      '  (EMPNO, LASTNAME, FIRSTNAME, HIREDATE)'
      'values'
      '  (:EMPNO, :LASTNAME, :FIRSTNAME, :HIREDATE)')
    DeleteSQL.Strings = (
      'delete from Emp'
      'where'
      '  EMPNO = :OLD_EMPNO')
    Left = 120
    Top = 172
  end
end