delphi自定义类

新建一个项目,在窗体上设计登录界面,然后新建一个单元,在单元中做一个类Tlogin,该类中设计域变量fname,fpwd,然后为这两个域设计属性name和pwd,最后再为... 新建一个项目,在窗体上设计登录界面,然后新建一个单元,在单元中做一个类Tlogin,该类中设计域变量fname,fpwd,然后为这两个域设计属性name和pwd,最后再为此类添加一个方法verify,用于进行用户和权限验证。然后在主窗体的登录按钮的单击事件中对此类进行调用,以完成权限验证功能。 展开
 我来答
midasblesshj
2009-04-15 · TA获得超过127个赞
知道小有建树答主
回答量:177
采纳率:0%
帮助的人:183万
展开全部
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;
大体结构就这样,具体填填
苏州蓝晓生物科技有限公司_
2022-08-05 广告
苏州蓝晓生物科技有限公司。标准化核心产品:公司拥有完整的琼脂糖介质、葡聚糖介质、聚甲基丙烯酸酯介质生产线,年产分离介质50000L,产品质量稳定并达到国际领先水平。核心优势:公司核心技术人员拥有近二十年不同基质的基球开发和官能化的丰富技术经... 点击进入详情页
本回答由苏州蓝晓生物科技有限公司_提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式