Сделать интерфейс для 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 **[ТС]**

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

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

	Delphi 6-7 Сделать интерфейс для MS Access на Дельфи 01.06.2018, 01:22. Показов 3538. Ответов 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,684 Записей в блоге: 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 Модератор 9952 / 6487 / 2461 Регистрация: 21.01.2014 Сообщений: 27,485 Записей в блоге: 3
	09.06.2018, 19:33
	karam1488, сделайте ее главной формой проекта: Project->Option Миниатюры 1

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 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 на Дельфи

Решение