ucsdemo.dfm

飞思科技的书不错

object DmCsDemo: TDmCsDemo
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 388
  Top = 199
  Height = 236
  Width = 222
  object DbCsDemo: TDatabase
    AliasName = 'IBLocal'
    DatabaseName = 'DatabaseCsDemo'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA')
    SessionName = 'Default'
    Left = 48
    Top = 16
  end
  object QueryCsDemo: TQuery
    CachedUpdates = True
    OnUpdateRecord = QueryCsDemoUpdateRecord
    DatabaseName = 'DatabaseCsDemo'
    SQL.Strings = (
      
        'SELECT Employee.EMP_NO, Employee.FIRST_NAME, Employee.LAST_NAME,' +
        ' Employee.HIRE_DATE, Employee.JOB_CODE, Employee.JOB_GRADE, Empl' +
        'oyee.JOB_COUNTRY, Employee.SALARY, Project.PROJ_NAME, Project.PR' +
        'OJ_DESC, Project.TEAM_LEADER, Project.PRODUCT'
      'FROM EMPLOYEE Employee'
      '   INNER JOIN EMPLOYEE_PROJECT Employee_project'
      '   ON  (Employee.EMP_NO = Employee_project.EMP_NO)  '
      '   INNER JOIN PROJECT Project'
      '   ON  (Employee_project.PROJ_ID = Project.PROJ_ID)  '
      'ORDER BY Employee.FIRST_NAME')
    UpdateObject = UpdateSQLCsDemo
    Left = 120
    Top = 16
    object QueryCsDemoEMP_NO: TSmallintField
      FieldName = 'EMP_NO'
    end
    object QueryCsDemoFIRST_NAME: TStringField
      FieldName = 'FIRST_NAME'
      Size = 15
    end
    object QueryCsDemoLAST_NAME: TStringField
      FieldName = 'LAST_NAME'
    end
    object QueryCsDemoHIRE_DATE: TDateTimeField
      FieldName = 'HIRE_DATE'
    end
    object QueryCsDemoJOB_CODE: TStringField
      FieldName = 'JOB_CODE'
      Size = 5
    end
    object QueryCsDemoJOB_GRADE: TSmallintField
      FieldName = 'JOB_GRADE'
    end
    object QueryCsDemoJOB_COUNTRY: TStringField
      FieldName = 'JOB_COUNTRY'
      Size = 15
    end
    object QueryCsDemoSALARY: TFloatField
      FieldName = 'SALARY'
    end
    object QueryCsDemoPROJ_NAME: TStringField
      FieldName = 'PROJ_NAME'
    end
    object QueryCsDemoPROJ_DESC: TMemoField
      FieldName = 'PROJ_DESC'
      BlobType = ftMemo
      Size = 1
    end
    object QueryCsDemoTEAM_LEADER: TSmallintField
      FieldName = 'TEAM_LEADER'
    end
    object QueryCsDemoPRODUCT: TStringField
      FieldName = 'PRODUCT'
      Size = 12
    end
  end
  object UpdateSQLCsDemo: TUpdateSQL
    ModifySQL.Strings = (
      'update EMPLOYEE'
      'set'
      '  FIRST_NAME = :FIRST_NAME,'
      '  LAST_NAME = :LAST_NAME,'
      '  HIRE_DATE = :HIRE_DATE,'
      '  JOB_CODE = :JOB_CODE,'
      '  JOB_GRADE = :JOB_GRADE,'
      '  JOB_COUNTRY = :JOB_COUNTRY,'
      '  SALARY = :SALARY'
      'where'
      '  EMP_NO = :OLD_EMP_NO')
    InsertSQL.Strings = (
      'insert into EMPLOYEE'
      '  (FIRST_NAME, LAST_NAME, HIRE_DATE, JOB_CODE, JOB_GRADE, '
      'JOB_COUNTRY, '
      '   SALARY)'
      'values'
      '  (:FIRST_NAME, :LAST_NAME, :HIRE_DATE, :JOB_CODE, :JOB_GRADE, '
      ':JOB_COUNTRY, '
      '   :SALARY)')
    DeleteSQL.Strings = (
      'delete from EMPLOYEE'
      'where'
      '  EMP_NO = :OLD_EMP_NO')
    Left = 48
    Top = 72
  end
  object DsCsDemo: TDataSource
    DataSet = QueryCsDemo
    Left = 120
    Top = 72
  end
  object SPDeleteEmployee: TStoredProc
    DatabaseName = 'DatabaseCsDemo'
    StoredProcName = 'DELETE_EMPLOYEE'
    Left = 48
    Top = 136
    ParamData = <
      item
        DataType = ftInteger
        Name = 'EMP_NUM'
        ParamType = ptInput
      end>
  end
end