한국 델파이 개발자 모임 - 디비그리드에서 한 셀클릭시 그줄의 자료 에디터에 보여주기

디비그리드에서 한 셀클릭시 그줄의 자료 에디터에 보여주기

디비그리드에서 한셀을 클릭해주면 각각의

에디트 박스에 한 레코드 자료를 가지고 오는 방법이 잘 안되네요

제 소스는 이렇습니다.

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

CodeEd.Text := Qr_VCD.FieldByName('Code').AsString;

NameEd.Text := Qr_Vcd.FieldByName('Name').AsString;

ActEd.Text := Qr_Vcd.FieldByName('Act').AsString;

ContryEd.Text := Qr_Vcd.FieldByName('Contry').AsString;

ComboBox1.Text := Qr_Vcd.FieldByName('Taste').AsString;

ContryEd.Text := Qr_Vcd.FieldByName('Memo').AsString;

ActiveControl := CodeEd;

end;

이 게시물을

3 COMMENTS

서영택 • 2000.12.30 03:08

이런방법은 어떨까요

TDataSource의 OnDataChange 이벤트에

procedure TForm.DataSource1DataChange(Sender: TObject; Field: TField);

begin

CodeEd.Text := Qr_VCD.FieldByName('Code').AsString;

NameEd.Text := Qr_Vcd.FieldByName('Name').AsString;

ActEd.Text := Qr_Vcd.FieldByName('Act').AsString;

ContryEd.Text := Qr_Vcd.FieldByName('Contry').AsString;

ComboBox1.Text := Qr_Vcd.FieldByName('Taste').AsString;

ContryEd.Text := Qr_Vcd.FieldByName('Memo').AsString;

ActiveControl := CodeEd;

end;

이런식으로 코딩을 하면 Focus가 그리드상에 있을때 방향키로 움지이게되면

자동으로 바뀐 레코드내용을 보여주게 되지요

그리고 다른분이 말씀하신것처럼 Null값체크를 해주는것도 잊지마시구요...

즐코딩하세요...

박진수 wrote:

> 디비그리드에서 한셀을 클릭해주면 각각의

>

> 에디트 박스에 한 레코드 자료를 가지고 오는 방법이 잘 안되네요

>

> 제 소스는 이렇습니다.

>

> procedure TForm1.DBGrid1CellClick(Column: TColumn);

> begin

> CodeEd.Text := Qr_VCD.FieldByName('Code').AsString;

> NameEd.Text := Qr_Vcd.FieldByName('Name').AsString;

> ActEd.Text := Qr_Vcd.FieldByName('Act').AsString;

> ContryEd.Text := Qr_Vcd.FieldByName('Contry').AsString;

> ComboBox1.Text := Qr_Vcd.FieldByName('Taste').AsString;

> ContryEd.Text := Qr_Vcd.FieldByName('Memo').AsString;

> ActiveControl := CodeEd;

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글
모름이 • 2000.12.30 02:54

^^;

저두 잘 모르지만..

dbgrid와 dbedit를 서로 연결 사용한다면 되지 않을까여..?

그러면 그리드에서 선택한 내용이 바로 dbedit에 뜨니깐요..구다지 이벤트를 기록하지

않아도 돼죠.. ^^;(반드시 dbeditd에 datasource와 field값을 정의 해줘야 겠죠..)

구다지 스트링그리드을 사용하지 않는다면.. cell과 row값을 계산할 필요는 없다고 보와요..?

박진수 wrote:

> 디비그리드에서 한셀을 클릭해주면 각각의

>

> 에디트 박스에 한 레코드 자료를 가지고 오는 방법이 잘 안되네요

>

> 제 소스는 이렇습니다.

>

> procedure TForm1.DBGrid1CellClick(Column: TColumn);

> begin

> CodeEd.Text := Qr_VCD.FieldByName('Code').AsString;

> NameEd.Text := Qr_Vcd.FieldByName('Name').AsString;

> ActEd.Text := Qr_Vcd.FieldByName('Act').AsString;

> ContryEd.Text := Qr_Vcd.FieldByName('Contry').AsString;

> ComboBox1.Text := Qr_Vcd.FieldByName('Taste').AsString;

> ContryEd.Text := Qr_Vcd.FieldByName('Memo').AsString;

> ActiveControl := CodeEd;

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글
김대빵 • 2000.12.30 01:42

박진수 wrote:

> 디비그리드에서 한셀을 클릭해주면 각각의

>

> 에디트 박스에 한 레코드 자료를 가지고 오는 방법이 잘 안되네요

>

> 제 소스는 이렇습니다.

>

> procedure TForm1.DBGrid1CellClick(Column: TColumn);

> begin

