Цитата(Spawn @ 28.6.2002, 08:07)

В своей проге я сделал так что, при регистрации нового пользователя данные записываются в БД, но потом при вводе пароля для входа под своим ником, вход происходит только после второго нажатия на кнопку: {Связь с таблицей данных осуществляется на стадии OnCreate формы 2} ... AName:=Edit1.Text; //Записать имя из Едит.Текста1 APass:=Edit2.Text; //Записать пароль из Едит.Текста2 Table1.Open;    //Открыть таблицу if PageControl1.ActivePage=TabSheet1 then //если превая страница открыта ... ... {код проверки на заполнение полей ввода данных с именем и пасом} ... if not Table1.IsEmpty then begin  repeat   if (AName=Table1.FieldByName('Name').AsString) and (APass=Table1.FieldByName('Pass').AsString) then //Если логин и пасс совпадают...   begin      Form1.label65.Caption:=AName;        //на Форме 1 вывести имя Админа      Close;                        //Закрыть Форму   end  until not Table1.FindNext; Table1.Close; end; регистрация нового пользователя осуществляется из формы 3: ... with Form2.Table1 do begin    Open;    Insert;    FieldByName('Name').AsString:=Edit1.Text;    FieldByName('Pass').AsString:=Edit2.Text;    Post;  end;{наверно надо запихнуть в try .. except} ... Из за чего же после регистрации нового юзера при вводе пароля в форме 2 он активизируется только после второго раза?(хотя в последующие разы с первого)

Мне пришла в голову идея, что возможно ето возникает из за того, что после вставки новых данных(Insert) они ставятся на первое место в таблице, а курсор видимо переходит во вторую строку, поетому возможно и возникает ета проблема. Можно как нить установить куроср в БД на первую строку?

Цитата(Spawn @ 28.6.2002, 11:29)

Цитата(Spawn @ 28.6.2002, ) В своей проге я сделал так что, при регистрации нового пользователя данные записываются в БД, но потом при вводе пароля для входа под своим ником, вход происходит только после второго нажатия на кнопку: {Связь с таблицей данных осуществляется на стадии OnCreate формы 2} ... AName:=Edit1.Text; //Записать имя из Едит.Текста1 APass:=Edit2.Text; //Записать пароль из Едит.Текста2 Table1.Open;    //Открыть таблицу if PageControl1.ActivePage=TabSheet1 then //если превая страница открыта ... ... {код проверки на заполнение полей ввода данных с именем и пасом} ... if not Table1.IsEmpty then begin  repeat   if (AName=Table1.FieldByName('Name').AsString) and (APass=Table1.FieldByName('Pass').AsString) then //Если логин и пасс совпадают...   begin      Form1.label65.Caption:=AName;        //на Форме 1 вывести имя Админа      Close;                        //Закрыть Форму   end  until not Table1.FindNext; Table1.Close; end; регистрация нового пользователя осуществляется из формы 3: ... with Form2.Table1 do begin    Open;    Insert;    FieldByName('Name').AsString:=Edit1.Text;    FieldByName('Pass').AsString:=Edit2.Text;    Post;  end;{наверно надо запихнуть в try .. except} ... Из за чего же после регистрации нового юзера при вводе пароля в форме 2 он активизируется только после второго раза?(хотя в последующие разы с первого) Мне пришла в голову идея, что возможно ето возникает из за того, что после вставки новых данных(Insert) они ставятся на первое место в таблице, а курсор видимо переходит во вторую строку, поетому возможно и возникает ета проблема. Можно как нить установить куроср в БД на первую строку?

Так и есть все дело в позиции курсора: стоило поставить First в нужное место и все стало Ок    

Честно говоря, Дельфийские таблицы мне не очень нравятся, ровно как и DBкомпоненты типа DBGrid и т. п. На мой взгляд, удобнее работать с Query через SQL. Чаще всего, все-таки, удобнее изменять значение в базе данных не сразу после клика на какой-нибудь CheckBox, а после смены активной записи(условно говоря). Тут ты и формируешь либо 'INSERT INTO', либо 'UPDTE' на данных своих контролов.

Я ни как не могу понять, в чем же ошибка занесения в БД новых данных:

...
if not Table1.IsEmpty then
begin
 repeat
 if (AName=Table1.FieldByName('Name').AsString) and (APass=Table1.FieldByName('Pass').AsString) then      //Если логин и пасс совпадают...
  begin
 if (Form1.Label65.Caption<>'')and(Form1.Label65.Caption=AName) then
     begin
      Table1.Edit;    {Редактировать запись}
      for j:=1 to 3 do  {цикл Чекбоксов}
       begin
        if CheckBx[j].State=cbUnchecked then            
          Table1.FieldByName(Field[j]).AsBoolean:=False  {если чекбоксы отжаты тогда False в таблице}
        else
          Table1.FieldByName(Field[j]).AsBoolean:=True; {иначе True}
       end;{for do}
       Table1.Post; {Послать изменения}
       Table1.Close;
       Close;       {Закрыть форму}
     end {if then}
     else     {иначе}
      begin
       Form1.label65.Caption:=AName; //на Форме 1 вывести имя Админа
       Close;                        //Закрыть Форму
      end;
  end   {тело repeat}
  until not Table1.FindNext;
...

Во время входа нового пользователя(набора пароля и имени ) все нормально, но как только совпадает условие(соответственно выполняются действия в етом блоке):


 if (AName=Table1.FieldByName('Name').AsString) and (APass=Table1.FieldByName('Pass').AsString) then      //Если логин и пасс совпадают...
  begin
 if (Form1.Label65.Caption<>'')and(Form1.Label65.Caption=AName) then
     
то пишет еррор: "невозможно производить какие-либо действия с закрытой БД", хотя БД на стадии OnCreat входит в состояние Active:=True и в сомой программе ни где не закрывается.

В чем может быть дело?

Пришли исходняки на мыло, можу посмотреть и сделать. Ты только скажи а как ты собираешься пароли то прятать, шифровать, если молжно любым вьювером твою базу открыть и пароли посмотреть!!! в чем смысл то?

Орс !!! у тебя же база парадокс там можно пароль ставить, звиняюсь косячок!!

Цитата

Пришли исходняки на мыло, можу посмотреть и сделать. Ты только скажи а как ты собираешься пароли то прятать, шифровать, если молжно любым вьювером твою базу открыть и пароли посмотреть!!! в чем смысл то?

Спасибо, но я уже нашел ошибку : все дело в том, что вот в етом месте таблица закрывалась:

...
        if CheckBx[j].State=cbUnchecked then            
          Table1.FieldByName(Field[j]).AsBoolean:=False  {если чекбоксы отжаты тогда False в таблице}
        else
          Table1.FieldByName(Field[j]).AsBoolean:=True; {иначе True}
       end;{for do}
       Table1.Post; {Послать изменения}
       Table1.Close;
...
а затем шла проверка на конец записи в таблице, но так как она была уже закрыта, то это приводило к ошибке:
...
 until not Table1.FindNext;
...