unit3.~pas

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

unit Unit3;

interface

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

type
  TFrmstuinfo = class(TForm)
    ADOConnection1: TADOConnection;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edsno: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Edsno2: TEdit;
    Label2: TLabel;
    Edsname: TEdit;
    Label3: TLabel;
    Edage: TEdit;
    Label4: TLabel;
    Eddept: TEdit;
    Label5: TLabel;
    btnadd: TButton;
    btnchange: TButton;
    btndel: TButton;
    btnexit: TButton;
    Label6: TLabel;
    Label7: TLabel;
    ADODataSet1: TADODataSet;
    procedure Button1Click(Sender: TObject);
    procedure btnexitClick(Sender: TObject);
    procedure btnaddClick(Sender: TObject);
    procedure btnchangeClick(Sender: TObject);
    procedure btndelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmstuinfo: TFrmstuinfo;

implementation

{$R *.dfm}

procedure TFrmstuinfo.Button1Click(Sender: TObject);
begin
ADODataSet1.Close;
    ADODataSet1.CommandType := cmdText;
    ADODataSet1.Parameters.Clear;
    ADODataSet1.CommandText :=   '{call   pkg_student.prc_query_student(?)}' ;
    ADODataSet1.Parameters.CreateParameter('p_sno',ftstring,pdinput,10,Edsno.text);
    ADODataSet1.Open ;

    if(ADODataSet1.Fields.FieldByName('sno').Value=null)then
     begin
        with Application do
     MessageBox('该学号不存在!','提示',MB_OK);
        Edsno.SetFocus;
      end
      else
    Edsno2.Text := ADODataSet1.Fields.FieldByName('sno').Value;
    Edsname.Text:= ADODataSet1.Fields.FieldByName('sname').Value;
    Edage.Text  := ADODataSet1.Fields.FieldByName('sage').Value;
    Eddept.Text:= ADODataSet1.Fields.FieldByName('sdept').Value;


    

end;

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

procedure TFrmstuinfo.btnaddClick(Sender: TObject);

var
b : integer;
Result:string;
begin
      //Edsno2.clear;
      //Edsname.clear;
     // Edage.clear;
      //Eddept.Clear;

      b:=1;
      ADODataSet1.Close;
    ADODataSet1.CommandType := cmdText;
    ADODataSet1.Parameters.Clear;

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

      ADODataSet1.Parameters.CreateParameter('s_no',ftstring,pdinput,10,Edsno2.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_name',ftstring,pdinput,10,Edsname.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_age',ftinteger,pdinput,10,Edage.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_sdept',ftstring,pdinput,10,Eddept.text)   ;
      ADODataSet1.Parameters.CreateParameter('a',ftinteger,pdinput,10,b)   ;

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


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

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

      ADODataSet1.Parameters.CreateParameter('s_no',ftstring,pdinput,10,Edsno2.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_name',ftstring,pdinput,10,Edsname.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_age',ftinteger,pdinput,10,Edage.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_sdept',ftstring,pdinput,10,Eddept.text)   ;
      ADODataSet1.Parameters.CreateParameter('a',ftinteger,pdinput,10,b)   ;

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

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

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

      ADODataSet1.Parameters.CreateParameter('s_no',ftstring,pdinput,10,Edsno2.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_name',ftstring,pdinput,10,Edsname.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_age',ftinteger,pdinput,10,Edage.text)   ;
      ADODataSet1.Parameters.CreateParameter('s_sdept',ftstring,pdinput,10,Eddept.text)   ;
      ADODataSet1.Parameters.CreateParameter('a',ftinteger,pdinput,10,b)   ;

      ADODataSet1.Open;
     Result :=ADODataSet1.Fields.FieldByName('s_type').Value ;
      showmessage(Result) ;
      Edsno2.clear;
      Edsname.clear;
      Edage.clear;
      Eddept.Clear;


      end;

end.