смена пароля в базе данных на delphi !!

[6666]

добрый вечер. сделал пароль хранящийся в базе данных но не получается сделать смену пароля. пароль и логин не хочет сохранятся в базе данных подскажите пожалуйста в чем ошибка. изначальные данные логин admin пароль 123.

вот код смены пароля:

procedure TForm1.Button2Click(Sender: TObject);
var
pas:string;
begin
ClientDataSet1.Filter:='username='''+s+'''';
ClientDataSet1.Filtered:=true;
pas:=InputBox('New password','Enter password','');
ClientDataSet1.Edit;
ClientDataSet1password.AsString:=pas;
ClientDataSet1.Post;
ClientDataSet1.Filtered:=false;

end;

пример базы данных вот:
http://narod.ru/disk/9733970001/%D0%...D1%8C.rar.html

[6666]

вот база данных:

[Прик]

А фильтр зачем? Без фильтра пароль прекрасно запоминается.

procedure TForm1.Button1Click(Sender: TObject);
var
  pas:string;
begin
  s := 'admin'; //для примера
  if ClientDataSet1.Locate('username', s, []) then begin
    pas:=InputBox('New password','Enter password','');
    ClientDataSet1.Edit;
    ClientDataSet1password.AsString:=pas;
    ClientDataSet1.Post;
  end;
end;

Если не указан файл в свойсте FileName ClientDataSet1, то его надо указать.

[6666]

огромное спасибо.тема закрыта!