VPF::Пароль на таблице - Форум программистов

Dimich

Дата 6.12.2004, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 3
Всего: 7

Один сильный минус тут получается: если мы поместили в "буфер клавиатуры" username и password, а ConnectDialog не появился по какой-то причине, а/или произошло переключение на другую программу (напр. MS Word), то мы получаем наш username и password набранные прямо в этом Word'e! Что еще веселее можно придумать?

--------------------

Не работает - исправь, работает - не трогай!!!

Akella

Дата 20.12.2004, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

а что за таблица? Paradox?
Добавлено @ 14:31
а попробуй без alias`ов,

Код


Procedure TfmMain.ConnectToDB(sFile:String);
var
 sPath:string;
begin
 try
   DB.Connected:=False;
   Db.DriverName:='STANDARD';
   DB.Params.Clear;
   if (sFile<>'') AND (FileExists(sFile)) then begin
     sPath:=ExtractFileDir(sFile);
     if Copy(sPath,length(sPath),1)<>'\'  then sPath:= sPath+'\';
   end;
   DB.Params.Add('Path='+sPath);
   DB.Params.Add('Default Driver=Paradox');
   tAp.TableType:=ttParadox;
   tAp.TableName:=ExpandFileName(sFile);
   tAp.Open;
   tAreaCodes.Open;
  except

  end;//try-except
end;//proc

Cetus

Дата 24.12.2004, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 18.4.2004

Репутация: нет
Всего: 1

var Password: String;

begin
Password := 'qwerty';
Session.AddPassword(Password);
end;

но если пароль будет не верен, то окошко вылетит все равно,
если не нравиться стандартное окошко сделай свое.

--------------------

Легко внести изменения в код.Трудно сделать это корректно.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »