join2rdm.dfm

来自「《Delphi开发人员指南》配书原码」· DFM 代码 · 共 106 行

object Join2Server: TJoin2Server
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object Database1: TDatabase
    AliasName = 'DDG5IB'
    DatabaseName = 'Join2'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 140
    Top = 4
  end
  object JoinQuery: TQuery
    OnUpdateRecord = JoinQueryUpdateRecord
    DatabaseName = 'Join2'
    SQL.Strings = (
      'select * from Emp e, FTEmp f'
      '  where e.empno=f.empno')
    Left = 84
    Top = 8
    object JoinQueryEMPNO: TFloatField
      FieldName = 'EMPNO'
      Origin = 'JOIN2.EMP.EMPNO'
    end
    object JoinQueryLASTNAME: TStringField
      FieldName = 'LASTNAME'
      Origin = 'JOIN2.EMP.LASTNAME'
    end
    object JoinQueryFIRSTNAME: TStringField
      FieldName = 'FIRSTNAME'
      Origin = 'JOIN2.EMP.FIRSTNAME'
    end
    object JoinQueryHIREDATE: TDateTimeField
      FieldName = 'HIREDATE'
      Origin = 'JOIN2.EMP.HIREDATE'
    end
    object JoinQueryEMPNO_1: TFloatField
      FieldName = 'EMPNO_1'
      Origin = 'JOIN2.EMP.HIREDATE'
    end
    object JoinQuerySALARY: TFloatField
      FieldName = 'SALARY'
      Origin = 'JOIN2.EMP.HIREDATE'
    end
    object JoinQueryVACATION: TFloatField
      FieldName = 'VACATION'
      Origin = 'JOIN2.EMP.HIREDATE'
    end
  end
  object JoinProvider: TProvider
    DataSet = JoinQuery
    Constraints = True
    Left = 28
    Top = 8
  end
  object usqlEmp: TDSUpdateSQL
    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 = 84
    Top = 72
  end
  object usqlFTEmp: TDSUpdateSQL
    ModifySQL.Strings = (
      'update FTEmp'
      'set'
      '  EmpNo = :EmpNo,'
      '  Salary = :Salary,'
      '  Vacation = :Vacation'
      'where'
      '  EmpNo = :OLD_EmpNo')
    InsertSQL.Strings = (
      'insert into FTEmp'
      '  (EmpNo, Salary, Vacation)'
      'values'
      '  (:EmpNo, :Salary, :Vacation)')
    DeleteSQL.Strings = (
      'delete from FTEmp'
      'where'
      '  EmpNo = :OLD_EmpNo')
    Left = 84
    Top = 124
  end
end