한국 델파이 개발자 모임 - DBGrid 에서 Focus 알아내기.. 도와주세요

DBGrid 에서 Focus 알아내기.. 도와주세요

수거 많으십니다.

제가 지금 하고 있는것은 두개의 DBGrid를 가지고 두개의 table를 한 화면에서 사용하고 있습니다..

그런데 삭제를 하고 싶은데...

두개의 DBGrid 중에서 어느것을 삭제 하는지 어떻게 알아내는야 하는 겁니다..

예를 들자면..

A 라는 DBGrid 와 B 라는 DBGrid 가 있는데....

삭제 버튼을 눌렀을때....

DBGrid.삭제... 이런식으로 해주어야 하는데...

이놈이 A 인지 B 인지 어떻게 알아내줘...

제발 부탁합니다...

지금 거의 미쳐갑니다.

이 게시물을

4 COMMENTS

장지용 • 2001.12.12 02:55

원하시는 답변인지 모르겠습니다.

if ActiveControl = DBGrid1 then

DBGrid1 데이터 삭제루틴

else if ActiveControl = DBGrid2 then

DBGrid2 데이터 삭제루틴;

돌쇠 wrote:

> 수거 많으십니다.

>

> 제가 지금 하고 있는것은 두개의 DBGrid를 가지고 두개의 table를 한 화면에서 사용하고 있습니다..

>

> 그런데 삭제를 하고 싶은데...

>

> 두개의 DBGrid 중에서 어느것을 삭제 하는지 어떻게 알아내는야 하는 겁니다..

>

> 예를 들자면..

> A 라는 DBGrid 와 B 라는 DBGrid 가 있는데....

> 삭제 버튼을 눌렀을때....

>

> DBGrid.삭제... 이런식으로 해주어야 하는데...

>

>

> 이놈이 A 인지 B 인지 어떻게 알아내줘...

> 제발 부탁합니다...

> 지금 거의 미쳐갑니다.

>
- 0
- 0
- 삭제
- 수정
- 댓글
돌쇠 • 2001.12.12 04:03

먼저 감사드리구요...

잘 되네요...

근데 또 문제가 생겼네요...

다름이 아니오라....

제가 UpdateSQL1,UpdateSQL2 Query1, Query2 DataSouce1,DataSouce2 를 사용하구요

모든 설정은 같고 Query2에서 Query1로 를 조인해서 사용합니다.

( Query2 의 DataSouce를 DataSouce1로 잡았습니다.)

Delete 할때 Query1.Delete

Query1.ApplyUpdates

를 사용하면 잘됩니다.

그런데

Delete 할때 Query2.Delete

Query2.ApplyUpdates

를 할때는 Query2.ApplyUpdates <=== 요 문장에서 에러가 발생합니다.

에러는 'Update Failde' 라고 나고요...

전 DB를 이용해서 첨 사용하구 잘 몰라요..

지금 위에 방법도 간신히 한것이구요..(참고로.. DBGrid에서 작업을 해야합니다 항상)

왜 같은 문장인데 에러가 나는지.. 그리고 방법이 있다면 좀 부탁드립니다.

오늘도 즐코하세요...

장지용 wrote:

>

> 원하시는 답변인지 모르겠습니다.

>

> if ActiveControl = DBGrid1 then

> DBGrid1 데이터 삭제루틴

> else if ActiveControl = DBGrid2 then

> DBGrid2 데이터 삭제루틴;

>

>

> 돌쇠 wrote:

> > 수거 많으십니다.

> >

> > 제가 지금 하고 있는것은 두개의 DBGrid를 가지고 두개의 table를 한 화면에서 사용하고 있습니다..

> >

> > 그런데 삭제를 하고 싶은데...

> >

> > 두개의 DBGrid 중에서 어느것을 삭제 하는지 어떻게 알아내는야 하는 겁니다..

> >

> > 예를 들자면..

> > A 라는 DBGrid 와 B 라는 DBGrid 가 있는데....

