Запись, Сохранение и Чтение пути к БД Access в файл txt Delphi 7

@arsenkorotkin · Регистрация: 28.04.2017

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

P.S. После перемещения файла базы Access, при запуске проекта выбивает ошибку о том что программа не может найти путь к файлу базы.
Так вот я хочу создать файл txt в который записывался путь к бд Access при подключении базы к проекта и сохранялся путь в txt файле и считывался путь к базе из файла при запуске проекта.

@arsenkorotkin · 13.01.2020, 20:40 **[ТС]**

UR1004SWL, Извини что беспокою.
Помнишь ты мне помог со входом в программу без пароля?
Так вот я продумал или как бы продумал алгоритм как реализовать вход
Вот он:
Если база не подключена и путь не записан в ini файл - подключаем и записываем путь в ini файл
Если в базе нет пароля - входим без пароля
Иначе
Если база подключена и есть в ней пароль то вводим пароль для входа в программу
Помоги пожалуйста реализовать такой вход в программу

Добавлено через 31 минуту
UR1004SWL, Можешь все это сделать, потому что я хз как это делать. Я тебе буду очень благодарен)

@UR1004SWL · 13.01.2020, 21:38

Я не компилировал, просто изменил Unit-ы.

@arsenkorotkin · 14.01.2020, 14:03 **[ТС]**

UR1004SWL, после компиляции. Пишет "База не указана нажимаю на "ок" и выбивает ошибку (в миниатюре после компиляции) и все
Не понимаю в чем причина

@Мудрый Ижик · 14.01.2020, 15:08

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

@arsenkorotkin · 14.01.2020, 15:16 **[ТС]**

Мудрый Ижик, пускай ответит человек к которому я обратился

@UR1004SWL · 14.01.2020, 15:42

Я уже устал. Сравнивай код в каждом модуле. У меня нет Delphi 7. Смотрел на XE2. Подправленный проект.

@qwertehok · 14.01.2020, 16:15

возможно у кого-то из вас старый AlphaSkins в котором нет ParentFont у BoundLabel

@arsenkorotkin · 14.01.2020, 19:43 **[ТС]**

UR1004SWL, Помнишь ты мне помог со входом в программу без пароля?
Так вот я продумал или как бы продумал алгоритм как реализовать вход
Вот он:
Если база не подключена и путь не записан в ini файл - подключаем и записываем путь в ini файл
Если в базе нет пароля - входим без пароля
Иначе
Если база подключена и есть в ней пароль то вводим пароль для входа в программу
Помоги пожалуйста реализовать такой вход в программу

@UR1004SWL · 14.01.2020, 19:53

Да ё-к-л-м-н. Unit23

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm23.sBitBtn1Click(Sender: TObject);
begin
  if ADOConnection1.Connected then
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select Пароль From users where Пароль=' + #39 + Sedit1.Text + #39);
    ADOQuery1.Open;
    if ADOQuery1.IsEmpty then
    begin
      ShowMessage('Пароль введен неверно');
      sEdit1.Clear;
      Exit;
    end;
  end;
  if sEdit1.Text <> '' then
  begin
    OptIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + IniName);
    OptIni.WriteString('Base', 'Password', Trim(sEdit1.Text));
    OptIni.Free;
  end;
  Form1.Show;
  sEdit1.Clear;
  Form23.Hide;
end;

@arsenkorotkin · 14.01.2020, 22:03 **[ТС]**

UR1004SWL, а это точно то что я описал?

Добавлено через 1 час 3 минуты
UR1004SWL, Знаете я тут решил уже никого не мучать ни вас ни себя. ЕСЛИ кому-то программа понадобиться по базу в папке надо будет расположить на диске D. а я так думаю что любого человека есть такой диск. Так что фиг с ней...с указам пути к бд. А так огромное спасибо за вашу помощь и удачи в вашем деле.

@krapotkin · 15.01.2020, 09:52

вам как минимум раз 5 написали код где указывается путь к БД
объясните, что ЕЩЕ не работает??????

@arsenkorotkin · 15.01.2020, 15:08 **[ТС]**

всем спасибо)

@arsenkorotkin · 16.01.2020, 14:50 **[ТС]**

Народ привет, вопрос далеко не по теме.
Какое свойство в проекте Delphi 7 отвечает на кнопку "Свернуть окно" и можно ли его программировать?

