unit6.~pas

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

unit Unit6;

interface

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

type
  TFrmuser = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edname: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edname2: TEdit;
    Edpwd: TEdit;
    Edlevel: TEdit;
    btnadd: TButton;
    btnchange: TButton;
    btndel: TButton;
    btnexit: TButton;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    procedure btnexitClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure btnaddClick(Sender: TObject);
    procedure btnchangeClick(Sender: TObject);
    procedure btndelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmuser: TFrmuser;

implementation

{$R *.dfm}

procedure TFrmuser.btnexitClick(Sender: TObject);
begin
close;
end;

procedure TFrmuser.Button1Click(Sender: TObject);
begin
ADODataSet1.Close;
    ADODataSet1.CommandType := cmdText;
    ADODataSet1.Parameters.Clear;
    ADODataSet1.CommandText :=   '{call   pkg_student.prc_query_users(?)}' ;
    ADODataSet1.Parameters.CreateParameter('u_name',ftstring,pdinput,10,Edname.text);
    ADODataSet1.Open ;

    if(ADODataSet1.Fields.FieldByName('username').Value=null)then
     begin
        with Application do
     MessageBox('该用户名不存在!','提示',MB_OK);
        Edname.SetFocus;
        exit;
      end
      else
    Edname2.Text := ADODataSet1.Fields.FieldByName('username').Value;
    Edpwd.Text:= ADODataSet1.Fields.FieldByName('password').Value;
    Edlevel.Text  := ADODataSet1.Fields.FieldByName('user_level').Value;

end;

procedure TFrmuser.btnaddClick(Sender: TObject);
var
f : integer;
Result:string;
begin
f:=1;
      ADODataSet1.Close;
    ADODataSet1.CommandType := cmdText;
    ADODataSet1.Parameters.Clear;

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

      ADODataSet1.Parameters.CreateParameter('u_uname',ftstring,pdinput,10,Edname2.text)   ;
      ADODataSet1.Parameters.CreateParameter('u_pwd',ftstring,pdinput,10,Edpwd.text)   ;
      ADODataSet1.Parameters.CreateParameter('u_level',ftstring,pdinput,10,Edlevel.text)   ;
      ADODataSet1.Parameters.CreateParameter('e',ftinteger,pdinput,10,f)   ;


      ADODataSet1.Open;
     Result :=ADODataSet1.Fields.FieldByName('u_type').Value ;
      showmessage(Result) ;
end;


procedure TFrmuser.btnchangeClick(Sender: TObject);
var f:integer;
Result:string;
begin
      f:=2;
      ADODataSet1.Close;
    ADODataSet1.CommandType := cmdText;
    ADODataSet1.Parameters.Clear;

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

      ADODataSet1.Parameters.CreateParameter('u_uname',ftstring,pdinput,10,Edname.text)   ;
      ADODataSet1.Parameters.CreateParameter('u_pwd',ftstring,pdinput,10,Edpwd.text)   ;
      ADODataSet1.Parameters.CreateParameter('u_level',ftstring,pdinput,10,Edlevel.text)   ;
      ADODataSet1.Parameters.CreateParameter('e',ftinteger,pdinput,10,f)   ;
      ADODataSet1.Open;
      Result :=ADODataSet1.Fields.FieldByName('u_type').Value ;
      showmessage(Result) ;
end;

procedure TFrmuser.btndelClick(Sender: TObject);
var f:integer;
Result:string;
begin
      f:=3;
      ADODataSet1.Close;
    ADODataSet1.CommandType := cmdText;
    ADODataSet1.Parameters.Clear;

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

      ADODataSet1.Parameters.CreateParameter('u_uname',ftstring,pdinput,10,Edname.text)   ;
      ADODataSet1.Parameters.CreateParameter('u_pwd',ftstring,pdinput,10,Edpwd.text)   ;
      ADODataSet1.Parameters.CreateParameter('u_level',ftstring,pdinput,10,Edlevel.text)   ;
      ADODataSet1.Parameters.CreateParameter('e',ftinteger,pdinput,10,f)   ;
      ADODataSet1.Open;
      Result :=ADODataSet1.Fields.FieldByName('u_type').Value ;
      showmessage(Result) ;
      Edname2.Clear;
      Edpwd.Clear;
      Edlevel.Clear;
end;

end.