> > 삭제 버튼을 눌렀을때....

> >

> > DBGrid.삭제... 이런식으로 해주어야 하는데...

> >

> >

> > 이놈이 A 인지 B 인지 어떻게 알아내줘...

> > 제발 부탁합니다...

> > 지금 거의 미쳐갑니다.

> >
- 0
- 0
- 삭제
- 수정
- 댓글
장지용 • 2001.12.12 05:23

"Query.DataSource" 보단 "Query.DatabaseName" 을 셋팅하면 어떨까 싶습니다.

일단 제가 하는 방식을 적어봤습니다.

참고가 되었으면 좋겠네요.

수고하세요.

----------------------------------------------------------------------------------

[Database Component] 설정

1. "Database" Component [DataAccess Tab] 를 추가한다.

2. "Database" Component 를 더블클릭한다.

3. "Driver name" 을 선택한다.

4. "Name" 에 임의의 이름을 입력한다.

5. "Defaults" Button 을 클릭한다.

6. "Parameter overrides" 에 필요한 정보만 입력한다.

7. "Login prompt" 체크를 해제한다.

8. "Ok" 버튼을 클릭한다.

9. "Connected" 를 "True" 로 바꾸어 설정이 제대로 되었는지 체크한다.

10. "Connected" 를 다시 "False" 로 바꾼다.

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

[Query Component] 설정

1. "Query.DatabaseName" 에서 위에서 입력한 "Database name" (Database.DatabaseName)를 선택한다. ("Query.DataSource" 는 셋팅할 필요가 없다.)

2. "Query.CashedUpdates" 를 "True" 로 셋팅한다.

3. "Query.SQL" 에 질의문을 입력한다.

4. "Query.UpdateObject" 에 원하는 "UpdateSQL" 연결한다.

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

[UpdateSQL Component] 설정

1. "UpdateSQL" Component 를 더블클릭한다.

2. "Key Fields" 를 선택한다.

3. "Generate SQL" 버튼을 클릭한다.

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

[DataSource Component] 설정

1. "DataSource.DataSet" 에 원하는 "Query" 셋팅한다.

----------------------------------------------------------------------------------

----------------------------------------------------------------------------------

[DBGrid Component] 설정

1. "DBGrid.DataSource" 에 원하는 "DataSource" 를 셋팅한다.

----------------------------------------------------------------------------------

[DBGrid] <---> [DataSource] <---> [Query] <---> [UpdateSQL]

function TfrmModule.CommitRecord(qrName: TQuery): Boolean;

begin

with qrName do begin

Database.StartTransaction;

try

ApplyUpdates;

Database.Commit;

Result := True;

except

Database.Rollback;

Result := False;

Exit;

end;

CommitUpdates;

end;

end;

procedure TfrmTest.btDelClick(Sender: TObject);

begin

if MessageDlg('선택한 레코드를 삭제합니다.', mtWarning, mbOkCancel, 0) = mrCancel then

Exit;

////////////////////////////////////

if ActiveControl = DBGrid then begin

with Query do begin

Delete;

if frmModule.CommitRecord(Query) then

ShowMessage('삭제 성공')

else

ShowMessage('삭제 실패');

end;

////////////////////////////////////

end else if ActiveControl = ...

end;

돌쇠 wrote:

> 먼저 감사드리구요...

> 잘 되네요...

> 근데 또 문제가 생겼네요...

> 다름이 아니오라....

>

> 제가 UpdateSQL1,UpdateSQL2 Query1, Query2 DataSouce1,DataSouce2 를 사용하구요

> 모든 설정은 같고 Query2에서 Query1로 를 조인해서 사용합니다.

> ( Query2 의 DataSouce를 DataSouce1로 잡았습니다.)

>

> Delete 할때 Query1.Delete

> Query1.ApplyUpdates

> 를 사용하면 잘됩니다.

>

> 그런데

> Delete 할때 Query2.Delete

> Query2.ApplyUpdates

