udm.dfm

来自「可实现学生成绩管理系统的各种功能,无需登陆,直接查询学生的各种信息」· DFM 代码 · 共 102 行

object DMSchool: TDMSchool
  OldCreateOrder = False
  Left = 385
  Top = 156
  Height = 383
  Width = 617
  object ADOConn: TADOConnection
    ConnectionString = 
      'Provider=MSDAORA.1;Password=dxp123;User ID=dxp;Data Source=DAI;P' +
      'ersist Security Info=True'
    LoginPrompt = False
    Provider = 'MSDAORA.1'
    Left = 40
    Top = 16
  end
  object ADOTabStudent: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'STUDENT'
    Left = 136
    Top = 16
  end
  object DSStudent: TDataSource
    DataSet = ADOTabStudent
    Left = 136
    Top = 72
  end
  object ADOQuery: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 120
    Top = 152
  end
  object ADOTabUser: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'USERS'
    Left = 232
    Top = 72
  end
  object ADOTabDept: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'DEPARTMENT'
    Left = 320
    Top = 72
  end
  object ADOTabCouse: TADOTable
    Connection = ADOConn
    TableName = 'COURSE'
    Left = 232
    Top = 16
  end
  object ADOTabGrade: TADOTable
    Connection = ADOConn
    TableName = 'SCORE'
    Left = 320
    Top = 16
  end
  object ADOStoredProc: TADOStoredProc
    AutoCalcFields = False
    ConnectionString = 
      'Provider=MSDAORA.1;Password=DXP123;User ID=DXP;Data Source=DAITE' +
      'ST;Persist Security Info=True'
    CursorLocation = clUseServer
    EnableBCD = False
    ProcedureName = 'UPDATE_SCORE_CREDITH'
    Parameters = <
      item
        Name = 'P_SNO'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = 'P_CNO'
        Attributes = [paNullable]
        DataType = ftString
        Size = 3
        Value = Null
      end
      item
        Name = 'P_CREDIT'
        Attributes = [paNullable]
        DataType = ftBCD
        Direction = pdOutput
        Precision = 3
        Value = Null
      end>
    Left = 216
    Top = 232
  end
  object ADOComm: TADOCommand
    CommandType = cmdStoredProc
    Parameters = <>
    ParamCheck = False
    Left = 232
    Top = 168
  end
end