Я рештил настройки меню загружать и сохранять в базу данных(Paradox).
Насколько я понял для того, чтобы загрузить данные из БД нужно использовать
DataSourse и Table(или Query, если надо взять часть данных), но я не могу понять как сохранить данные в БД. К примеру у меня есть DBCheckBox1. После компиляции и активизации формы в него автоматически идет закрузка того статуса, который был установлен в БД(False или True, соответственно cbUnchecked и cbChecked). Но как произвести сохранение изменение
изменения статуса DBCheckBox1? Подскажите ПЛЗ для меня енто очень важно.

Вообще, сохранение должно производиться автоматически при переходе на другое поле: Table.Next

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

Дело в том, что когда я в активной форме нажимаю на ДБЧекБокс, то смены его статуса не происходит!!!

Table1.post;

А ты уверен, что там не стоит какого-либо запрета, типа ReadOnly?

Цитата(VoL @ 27.6.2002, 15:25)

А ты уверен, что там не стоит какого-либо запрета, типа ReadOnly?

Уже исправил. Ошибка была в Active=False
Но встала другая проблема:
если делать так, как сказал Vit то появляется сообщение об ошибке(типа того, что "таблица находится не в режиме редактирования или вставки", хотя ReadOnly стоит в False).

Так тебе надо проверять, и делать post только в случае режима Edit - т.е. если информация была изменена.

На счет Query:
Когда я делаю запрос в таблицу, которая имеет значение полей типа String, то все нормально загружает в DBGrid:

Select Name FROM AdminBase

Но если таким же способом пататься загрузить данные типа Boolean(поставить True на Active), то возникает Еррор:'Invalid use of keyword'
В чем может быть дело?

Попробовал так, но се равно Еррор:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.State=cbChecked then
  begin
    with Table1 do begin
      Active:=True;
      Edit;
      FieldByName('Stet').AsBoolean:=True;
      Post;
     Active:=False;
   end;
 end
else begin
 with Table1 do begin
   Active:=True;
   Open;
   Edit;
   FieldByName('Stet').AsBoolean:=false;
   Post;
  Active:=False;
 end;
end;
end;

Цитата(Spawn @ 27.6.2002, 19:26)

Попробовал так, но се равно Еррор: procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.State=cbChecked then   begin     with Table1 do begin       Active:=True;       Edit;       FieldByName('Stet').AsBoolean:=True;       Post;      Active:=False;    end;  end else begin  with Table1 do begin    Active:=True;    Open;    Edit;    FieldByName('Stet').AsBoolean:=false;    Post;   Active:=False;  end; end; end;

А все дело в том, что надо было кое-что подделать и запускать не из Делфи так как в ентом случае 2 приложения юзают БД и возникал еррор    

Я что-то не понял ты используешь TDBCheckBox или TCheckBox?

Цитата(Vit @ 27.6.2002, 21:57)

Я что-то не понял ты используешь TDBCheckBox или TCheckBox?

И то и другое  
Я пробую разные варианты

C TCheckBox этот код должен работать:

Код

procedure TForm1.CheckBox1Click(Sender: TObject); begin  Table1.active:=true;  Table1.First;  Table1.edit;  Table1.FieldByName('Stet').AsBoolean:=CheckBox1.checked;  try    Table1.post;  except    on e:exception do      begin        showmessage(e.message);        Table1.cancel;      end;  end;  Table1.active:=false; end;

Только в таблице должна быть хотя бы одна запись, если таблица пустая то код работать не будет, так как тогда надо не редактировать а вставлять запись.

В своей проге я сделал так что, при регистрации нового пользователя данные записываются в БД, но потом при вводе пароля для входа под своим ником, вход происходит только после второго нажатия на кнопку:

{Связь с таблицей данных осуществляется на стадии 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 он активизируется только после второго раза?(хотя в последующие разы с первого)