unit1.pas

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

unit Unit1;

interface

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

type
  TFrmlogin = class(TForm)
    ADOConnection1: TADOConnection;
    Edname: TEdit;
    Edpwd: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADODataSet1: TADODataSet;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmlogin: TFrmlogin;

implementation

uses Unit2;

{$R *.dfm}

procedure TFrmlogin.Button1Click(Sender: TObject);
var
  Result : string;

begin
      ADODataSet1.Close   ;
      ADODataSet1.CommandType   :=     cmdText   ;
      ADODataSet1.Parameters.Clear   ;

      ADODataSet1.CommandText   :=   '{call   pkg_student.prc_login(?,?)}'   ;

      ADODataSet1.Parameters.CreateParameter('v_username',ftstring,pdinput,10,Edname.Text);
      ADODataSet1.Parameters.CreateParameter('v_pwd',ftstring,pdinput,10,Edpwd.Text);
      //ADODataSet1.Parameters.CreateParameter('user_level',ftstring,pdinput,10,Edlevel.Text);

      ADODataSet1.Open ;


      Result :=ADODataSet1.Fields.FieldByName('op_type').Value ;
      showmessage(Result) ;
      if(Result='欢迎进入选课系统') then
      Frmmain.Show;
      


end;

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

end;

end.