unit5.~pas

来自「这个是用oracle和delphi开发的学生信息管理系统 包括oracle的存储」· ~PAS 代码 · 共 62 行

unit Unit5;

interface

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

type
  TFrmsc = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edsno: TEdit;
    Edcno: TEdit;
    Edgrade: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmsc: TFrmsc;

implementation

{$R *.dfm}

procedure TFrmsc.Button1Click(Sender: TObject);
var
  Result : string;
begin
ADODataSet1.Close   ;
      ADODataSet1.CommandType   :=     cmdText   ;
      ADODataSet1.Parameters.Clear   ;

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

      ADODataSet1.Parameters.CreateParameter('sc_cno',ftstring,pdinput,10,Edcno.Text);
      ADODataSet1.Parameters.CreateParameter('sc_sno',ftstring,pdinput,10,Edsno.Text);
      ADODataSet1.Parameters.CreateParameter('sc_grade',ftinteger,pdinput,10,Edgrade.Text);
      ADODataSet1.Parameters.CreateParameter('sc_time',ftdate,pdinput,10,DateTimePicker1.Date);

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




end;

end.