> 를 할때는 Query2.ApplyUpdates <=== 요 문장에서 에러가 발생합니다.

> 에러는 'Update Failde' 라고 나고요...

>

> 전 DB를 이용해서 첨 사용하구 잘 몰라요..

> 지금 위에 방법도 간신히 한것이구요..(참고로.. DBGrid에서 작업을 해야합니다 항상)

>

> 왜 같은 문장인데 에러가 나는지.. 그리고 방법이 있다면 좀 부탁드립니다.

> 오늘도 즐코하세요...

>

>

>

> 장지용 wrote:

> >

> > 원하시는 답변인지 모르겠습니다.

> >

> > if ActiveControl = DBGrid1 then

> > DBGrid1 데이터 삭제루틴

> > else if ActiveControl = DBGrid2 then

> > DBGrid2 데이터 삭제루틴;

> >

> >

> > 돌쇠 wrote:

> > > 수거 많으십니다.

> > >

> > > 제가 지금 하고 있는것은 두개의 DBGrid를 가지고 두개의 table를 한 화면에서 사용하고 있습니다..

> > >

> > > 그런데 삭제를 하고 싶은데...

> > >

> > > 두개의 DBGrid 중에서 어느것을 삭제 하는지 어떻게 알아내는야 하는 겁니다..

> > >

> > > 예를 들자면..

> > > A 라는 DBGrid 와 B 라는 DBGrid 가 있는데....

> > > 삭제 버튼을 눌렀을때....

> > >

> > > DBGrid.삭제... 이런식으로 해주어야 하는데...

> > >

> > >

> > > 이놈이 A 인지 B 인지 어떻게 알아내줘...

> > > 제발 부탁합니다...

> > > 지금 거의 미쳐갑니다.

> > >
- 0
- 0
- 삭제
- 수정
- 댓글
돌쇠 • 2001.12.12 05:49

장지용 wrote:

>

> "Query.DataSource" 보단 "Query.DatabaseName" 을 셋팅하면 어떨까 싶습니다.

> 일단 제가 하는 방식을 적어봤습니다.

> 참고가 되었으면 좋겠네요.

> 수고하세요.

>

> ----------------------------------------------------------------------------------

> [Database Component] 설정

> 1. "Database" Component [DataAccess Tab] 를 추가한다.

> 2. "Database" Component 를 더블클릭한다.

> 3. "Driver name" 을 선택한다.

> 4. "Name" 에 임의의 이름을 입력한다.

> 5. "Defaults" Button 을 클릭한다.

> 6. "Parameter overrides" 에 필요한 정보만 입력한다.

> 7. "Login prompt" 체크를 해제한다.

> 8. "Ok" 버튼을 클릭한다.

> 9. "Connected" 를 "True" 로 바꾸어 설정이 제대로 되었는지 체크한다.

> 10. "Connected" 를 다시 "False" 로 바꾼다.

> ----------------------------------------------------------------------------------

> ----------------------------------------------------------------------------------

> [Query Component] 설정

> 1. "Query.DatabaseName" 에서 위에서 입력한 "Database name" (Database.DatabaseName)를 선택한다. ("Query.DataSource" 는 셋팅할 필요가 없다.)

> 2. "Query.CashedUpdates" 를 "True" 로 셋팅한다.

> 3. "Query.SQL" 에 질의문을 입력한다.

> 4. "Query.UpdateObject" 에 원하는 "UpdateSQL" 연결한다.

> ----------------------------------------------------------------------------------

> ----------------------------------------------------------------------------------

> [UpdateSQL Component] 설정

> 1. "UpdateSQL" Component 를 더블클릭한다.

> 2. "Key Fields" 를 선택한다.

> 3. "Generate SQL" 버튼을 클릭한다.

> ----------------------------------------------------------------------------------

> ----------------------------------------------------------------------------------

> [DataSource Component] 설정

> 1. "DataSource.DataSet" 에 원하는 "Query" 셋팅한다.

