Сделать интерфейс для MS Access на Дельфи

@karam1488 · Регистрация: 01.06.2018

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

Здравствуйте, в "шараге" поставили задачу сделать интерфейс для аксеса на делфи, все шло беззаботно, но тут я столкнулся с проблемой: При объединении ADOтаблиц и дальнейшего выбора в строке "Active" "true" появляется ошибка "Ядро базы данных Microsoft jet не может найти входную таблицу или запрос и далее указывает название из "TableName" якобы имя таблицы написано не правильно. Перепробовал кучу непроизвольных действий, но ничего не помогло, т.к в Delphi я работаю 1 день)

@karam1488 · 08.06.2018, 07:06 **[ТС]**

D1973, спасибо появились варианты выбора TDataSource, вечером буду прописывать кнопки и делать новые формы под таблицы, еще раз большое спасибо

@karam1488 · 08.06.2018, 13:45 **[ТС]**

Снова столкнулся с проблемой сделал форму авторизации по логину и паролю, все прописал, но делфи опять ругается, предоставляю код и скрин, подскажите в чем моя ошибка [Error] Unit3.pas(33): Undeclared identifier: 'edit1'

Delphi
1
2
3
4
5
6
7
procedure TForm3.btn1Click(Sender: TObject);
var login,pass:string;
begin
login:='admin';
pass:='password';
if (edit1.text=login) and (edit2.text=pass) then form1.Show else ShowMessage('Введенные данные не верны');
end;

@krapotkin · 08.06.2018, 13:59

а нельзя вместо скрина просто весь код ?

@karam1488 · 08.06.2018, 14:12 **[ТС]**

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
25
26
27
28
29
30
31
32
33
34
35
36
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm3 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.btn1Click(Sender: TObject);
var login,pass:string;
begin
login:='admin';
pass:='password';
if (edit1.text=login) and (edit2.text=pass) then form4.Show else ShowMessage('Введенные данные не верны');
end;
 
end.

@krapotkin · 08.06.2018, 14:25

играем в 10 отличий?

Сообщение от karam1488

TForm3 = class(TForm)
* * edt1: TEdit;
* * edt2: TEdit;

Сообщение от karam1488

if (edit1.text=login) and (edit2.text=pass)

Добавлено через 1 минуту
и про Form4 этот код ничего не знает потому что Form4 находится наверняка у вас в Unit4 а вы его в Uses не включили

@karam1488 · 08.06.2018, 14:42 **[ТС]**

Если честно ничего не понял

@D1973 · 08.06.2018, 16:26

Та же ситуация,о которой я Вам уже писал в посте #20: прежде чем из какого-то модуля (М1) обращаться к объектам, процедурам и переменным другого модуля (М2), необходимо модуль М2 прописать в секции uses в разделе implementation в модуле М1

Добавлено через 1 минуту
И второе: почему Вы обращаетесь к компонентам:

edit1.text=login

если сам компонент у Вас называется edt1???

@karam1488 · 08.06.2018, 16:56 **[ТС]**

Как я понял Эдит который я указал программа не видит, они на 3 форме, а 3 форма указана в Варе, значит дело не в этом, может быть проблема завязана в type и 33 строке, как и намекнул krapotkin, но я понятия не имею в чем дело, облазил уже кучу сайтов, но ответа не нашел

буду ретардить дальше может быть что придумаю

Добавлено через 2 минуты
D1973 Я очень не внимательный, лупился в этот код несколько десятков минут, но так ничего и не понял

@D1973 · 08.06.2018, 17:09

Сообщение от karam1488

лупился в этот код несколько десятков минут, но так ничего и не понял

Ну нету у Вас в имени компонента edt1 буквы i. НЕТУ!!! Так почему же Вы ее пишете в обработчике:

Сообщение от karam1488

if (edit1.text=login) and (edit2.text=pass)

@karam1488 · 08.06.2018, 17:14 **[ТС]**

D1973 Я это заметил, после того как Вы указали это в 27 посте, мне так стыдно стало, ужас

Добавлено через 2 минуты
А потом я понял про что писал krapotkin, раньше не замечал даже и просто ужаснулся, нет слов, одни эмоции

