unit2.dfm

这个是用oracle和delphi开发的学生信息管理系统 包括oracle的存储过程和源码

object Frmmain: TFrmmain
  Left = 139
  Top = 156
  Width = 846
  Height = 550
  Caption = #20027#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 88
    Top = 64
    Width = 36
    Height = 13
    Caption = #29992#25143#21517
  end
  object Edcourse: TLabel
    Left = 88
    Top = 104
    Width = 36
    Height = 13
    Caption = #35838#31243#21517
  end
  object Edname: TEdit
    Left = 168
    Top = 64
    Width = 193
    Height = 21
    TabOrder = 0
  end
  object Edcour: TEdit
    Left = 168
    Top = 104
    Width = 193
    Height = 21
    TabOrder = 1
  end
  object btnque: TButton
    Left = 440
    Top = 80
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 2
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 160
    Width = 801
    Height = 225
    DataSource = DataSource1
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'SNO'
        Title.Caption = #23398#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SNAME'
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GRADE'
        Title.Caption = #24180#32423
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CNO'
        Title.Caption = #35838#31243#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CNAME'
        Title.Caption = #35838#31243#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GRADE'
        Title.Caption = #25104#32489
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EXAM_DATE'
        Title.Caption = #32771#35797#26102#38388
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Left = 648
    object Nstu: TMenuItem
      Caption = #23398#29983#31649#29702
      OnClick = NstuClick
    end
    object Ncourse: TMenuItem
      Caption = #35838#31243#31649#29702
      OnClick = NcourseClick
    end
    object Nsc: TMenuItem
      Caption = #36873#35838#31649#29702
      OnClick = NscClick
    end
    object Nuser: TMenuItem
      Caption = #29992#25143#31649#29702
      OnClick = NuserClick
    end
    object Nexit: TMenuItem
      Caption = #36864#20986#31995#32479
      OnClick = NexitClick
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=OraOLEDB.Oracle.1;Password=111;Persist Security Info=Tr' +
      'ue;User ID=student;Data Source=ky;Extended Properties="PLSQLRSet' +
      '=1"'
    LoginPrompt = False
    Provider = 'OraOLEDB.Oracle.1'
    Left = 568
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 528
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select student.sno,student.sname,student.sdept,course.cno,course' +
        '.cname,sc.grade,sc.exam_date from sc, course,student where sc.cn' +
        'o=course.cno and sc.sno=student.sno')
    Left = 608
  end
end