unit6.pas

本例是用delphi开发的学生与课程信息管理系统

unit Unit6;

interface

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

type
  Tformcou_add = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Editcno: TEdit;
    Editcname: TEdit;
    Editcbook: TEdit;
    Button1: TButton;
    ComboBoxsem: TComboBox;
    StoredProccou_add: TStoredProc;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formcou_add: Tformcou_add;

implementation

{$R *.dfm}

procedure Tformcou_add.Button1Click(Sender: TObject);
var
 cno,cname,sem,cbook:string;
begin
  cno:=editcno.Text;
  cname:=editcname.Text;
  sem:=comboboxsem.text;
  cbook:=editcbook.Text;
  if(cno='')or(cname='')or(sem='')or(cbook='')then
    showmessage('请将课程信息输入完全！')
  else
    begin
    storedproccou_add.Close;
    storedproccou_add.Params[1].AsString:=cno;
    storedproccou_add.Params[2].AsString:=cname;
    storedproccou_add.Params[3].asstring:=sem;
    storedproccou_add.params[4].asstring:=cbook;
    storedproccou_add.Prepare;
    storedproccou_add.ExecProc;
    editcno.Text:='';
    editcname.text:='';
    comboboxsem.text:='';
    editcbook.text:='';
    showmessage('登记成功！');
    end; 

end;

procedure Tformcou_add.Button2Click(Sender: TObject);
begin
  close;
end;

end.