login_p.pas

毕业设计!!!! 本人喜欢共享东西,希望大家能够喜欢啊,希望对你们有用的,也希望下载些对自己有用的东西.

unit login_p;

interface

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

type
  Tf_login = class(TForm)
    bt1: TSpeedButton;
    bt2: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    procedure bt1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bt2Click(Sender: TObject);
  private
    i:integer;
  public
    { Public declarations }
  end;

var
  f_login: Tf_login;

implementation

uses dm_p, main_p;

{$R *.dfm}

procedure Tf_login.bt1Click(Sender: TObject);
var l:variant;
begin
//管理员、教师登录
   if trim(edit1.Text)='' then
   begin
       edit1.SetFocus;
       application.MessageBox('请输入你的登录名称！','提示信息',48);
       exit;
   end;
   if trim(edit2.Text)='' then
   begin
       edit2.SetFocus;
       application.MessageBox('请输入你的登录密码！','提示信息',48);
       exit;
   end;
   dm.skc.AppServer.ChkUsr(trim(edit1.Text),trim(edit2.Text),l);
   if l=-1 then
   begin
     if i<3 then
     begin
       edit1.SetFocus;
       inc(i);
       application.MessageBox('登录名称或密码不正确，请重新输入！','提示信息',16);
       exit;
     end
     else
     begin
        close;
     end;
   end;
   f_main.ryqx:=l;
   f_main.dlmc:=trim(edit1.Text);
   close;
end;

procedure Tf_login.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then edit2.SetFocus;
end;

procedure Tf_login.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then bt1.Click;
end;

procedure Tf_login.bt2Click(Sender: TObject);
begin
    close;
end;

end.