unit7.pas

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

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit7: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit18: TEdit;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Label18: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}
 uses unit2;
procedure TForm7.Button1Click(Sender: TObject);
var
s : String ;
begin
 if (edit1.Text = '')or(edit2.Text = '')or(edit3.Text = '')or(edit4.Text = '')or(edit5.Text = '')or
  (edit6.Text = '')or(edit16.Text = '')then
   begin
    showmessage('对不起！你输入的数据不全，请核对后再输！');
    exit;
   end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from studentinformation where 学号 =' + edit1.Text );
    ADOQuery1.Open;
    if ADOQuery1.RecordCount = 1 then
      begin
        showmessage('学号已存在!');
        exit;
      end;
        s := 'insert into studentinformation values(:n1,:n2,:n3,:n4,:n5,:n6,:n7,:n8,:n9,:n10,:n11,:n12,:n13,:n14,:n15,:n16,:n17)';
       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.Parameters.ParamByName('n13').Value := Edit13.Text;
       ADOQuery1.Parameters.ParamByName('n14').Value := Edit14.Text;
       ADOQuery1.Parameters.ParamByName('n15').Value := Edit15.Text;
       ADOQuery1.Parameters.ParamByName('n16').Value := Edit16.Text;
       ADOQuery1.Parameters.ParamByName('n17').Value := Edit18.Text;
       ADOQuery1.ExecSQL;
       showmessage('学生资料已输入！') ;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
  self.Hide;
  Form2.Show;
  self.close;
end;

end.