> CodeEd.Text := Qr_VCD.FieldByName('Code').AsString;

> NameEd.Text := Qr_Vcd.FieldByName('Name').AsString;

> ActEd.Text := Qr_Vcd.FieldByName('Act').AsString;

> ContryEd.Text := Qr_Vcd.FieldByName('Contry').AsString;

> ComboBox1.Text := Qr_Vcd.FieldByName('Taste').AsString;

> ContryEd.Text := Qr_Vcd.FieldByName('Memo').AsString;

> ActiveControl := CodeEd;

> end;

>

우선 Qr_VCD라는 쿼리 컴포넌트가 Open이된 상태여야 합니다..

그리고, 확인할 점은 그 쿼리가 현재 실행된 또, DB Grid상에 표출된Query문인가 하는것이구요..

만약 위의 두가지가 모두 충족되어 있는 상태라면

님께서 하신 방법이 모두 맞는군요...

다만, 해당 필드값이 null이라면 error가 발생할 것이므로,

null값에 대한 Check가 반드시 필요하겠지요..

예를 들면,

if Qr_Vcd.FieldByName('Contry').AsString <> '' then

ContryEd.Text := Qr_Vcd.FieldByName('Contry').AsString;

뭐 이런식이 되겠져...

아참,, 아주 중요한 또 한가지 체크포인트....

DBGRID의 옵션항목중에 dgRowSelect부분이 반드시 True로 설정되어 있어야 합니다...

그렇지 않으면 Cellclick시에 Record로 인식하지 않기 때문이죠...

그럼...
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 푸린
- •
- 2000.12.30 07:56
- 3 COMMENTS
- /
- 0 LIKES
파일열기,닫기, 생성 하는 법좀 갈켜 주세요...
- 바보감자
  
  •
  
  2000.12.30 18:34
  
  푸린 wrote: > 안녕하세요 전 무지무지 초조 랍니다.,, 지금 파일 열기,닫기,저장,생성 을 몰라서 1주째 ...
- 푸린
  
  •
  
  2000.12.30 23:50
  
  님의 답변 정말 감사 합니다^^ 근데.. 파일의 내용을 한줄씩 읽어 들여야 하는뎅... 이것두 좀 갈켜 주세...
- +^-_-^+
  
  •
  
  2001.01.03 03:03
  
  ReadLn() 을 사용하시면 됩니다. :) ----------------- var str: string; f: textfile; .... ...
- delphilove
- •
- 2000.12.30 06:45
- 5 COMMENTS
- /
- 0 LIKES
질문 했는데 답변이 없네요.. 꼭 알고 싶어요..
- 성더기
  
  •
  
  2001.01.03 01:59
  
  delphilove wrote: > var > img_f_id, img_f_id1 : intteger; > ------------------------------- > ...
- 어떤 공군병장
  
  •
  
  2000.12.31 00:21
  
  delphilove wrote: > var > img_f_id, img_f_id1 : intteger; > ------------------------------- > ...
- 이영근
  
  •
  
  2000.12.30 08:57
  
  delphilove wrote: > var > img_f_id, img_f_id1 : intteger; > ------------------------------- > ...
- delphilove
  
  •
  
  2000.12.30 12:00
  
  이영근 wrote: > delphilove wrote: > > var > > img_f_id, img_f_id1 : intteger; > > --------------...
- 김진석
  
  •
  
  2001.01.03 00:13
  
  delphilove wrote: > 이영근 wrote: > > delphilove wrote: > > > var > > > img_f_id, img_f_id1 : in...
- 초짜
- 2000.12.30 06:42
- 0 COMMENTS
- /
- 0 LIKES
델파이 3.0 -> 5.0으로 할때..
- 아무개
- 2000.12.30 06:40
- 0 COMMENTS
- /
- 0 LIKES
엑셀 종료시 에러
- 아무개
- 2000.12.30 06:37
- 0 COMMENTS
- /
- 0 LIKES
툴버튼(ToolButton) - 종료버튼
- 이발사
- 2000.12.30 04:51
- 0 COMMENTS
- /
- 0 LIKES
WebLogic연결 성공사례를 찾심니데이~~
- 이원택
- •
- 2000.12.30 04:01
- 1 COMMENTS
- /
- 0 LIKES
Edit박스가 문제인지....
- 뿌요
  
  •
  
  2000.12.30 19:41
  
  아래의 코딩에서 Sql.Add(' Delete Med Where Date=:S_date And Level=:S_Lavel'); => Delete from Me...
- 델파이초보
- •
- 2000.12.30 03:45
- 1 COMMENTS
- /
- 0 LIKES
canvas로 그린 image 프린트는 어떻케?
- 김영석
  
  •
  
  2000.12.30 04:43
  
  프린터의 캔버스에 그 그림을 다시 그려주면 됩니다. 프린터에도 속성중에 캔버스가 있으니까.. BeginDoc...
