udspdemosserver.dfm

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

object dspDemoServer: TdspDemoServer
  OldCreateOrder = False
  Height = 0
  Width = 0
  object Database1: TDatabase
    AliasName = 'IBLocal'
    Connected = True
    DatabaseName = 'aDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'Password=masterkey')
    SessionName = 'Default'
    Left = 40
    Top = 20
  end
  object Query1: TQuery
    DatabaseName = 'aDB'
    SQL.Strings = (
      
        'SELECT EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT' +
        '_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY, FULL_NAME'
      'FROM EMPLOYEE Employee')
    Left = 141
    Top = 20
  end
  object Query2: TQuery
    BeforePost = Query2BeforePost
    AfterPost = Query2AfterPost
    DatabaseName = 'aDB'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT' +
        '_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY, FULL_NAME'
      'FROM EMPLOYEE Employee')
    UpdateMode = upWhereKeyOnly
    Left = 43
    Top = 89
    object Query2EMP_NO: TSmallintField
      FieldName = 'EMP_NO'
      Origin = 'EMPLOYEE.EMP_NO'
    end
    object Query2FIRST_NAME: TStringField
      FieldName = 'FIRST_NAME'
      Origin = 'EMPLOYEE.FIRST_NAME'
      Size = 15
    end
    object Query2LAST_NAME: TStringField
      FieldName = 'LAST_NAME'
      Origin = 'EMPLOYEE.LAST_NAME'
    end
    object Query2PHONE_EXT: TStringField
      FieldName = 'PHONE_EXT'
      Origin = 'EMPLOYEE.PHONE_EXT'
      Size = 4
    end
    object Query2HIRE_DATE: TDateTimeField
      FieldName = 'HIRE_DATE'
      Origin = 'EMPLOYEE.HIRE_DATE'
    end
    object Query2DEPT_NO: TStringField
      FieldName = 'DEPT_NO'
      Origin = 'EMPLOYEE.DEPT_NO'
      Size = 3
    end
    object Query2JOB_CODE: TStringField
      FieldName = 'JOB_CODE'
      Origin = 'EMPLOYEE.JOB_CODE'
      Size = 5
    end
    object Query2JOB_GRADE: TSmallintField
      FieldName = 'JOB_GRADE'
      Origin = 'EMPLOYEE.JOB_GRADE'
    end
    object Query2JOB_COUNTRY: TStringField
      FieldName = 'JOB_COUNTRY'
      Origin = 'EMPLOYEE.JOB_COUNTRY'
      Size = 15
    end
    object Query2SALARY: TFloatField
      FieldName = 'SALARY'
      Origin = 'EMPLOYEE.SALARY'
    end
    object Query2FULL_NAME: TStringField
      FieldName = 'FULL_NAME'
      Origin = 'EMPLOYEE.FULL_NAME'
      Size = 37
    end
  end
  object sgUpdateSQLProvider: TDataSetProvider
    DataSet = Query1
    Constraints = True
    OnUpdateData = sgUpdateSQLProviderUpdateData
    BeforeUpdateRecord = sgUpdateSQLProviderBeforeUpdateRecord
    Left = 250
    Top = 14
  end
  object sgUpdateDataSetProvider: TDataSetProvider
    DataSet = Query2
    Constraints = True
    ResolveToDataSet = True
    OnUpdateData = sgUpdateSQLProviderUpdateData
    BeforeUpdateRecord = sgUpdateSQLProviderBeforeUpdateRecord
    Left = 245
    Top = 87
  end
end