Окно подключения к БД. Что сделать, чтобы каждый раз не вводить данные заново?

@Zocik · Регистрация: 09.10.2007

Студворк — интернет-сервис помощи студентам

Подскажите, плиз, как или что или какие изменить свойства TEdit или еще чего-то или где-то мне надо сделать чтобы еогда появляется окошко подключения к БД каждый раз не вводить пользователя и путь к БД. Очень неудобно каждый раз набивать. Надо что бы один раз набить и он сохранялся.

Vourhey · 01.11.2007, 21:45

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

@Zocik · 01.11.2007, 21:53 **[ТС]**

А как сделать чтобы с файла считывалось?

Vourhey · 01.11.2007, 22:30

Способов существует куча. Думаю, для вас самым простым будет использование старых паскалевских функций. Используем тип TextFile и функции assignfile, rewrite, reset, readln, writeln, closefile. Если не разберетесь, я Вам могу небольшой пример чиркануть.
А вообще, для хранения всего лишь одной строки (ну пусть даже двух) разумней использовать реестр. Работа с ним ненамного сложнее.

@Zocik · 02.11.2007, 14:07 **[ТС]**

Чирканите примерчик для реестра, а еще лучше, чтобы вытягивали информацию из XML файла. Буду очень признательна. Я не очень наглею?
Спасибо.

Vourhey · 02.11.2007, 15:36

Нет, не очень

По поводу XML тут уже был ряд тем. В том числе, есть темы, где я писал примеры кода. Попробуйте поискать. Если что-то будет непонятно - спрашивайте.
Пример работы с реестром напишу немного позднее. Толкько Вы почитайте что-нибудь о реестре, а то еще систему свою убьете

Vourhey · 03.11.2007, 00:33

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var reg:tregistry;
begin
reg := tregistry.create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OPenKey('\Software\MySuperProgram', true);
reg.WriteString('PathToDB', edit1.text);
reg.free; 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var reg:tregistry;
begin
reg := tregistry.create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('\Software\MySuperProgram', false);
edit1.text := reg.ReadString('PathToDB');
reg.Free; 
end;

Только добавь модуль registry в uses.

@Zocik · 30.11.2007, 15:45 **[ТС]**

Подскажите, плиз, такой момент. На той форме, которая выскакивает при подключениии к БД есть 3 копонента Edit и 2 кнопки. Что или как надо сделать чтобы когда в первом Edit я написала путь и при нажатии Энтер курсор переходил автоматом в другой Edit или из Edit на кнопку. Ато чесно говоря как то неудобно получается, надо каждый раз мышкой щелкать.

Vourhey · 30.11.2007, 16:59

В обработчике события нажатия enter используй метод SetFocus компонента.

@Zocik · 30.11.2007, 19:41 **[ТС]**

Простите за незнание, а что это за метод такой? :oops: В обработчике для формы или для Edit?

Vourhey · 30.11.2007, 19:46

В обработчике для Edit, если с edit хотите прыгать. Можно разными обработчиками пользоваться. Я предпочитаю OnKeyDown. Проверяю, если key равен 13 (код символа), то делаю то злое, что задумал.

@Zocik · 30.11.2007, 20:08 **[ТС]**

И что мне в этом методе написать? (извините за наглость)

Vourhey · 01.12.2007, 03:12

Вызывай setfocus у нужного тебе компонента (у кого можно).
К примеру, если надо перевести фокус на button1, то пишешь button1.setfocus.

@Zocik · 01.12.2007, 17:39 **[ТС]**

Написала

Delphi
1
2
3
4
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit2.setfocus;
end;

Теперь курсор стоит только в Edit2, а в Edit1 не становиться, даже если его ставить с помощью мыши.
Что я не так сделала? :?
Спасибо за консультацию

Vourhey · 01.12.2007, 17:44

Все.

Событие OnEnter происходит, когда компонент получает фокус, а НЕ нажатие клавиши Enter.
Таким образом, переводим то, что ты написала:

"когда edit1 получает фокус, мы тут же переводим фокус на edit2."

Поэтому у тебя ничего и не получается.
Говорю же, обработчик сделай на OnKeyPress, к примеру. Проверь в нем key на равность 13 и делай edit2.setfocus.

@Zocik · 01.12.2007, 18:13 **[ТС]**

"Я не....Я только учусь" :oops:
Если написать вот так

Delphi
1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=13 then edit2.setfocus;
end;

то выдает ошибку, что не может скомпилировать. Чего я опять не так сделала?

и еще почему 13 а не другое число?

Vourhey · 01.12.2007, 18:45

Мы видим, что аргумент key у нас имеет тип Char. А мы его тут с числом пытаемся сравнить. Это еще в С++ будет позволительно, но у нас дельфи.
Ппопробуем сделать так:

Code
1
 if (key=chr(13)) then edit2.setfocus;

или так:

Code
1
 if (ord(key)=13) then edit2.setfocus;

Сразу извиняюсь, если вдруг где опечатка, или ошибка. Все пишу без компилятора. Я компилер дельфи в глаза уже давно не видел

Но, вроде, все должно работать верно.