> ----------------------------------------------------------------------------------

> ----------------------------------------------------------------------------------

> [DBGrid Component] 설정

> 1. "DBGrid.DataSource" 에 원하는 "DataSource" 를 셋팅한다.

> ----------------------------------------------------------------------------------

>

> [DBGrid] <---> [DataSource] <---> [Query] <---> [UpdateSQL]

>

>

>

> function TfrmModule.CommitRecord(qrName: TQuery): Boolean;

> begin

> with qrName do begin

> Database.StartTransaction;

>

> try

> ApplyUpdates;

> Database.Commit;

> Result := True;

>

> except

> Database.Rollback;

> Result := False;

> Exit;

> end;

>

> CommitUpdates;

> end;

> end;

>

> procedure TfrmTest.btDelClick(Sender: TObject);

> begin

> if MessageDlg('선택한 레코드를 삭제합니다.', mtWarning, mbOkCancel, 0) = mrCancel then

> Exit;

>

> ////////////////////////////////////

> if ActiveControl = DBGrid then begin

> with Query do begin

> Delete;

> if frmModule.CommitRecord(Query) then

> ShowMessage('삭제 성공')

> else

> ShowMessage('삭제 실패');

> end;

>

> ////////////////////////////////////

> end else if ActiveControl = ...

>

> end;

>

>

>

>

> 돌쇠 wrote:

> > 먼저 감사드리구요...

> > 잘 되네요...

> > 근데 또 문제가 생겼네요...

> > 다름이 아니오라....

> >

> > 제가 UpdateSQL1,UpdateSQL2 Query1, Query2 DataSouce1,DataSouce2 를 사용하구요

> > 모든 설정은 같고 Query2에서 Query1로 를 조인해서 사용합니다.

> > ( Query2 의 DataSouce를 DataSouce1로 잡았습니다.)

> >

> > Delete 할때 Query1.Delete

> > Query1.ApplyUpdates

> > 를 사용하면 잘됩니다.

> >

> > 그런데

> > Delete 할때 Query2.Delete

> > Query2.ApplyUpdates

> > 를 할때는 Query2.ApplyUpdates <=== 요 문장에서 에러가 발생합니다.

> > 에러는 'Update Failde' 라고 나고요...

> >

> > 전 DB를 이용해서 첨 사용하구 잘 몰라요..

> > 지금 위에 방법도 간신히 한것이구요..(참고로.. DBGrid에서 작업을 해야합니다 항상)

> >

> > 왜 같은 문장인데 에러가 나는지.. 그리고 방법이 있다면 좀 부탁드립니다.

> > 오늘도 즐코하세요...

> >

> >

> >

> > 장지용 wrote:

> > >

> > > 원하시는 답변인지 모르겠습니다.

> > >

> > > if ActiveControl = DBGrid1 then

> > > DBGrid1 데이터 삭제루틴

> > > else if ActiveControl = DBGrid2 then

> > > DBGrid2 데이터 삭제루틴;

> > >

> > >

> > > 돌쇠 wrote:

> > > > 수거 많으십니다.

> > > >

> > > > 제가 지금 하고 있는것은 두개의 DBGrid를 가지고 두개의 table를 한 화면에서 사용하고 있습니다..

> > > >

> > > > 그런데 삭제를 하고 싶은데...

> > > >

> > > > 두개의 DBGrid 중에서 어느것을 삭제 하는지 어떻게 알아내는야 하는 겁니다..

> > > >

> > > > 예를 들자면..

> > > > A 라는 DBGrid 와 B 라는 DBGrid 가 있는데....

> > > > 삭제 버튼을 눌렀을때....

> > > >

> > > > DBGrid.삭제... 이런식으로 해주어야 하는데...

> > > >

> > > >

> > > > 이놈이 A 인지 B 인지 어떻게 알아내줘...

> > > > 제발 부탁합니다...

> > > > 지금 거의 미쳐갑니다.

