编个密码进入框(50分)

  • 主题发起人 主题发起人 u235
  • 开始时间 开始时间
U

u235

Unregistered / Unconfirmed
GUEST, unregistred user!
谁能给个例子,最好有代码~-~!
 
什么意思?
Edit的PasswordChar设置为*就可以的。
是不是想自己写一个Edit,避免被盗窃密码?
 
利用Dll实现通用密码验证框
//文件名为CheckPasswordForm.dpr;
编译此文件生成CheckPasswordForm.dll
library CheckPasswordForm;
uses
XcqCheck in 'XcqCheck.pas' {XcqForm};
exports
CheckPassword name 'CheckPassword';//dll入口
begin
end.
//文件名为XcqCheck.pas
unit XcqCheck;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, Menus;
type
TXcqForm = class(TForm)
XcqEdit: TMaskEdit;//密码输入框
OkBtn: TButton;
procedure OkBtnClick(Sender: TObject);
end;
var
XcqForm: TXcqForm;
Check: Boolean;//验证输入密码的正确性
function CheckPassword: Boolean;export;
//本dll文件的关键实现
implementation
{$R *.DFM}
procedure TXcqForm.OkBtnClick(Sender: TObject);
begin
if XcqEdit.Text = 'xcq' then
Check := True;
Close;
end;
function CheckPassword;export;
begin
Check := False;
XcqForm := TXcqForm.Create(Application);
//创建密码输入框
XcqForm.ShowModal;//显示密码输入框;
注意:不能用XcqForm.Show!
Result := Check;//返回给调用本dll的应用程序判断
XcqForm.Free;//释放本dll文件所占资源
end;
end.
---- 在调用以上dll中CheckPassword函数的应用程序中只需加入以下语句在
implementation 后,function CheckPassword: Boolean; external
'CheckPasswordForm.dll' name 'CheckPassword';在需要进行密码验证的地方加
入下面的条件语句就完全实现了密码验证的功能。
if CheckPassword then
begin
...//如XcqQuery.Open;
end;
---- 上面的程序只是一个简单的密码验证框,我们可以将密码以写入注册表或文件的
方式保存,动态修改,更可以利用算术算法对密码进行简单的加密等,使要保密的数
据更安全。
 
是啊,你要干什么?
你要管理密码的话,可以做个数据库,判断输入的密码跟数据库中的数据是否相等就行了
 
http://wolfsoft.nugoo.com/
程序设计里启动里有密码框的
你自己查找一下
 
感觉你要的就是yzhshi的意思的.是不是.
 
自己做,很容易的[:)]
 
谁能说说原理或思路?
 
后退
顶部