
delphi自定义类
新建一个项目,在窗体上设计登录界面,然后新建一个单元,在单元中做一个类Tlogin,该类中设计域变量fname,fpwd,然后为这两个域设计属性name和pwd,最后再为...
新建一个项目,在窗体上设计登录界面,然后新建一个单元,在单元中做一个类Tlogin,该类中设计域变量fname,fpwd,然后为这两个域设计属性name和pwd,最后再为此类添加一个方法verify,用于进行用户和权限验证。然后在主窗体的登录按钮的单击事件中对此类进行调用,以完成权限验证功能。
展开
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;
大体结构就这样,具体填填
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;
大体结构就这样,具体填填

2022-08-05 广告
苏州蓝晓生物科技有限公司。标准化核心产品:公司拥有完整的琼脂糖介质、葡聚糖介质、聚甲基丙烯酸酯介质生产线,年产分离介质50000L,产品质量稳定并达到国际领先水平。核心优势:公司核心技术人员拥有近二十年不同基质的基球开发和官能化的丰富技术经...
点击进入详情页
本回答由苏州蓝晓生物科技有限公司_提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询