urdmmultitablesupdateserver.dfm

delphi多层应用系统 delphi多层应用系统

object MultiTablesUpdateServer: TMultiTablesUpdateServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 219
  Top = 126
  Height = 416
  Width = 620
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'aDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'Password=masterkey')
    SessionName = 'Default'
    Left = 44
    Top = 25
  end
  object quryMultiJoin: TQuery
    CachedUpdates = True
    DatabaseName = 'aDB'
    SQL.Strings = (
      
        'SELECT Customer.CustNo, Customer.Company, Customer.City, Custome' +
        'r.Country, Orders.OrderNo, Orders.AmountPaid, Employee.LastName,' +
        ' Employee.FirstName, Employee.Salary, Employee.HireDate, Employe' +
        'e.PhoneExt, Employee.EmpNo'
      'FROM customer Customer'
      '   INNER JOIN orders Orders'
      '   ON  (Customer.CustNo = Orders.CustNo)'
      '   INNER JOIN employee Employee'
      '   ON  (Orders.EmpNo = Employee.EmpNo)  ')
    UpdateObject = usEmployee
    Left = 340
    Top = 24
  end
  object usEmployee: TUpdateSQL
    ModifySQL.Strings = (
      'update employee'
      'set'
      '  LASTNAME = :LASTNAME,'
      '  FIRSTNAME = :FIRSTNAME,'
      '  PHONEEXT = :PHONEEXT,'
      '  HIREDATE = :HIREDATE,'
      '  SALARY = :SALARY'
      'where'
      '  EMPNO = :OLD_EMPNO')
    InsertSQL.Strings = (
      'insert into employee'
      '  (LASTNAME, FIRSTNAME, PHONEEXT, HIREDATE, SALARY)'
      'values'
      '  (:LASTNAME, :FIRSTNAME, :PHONEEXT, :HIREDATE, :SALARY)')
    DeleteSQL.Strings = (
      'delete from employee'
      'where'
      '  EMPNO = :OLD_EMPNO')
    Left = 345
    Top = 92
  end
  object usOrders: TUpdateSQL
    ModifySQL.Strings = (
      'update Orders'
      'set'
      '  ORDERNO = :ORDERNO,'
      '  AMOUNTPAID = :AMOUNTPAID'
      'where'
      '  ORDERNO = :OLD_ORDERNO')
    InsertSQL.Strings = (
      'insert into Orders'
      '  (ORDERNO, AMOUNTPAID)'
      'values'
      '  (:ORDERNO, :AMOUNTPAID)')
    DeleteSQL.Strings = (
      'delete from Orders'
      'where'
      '  ORDERNO = :OLD_ORDERNO')
    Left = 200
    Top = 91
  end
  object usCustomers: TUpdateSQL
    ModifySQL.Strings = (
      'update customer'
      'set'
      '  COMPANY = :COMPANY,'
      '  CITY = :CITY,'
      '  COUNTRY = :COUNTRY'
      'where'
      '  CUSTNO = :OLD_CUSTNO')
    InsertSQL.Strings = (
      'insert into customer'
      '  (COMPANY, CITY, COUNTRY)'
      'values'
      '  (:COMPANY, :CITY, :COUNTRY)')
    DeleteSQL.Strings = (
      'delete from customer'
      'where'
      '  CUSTNO = :OLD_CUSTNO'
      ' ')
    Left = 60
    Top = 91
  end
  object qUpdateCustomers: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      'update customer'
      'set'
      '  COMPANY = :ID1,'
      '  CITY = :ID2,'
      '  COUNTRY = :ID3'
      'where'
      '  CUSTNO = :ID4'
      ' '
      ' ')
    Left = 64
    Top = 166
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID2'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID3'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID4'
        ParamType = ptUnknown
      end>
  end
  object qUpdateOrders: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      'update Orders'
      'set'
      '  AMOUNTPAID = :ID1'
      'where'
      '  ORDERNO = :ID2'
      ' ')
    Left = 209
    Top = 169
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID2'
        ParamType = ptUnknown
      end>
  end
  object qUpdateEmployee: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      'update employee'
      'set'
      '  LASTNAME = :ID1,'
      '  FIRSTNAME = :ID2,'
      '  PHONEEXT = :ID3,'
      '  HIREDATE = :ID4,'
      '  SALARY = :ID5'
      'where'
      '  EMPNO = :ID6'
      ' '
      ' ')
    Left = 350
    Top = 166
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID2'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID3'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID4'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID5'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ID6'
        ParamType = ptUnknown
      end>
  end
  object qdEmployee: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      'delete from employee where EMPNO = :ID1')
    Left = 361
    Top = 260
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID1'
        ParamType = ptUnknown
      end>
  end
  object qdOrder: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      'delete from Orders  where ORDERNO = :ID1')
    Left = 219
    Top = 260
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID1'
        ParamType = ptUnknown
      end>
  end
  object qdCustomer: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      'delete from customer where CUSTNO = :ID1')
    Left = 63
    Top = 255
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID1'
        ParamType = ptUnknown
      end>
  end
  object dspMultiJoins: TDataSetProvider
    DataSet = quryMultiJoin
    Constraints = True
    OnUpdateData = dspMultiJoinsUpdateData
    OnUpdateError = dspMultiJoinsUpdateError
    BeforeUpdateRecord = dspMultiJoinsBeforeUpdateRecord
    Left = 198
    Top = 29
  end
end