要实现达到一定次数不能登录,还要添加哪些代码？
以下代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
with adotable1 do
begin
Open;
while not eof do
begin
combobox1.Items.Add(fieldbyname('name').asstring);
next;
end;
combobox1.Text:=combobox1.Items[0];
// close;这里别急着关闭！
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);
var strpassword:string;
begin
adotable1.DisableControls;
if adotable1.Locate('name',combobox1.Text,[lopartialkey]) then
begin
strpassword:=adotable1['password'];
if edit1.Text=strpassword then showmessage('成功登录')
else showmessage('密码错误');
end
else showmessage('无此账户');
adotable1.EnableControls;
end;
数据库表中还有一个字段'TIMES'用来记录登录的次数，如果要实现达到一定次数不能登录，并显示信息，还要添加哪些代码？
[解决办法]
密文可以用md5的 网上很多例子.
[解决办法]
建议楼主先把自己的思路写下来 自己每一步做什么 然后在根据自己每一步要做的事写相应的代码
不懂得你可以百度 google都可以。做软件思路是最主要的。
[解决办法]
楼主这样的方法 基本都没用的..
偷偷的往系统各个地方塞文件, 注册表也写, 配置也写 还可以修改修改自身的 exe.