А 13, потому что это код ASCII символа Enter (то есть, конца строки). Кстати, если мне, опять же, не изменяет память, то есть там где-то VK_ENTER константа. Если будет нечего делать попробуй заменить 13 на VK_ENTER.
Советовал бы я вам паскаль сначала изучить.

@Zocik · 01.12.2007, 19:18 **[ТС]**

Спасибо, пошло и первым и вторым способом

.
А вот с третим что то не хочет. или я опять что не так делаю.

Vourhey · 03.12.2007, 14:00

Попробуй VK_RETURN. Просто я не вижу смысла запоминать эти константы. Да и коды символов лучше запомнить. Пригодится.

Это не ты неправильно делаешь, это я уже не помню эти константы, мне проще с кодами работать

Просто у меня сейчас delphi не стоит, а то бы уже посмотрел имя константы. Они все в хелпе описаны.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Zocik 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 38

	Окно подключения к БД. Что сделать, чтобы каждый раз не вводить данные заново? 01.11.2007, 21:27. Показов 4475. Ответов 18 Метки нет (Все метки) Подскажите, плиз, как или что или какие изменить свойства TEdit или еще чего-то или где-то мне надо сделать чтобы еогда появляется окошко подключения к БД каждый раз не вводить пользователя и путь к БД. Очень неудобно каждый раз набивать. Надо что бы один раз набить и он сохранялся. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	01.11.2007, 21:45
	Если нужно, чтобы один раз ввел, а дальше все сохранялось, то можно сохранять введенные данные либо в файле, либо в реестре. Соответственно, потом оттуда считывать. Если только для текущего запущенного приложения, то можно в переменной хранить. 0

@Zocik 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 38
	01.11.2007, 21:53 [ТС]
	А как сделать чтобы с файла считывалось? 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	01.11.2007, 22:30
	Способов существует куча. Думаю, для вас самым простым будет использование старых паскалевских функций. Используем тип TextFile и функции assignfile, rewrite, reset, readln, writeln, closefile. Если не разберетесь, я Вам могу небольшой пример чиркануть. А вообще, для хранения всего лишь одной строки (ну пусть даже двух) разумней использовать реестр. Работа с ним ненамного сложнее. 0

@Zocik 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 38
	02.11.2007, 14:07 [ТС]
	Чирканите примерчик для реестра, а еще лучше, чтобы вытягивали информацию из XML файла. Буду очень признательна. Я не очень наглею? Спасибо. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	02.11.2007, 15:36
	Нет, не очень По поводу XML тут уже был ряд тем. В том числе, есть темы, где я писал примеры кода. Попробуйте поискать. Если что-то будет непонятно - спрашивайте. Пример работы с реестром напишу немного позднее. Толкько Вы почитайте что-нибудь о реестре, а то еще систему свою убьете 0

@Zocik 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 38
	30.11.2007, 15:45 [ТС]
	Подскажите, плиз, такой момент. На той форме, которая выскакивает при подключениии к БД есть 3 копонента Edit и 2 кнопки. Что или как надо сделать чтобы когда в первом Edit я написала путь и при нажатии Энтер курсор переходил автоматом в другой Edit или из Edit на кнопку. Ато чесно говоря как то неудобно получается, надо каждый раз мышкой щелкать. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	30.11.2007, 16:59
	В обработчике события нажатия enter используй метод SetFocus компонента. 0

@Zocik 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 38
	30.11.2007, 19:41 [ТС]
	Простите за незнание, а что это за метод такой? :oops: В обработчике для формы или для Edit? 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	30.11.2007, 19:46
	В обработчике для Edit, если с edit хотите прыгать. Можно разными обработчиками пользоваться. Я предпочитаю OnKeyDown. Проверяю, если key равен 13 (код символа), то делаю то злое, что задумал. 0

@Zocik 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 38
	30.11.2007, 20:08 [ТС]
	И что мне в этом методе написать? (извините за наглость) 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	01.12.2007, 03:12
	Вызывай setfocus у нужного тебе компонента (у кого можно). К примеру, если надо перевести фокус на button1, то пишешь button1.setfocus. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	01.12.2007, 17:44
	Все. Событие OnEnter происходит, когда компонент получает фокус, а НЕ нажатие клавиши Enter. Таким образом, переводим то, что ты написала: "когда edit1 получает фокус, мы тут же переводим фокус на edit2." Поэтому у тебя ничего и не получается. Говорю же, обработчик сделай на OnKeyPress, к примеру. Проверь в нем key на равность 13 и делай edit2.setfocus. 0

@Zocik 0 / 0 / 0 Регистрация: 09.10.2007 Сообщений: 38
	01.12.2007, 19:18 [ТС]
	Спасибо, пошло и первым и вторым способом . А вот с третим что то не хочет. или я опять что не так делаю. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	03.12.2007, 14:00
	Попробуй VK_RETURN. Просто я не вижу смысла запоминать эти константы. Да и коды символов лучше запомнить. Пригодится. Это не ты неправильно делаешь, это я уже не помню эти константы, мне проще с кодами работать Просто у меня сейчас delphi не стоит, а то бы уже посмотрел имя константы. Они все в хелпе описаны. 0