@qwertehok · 16.01.2020, 15:42

нет такого свойства

есть возможность не отображать эту кнопку
есть свойство формы - свернута

так что только отлавливать изменение свойства формы

@Мудрый Ижик · 16.01.2020, 16:40

Сворачивание, разворачивание окна - это все изменение размеров, а вот это событие уже есть OnResize и вот уже внутри этого события можно установить какое конкретно изменение формы произошло прочитав свойство WindowState

ПС: Небольшое пожелание. Не надо задавать в одной теме разные вопросы, даже если это ваша тема. Тема плавно превращается в окрошку.

@arsenkorotkin · 16.01.2020, 21:31 **[ТС]**

Мудрый Ижик, можно пример?

Добавлено через 18 минут
Мудрый Ижик, а как адаптировать программу а точнее форму под разный размер монитора

Добавлено через 1 час 1 минуту
я хочу адаптировать (растянуть) форму под любой размер экрана и таблицу растянуть под размер формы. Таблицу хочу растянуть по красные полосы

@krapotkin · 16.01.2020, 21:38

заведите уже новую тему, сказали же
а пока заводите, максимизируйте окно и изучайте как работает свойство Align

@Пытливый · 16.01.2020, 22:26

Ну вот вам пример обработки изменения размера:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.FormResize(Sender: TObject);
begin
 case WindowState of
   TWindowState.wsNormal: Caption := 'Normal';
   TWindowState.wsMinimized: Caption := 'Minimized';
   TWindowState.wsMaximized: Caption := 'Maximized';
 end;
end;

адаптировать программу а точнее форму под разный размер монитора

А вот тут все неоднозначно, предусмотреть все варианты просто невозможно, на результат влияет разрешение, версия операционки, используемая тема, среда разработки Дельфи и наконец ваш дизайнерский талант.

ПС: Да, согласен, заведите новую тему.

@arsenkorotkin · 17.01.2020, 18:29 **[ТС]**

Пытливый, спасибо и на этом

@arsenkorotkin · 08.02.2020, 22:59 **[ТС]**

UR1004SWL, Здравствуйте можете помочь мне с паролем который записан в ini файл. Записать пароль в ini файл, считать при входе для входа в программу и смена пароля, как в миниатюре.

Новые блоги и статьи Все статьи Все блоги /
История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .	Теория всего 6. Судьба неотвратима? anaschu 21.07.2026 Математическое доказательство Судьбы: Точка бифуркации в едином тензорном ядре Модели ВсегоСвежее обновление питоновского ядра «Soil Chemistry 2. 0» дало нам неопровержимое математическое. . .	Теория всего 5. ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли anaschu 21.07.2026 Единое ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли Главная задача «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы» (аттракторов. . .	сукцессия 37. Внедрил дипсик в свой оркестр из ИИ. У него закончилось пространство чата, потому опубликую выводы из его работы здесь anaschu 21.07.2026 ==================================================================== КОНТЕКСТ: Моделирование микоризной сукцессии (AM → ECM) ==================================================================== . . .
сукцессия 36. Делаю прогоны модели около порога бифуркации (превращения эндо микоризы в экто микоризу) anaschu 21.07.2026 СУКЦЕССИЯ МИКОРИЗ: КАК МАТЕМАТИКА ОБЪЯСНЯЕТ ПОДЗЕМНУЮ ВОЙНУ Мы привыкли думать, что лес — это деревья. А грибы — это то, что мы собираем в корзинку осенью. Но если заглянуть под землю, окажется,. . .	ИИ и человечность kumehtar 21.07.2026 Забавно, что общаясь с ИИ, я замечаю, насколько он высказывается умно, и насколько верит в людей. Он умеет прощать. Он знает как отвечать не обесценивая опыт других людей, даже если сам не верит. Он. . .	Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282

	Delphi 6-7 Запись, Сохранение и Чтение пути к БД Access в файл txt Delphi 7 23.12.2019, 13:29. Показов 8300. Ответов 100 Метки нет (Все метки) P.S. После перемещения файла базы Access, при запуске проекта выбивает ошибку о том что программа не может найти путь к файлу базы. Так вот я хочу создать файл txt в который записывался путь к бд Access при подключении базы к проекта и сохранялся путь в txt файле и считывался путь к базе из файла при запуске проекта. 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	13.01.2020, 20:40 [ТС]
	UR1004SWL, Извини что беспокою. Помнишь ты мне помог со входом в программу без пароля? Так вот я продумал или как бы продумал алгоритм как реализовать вход Вот он: Если база не подключена и путь не записан в ini файл - подключаем и записываем путь в ini файл Если в базе нет пароля - входим без пароля Иначе Если база подключена и есть в ней пароль то вводим пароль для входа в программу Помоги пожалуйста реализовать такой вход в программу Добавлено через 31 минуту UR1004SWL, Можешь все это сделать, потому что я хз как это делать. Я тебе буду очень благодарен) 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	14.01.2020, 14:03 [ТС]
	UR1004SWL, после компиляции. Пишет "База не указана нажимаю на "ок" и выбивает ошибку (в миниатюре после компиляции) и все Не понимаю в чем причина Миниатюры 0

