unit6.pas

实现学生的成绩管理功能

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus, ImgList, Buttons, Grids, DBGrids, DB,
  ADODB, Mask, ExtDlgs, DBCtrls;

type
  TForm6 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label6: TLabel;
    ComboBox2: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    ComboBox3: TComboBox;
    Label10: TLabel;
    ComboBox4: TComboBox;
    Label11: TLabel;
    Edit5: TEdit;
    Label12: TLabel;
    Edit6: TEdit;
    Label13: TLabel;
    Edit7: TEdit;
    Label14: TLabel;
    Edit8: TEdit;
    Label15: TLabel;
    Edit9: TEdit;
    Label16: TLabel;
    Edit10: TEdit;
    Panel1: TPanel;
    Label17: TLabel;
    Label18: TLabel;
    Edit11: TEdit;
    Label19: TLabel;
    Edit12: TEdit;
    Label20: TLabel;
    Edit13: TEdit;
    Label21: TLabel;
    Memo1: TMemo;
    Label23: TLabel;
    Memo2: TMemo;
    Label24: TLabel;
    Edit14: TEdit;
    Label25: TLabel;
    Edit15: TEdit;
    Panel3: TPanel;
    GroupBox3: TGroupBox;
    SpeedButton2: TSpeedButton;
    GroupBox4: TGroupBox;
    SpeedButton3: TSpeedButton;
    GroupBox5: TGroupBox;
    SpeedButton4: TSpeedButton;
    ADOQuery1: TADOQuery;
    Label22: TLabel;
    Edit16: TEdit;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  Picture1:Tpicture;

implementation

uses Unit1;


{$R *.dfm}

procedure TForm6.SpeedButton3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
memo1.Text:='';
memo2.Text:='';
end;

procedure TForm6.SpeedButton4Click(Sender: TObject);
begin
self.Close;
end;

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

procedure TForm6.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 TForm6.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in['0'..'9',#8])then
   begin
   key:=#0;
   Application.MessageBox('联系电话只能用数字表示，请重新输入！','警告',0+64)
   end;
end;

procedure TForm6.SpeedButton2Click(Sender: TObject);
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 (edit9.Text='') or(edit10.Text='') or(combobox4.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,:12,:13,:14,:15,:16,:17,:18,:19,:20,:21,:22)');
Adoquery1.parameters.parambyname('1').value:=''+Edit1.Text+'';
Adoquery1.parameters.parambyname('2').value:=''+Edit2.Text+'';
Adoquery1.parameters.parambyname('3').value:=''+Edit3.Text+'';
Adoquery1.parameters.parambyname('4').value:=''+combobox1.Text+'';
Adoquery1.parameters.parambyname('5').value:=''+combobox2.Text+'';
Adoquery1.parameters.parambyname('6').value:=''+Edit4.Text+'';
Adoquery1.parameters.parambyname('7').value:=''+combobox3.Text+'';
Adoquery1.parameters.parambyname('8').value:=''+combobox4.Text+'';

Adoquery1.parameters.parambyname('9').value:=''+Edit5.Text+'';
Adoquery1.parameters.parambyname('10').value:=''+Edit6.Text+'';
Adoquery1.parameters.parambyname('11').value:=''+Edit7.Text+'';
Adoquery1.parameters.parambyname('12').value:=''+Edit8.Text+'';
Adoquery1.parameters.parambyname('13').value:=''+Edit9.Text+'';
Adoquery1.parameters.parambyname('14').value:=''+Edit10.Text+'';
Adoquery1.parameters.parambyname('15').value:=''+Edit11.Text+'';
Adoquery1.parameters.parambyname('16').value:=''+Edit12.Text+'';
Adoquery1.parameters.parambyname('17').value:=''+Edit13.Text+'';
Adoquery1.parameters.parambyname('18').value:=''+memo1.Text+'';

Adoquery1.parameters.parambyname('19').value:=''+Edit16.Text+'';

Adoquery1.parameters.parambyname('20').value:=''+Edit14.Text+'';

Adoquery1.parameters.parambyname('21').value:=''+Edit15.Text+'';

Adoquery1.parameters.parambyname('22').value:=''+memo2.Text+'';

Adoquery1.execsql;

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

end;

end.