unit AddStudentUnit;

interface

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

type
  TAddStudentForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddStudentForm: TAddStudentForm;

implementation

uses StudentInfoUnit,Unit1;

{$R *.dfm}

procedure TAddStudentForm.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TAddStudentForm.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (edit4.Text='')
     or (edit5.Text='') then messagedlg(#10'請輸入完整的學生信息',mtwarning,[mbOk],0)
  else begin
    ADOQuery1.close;        //添加課程
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from student where sno=:Psno');
    ADOQuery1.Parameters.ParamByName('Psno').Value:=edit1.text;
    ADOQuery1.open;
    if ADOQuery1.Eof then
      begin
        ADOQuery1.close;        //添加課程
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('insert into student(sno,sname,sage,IDno,dept) values (:Psno,:Psname,:Psage,:PIDNo,:Pdept)');
        ADOQuery1.Parameters.ParamByName('Psno').value:=edit1.text;
        ADOQuery1.Parameters.ParamByName('Psname').value:=edit2.text;
        ADOQuery1.Parameters.ParamByName('Psage').value:=edit3.text;
        ADOQuery1.Parameters.ParamByName('PIDNo').value:=edit4.text;
        ADOQuery1.Parameters.ParamByName('Pdept').value:=edit5.text;

        ADOQuery1.ExecSQL;
        StudentInfoForm.FormCreate(Sender);
        AddStudentForm.close;
      end
    else messagedlg(#10'該學號已存在,請核對輸入!',mtwarning,[mbOk],0)
    end;

end;

end.