[Error] Unit1.pas(53): Undeclared identifier: 'dm'

@frikazzoed · Регистрация: 08.12.2013

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

Как исправить ошибку

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    s1, c1, m1, p1, d1, sd1, us1,gr1: integer;
    st1, st2, p1_st, d1_st, sd1_st, us1_st, uz1_st, gr1_st : string;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='';
Edit2.text:='';
Edit2.PasswordChar:='*';
end;
 
 
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
d1_st:='';
sd1_st:='';
p1_st:='';
st1:='';
st2:='';
us1_st:='';
uz1_st:='';
if (edit1.Text>'') and (edit2.Text>'') and (chr(13)=key) then
  begin
//
  dm.IBQuery1.Close;
  dm.IBQuery1.SQL.Clear;
  dm.IBQuery1.SQL.Add('select * from users where login='+quotedstr(edit1.Text)+
  ' and password='+quotedstr(edit2.Text));
  dm.IBQuery1.Active:=true;
  if dm.IBQuery1.Eof=true then
    begin
    edit1.Text:='';
    edit2.Text:='';
    edit1.SetFocus;
    end else
    begin
    c1:=dm.IBQuery1.fieldbyname('id_man').AsInteger;
    s1:=dm.IBQuery1.fieldbyname('id_status').AsInteger;
    dm.IBQuery1.Close;
    dm.IBQuery1.SQL.Clear;
    dm.IBQuery1.SQL.Add('select * from collaborators where id_coll='+
    quotedstr(inttostr(c1)));
    dm.IBQuery1.Active:=true;
    if dm.IBQuery1.Eof=false then
      begin
      m1:=dm.IBQuery1.fieldbyname('id_man').AsInteger;
      p1:=dm.IBQuery1.fieldbyname('id_post').AsInteger;
      d1:=dm.IBQuery1.fieldbyname('id_div').AsInteger;
      sd1:=dm.IBQuery1.fieldbyname('id_subdiv').AsInteger;
      us1:=dm.IBQuery1.fieldbyname('id_us').AsInteger;
      uz1:=dm.IBQuery1.fieldbyname('id_uz').AsInteger;
      if d1>0 then
        begin
        dm.IBQuery1.Close;
        dm.IBQuery1.SQL.Clear;
        dm.IBQuery1.SQL.Add('select * from divisions where id_div='+
        quotedstr(inttostr(d1)));
        dm.IBQuery1.Active:=true;
        if dm.IBQuery1.Eof=false then d1_st:=dm.IBQuery1.fieldbyname('name').AsString;
        if sd1>0 then
          begin
          dm.IBQuery1.Close;
          dm.IBQuery1.SQL.Clear;
          dm.IBQuery1.SQL.Add('select * from subdivisions where id_subdiv='+
          quotedstr(inttostr(sd1)));
          if dm.IBQuery1.Eof=false  then
          sd1_st:=dm.IBQuery1.fieldbyname('name').AsString;
          end;
        if p1>0 then
          begin
          dm.IBQuery1.Close;
          dm.IBQuery1.SQL.Clear;
          dm.IBQuery1.SQL.Add('select * from posts where id_post='+
          quotedstr(inttostr(p1)));
          if dm.IBQuery1.Eof=false  then
          p1_st:=dm.IBQuery1.fieldbyname('name').AsString;
          end;
        if us1>0 then
          begin
          dm.IBQuery1.Close;
          dm.IBQuery1.SQL.Clear;
          dm.IBQuery1.SQL.Add('select * from uch_step where id_us='+
          quotedstr(inttostr(us1)));
          if dm.IBQuery1.Eof=false  then
          us1_st:=dm.IBQuery1.fieldbyname('name').AsString;
          end;
        if uz1>0 then
          begin
          dm.IBQuery1.Close;
          dm.IBQuery1.SQL.Clear;
          dm.IBQuery1.SQL.Add('select * from uch_zvan where id_uz='+
          quotedstr(inttostr(uz1)));
          if dm.IBQuery1.Eof=false  then
          uz1_st:=dm.IBQuery1.fieldbyname('name').AsString;
          end;
        if m1>0 then
          begin
          dm.IBQuery1.Close;
          dm.IBQuery1.SQL.Clear;
          dm.IBQuery1.SQL.Add('select * from mans where id_man='+
          quotedstr(inttostr(m1)));
          dm.IBQuery1.Active:=true;
          if dm.IBQuery1.Eof=false  then
            begin
            st1:=dm.IBQuery1.fieldbyname('Last_Name').AsString+' '+
            dm.IBQuery1.fieldbyname('Name').AsString+' '+
            dm.IBQuery1.fieldbyname('Patronymic').AsString+' '+
            st2:=dm.IBQuery1.fieldbyname('Last_Name').AsString+' '+
            copy(dm.IBQuery1.fieldbyname('Name').AsString,1,1)+' '+
            copy(dm.IBQuery1.fieldbyname('Patronymic').AsString,1,1)+' '.';
            end;
          end;
          case s1 of
          1: form3.showmodal;  //äëÿ ðàáîòíèêà äåêàíàòà
          2: form4.showmodal;   // äëÿ ïðïîäàâàòåëÿ
        end;
      end;
    end;
    gr1_st:='';
    dm.IBQuery1.Close;
    dm.IBQuery1.SQL.Clear;
    dm.IBQuery1.SQL.Add('select * from students where id_stud='+
    quotedstr(inttostr(c1)));
    dm.IBQuery1.Active:=true;
    if dm.IBQuery1.Eof=false  then
    begin
    gr1:=dm.IBQuery1.fieldbyname('id_group').AsInteger;
    m1:=dm.IBQuery1.fieldbyname('id_man').AsInteger;
    if m1>0 then
      begin
      dm.IBQuery1.Close;
      dm.IBQuery1.SQL.Clear;
      dm.IBQuery1.SQL.Add('select * from mans where id_man='+
      quotedstr(inttostr(m1)));
      dm.IBQuery1.Active:=true;
      if dm.IBQuery1.Eof=false  then
        begin
        st1:=dm.IBQuery1.fieldbyname('Last_Name').AsString+' '+
        dm.IBQuery1.fieldbyname('Name').AsString+' '+
        dm.IBQuery1.fieldbyname('Patronymic').AsString+' '+
        st2:=dm.IBQuery1.fieldbyname('Last_Name').AsString+' '+
        copy(dm.IBQuery1.fieldbyname('Name').AsString,1,1)+' '+
        copy(dm.IBQuery1.fieldbyname('Patronymic').AsString,1,1)+' '.';
        end;
      end;
    dm.IBQuery1.Close;
    dm.IBQuery1.SQL.Clear;
    dm.IBQuery1.SQL.Add('select * from groups id_group='+quotedstr(inttostr(gr1)));
    dm.IBQuery1.Active:=true;
    if dm.IBQuery1.Eof=false  then
      begin
     gr1_st:=dm.IBQuery1.fieldbyname('name').AsString;
     d1:=dm.IBQuery1.fieldbyname('id_div').AsInteger;
     sd1:=dm.IBQuery1.fieldbyname('id_subdiv').AsInteger;
     if d1>0 then
      begin
      dm.IBQuery1.Close;
      dm.IBQuery1.SQL.Clear;
      dm.IBQuery1.SQL.Add('select * from divisions id_div='+
      quotedstr(inttostr(d1)));
      dm.IBQuery1.Active:=true;
      if dm.IBQuery1.Eof=false  then d1_st:=dm.IBQuery1.fieldbyname('name').AsString;
      if sd1>0 then
      begin
      dm.IBQuery1.Close;
      dm.IBQuery1.SQL.Clear;
      dm.IBQuery1.SQL.Add('select * from subdivisions id_subdiv='+
      quotedstr(inttostr(sd1)));
      dm.IBQuery1.Active:=true;
      if dm.IBQuery1.Eof=false  then
      sd1_st:=dm.IBQuery1.fieldbyname('name').AsString;
      form5.showmodal;
      end;
      end;
     end;
    end;
    end;
  end;
