Question

delphi自定义类

新建一个项目，在窗体上设计登录界面，然后新建一个单元，在单元中做一个类Tlogin，该类中设计域变量fname,fpwd,然后为这两个域设计属性name和pwd，最后再为此类添加一个方法verify，用于进行用户和权限验证。然后在主窗体的登录按钮的单击事件中对此类进行调用，以完成权限验证功能。

Answer 1

unit U_xxxx;

interface
uses
SysUtils, Classes,......;

Type Tlogin = class(Tobject)
fname:string;
fpwd :string;
function verify:boolean;
end;

implementation

function Tlogin.verify:boolean;
begin
....
//你的验证代码,用fname和fpwd.例如:select * from t_user where user=fname and pwd=fpwd
end;

....
end.

//在主窗体的登录按钮的单击事件中对此类进行调用,如果和定义Tlogin的单元不是同一个当然要先引用U_xxxx了。
procedure Tfrm_main.btn_LoginClick(Sender: TObject);
var
var_login:Tlogin;
begin
var_login:=Tlogin.create;
var_login.fname:='你要验证的用户名';
var_login.fpwd:='你要验证的用户密码';
if var_login.verify then
begin
。。。。
end
else
begin
。。。。
end;
end;
大体结构就这样，具体填填