unit11.pas

1.学生成绩管理系统的设计与实现 要求有以下文档: (1)概要设计（电子文档） (2)详细设计（电子文档） (3)课程设计的报告（打印文档） 选题,设计,实现,测试,参考文献

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('信息不完整！','错误操作',mb_ok);
exit;
end
else
adoquery1.close;
adoquery1.sql.clear;
Adoquery1.sql.add('insert into 课程资源表(所在系别,所在专业,所在班级,课程名称,课程代号)'
+'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('数据已录入，请查看！','完成提示',mb_ok);

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

end;

end.