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

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

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

	Delphi 6-7 Сделать интерфейс для MS Access на Дельфи 01.06.2018, 01:22. Показов 3567. Ответов 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 Модератор 9954 / 6489 / 2461 Регистрация: 21.01.2014 Сообщений: 27,488 Записей в блоге: 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 на Дельфи

Решение