@krapotkin · 08.06.2018, 22:43

Не по теме:

есть анекдот, что студенты медики должны быть не только не брезгливы, но и очень внимательны
студенты программисты тоже )))

@karam1488 · 09.06.2018, 19:25 **[ТС]**

Дело то в том что я не программист)

Добавлено через 7 часов 40 минут
Еще вопрос, при запуске проекта можно ли сделать так что бы у меня открывалась 3 форма, а не 1? Просто на 3 форме у меня кнопки, которые направляют на таблицы, а на 1 форма с данными

@D1973 · 09.06.2018, 19:33

karam1488, сделайте ее главной формой проекта:
Project->Option

@krapotkin · 09.06.2018, 19:33

Project - Options - Forms
какая первая та и первая

@karam1488 · 09.06.2018, 19:38 **[ТС]**

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
сукцессия 30. Фосфорный и азотный замки по "честному" закону лимитирования Либиха anaschu 16.07.2026 Основные достижения за последние дни 1. Механизм отложенного высвобождения фосфора Добавлен специальный пул для медленного разложения меланизированных гиф ЕСМ Реализована разная скорость. . .	Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет
Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18

	Delphi 6-7 Сделать интерфейс для MS Access на Дельфи 01.06.2018, 01:22. Показов 3484. Ответов 34 Метки delphi 7 (Все метки) Здравствуйте, в "шараге" поставили задачу сделать интерфейс для аксеса на делфи, все шло беззаботно, но тут я столкнулся с проблемой: При объединении ADOтаблиц и дальнейшего выбора в строке "Active" "true" появляется ошибка "Ядро базы данных Microsoft jet не может найти входную таблицу или запрос и далее указывает название из "TableName" якобы имя таблицы написано не правильно. Перепробовал кучу непроизвольных действий, но ничего не помогло, т.к в Delphi я работаю 1 день) 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 07:06 [ТС]
	D1973, спасибо появились варианты выбора TDataSource, вечером буду прописывать кнопки и делать новые формы под таблицы, еще раз большое спасибо 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	08.06.2018, 13:59
	а нельзя вместо скрина просто весь код ? 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 14:42 [ТС]
	Если честно ничего не понял 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 16:56 [ТС]
	Как я понял Эдит который я указал программа не видит, они на 3 форме, а 3 форма указана в Варе, значит дело не в этом, может быть проблема завязана в type и 33 строке, как и намекнул krapotkin, но я понятия не имею в чем дело, облазил уже кучу сайтов, но ответа не нашел буду ретардить дальше может быть что придумаю Добавлено через 2 минуты D1973 Я очень не внимательный, лупился в этот код несколько десятков минут, но так ничего и не понял 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	08.06.2018, 17:14 [ТС]
	D1973 Я это заметил, после того как Вы указали это в 27 посте, мне так стыдно стало, ужас Добавлено через 2 минуты А потом я понял про что писал krapotkin, раньше не замечал даже и просто ужаснулся, нет слов, одни эмоции 0

@krapotkin
	08.06.2018, 22:43
	Не по теме: есть анекдот, что студенты медики должны быть не только не брезгливы, но и очень внимательны студенты программисты тоже ))) 0

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	09.06.2018, 19:25 [ТС]
	Дело то в том что я не программист) Добавлено через 7 часов 40 минут Еще вопрос, при запуске проекта можно ли сделать так что бы у меня открывалась 3 форма, а не 1? Просто на 3 форме у меня кнопки, которые направляют на таблицы, а на 1 форма с данными 0

@D1973 Модератор 9946 / 6481 / 2460 Регистрация: 21.01.2014 Сообщений: 27,464 Записей в блоге: 3
	09.06.2018, 19:33
	karam1488, сделайте ее главной формой проекта: Project->Option Миниатюры 1

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	09.06.2018, 19:33
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Project - Options - Forms какая первая та и первая 1

@karam1488 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 18
	09.06.2018, 19:38 [ТС]
	Спасибо! 0

Сделать интерфейс для MS Access на Дельфи

Решение