Q&A
- [Error] Undeclared identifier: 'Query1'
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, Db, DBTables;
type
TForm1 = class(TForm)
...
Query1: TQuery;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure Sql_Run;
implementation
{$R *.DFM}
procedure TForm1.btnSAVEClick(Sender: TObject);
begin
Sql_Run;
end;
procedure Sql_Run;
begin
if sql_str = '' then
showmessage('Error')
else begin
try
with Query1 do begin //Query1을 인식 못함
Close;
Sql.Clear;
Sql.text := sql_str;
ExecSQL;
end;
except
showmessage('sql is wrong');
end;
end;
end;
이상합니다.
분명히 Query1은 선언되어 있는데 ...
왜 그렇지요?
감사합니다.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, Db, DBTables;
type
TForm1 = class(TForm)
...
Query1: TQuery;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure Sql_Run;
implementation
{$R *.DFM}
procedure TForm1.btnSAVEClick(Sender: TObject);
begin
Sql_Run;
end;
procedure Sql_Run;
begin
if sql_str = '' then
showmessage('Error')
else begin
try
with Query1 do begin //Query1을 인식 못함
Close;
Sql.Clear;
Sql.text := sql_str;
ExecSQL;
end;
except
showmessage('sql is wrong');
end;
end;
end;
이상합니다.
분명히 Query1은 선언되어 있는데 ...
왜 그렇지요?
감사합니다.
3
COMMENTS
-
-
with Query1 do begin ===> with Form1.Query1 do begin 이렇게 하면 됩니다..
김진호 wrote:
> unit Unit1;
> interface
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> ExtCtrls, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, Db, DBTables;
> type
> TForm1 = class(TForm)
> ...
> Query1: TQuery;
>
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> procedure Sql_Run;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.btnSAVEClick(Sender: TObject);
> begin
> Sql_Run;
> end;
>
> procedure Sql_Run;
> begin
> if sql_str = '' then
> showmessage('Error')
> else begin
> try
> with Query1 do begin //Query1을 인식 못함
> Close;
> Sql.Clear;
> Sql.text := sql_str;
> ExecSQL;
> end;
> except
> showmessage('sql is wrong');
> end;
> end;
> end;
>
> 이상합니다.
> 분명히 Query1은 선언되어 있는데 ...
>
> 왜 그렇지요?
>
> 감사합니다.
>
>
-
이게 답변이 될려나 모르겠네요...
DFM에 제너레이션 될때 오류가 생긴 것일 수 도 있습니다.
Query1을 폼에서 삭제하고 다시 폼에 얹어 놓으세요...
그것두 아니면 다시 폼을 디자인 하십시요....
김진호 wrote:
> unit Unit1;
> interface
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> ExtCtrls, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, Db, DBTables;
> type
> TForm1 = class(TForm)
> ...
> Query1: TQuery;
>
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> procedure Sql_Run;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.btnSAVEClick(Sender: TObject);
> begin
> Sql_Run;
> end;
>
> procedure Sql_Run;
> begin
> if sql_str = '' then
> showmessage('Error')
> else begin
> try
> with Query1 do begin //Query1을 인식 못함
> Close;
> Sql.Clear;
> Sql.text := sql_str;
> ExecSQL;
> end;
> except
> showmessage('sql is wrong');
> end;
> end;
> end;
>
> 이상합니다.
> 분명히 Query1은 선언되어 있는데 ...
>
> 왜 그렇지요?
>
> 감사합니다.
>
>
(NOTICE) You must be logged in to comment on this post.
-
- 최재원
- •
- 2000.02.22 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.02.22 19:12뭐 아는건 없지만 함 끄적여봅니다. 뭐 폼과 데이터모듈 뭐 차이는 없을꺼라 봅니다.(그게그거니까) 다만 ...
-
- 하창호
- •
- 2000.02.22 02:54
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.22 04:42
-
하창호•2000.02.22 05:01
-
장용준•2000.02.22 05:49
-
김진호•2000.02.22 22:06
-
최용일•2000.02.22 22:26
-
- nbu
- 2000.02.22 01:55
- 0 COMMENTS
- /
- 0 LIKES
-
- Bean
- 2000.02.22 01:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진호
- •
- 2000.02.22 01:44
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.02.22 02:30김진호 wrote: > 배열은 다른 유닛에 있어도 값을 항상 유지하는데 그냥 스트링변수는 이쪽 유닛에 왔다 ...
-
- 김진호
- •
- 2000.02.22 01:41
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.22 02:16김진호 wrote: > 포인터변수(aa : pstring)에 스트링을 받아서 다른 스트링변수(bb : string)와 내용을 비...
-
- 헬프미플리즈
- •
- 2000.02.22 01:40
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.02.22 02:34헬프미플리즈 wrote: > 저는 지금까지 한 디렉토리에 하루에 수십개씩 생기는 데이타화일(TXT화일,안의 데...
-
- 강민주
- •
- 2000.02.22 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.22 02:41강민주 wrote: > 안녕하세요. > 음.. 시간으로 구하는데.. FormatDateTime('am/pm hh:nn', Time); > 이...
-
- 답답이
- 2000.02.22 01:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 조호영
- 2000.02.22 00:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 전성재
- 2000.02.22 00:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 이세영
- 2000.02.22 00:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 김유중
- •
- 2000.02.21 23:59
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.02.22 04:37김유중 wrote: > 델5에서 퀵을 사용하는데 > 종이의 여백을 좌,우 0으로 셋팅하고 > Preview를 하면 이...
-
- 초보
- •
- 2000.02.21 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.22 00:00초보 wrote: > var > aa :IOleCommandTarget; > 로 선언시 Undeclared 에러가 발생하네요 > > 어떻...
-
- demian
- •
- 2000.02.21 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.02.22 04:34demian wrote: > Table1.FieldDefs.Clear; > Table1.FieldDefs.Add('name', ftString, 20, False); ...
-
- 델왕초보
- 2000.02.21 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 김준호
- •
- 2000.02.21 23:05
- 1 COMMENTS
- /
- 0 LIKES
-
델초•2000.02.21 23:16김준호 wrote: > 델파이 공부를 이제 일주일째 시작한 진짜 초보인데요 > sql server 7.0에 델파이 5.0을...
-
- 김진호
- •
- 2000.02.21 22:42
- 3 COMMENTS
- /
- 0 LIKES
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons, Grids, DBGrids, Db, DBTables; type TForm1 = class(TForm) ... Query1: TQuery; priv...-
최용일•2000.02.21 23:00최용일 wrote: with Query1 do begin ===> with Form1.Query1 do begin 이렇게 하면 됩니다.. ...
-
최용일•2000.02.21 22:55with Query1 do begin ===> with Form1.Query1 do begin 이렇게 하면 됩니다.. 김진호 wrote: ...
-
aaa•2000.02.21 22:51이게 답변이 될려나 모르겠네요... DFM에 제너레이션 될때 오류가 생긴 것일 수 도 있습니다. Query1...
-
- 위재희
- 2000.02.21 21:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 떴다 왕초보
- •
- 2000.02.21 21:37
- 3 COMMENTS
- /
- 0 LIKES
-
cws•2000.02.21 23:07떴다 왕초보 wrote: > 안냐세요... > 먼저 답변을 해 주실 분들께 감사의 인사를 ~~꾸벅~~^^* > > 다...
-
임형호•2000.02.21 22:22떴다 왕초보 wrote: > 안냐세요... > 먼저 답변을 해 주실 분들께 감사의 인사를 ~~꾸벅~~^^* > > 다...
-
떴다 왕초보•2000.02.22 03:30임형호 wrote: > 떴다 왕초보 wrote: > > 안냐세요... > > 먼저 답변을 해 주실 분들께 감사의 인사를 ~...
with Query1 do begin ===> with Form1.Query1 do begin 이렇게 하면 됩니다..
아니면 Sql_Run이라는 함수를 TForm1.btnSaveClick 메소드 내부로 옮기면 되죠...