delphi程序设计（课程求教）

来源：百度知道 编辑：UC知道 时间：2024/07/03 02:45:49
delphi程序设计（课程求教）
悬赏分：100 - 离问题结束还有 6 天 23 小时
登陆系统
设计一个登陆程序，该登陆程序至少能够完成以下功能：
（1）用户登陆：合法的用户提供合法的口令进入系统，非法用户只能尝试三次，若不能进入应用程序自动结束，输入信息和数据库中心数据相比较。
（2）用户密码修改：登陆成功的用户可以修改自己的密码，但用户有管理员和普通用户之分，他们的权利是不一样的，管理员可以添加5个用户，删除已有用户，而普通用户只能修改自己的密码。
（3）添加新用户：管理员可以在系统中添加新用户
（4）删除已有的用户：管理员可以在系统中删除所有的用户

登录的我发一个来你改下吧，输入三次的只要设置一个计数器就行了

unit UnitLOGIN;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ToolWin, ComCtrls, ExtCtrls;

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

type
TFRMlogin = class(TForm)
LBLNAME: TLabel;
edtname: TEdit;
LBLPASS: TLabel;
EDTPASS: TEdit;
BUTlogin: TButton;
BUT_EXIT: TButton;
procedure BUT_EXITClick(Sender: TObject);
procedure BUTloginClick(Sender: TObject);
procedure edtnameKeyPress(Sender: TObject; var Key: Char);
procedure EDTPASSKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }

public