dmunit.~dfm

实例4学院信息管理系统 - RAR 档案文件

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 81
  Top = 171
  Height = 479
  Width = 741
  object QueryBase: TQuery
    AfterOpen = QueryBaseAfterOpen
    DatabaseName = 'DatabaseStudent'
    SessionName = 'SessionStudent'
    SQL.Strings = (
      'select * from BaseTB')
    Left = 24
    Top = 24
  end
  object DatabaseStudent: TDatabase
    AliasName = 'Student'
    DatabaseName = 'DatabaseStudent'
    LoginPrompt = False
    Params.Strings = (
      'User Name=sysdba'
      'password=masterkey')
    SessionName = 'SessionStudent'
    Left = 369
    Top = 24
  end
  object SessionStudent: TSession
    Active = True
    SessionName = 'SessionStudent'
    Left = 283
    Top = 24
  end
  object TableSysYear: TTable
    Active = True
    DatabaseName = 'DBTable'
    SessionName = 'TBSession'
    TableName = 'SYS_YEARTB'
    Left = 24
    Top = 80
  end
  object DBTable: TDatabase
    AliasName = 'Student'
    Connected = True
    DatabaseName = 'DBTable'
    LoginPrompt = False
    Params.Strings = (
      'User Name=SYSDBA'
      'Password=masterkey')
    SessionName = 'TBSession'
    Left = 184
    Top = 80
  end
  object TBSession: TSession
    Active = True
    SessionName = 'TBSession'
    Left = 96
    Top = 80
  end
  object WkQuery: TQuery
    DatabaseName = 'WkDatabase'
    SessionName = 'WkSession'
    Left = 24
    Top = 152
  end
  object WkDatabase: TDatabase
    AliasName = 'Student'
    DatabaseName = 'WkDatabase'
    LoginPrompt = False
    Params.Strings = (
      'User Name=sysdba'
      'Password=masterkey')
    SessionName = 'WkSession'
    Left = 296
    Top = 152
  end
  object WkSession: TSession
    Active = True
    SessionName = 'WkSession'
    Left = 80
    Top = 152
  end
  object ExecQuery: TQuery
    DatabaseName = 'WkDatabase'
    SessionName = 'WkSession'
    Left = 144
    Top = 152
  end
  object ExecStoredProc: TStoredProc
    DatabaseName = 'WkDatabase'
    SessionName = 'WkSession'
    StoredProcName = 'NEWWKS'
    Left = 216
    Top = 152
    ParamData = <
      item
        DataType = ftString
        Name = 'STUDENT_NAME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'STUDENT_ID'
        ParamType = ptOutput
      end>
  end
  object QueryCredit: TQuery
    DatabaseName = 'DatabaseStudent'
    SessionName = 'SessionStudent'
    SQL.Strings = (
      'select * from CreditTb')
    Left = 110
    Top = 24
  end
  object QueryCourse: TQuery
    AfterOpen = QueryBaseAfterOpen
    DatabaseName = 'DatabaseStudent'
    SessionName = 'SessionStudent'
    SQL.Strings = (
      'select * from CourseTB')
    Left = 197
    Top = 24
  end
end