Q&A
- 테이블이나 쿼리를 오픈할때 동적으로 하는 방법은..?
테이블이나 쿼리를 오픈할때 동적으로 하는 방법에 대해 알고 싶습니다.
table1의 이름 ----> A
A의 필드 ----> Num, Name
제가 예를 들어서 하고자 하고 싶은 것은
A 테이블의 Num 필드의 내용을 edit1 component에 넣고
A 테이블의 Name 필드의 내용을 edit2 component에 넣는 방법을 알고 싶습니다.
쉬운방법으로는
edit1.text := A.fieldbyname('Num').asstring;
edit2.text := A.fieldbyname('Name').asstring;
를 들 수 있는데 이 방법이 아닌 동적으로 할 수 있는 방법을 알고 싶다는 거죠..
제가 알고 있는 한계로는
type
tform1 = class(tform)
edit1: tedit;
edit2: tedit;
button1 : tbutton;
ANum : TFieldstring;
AName : TFieldstring;
....
....
..등
procedure TForm1.Button1Click(Sender: TObject);
begin
eidt1.text := ANum.asstring;
eidt2.text := AName.asstring;
end;
입니다.
이 소스가 맞는건지...알고 싶기도 하고요....이게 아니라면 동적으로 오픈할 수 있는 방법을 알고 싶습니다.
부탁합니다.
table1의 이름 ----> A
A의 필드 ----> Num, Name
제가 예를 들어서 하고자 하고 싶은 것은
A 테이블의 Num 필드의 내용을 edit1 component에 넣고
A 테이블의 Name 필드의 내용을 edit2 component에 넣는 방법을 알고 싶습니다.
쉬운방법으로는
edit1.text := A.fieldbyname('Num').asstring;
edit2.text := A.fieldbyname('Name').asstring;
를 들 수 있는데 이 방법이 아닌 동적으로 할 수 있는 방법을 알고 싶다는 거죠..
제가 알고 있는 한계로는
type
tform1 = class(tform)
edit1: tedit;
edit2: tedit;
button1 : tbutton;
ANum : TFieldstring;
AName : TFieldstring;
....
....
..등
procedure TForm1.Button1Click(Sender: TObject);
begin
eidt1.text := ANum.asstring;
eidt2.text := AName.asstring;
end;
입니다.
이 소스가 맞는건지...알고 싶기도 하고요....이게 아니라면 동적으로 오픈할 수 있는 방법을 알고 싶습니다.
부탁합니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 궁금이..
- 2001.01.17 06:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 전기봉
- 2001.01.17 04:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성은
- •
- 2001.01.17 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.17 04:41일반소켓으로는 안해봐서 모르겠으나 아마도 이상이 없을듯 합니다.... 소켓. 잘 됩니다. 소스를 확인해보...
-
- 김재완
- •
- 2001.01.17 03:34
- 1 COMMENTS
- /
- 0 LIKES
-
JDHwang•2001.02.02 21:12김재완 wrote: > > 웹에서 넘겨주는 변수들(Get,Post나 Object 태그에서 쓰는 param태그)로 넘긴 변수의...
-
- 궁금이
- 2001.01.17 03:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 박치곤
- •
- 2001.01.17 03:24
- 2 COMMENTS
- /
- 0 LIKES
-
MIDAS•2001.01.17 03:45Too many actual parameters 란 말은 함수의 인자값이 너무 많다는 말입니다. AZvSetAppMode 가 어떤 함수...
-
^^•2001.01.17 05:07AZvSetAppMode에대한 함수또는 프로시져 선언문좀 볼 수 있을까여? MIDAS wrote: > Too many actual pa...
-
- 박치곤
- 2001.01.17 03:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 남자
- •
- 2001.01.17 03:18
- 2 COMMENTS
- /
- 0 LIKES
-
조덕진•2001.01.17 03:37남자 wrote: > 스트링그리드에 색을 넣고 싶어서 .. > 아래와 같이 DrawCell에 코딩을 하였습니다.. > ...
-
허덕이는이•2001.01.27 02:27내용없다니깐요
-
-
김상호•2001.01.17 04:47var Device, Name, Port: array[0..100] of char; DevMode : THandle; Begin ListBox1.Items :...
-
아이스티•2001.01.17 19:01김상호 wrote: > var > Device, Name, Port: array[0..100] of char; > DevMode : THandle; > Begi...
-
-
- 초보
- 2001.01.17 02:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성은
- 2001.01.17 02:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 푸른새
- •
- 2001.01.17 02:29
- 1 COMMENTS
- /
- 0 LIKES
테이블이나 쿼리를 오픈할때 동적으로 하는 방법에 대해 알고 싶습니다. table1의 이름 ----> A A의 필드 ----> Num, Name 제가 예를 들어서 하고자 하고 싶은 것은 A 테이블의 Num 필드의 내용을 edit1 component에 넣고 A 테이블의 Name...-
parkisu•2001.01.17 09:21푸른새 wrote: > 테이블이나 쿼리를 오픈할때 동적으로 하는 방법에 대해 알고 싶습니다. > > table1의...
-
- 해소슬
- •
- 2001.01.17 02:28
- 2 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.01.17 18:26해소슬 wrote: > procedure TWindow.ButtonOutputClick(Sender: TObject); > var > n : integer; > ...
-
MIDAS•2001.01.17 03:21피보 나열을 찾아보니 웬 수학적 용어만 잔뜩 써 있더군요. 모르시는 분을 위한 참고 : 피보나열 수치 ...
-
- 미남
- •
- 2001.01.17 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.01.17 02:36미남 wrote: > 스트링그리드의 임의의 row에 색을 넣고 싶은데 맘대루 안대네여 > 찾아봐두 확실히 나와...
-
- 박대규
- •
- 2001.01.17 01:54
- 2 COMMENTS
- /
- 0 LIKES
-
MIDAS•2001.01.17 02:19저 또한 에러가 나는데 이렇게 하니까 안나오는군요. procedure TForm1.Button2Click(Sender: TObject);...
-
Umpro•2001.01.17 02:00> > procedure TForm1.Button2Click(Sender: TObject); > var > SpaceNum: float; > begin > ...
-
- ^^
- •
- 2001.01.17 01:40
- 1 COMMENTS
- /
- 0 LIKES
-
브끄럼•2001.01.17 02:37^^ wrote: > query를 실행하고 나서..각각의 row의 데이타를 얻어 오는 과정에서.. > 스트링으로 변환한 ...
-
- 박치곤
- 2001.01.17 01:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 부탁맨
- 2001.01.17 01:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 박치곤
- •
- 2001.01.17 00:32
- 1 COMMENTS
- /
- 0 LIKES
-
병부잡이•2001.01.17 00:35컴포넌트의 패스가 안되있어서 그럽니다 도구-> 환경옵션에서 library에서 컴포넌트 소스나 DCU의...
-
- 조덕진
- •
- 2001.01.16 23:56
- 5 COMMENTS
- /
- 0 LIKES
-
^^•2001.01.17 03:24그 에러멧세지는 혹 스프래쉬 화면 을 감춘 후 커서의 위치가 갈곳이 없다는 그런 에러 아닐까요...또는 ...
-
지영일•2001.01.17 00:16우선 menu에서 project Option에서 auto-create forms과 available forms을 구별하셨나 확인하구요... >...
-
조덕진•2001.01.17 02:53지영일 wrote: > 우선 menu에서 project Option에서 > auto-create forms과 available forms을 구별하셨...
-
지영일•2001.01.17 03:20cannot focus a disable or invisible windows 이런 에러가 나온다구요.. 혹시 스플래쉬 폼이나 메인폼 C...
-
조덕진•2001.01.17 03:34정말 감사드립니다. 덕분에 쉽게 해결이 되었네요. > > > > Application.CreateForm(TFrmKPBPOST, Frm...
> 테이블이나 쿼리를 오픈할때 동적으로 하는 방법에 대해 알고 싶습니다.
>
> table1의 이름 ----> A
> A의 필드 ----> Num, Name>
> A 테이블의 Num 필드의 내용을 edit1 component에 넣고
> A 테이블의 Name 필드의 내용을 edit2 component에 넣는 방법을 알고 싶습니다.
>
>
> 제가 예를 들어서 하고자 하고 싶은 것은
> 쉬운방법으로는
> edit1.text := A.fieldbyname('Num').asstring;
> edit2.text := A.fieldbyname('Name').asstring;
> 를 들 수 있는데 이 방법이 아닌 동적으로 할 수 있는 방법을 알고 싶다는 거죠..
>
> 제가 알고 있는 한계로는
>
> type
> tform1 = class(tform)
> edit1: tedit;
> edit2: tedit;
> button1 : tbutton;
> ANum : TFieldstring;
> AName : TFieldstring;
> ....
> ....
> ..등
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> eidt1.text := ANum.asstring;
> eidt2.text := AName.asstring;
> end;
>
> 입니다.
>
> 이 소스가 맞는건지...알고 싶기도 하고요....이게 아니라면 동적으로 오픈할 수 있는 방법을 알고 싶습니다.
> 부탁합니다.
안녕하세요.
FindComponent를 이용해보세요.
procedure TForm1.DisplayRecord;
var
i:Integer;
Edit:TEdit;
begin
for i:=0 to Table1.FieldCount-1 do
begin
Edit:= Self.FindComponent('Edit'+IntToStr(i)) as TEdit;
if Edit<>nil then
Edit.Text:= Table1.Fields[i].AsString;
end;
end;