> > > >
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 강동환
- 2001.12.12 10:46
- 0 COMMENTS
- /
- 0 LIKES
c언어 공부하고 있는데 많은 도움 부탁드립니다.
- 강동환
- •
- 2001.12.12 10:39
- 3 COMMENTS
- /
- 0 LIKES
c언어 공부하는데 도움 부탁드립니다...^^
- 이경문
  
  •
  
  2001.12.13 04:42
  
  c언어 공부인가요, c언어 숙제인가요? 숙제는 스스로 하도록 노력하세요. 강동환 wrote: > 제가 c언어...
- 강동환
  
  •
  
  2001.12.13 09:37
  
  이경문씨 지금때가 어느때인데 숙제를 논합니까.. 전 대학생인데 벌써 기말고사도 끝났습니다. 이문제는 ...
- 이경문
  
  •
  
  2001.12.13 11:04
  
  숙제가 아니라 공부라면 일단은 죄송합니다. 그런데 이런 문제를 직접 풀여 보려는 노력은 해 보셨습니까? ...
- 사고뭉치
- •
- 2001.12.12 07:39
- 2 COMMENTS
- /
- 0 LIKES
퀵리포트 디테일밴드 금액 출력시 1000 -> 1,000 이렇게?
- 홍길동
  
  •
  
  2001.12.14 01:33
  
  사고뭉치 wrote: > 디테일밴드에서 값이 (금액)이 출력됩니다. > 그런데 천원이면 1,000 이렇게 되어야 ...
- 고인섭
  
  •
  
  2001.12.12 10:06
  
  사고뭉치 wrote: > 디테일밴드에서 값이 (금액)이 출력됩니다. > 그런데 천원이면 1,000 이렇게 되어야 ...
- 이영선
- 2001.12.12 06:18
- 0 COMMENTS
- /
- 0 LIKES
DBgrid에서 여러 필드의 memo연결시 값이 바뀌어 들어갑니다...
- 일쳇단심
- •
- 2001.12.12 06:11
- 2 COMMENTS
- /
- 0 LIKES
Tmaskedit, Tpanel에서의 문자열중에서 숫자만 축출할수~
- ClickTest
  
  •
  
  2001.12.12 12:04
  
  function fGetNum(strIn: string): string; var i, l: Word; begin Result := ''; l := Lengt...
- 일쳇단심
  
  •
  
  2001.12.12 23:11
  
  ClickTest wrote: > function fGetNum(strIn: string): string; > var > i, l: Word; > begin > R...
- 돌쇠
- 2001.12.12 04:59
- 0 COMMENTS
- /
- 0 LIKES
희정님 꼭 읽어주세요. UpDateSql에 관해 추가질문...
- 허접
- 2001.12.12 04:24
- 0 COMMENTS
- /
- 0 LIKES
ping관련....
- 김규한
- 2001.12.12 03:33
- 0 COMMENTS
- /
- 0 LIKES
[질문!] 너무 난감합니다... ADO 문제.
- 이영섭
- 2001.12.12 03:10
- 0 COMMENTS
- /
- 0 LIKES
MYSQL INSTALL및 작성을 제발 알려주세요
- 델초보아미고
- 2001.12.12 03:09
- 0 COMMENTS
- /
- 0 LIKES
액세스에선 저장프로시저를 쓸수가 없나요....(급)
- 제발
- 2001.12.12 02:29
- 0 COMMENTS
- /
- 0 LIKES
DBgrid와 AdoQuery,access 2000을 사용중인데
- 통신초보..
- •
- 2001.12.12 02:16
- 3 COMMENTS
- /
- 0 LIKES
Socket통신에서 ㅠ.ㅠ
- 바다를향해
  
  •
  
  2001.12.18 02:37
  
  바이트오더에 대해서 질문을 하셨군요... 네트워크에서 이기종간의 통신에서는 기종간 바이트오더가 틀린...
- 이경문
  
  •
  
  2001.12.12 03:13
  
  이는 언어의 특성이기보다는 CPU의 특성입니다. ARM계열은 Big Endian을 사용하고 Intel 계열은 Little E...
