unit2.pas

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

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TFrmmain = class(TForm)
    MainMenu1: TMainMenu;
    Nstu: TMenuItem;
    Ncourse: TMenuItem;
    Nsc: TMenuItem;
    Nuser: TMenuItem;
    Nexit: TMenuItem;
    Edname: TEdit;
    Edcour: TEdit;
    Label1: TLabel;
    Edcourse: TLabel;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    btnque: TButton;
    procedure Button1Click(Sender: TObject);
    procedure NstuClick(Sender: TObject);
    procedure NcourseClick(Sender: TObject);
    procedure NscClick(Sender: TObject);
    procedure NexitClick(Sender: TObject);
    procedure NuserClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmmain: TFrmmain;

implementation

uses Unit3, Unit4, Unit5, Unit1, Unit6;

{$R *.dfm}

procedure TFrmmain.Button1Click(Sender: TObject);
var
mystring :string;
begin
           ADOQuery1.Active:=false;
     if (Edname.Text='') and (Edcour.Text ='') then
      begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.text:='select student.sno,student.sname,student.sdept,course.cno,course.cname,sc.grade,sc.exam_date from sc, course,student where sc.cno=course.cno and sc.sno=student.sno ';
      ADOQuery1.Active:=true;
      end
      else
      if (Edname.text<>'') and (Edcour.Text<>'') then
      begin
      ADOQuery1.SQL.Clear;
      mystring:='select student.sno,student.sname,student.sdept,course.cno,course.cname,sc.grade,sc.exam_date from sc, course,student where sc.cno=course.cno and sc.sno=student.sno and student.sname like ' + '''%' + Edname.Text + '%''  and course.cname like ' + '''%' + Edcour.Text + '%'' ';
      ADOQuery1.SQL.Add(mystring);
      ADOQuery1.Active:=true;
      end
      else
      if(Edname.text<>'')   and (Edcour.Text ='')then
      begin
      with Application do
     MessageBox('请输入课程名!','提示',MB_OK);
     Edcour.SetFocus;
     end

end;

procedure TFrmmain.NstuClick(Sender: TObject);
begin
Frmstuinfo.show;
end;

procedure TFrmmain.NcourseClick(Sender: TObject);
begin
Frmcourse.show;
end;

procedure TFrmmain.NscClick(Sender: TObject);
begin
     Frmsc.Show;
end;

procedure TFrmmain.NexitClick(Sender: TObject);
var
 buttonvalue:integer;
begin
         buttonvalue:=Application.MessageBox('确实要退出吗？','确认',MB_YESNO);
         case buttonvalue of
         IDYES:close;


     end;

         
end;

procedure TFrmmain.NuserClick(Sender: TObject);
begin
       Frmuser.show;
end;

end.