- 김선태
- 2000.12.30 03:34
- 0 COMMENTS
- /
- 0 LIKES
동영상 재생시 동영상의 원래 크기를 얻는 방법
- 어린왕자
- •
- 2000.12.30 03:02
- 2 COMMENTS
- /
- 0 LIKES
[급] 스트링으루 이루어진 Res파일 읽는 방법여..
- 김영석
  
  •
  
  2000.12.30 04:38
  
  델파이에서 코딩으로 할 수 있습니다. 스트링으로 이루어졌고 *.RC 파일에서 그것의 리소스 형태가 TEXT ...
- 어린왕자
  
  •
  
  2000.12.30 05:55
  
  procedure TForm1.Btn_OpenClick(Sender: TObject); var ResStrm: TResourceStream; begin if File...
- 서영택
- •
- 2000.12.30 02:52
- 1 COMMENTS
- /
- 0 LIKES
Binary파일을 Text파일로 전환문제
- 김영석
  
  •
  
  2000.12.30 04:41
  
  좀 더 자세히 질문을 해주시면 답변해 드리겠습니다. 레코드길이는 Binary 파일에서 레코드 길이인가요? ...
- 김명찬
- •
- 2000.12.30 02:49
- 1 COMMENTS
- /
- 0 LIKES
에디트에서 영문모드?
- 뿌요
  
  •
  
  2000.12.30 19:57
  
  lmeMode의 속성중 lmAlpha,lmSAlpha로 구별할 수 있습니다.. 즐코.. 김명찬 wrote: > 안녕하세요... >...
- 임찬수
- 2000.12.30 02:09
- 0 COMMENTS
- /
- 0 LIKES
플러그인(plug-in) 작성법을 알고싶습니다.
- 왕초보
- •
- 2000.12.30 01:26
- 1 COMMENTS
- /
- 0 LIKES
[급한 질문]퀵레포트의 출력문제입니다..고정폼을 사용하는 방법 아시는 분...
- 서영택
  
  •
  
  2000.12.30 03:01
  
  상위 10라인에는 데이타를 출력하고 하단 10라인에는 데이타는 없이 라인만 출력하고자 하는 문제라고 이...
- 박진수
- •
- 2000.12.30 01:15
- 3 COMMENTS
- /
- 0 LIKES
디비그리드에서 한 셀클릭시 그줄의 자료 에디터에 보여주기

디비그리드에서 한셀을 클릭해주면 각각의 에디트 박스에 한 레코드 자료를 가지고 오는 방법이 잘 안되네요 제 소스는 이렇습니다. procedure TForm1.DBGrid1CellClick(Column: TColumn); begin CodeEd.Text := Qr_VCD.FieldByName('Code...
- 서영택
  
  •
  
  2000.12.30 03:08
  
  이런방법은 어떨까요 TDataSource의 OnDataChange 이벤트에 procedure TForm.DataSource1DataChange...
- 모름이
  
  •
  
  2000.12.30 02:54
  
  ^^; 저두 잘 모르지만.. dbgrid와 dbedit를 서로 연결 사용한다면 되지 않을까여..? 그러면 그리드에서 ...
- 김대빵
  
  •
  
  2000.12.30 01:42
  
  박진수 wrote: > 디비그리드에서 한셀을 클릭해주면 각각의 > > 에디트 박스에 한 레코드 자료를 가지...
- 박부자
- •
- 2000.12.30 00:30
- 1 COMMENTS
- /
- 0 LIKES
타이머를 이용했는데 뭐가 문제인지??고수님 쁘리즈
- yosul
  
  •
  
  2001.01.02 23:56
  
  > with OrderQuery do begin > try > DisableControls; > ...
- 강인규
- 2000.12.30 00:18
- 0 COMMENTS
- /
- 0 LIKES
익스플로러의 페이지정보 가져오기 혹은 마지막으로 Navigate한 정보 가져오기
- 이분희
- 2000.12.30 00:18
- 0 COMMENTS
- /
- 0 LIKES
디버깅시에서 브레이크가 아무곳에나 걸립니다.
- 김진선
- 2000.12.29 22:54
- 0 COMMENTS
- /
- 0 LIKES
(질문)폼의 같은 부분에 프레임을 겹칠수 있나요?
- 정유석
- 2000.12.30 18:05
- 0 COMMENTS
- /
- 0 LIKES
PickList 에 관한 질문 [급]

박진수
2000/12/30 01:15
Views346

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

2032 2033 2034 2035 2036 2037 2038 2039 2040 2041

Last Page→