unit3.pas

试卷生成系统 delphi 试卷生成系统 试卷生成系统

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;
    procedure Button1Click(Sender: TObject);
    procedure noKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  teacher: Tteacher;

implementation

uses Unit4;

{$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;

end.