|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2006, 12:47 | #1 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Как ввести пароль для БД Paradox программным путем ?
Freedom
Как ввести пароль для БД Paradox программным путем при открытии самой БД??? nova-alex По Вашей теме такой код: uses Bde, SysUtils, dbtables, windows; function StrToOem(const AnsiStr: string): string; begin SetLength(Result, Length(AnsiStr)); if Length(Result) 0 then CharToOem(PChar(AnsiStr), PChar(Result)); end; function TablePasswort(var Table: TTable; password: string): Boolean; var pTblDesc: pCRTblDesc; hDb: hDBIDb; begin Result := False; with Table do begin if Active and (not Exclusive) then Close; if (not Exclusive) then Exclusive := True; if (not Active) then Open; hDB := DBHandle; Close; end; GetMem(pTblDesc, SizeOf(CRTblDesc)); FillChar(pTblDesc^, SizeOf(CRTblDesc), 0); with pTblDesc^ do begin StrPCopy(szTblName, StrToOem(Table.TableName)); szTblType := szParadox; StrPCopy(szPassword, StrToOem(Password)); bPack := True; bProtected := True; end; if DbiDoRestructure(hDb, 1, pTblDesc, nil, nil, nil, False) DBIERR_NONE then Exit; if pTblDesc nil then FreeMem(pTblDesc, SizeOf(CRTblDesc)); Result := True; end; Freedom Нашел способ по проще в одном из FAQ: Свойство компонента Table ACTIVE должно быть установлено в FALSE. (Если она активна прежде, чем вы ввели пароль, вы получите это окошко.) Затем поместите следующий код в обработчике события формы OnCreate: session.AddPassword('Мой секретный пароль'); table1.active := true; |
07.04.2007, 14:28 | #2 |
Новичок
Джуниор
Регистрация: 04.04.2007
Сообщений: 1
|
Я сделал как написано в последней цитате, но окно всё равно вылетает!
|
07.04.2007, 21:50 | #3 | |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Требуется программным путём считать несколько ключей с реестра из одного раздела. | Air | Общие вопросы Delphi | 6 | 11.09.2008 11:33 |
Помогите с программным кодом!!! | vittt | Microsoft Office Excel | 1 | 12.03.2008 12:23 |
Подключение к SQL- серверу программным способом? | ][alя | БД в Delphi | 3 | 17.12.2007 18:39 |
Помогите с программным кодом! | profi | Помощь студентам | 1 | 25.11.2007 12:29 |
Помогите программно ввести логин и пароль на web странице. | fэn | Общие вопросы Delphi | 1 | 08.11.2006 19:03 |