unit9.~pas

学生成绩管理 实现成绩的查询 录入多个公司的JAVA面试试题

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Edit5: TEdit;
    Label9: TLabel;
    Edit6: TEdit;
    Panel1: TPanel;
    Label10: TLabel;
    Edit7: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    Label12: TLabel;
    Memo1: TMemo;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton2: TSpeedButton;
    GroupBox4: TGroupBox;
    SpeedButton3: TSpeedButton;
    ComboBox2: TComboBox;
    ADOQuery1: TADOQuery;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

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

procedure TForm9.SpeedButton2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
end;

procedure TForm9.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in['0'..'9',#8])then
   begin
   key:=#0;
   Application.MessageBox('学号只能用数字表示，请重新输入！','警告',0+64)
   end;
end;

procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
begin
with ADOQuery1 do
   begin
      close;
      SQL.Clear;
      SQL.Add('select * from 成绩信息表 where 成绩信息表.学号=:a');
      parameters.ParamByName('a').Value:=Trim(Edit1.Text);
      Open;
   end;
  if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') or (edit4.Text='')or (edit5.Text='')or (edit6.Text='')or (edit7.Text='')or (edit8.Text='')or(combobox1.Text='')or(combobox2.Text='') then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end
else if ADOQuery1.Eof=false then
   begin
     ShowMessage('该学生已经存在，请重新填写');
     Edit1.Clear
   end
else
begin
adoquery1.close;
adoquery1.sql.clear;
Adoquery1.sql.add('insert into 成绩信息表(学号,姓名,性别,所在系别,所在专业,所在班级,课程名称,课程代号,学期,成绩,备注内容)'
+'values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11)');
Adoquery1.parameters.parambyname('1').value:=''+Edit1.Text+'';
Adoquery1.parameters.parambyname('2').value:=''+Edit2.Text+'';
Adoquery1.parameters.parambyname('3').value:=''+combobox1.Text+'';
Adoquery1.parameters.parambyname('4').value:=''+combobox2.Text+'';
Adoquery1.parameters.parambyname('5').value:=''+Edit3.Text+'';
Adoquery1.parameters.parambyname('6').value:=''+Edit4.Text+'';
Adoquery1.parameters.parambyname('7').value:=''+Edit5.Text+'';
Adoquery1.parameters.parambyname('8').value:=''+Edit6.Text+'';

Adoquery1.parameters.parambyname('9').value:=''+Edit7.Text+'';
Adoquery1.parameters.parambyname('10').value:=''+Edit8.Text+'';
Adoquery1.parameters.parambyname('11').value:=''+memo1.Text+'';

Adoquery1.execsql;

application.MessageBox('数据已录入，请查看！','完成提示',mb_ok);
edit1.Text:='';
edit2.Text:='';
end;

end;

end;

end.