delphi登录

来源：百度知道 编辑：UC知道 时间：2024/05/10 13:33:24
用户名和密码为空也可以进入系统，不知道怎样修改了
unit login;

interface

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

type
TF_login = class(TForm)
Label1: TLabel;
Label2: TLabel;
b_ok: TBitBtn;
b_exit: TBitBtn;
e_pass: TEdit;
e_czy: TEdit;
procedure FormCreate(Sender: TObject);
procedure e_czyChange(Sender: TObject);
procedure b_okClick(Sender: TObject);
procedure b_exitClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure e_passKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
i:integer;//密码循环三次
{ Private declarations }
public
{ Public declarations }
end;

var
F_login: TF_login;

implementation

uses d

在ok按钮里添加两个判断就好了:
if Trim(e_czy.text)='' then
begin
showmessage('请输入用户名！');
if i=3 then
begin
showmessage('登录失败三次，自动退出！');
...//退出系统,这里你自己加
end;
i:=i+1;
exit;
end;
密码同样判断下。