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

Question

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

Answer 1

以下是我程序中的代码，希望对你有所帮助
        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;