end;
end.

@YuryK · 04.06.2017, 05:22

добавьте unit c dm в uses.

@D1973 · 04.06.2017, 05:27

В 138 и в 171 строках ошибка: апостроф лишний

@YuryK · 04.06.2017, 05:41

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

добавьте unit c dm в uses.

и unit5 c form5

@frikazzoed · 04.06.2017, 15:07 **[ТС]**

теперь такая ошибка я dm добавил в public, в unit не добавляется
[Error] Unit1.pas(53): Record, object or class type required

Добавлено через 20 минут
[Fatal Error] Unit1.pas(7): Unit IB was compiled with a different version of IBIntf.isc_sqlcode
вот такая ошибка если в uses IBDatabase добавить

@YuryK · 04.06.2017, 15:25

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

я dm добавил в public, в unit не добавляется

куда-куда

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

если в uses IBDatabase добавить

а это требовалось?

@frikazzoed · 04.06.2017, 19:25 **[ТС]**

вот такая ошибка
[Fatal Error] Unit1.pas(6): File not found: 'dm.dcu'
когда просто добавляю dm в uses.

@YuryK · 04.06.2017, 23:47

так unit называется же как-то иначе, не так как форма

добавьте unit c dm в uses

это не значит

добавьте dm в uses

@frikazzoed · 05.06.2017, 05:57 **[ТС]**

Сделай так чтобы запускалось плиз если не сложно

@YuryK · 05.06.2017, 07:34

у вас нет никакого dm, что вероятней всего, должно быть DataModule.
поищите его в том месте, откуда появился текст вашего Unit1
З.Ы. У меня самого нет не IBxxx компонентов в палитре, ни IB сервера, так что "запустить" я его и сам не смогу

Новые блоги и статьи Все статьи Все блоги /
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. Пошагово создадим проект для загрузки изображения. . .

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	04.06.2017, 05:22
	добавьте unit c dm в uses. 1

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,399 Записей в блоге: 3
	04.06.2017, 05:27
	В 138 и в 171 строках ошибка: апостроф лишний 1

@frikazzoed 0 / 0 / 0 Регистрация: 08.12.2013 Сообщений: 6
	04.06.2017, 15:07 [ТС]
	теперь такая ошибка я dm добавил в public, в unit не добавляется [Error] Unit1.pas(53): Record, object or class type required Добавлено через 20 минут [Fatal Error] Unit1.pas(7): Unit IB was compiled with a different version of IBIntf.isc_sqlcode вот такая ошибка если в uses IBDatabase добавить 0

@frikazzoed 0 / 0 / 0 Регистрация: 08.12.2013 Сообщений: 6
	04.06.2017, 19:25 [ТС]
	вот такая ошибка [Fatal Error] Unit1.pas(6): File not found: 'dm.dcu' когда просто добавляю dm в uses. 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	05.06.2017, 07:34
	у вас нет никакого dm, что вероятней всего, должно быть DataModule. поищите его в том месте, откуда появился текст вашего Unit1 З.Ы. У меня самого нет не IBxxx компонентов в палитре, ни IB сервера, так что "запустить" я его и сам не смогу 0