急:(100分酬谢)如何写密码确认的代码(在线等候）

我的界面对应着数据库,我的程序相当于一个人进门时要输入密码,密码错时显示一个message框,密码错!然后在输密码的edit框里,光标停在原始位置,即第一个码的位置? 问题点数：30、回复次数：4Top

1 楼qiqi97（迷茫）回复于 2002-05-22 16:54:28 得分 10

http://www.csdn.net/expert/topic/743/743709.xml?temp=.8285028  
  嘿嘿。。。看看这里的提示后，自己应该能做出来了Top

2 楼unsigned（僵哥(发站内消息，请附上链接或问题说明，否则不予回复)）回复于 2002-05-22 17:01:28 得分 0

TEdit.SetFocusTop

3 楼Nowinds（）回复于 2002-05-22 17:15:15 得分 20

以下是我程序中的代码，希望对你有所帮助  
                  Database1.Open;  
                  Table1.Active   :=   true;  
                  Table1.First;  
                  while   not   Table1.Eof   do  
                  begin  
                if(   table1.FieldByName('xm').Value   =   ComBoBox2.Text)   and  
                (table1.fieldByname('mm').value   =   Maskedit1.Text)       then  
                begin  
                Database1.Close;        
                Form2.Showmodal();  
                //显示主对话框  
                end  
                else  
                begin  
                ShowMessage('Please   input   against!');  
                Maskedit1.Text   :=   '';  
                table1.Next;  
                //是否登陆成功，没有成功则一直询问口令  
                end;  
                end;Top

4 楼caoyq（草民呆瓜）回复于 2002-05-22 17:21:29 得分 0

挺easy的吧。Top

相关问题

• 密码
• begin
• table
• text

• 帖主：deminxh
• qiqi97
• Nowinds

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载