unit5.~pas

学生学籍管理 delphi+sql2000 合力制作

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Label11: TLabel;
    Label13: TLabel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
 uses unit2;
procedure TForm5.Button2Click(Sender: TObject);
begin
  self.Hide;
  Form2.Show;
  self.close;
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  s : String;
begin
  if edit1.Text = '' then
  begin
  showmessage('错误操作!');
  edit1.Clear;
  exit;
  end;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from grade where 学生学号 =' + edit1.Text );
  ADOQuery1.Open;
  if ADOQuery1.RecordCount = 1 then
    begin
      showmessage('学号已存在!');
      exit;
    end;
      s := 'insert into grade values(:n1,:n2,:n3,:n4,:n5,:n6,:n7,:n8,:n9,:n10,:n11,:n12)';
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add(s);
      ADOQuery1.Parameters.ParamByName('n1').Value := Edit1.Text;
      ADOQuery1.Parameters.ParamByName('n2').Value := Edit2.Text;
      ADOQuery1.Parameters.ParamByName('n3').Value := Edit3.Text;
      ADOQuery1.Parameters.ParamByName('n4').Value := Edit4.Text;
      ADOQuery1.Parameters.ParamByName('n5').Value := Edit5.Text;
      ADOQuery1.Parameters.ParamByName('n6').Value := Edit6.Text;
      ADOQuery1.Parameters.ParamByName('n7').Value := Edit7.Text;
      ADOQuery1.Parameters.ParamByName('n8').Value := Edit8.Text;
      ADOQuery1.Parameters.ParamByName('n9').Value := Edit9.Text;
      ADOQuery1.Parameters.ParamByName('n10').Value := Edit10.Text;
      ADOQuery1.Parameters.ParamByName('n11').Value := Edit11.Text;
      ADOQuery1.Parameters.ParamByName('n12').Value := Edit12.Text;
      ADOQuery1.ExecSQL;
      showmessage('学生成绩已输入!');
end;

end.