unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids;

type
  Tteacher = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    no: TEdit;
    name: TEdit;
    ke: TComboBox;
    Button1: TButton;
    Database1: TDatabase;
    sfjy: TQuery;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure noKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  teacher: Tteacher;

implementation

uses Unit4, Unit2;

{$R *.dfm}

procedure Tteacher.Button1Click(Sender: TObject);

begin
//校驗身份
if (no.text='') or (name.Text='') or (ke.Text ='') then
begin
showmessage('登陸信息不完整！請認真檢查！');
end
else
begin
sfjy.Close;
sfjy.ParamByName('no').AsString :=trim(no.Text);
sfjy.ParamByName('name').AsString :=trim(name.Text);
sfjy.ParamByName('kecheng').AsString :=trim(ke.Text);
sfjy.Open;
if not sfjy.IsEmpty then
begin
showmessage(name.text+' 老師您好！歡迎您預訂本系統試卷！');
xuanke.show;
teacher.Close;

end
else
begin
showmessage('對不起！只有本校教師且所教課程相符才能預定試卷！');

end;
end;
end;

procedure Tteacher.noKeyPress(Sender: TObject; var Key: Char);
begin
//是否是有效字符
if not ((key>=#48) and (key<=#57)  ) then
begin
showmessage('對不起！您輸入了非法的字符！');
key:=#13;
no.Text:='';
end;
end;

procedure Tteacher.FormActivate(Sender: TObject);
begin
no.SetFocus ;
end;

procedure Tteacher.Button2Click(Sender: TObject);
begin
xuqiu.show;
teacher.close;
end;

end.