- kuma
  
  •
  
  2001.12.12 02:35
  
  서버랑 구조체만 같다면 문제가 되지 않는데요... 저는 버퍼에 담고 그버퍼를 보내고... 버퍼에 받고 그...
- 델피사랑
- 2001.12.12 02:34
- 0 COMMENTS
- /
- 0 LIKES
Detail Band와 SubDetail의 연결 방법좀 알려 주세요..^^..
- 돌쇠
- •
- 2001.12.12 01:56
- 4 COMMENTS
- /
- 0 LIKES
DBGrid 에서 Focus 알아내기.. 도와주세요

수거 많으십니다. 제가 지금 하고 있는것은 두개의 DBGrid를 가지고 두개의 table를 한 화면에서 사용하고 있습니다.. 그런데 삭제를 하고 싶은데... 두개의 DBGrid 중에서 어느것을 삭제 하는지 어떻게 알아내는야 하는 겁니다.. 예를 들...
- 장지용
  
  •
  
  2001.12.12 02:55
  
  원하시는 답변인지 모르겠습니다. if ActiveControl = DBGrid1 then DBGrid1 데이터 삭제루틴 els...
- 돌쇠
  
  •
  
  2001.12.12 04:03
  
  먼저 감사드리구요... 잘 되네요... 근데 또 문제가 생겼네요... 다름이 아니오라.... 제가 UpdateSQ...
- 장지용
  
  •
  
  2001.12.12 05:23
  
  "Query.DataSource" 보단 "Query.DatabaseName" 을 셋팅하면 어떨까 싶습니다. 일단 제가 하는 방식을 ...
- 돌쇠
  
  •
  
  2001.12.12 05:49
  
  장지용 wrote: > > "Query.DataSource" 보단 "Query.DatabaseName" 을 셋팅하면 어떨까 싶습니다. > 일...
- 사고뭉치
- 2001.12.12 01:39
- 0 COMMENTS
- /
- 0 LIKES
numedit 사용법.??
- 송혜란
- 2001.12.12 01:30
- 0 COMMENTS
- /
- 0 LIKES
text, csv파일을 db로 변환시 필요한 컴포넌트(tascii2db)
- 델초
- •
- 2001.12.12 01:24
- 3 COMMENTS
- /
- 0 LIKES
구조체에 대한 포인터를 어떻게 해줘야..?
- kuma
  
  •
  
  2001.12.12 01:51
  
  음 이런식으로 해보세요.... var Temp: array of char; AA: struct_A; ...
- 델초
  
  •
  
  2001.12.12 02:01
  
  감사합니다..곰님..^^ 덕분에 쉽게 해결되었습니다.. 그런데 말입니다..setLength를 하게 되면 이것도 ...
- kuma
  
  •
  
  2001.12.12 02:20
  
  음 메모리 해제 안하셔도 되구요.... var Temp: array of char; AA: str...
- 왕초짜
- 2001.12.12 01:24
- 0 COMMENTS
- /
- 0 LIKES
폼을 다시 그릴려구하는데여..
- 델파이
- 2001.12.12 05:15
- 0 COMMENTS
- /
- 0 LIKES
[질문+정보]Access2000 + BDE 연결?
- 초보
- •
- 2001.12.12 00:18
- 1 COMMENTS
- /
- 0 LIKES
사용자가 SQL문으로 DB를 조회 할 수 있는 방법...
- 어린왕자A
  
  •
  
  2001.12.12 00:22
  
  님은 DB를 조회할때 어떻게 쓰시는지요..TQuery쓰시지 않나요? 사용자가 SQL문을 입력할수 있게 메모를 ...

돌쇠
2001/12/12 01:56
Views246

Likes0

Comments4

Reports0
Tag List
수정
삭제
목록으로

←First Page

1450 1451 1452 1453 1454 1455 1456 1457 1458 1459

Last Page→