unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ADOQuery1: TADOQuery;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.SpeedButton3Click(Sender: TObject);
begin
self.Close;
end;

procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
combobox1.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') or (edit4.Text='')or (combobox1.Text='') then
begin
application.MessageBox('信息不完整！','錯(cuò)誤操作',mb_ok);
exit;
end
else
adoquery1.close;
adoquery1.sql.clear;
Adoquery1.sql.add('insert into 課程資源表(所在系別,所在專(zhuān)業(yè),所在班級(jí),課程名稱(chēng),課程代號(hào))'
+'values (:1,:2,:3,:4,:5)');
Adoquery1.parameters.parambyname('1').value:=''+combobox1.Text+'';
Adoquery1.parameters.parambyname('2').value:=''+Edit1.Text+'';
Adoquery1.parameters.parambyname('3').value:=''+Edit2.Text+'';
Adoquery1.parameters.parambyname('4').value:=''+Edit3.Text+'';
Adoquery1.parameters.parambyname('5').value:=''+Edit4.Text+'';
Adoquery1.execsql;

application.MessageBox('數(shù)據(jù)已錄入，請(qǐng)查看！','完成提示',mb_ok);

edit3.Text:='';
edit4.Text:='';

end;

end.