Проверка существования записи

[StudentMarat]

Использую Delphi + Access. Процедура добавления а за одно и существования записи.

procedure TfrmDodIzUsers.BitBtn1Click(Sender: TObject);   //Добавление пользователя
var q:integer;
begin
DataModule4.ADOQueryUsers.SQL.Text:='Select * From  Users';
DataModule4.ADOQueryUsers.Open;
DataModule4.ADOQueryUsers.First;
if (Edit1.Text='') or
   (Edit2.Text='') or
   (ComboBox1.Text='') then BEGIN
   MessageBox(Handle, 'Заполните все поля', 'Information', MB_OK) ;
  exit;
  end;
for q:=1 to DataModule4.ADOQueryUsers.RecordCount do
     begin
      if (Edit1.Text=DataModule4.ADOQueryUsers.FieldByName('login').Value) and(Edit2.Text=DataModule4.ADOQueryUsers.FieldByName('password').Value) and(ComboBox1.Text=DataModule4.ADOQueryUsers.FieldByName('dostup').Value) then
         begin
            MessageBox(Handle, 'Такая запись существует', 'Information', MB_OK);
            exit;
         end else
            begin
             DataModule4.ADOQueryUsers.Next;
            end;
             end;

for i:=1 to 99999999 do
if DataModule4.UsersTable.Locate('Key1',i,[])=false then break;
DataModule4.UsersTable.Active:=False;
DataModule4.ADOQueryUsers.Insert;

DataModule4.ADOQueryUsers.FieldByName('login').Value:=Edit1.Text;
DataModule4.ADOQueryUsers.FieldByName('password').Value:=Edit2.Text;
DataModule4.ADOQueryUsers.FieldByName('dostup').Value:=ComboBox1.Text;
DataModule4.ADOQueryUsers.FieldByName('Key1').Value:=i;
DataModule4.ADOQueryUsers.Post;
DataModule4.UsersTable.Active:=true;
Edit1.Clear;
Edit2.Clear;
frmUsers.Show;
frmUsers.Enabled:=True;
DataModule4.UsersTable.IndexFieldNames:='login';
Close;
end;

Работает, но препод мне сказал, что можно проще сделать. Особенно обратил внимание на проверку существования записи.
У кого какие идеи???

[Serge_Bliznykov]

ну разумеется, можно (и нужно) делать проверку по другому.
вариант 1.
по сути, тоже самое, что и у Вас, только использовать готовый метод датасета Locate:

DataModule4.ADOQueryUsers.Open;
if DataModule4.ADOQueryUsers.Locate('login;password;dostup',
VarArrayOf([Edit1.Text, Edit2.Text ,ComboBox1.Text ]), []) then begin
    DataModule4.ADOQueryUsers.Close;
    MessageBox(Handle, 'Такая запись существует', 'Information', MB_OK);
            exit;
end;

вариант 2.
ЛУЧШЕ!
использовать запрос вида:

DataModule4.ADOQueryUsers.SQL.Text:='Select count(*) as cnt1 From  Users where login='+QuotedStr(Edit1.text)+
' and  password = '+QuotedStr(Edit2.Text)+
' and  dostup = '+QuotedStr(ComboBox1.Text );
DataModule4.ADOQueryUsers.Open;
if DataModule4.ADOQueryUsers.FieldByName('cnt1').AsInteger>0 then 
begin
    DataModule4.ADOQueryUsers.Close;
    MessageBox(Handle, 'Такая запись существует', 'Information', MB_OK);
            exit;
end;

ну и ещё несколько замечаний по коду.
1-е. Зачем Вы доступ проверяете при проверке сущестования записи. Вы уверены, что имени и пароля недостаточно для идентификации? Или у Вас может быть несколько записей с одинаковыми логинами и паролями, отличающиеся только разными уровнями доступа?!

2-е.

for i:=1 to 99999999 do ...

это что за тихий ужас?!?!?!!!

[StudentMarat]

1-е. Зачем Вы доступ проверяете при проверке сущестования записи. Вы уверены, что имени и пароля недостаточно для идентификации? Или у Вас может быть несколько записей с одинаковыми логинами и паролями, отличающиеся только разными уровнями доступа?!

Да, Вы правы, об этом я не подумал. Теперь для проверки существования записи буду использовать только поле login

Цитата:
for i:=1 to 99999999 do ...
это что за тихий ужас?!?!?!!!

В таблице Users есть первичное поле key1 (формат числовой). Повторятся оно конечно же не может.
К примеру в таблице есть поля
Key1 login Password Dostup
1 Admin 1234 Да
3 Ivan 567 Нет
4 Petr 444 Да

К примеру нужно добавить пользователя Пупкин с паролем 455. Ясное дело, пользователю нельзя доверять ввод этого поля

for i:=1 to 99999999 do
if DataModule4.UsersTable.Locate('Key1 ',i,[])=false then break;

Здесь идет цикл по полю key1 и Пупкин автоматически получает значение 2. В итоге итоговая таблица:
1 Admin 1234 Да
2 Пупкин 455 Нет
3 Ivan 567 Нет
4 Petr 444 Да

К сожалению, другого способа я так и не придумал. Очень надеюсь, что Вы мне подскажите в этом

После модификации у меня получился вот такой код.

procedure TfrmDodIzUsers.BitBtn1Click(Sender: TObject);   //Добавление пользователя
var q:integer;
begin
DataModule4.ADOQueryUsers.SQL.Text:='Select count(*) as cnt1 From  Users where Login='+QuotedStr(edit1.Text );
DataModule4.ADOQueryUsers.Open;
DataModule4.ADOQueryUsers.First;
if (Edit1.Text='') or
   (Edit2.Text='') or
   (ComboBox1.Text='') then BEGIN
   MessageBox(Handle, 'Заполните все поля', 'Information', MB_OK) ;
  exit;
  end;
if DataModule4.ADOQueryUsers.FieldByName('cnt1').AsInteger>0 then
begin
DataModule4.ADOQueryUsers.Close;
MessageBox(Handle, 'Такая запись существует', 'Information', MB_OK);
exit;
end;

for i:=1 to 99999999 do
if DataModule4.UsersTable.Locate('Key1',i,[])=false then break;
DataModule4.UsersTable.Active:=False;

DataModule4.ADOQueryUsers.Insert;

DataModule4.ADOQueryUsers.FieldByName('login').Value:=Edit1.Text;
DataModule4.ADOQueryUsers.FieldByName('password').Value:=Edit2.Text;
DataModule4.ADOQueryUsers.FieldByName('dostup').Value:=ComboBox1.Text;
DataModule4.ADOQueryUsers.FieldByName('Key1').Value:=i;
DataModule4.ADOQueryUsers.Post;
DataModule4.UsersTable.Active:=true;
Edit1.Clear;
Edit2.Clear;
//ComboBox1.Clear;
frmUsers.Show;
frmUsers.Enabled:=True;
DataModule4.UsersTable.IndexFieldNames:='login';
Close;
end;

Но теперь я почему-то не могу добавить нового пользователя. У меня вылетает такая ошибка, хотя до этого было без проблем. Как говориться, избавились от одного, получили другое

[Аватар]

DataModule4.UsersTable.First;
i:=1;
while not DataModule4.UsersTable.Eof do begin
  if DataModule4.UsersTable.FielByName('Key1')>i then Break;
  Inc(i);
  DataModule4.UsersTable.Next;
end;
// вот в i и искомое значение  (дырка)

[StudentMarat]

Аватар, а по ошибке не подскажешь please????