@Мудрый Ижик 32 / 26 / 7 Регистрация: 18.10.2019 Сообщений: 187
	14.01.2020, 15:08
	Возможно, что где-то при старте приложения вы обращаетесь к свойствам еще несозданной метки. 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	14.01.2020, 15:16 [ТС]
	Мудрый Ижик, пускай ответит человек к которому я обратился 0

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,248 Записей в блоге: 3
	14.01.2020, 16:15
	возможно у кого-то из вас старый AlphaSkins в котором нет ParentFont у BoundLabel Миниатюры 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	14.01.2020, 19:43 [ТС]
	UR1004SWL, Помнишь ты мне помог со входом в программу без пароля? Так вот я продумал или как бы продумал алгоритм как реализовать вход Вот он: Если база не подключена и путь не записан в ini файл - подключаем и записываем путь в ini файл Если в базе нет пароля - входим без пароля Иначе Если база подключена и есть в ней пароль то вводим пароль для входа в программу Помоги пожалуйста реализовать такой вход в программу 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	14.01.2020, 22:03 [ТС]
	UR1004SWL, а это точно то что я описал? Добавлено через 1 час 3 минуты UR1004SWL, Знаете я тут решил уже никого не мучать ни вас ни себя. ЕСЛИ кому-то программа понадобиться по базу в папке надо будет расположить на диске D. а я так думаю что любого человека есть такой диск. Так что фиг с ней...с указам пути к бд. А так огромное спасибо за вашу помощь и удачи в вашем деле. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	15.01.2020, 09:52
	вам как минимум раз 5 написали код где указывается путь к БД объясните, что ЕЩЕ не работает?????? 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	15.01.2020, 15:08 [ТС]
	всем спасибо) 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	16.01.2020, 14:50 [ТС]
	Народ привет, вопрос далеко не по теме. Какое свойство в проекте Delphi 7 отвечает на кнопку "Свернуть окно" и можно ли его программировать? 0

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,248 Записей в блоге: 3
	16.01.2020, 15:42
	нет такого свойства есть возможность не отображать эту кнопку есть свойство формы - свернута так что только отлавливать изменение свойства формы 0

@Мудрый Ижик 32 / 26 / 7 Регистрация: 18.10.2019 Сообщений: 187
	16.01.2020, 16:40
	Сворачивание, разворачивание окна - это все изменение размеров, а вот это событие уже есть OnResize и вот уже внутри этого события можно установить какое конкретно изменение формы произошло прочитав свойство WindowState ПС: Небольшое пожелание. Не надо задавать в одной теме разные вопросы, даже если это ваша тема. Тема плавно превращается в окрошку. 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	16.01.2020, 21:31 [ТС]
	Мудрый Ижик, можно пример? Добавлено через 18 минут Мудрый Ижик, а как адаптировать программу а точнее форму под разный размер монитора Добавлено через 1 час 1 минуту я хочу адаптировать (растянуть) форму под любой размер экрана и таблицу растянуть под размер формы. Таблицу хочу растянуть по красные полосы 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	16.01.2020, 21:38
	заведите уже новую тему, сказали же а пока заводите, максимизируйте окно и изучайте как работает свойство Align 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	17.01.2020, 18:29 [ТС]
	Пытливый, спасибо и на этом 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	08.02.2020, 22:59 [ТС]
	UR1004SWL, Здравствуйте можете помочь мне с паролем который записан в ini файл. Записать пароль в ini файл, считать при входе для входа в программу и смена пароля, как в миниатюре. Миниатюры 0