begin
 with table1 do
   loginform.Table1.Open;
   loginform.table1.Active:=true;
   loginform.table1.First;
  while not Table1.Eof do
  begin
   if edit1.Text=table1.FieldByName('username').Value then
      begin
        if edit2.Text=table1.FieldByName('password').Value then
          begin
            loginform.Close;
            form1.Enabled:=true;
            break;
          end
        else
        begin
          messagedlg('密码错误',mterror,[mbok],0);
          break;
        end;
      end
   else if table1.Eof then
        begin
         messagedlg('操作员错误',mterror,[mbok],0);
         break;
        end;
    else next;
   end;
end;

解决方案 »

  1.   

    begin
       loginform.Table1.Open;
       loginform.table1.First;
      while not Table1.Eof do
      begin
       if edit1.Text=table1.FieldByName('username').Value then
          begin
            if edit2.Text=table1.FieldByName('password').Value then
              begin
                loginform.Hide;
                form1.Show;
                break;
              end
            else
            begin
              messagedlg('密码错误',mterror,[mbok],0);
              break;
            end;
          end
       else if table1.Eof then
            begin
             messagedlg('操作员错误',mterror,[mbok],0);
             break;
            end;
        else table1.next;
       end;
    end;