unit3.~pas

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

unit Unit3;

interface

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

type
  TFormstu_add = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Editsno: TEdit;
    Editsname: TEdit;
    Editsdep: TEdit;
    Button1: TButton;
    ComboBoxssex: TComboBox;
    ComboBoxsage: TComboBox;
    Querystu_add: TQuery;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
     
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formstu_add: TFormstu_add;

implementation

{$R *.dfm}

procedure TFormstu_add.Button1Click(Sender: TObject);
 
var
  sno,sname,ssex,sage,sdep:string;
begin
  sno:=editsno.text;
  sname:=editsname.text;
  ssex:=comboboxssex.text;
  sage:=comboboxsage.text;
  sdep:=editsdep.text;
  if(sno='')or(sname='')or(ssex='')or(sage='')or(sdep='')then
    showmessage('请将登记学生信息输入完全!')
  else
    begin
    with querystu_add do
      begin
        close;
        sql.clear;
        sql.add('insert student values(:snoname,:snamename,:ssexname,:sagename,:sdepname)');
        parambyname('snoname').asstring:=sno;
        parambyname('snamename').asstring:=sname;
        parambyname('ssexname').asstring:=ssex;
        parambyname('sagename').asstring:=sage;
        parambyname('sdepname').asstring:=sdep;
        prepare;
        execsql;
      end;
    editsno.text:='';
    editsname.text:='';
    comboboxssex.text:='';
    comboboxsage.text:='';
    editsdep.text:='';
    showmessage('学生信息登记成功！')
    end;

 end;

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

end.