Q&A
안녕하세요... 매경인데요...^^
웅... 이걸 if문에 관한 질문이라고 할런지... 테이블에 관한 질문이라고 할런지...
무쟈게 고민되는 군엽=_-
다름이 아니라...^^;;;
테이블을 검색(BANKCODE로...)해서 검색 결과가 암것두 없으면... 버튼을 disalbe시키고 싶거든요... (테이블을 검색한 내용은 그리드로 뿌려진답니다...^^)
그런데 제가 그리드를 이용하는 방법두 잘 모르고 해서... BANKCODE라는 DBTEXT를 폼에 하나 올려 놓구 Visable = False로 한담에... 그 DBText에 아무 내용도 없으면, 버튼을 disable시키게 하려구 했는데... BtnDelete.Enabled := False; 까진 되는데... !_!
Bankcode로 검색해서 데이타가 있는 경우엔... 버튼이 다시 enable루 되는건... 안되네엽... 흑~ 도와주세여...!_!
procedure TF_Ent_Info.BtnSearchClick(Sender: TObject);
begin
if (BANKCODE = nil) then
begin
BtnEdit.Enabled := False;
BtnDelete.Enabled := False;
end
else
begin
BtnEdit.Enabled := True;
BtnDelete.Enabled := True;
end;
end;
- 테이블에 데이타 존재의 유.무=_+
안녕하세요... 매경인데요...^^
웅... 이걸 if문에 관한 질문이라고 할런지... 테이블에 관한 질문이라고 할런지...
무쟈게 고민되는 군엽=_-
다름이 아니라...^^;;;
테이블을 검색(BANKCODE로...)해서 검색 결과가 암것두 없으면... 버튼을 disalbe시키고 싶거든요... (테이블을 검색한 내용은 그리드로 뿌려진답니다...^^)
그런데 제가 그리드를 이용하는 방법두 잘 모르고 해서... BANKCODE라는 DBTEXT를 폼에 하나 올려 놓구 Visable = False로 한담에... 그 DBText에 아무 내용도 없으면, 버튼을 disable시키게 하려구 했는데... BtnDelete.Enabled := False; 까진 되는데... !_!
Bankcode로 검색해서 데이타가 있는 경우엔... 버튼이 다시 enable루 되는건... 안되네엽... 흑~ 도와주세여...!_!
procedure TF_Ent_Info.BtnSearchClick(Sender: TObject);
begin
if (BANKCODE = nil) then
begin
BtnEdit.Enabled := False;
BtnDelete.Enabled := False;
end
else
begin
BtnEdit.Enabled := True;
BtnDelete.Enabled := True;
end;
end;
3
COMMENTS
-
-
임형호 wrote:
> 김매경 wrote:
> >
> > 안녕하세요... 매경인데요...^^
> >
> > 웅... 이걸 if문에 관한 질문이라고 할런지... 테이블에 관한 질문이라고 할런지...
> > 무쟈게 고민되는 군엽=_-
> >
> > 다름이 아니라...^^;;;
> >
> > 테이블을 검색(BANKCODE로...)해서 검색 결과가 암것두 없으면... 버튼을 disalbe시키고 싶거든요... (테이블을 검색한 내용은 그리드로 뿌려진답니다...^^)
> >
> > 그런데 제가 그리드를 이용하는 방법두 잘 모르고 해서... BANKCODE라는 DBTEXT를 폼에 하나 올려 놓구 Visable = False로 한담에... 그 DBText에 아무 내용도 없으면, 버튼을 disable시키게 하려구 했는데... BtnDelete.Enabled := False; 까진 되는데... !_!
> >
> > Bankcode로 검색해서 데이타가 있는 경우엔... 버튼이 다시 enable루 되는건... 안되네엽... 흑~ 도와주세여...!_!
> >
> > procedure TF_Ent_Info.BtnSearchClick(Sender: TObject);
> > begin
> > if (BANKCODE = nil) then
> > begin
> > BtnEdit.Enabled := False;
> > BtnDelete.Enabled := False;
> > end
> > else
> > begin
> > BtnEdit.Enabled := True;
> > BtnDelete.Enabled := True;
> > end;
> > end;
> >
> DBText값을 확인할 필요가 없을것 같은데요...
> 음... DB에 연결된 DataSource의 이벤트에보면 OnDataChange 이벤트라는것이 있습니다.
> 이부분에다 이렇게 기입하면 될것 같습니다.
>
> OnDataChange이벤트는 DB의 내용이 입력, 수정, 삭제나 검색에 의해 변화될때 발생되는 이벤트로 알고있습니다. 즉 검색을 해서 레코드의 변화가 생긴다면 발생하게 되죠.
> 그리고 recordcount로 검색하면 값이 있는지 없는지 알수 있을것 같습니다.
> 만약 아래와 같이 했는데 에러가 발생하는 경우에는 문장앞에
> if (form1.visible=false) or (table1.active=false) then
> exit;
> 구문을 써주시면 될것 같습니다.
>
> procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
> begin
>
> if table1.recordcount=0 then begin
> btnedit.enable:=fasle;
> BtnDelete.Enabled:=false;
> end
> else begin
> btnedit.enable:=true;
> BtnDelete.Enabled.true;
> end;
>
> end;
주제넘은 답변인것 같지만 한마디 해야 겠네요 ^^;;
recordcount 를 쓰셔도 무방하지만 데이타 건수가 많을경우에는 대책이 없습니다.
recordcount는 일일이 건수를 세어서 보여주기 때문에 건수가 많으면 속도는 보장할수가 없습니다.
eof 를 이용하시면 될것 같네요....
table1.open;
table1.first;
if table1.eof then beign
btnedit.enable:=fasle;
BtnDelete.Enabled:=false;
end
else begin
btnedit.enable:=true;
BtnDelete.Enabled.true;
end;
-
김영해 wrote:
> 임형호 wrote:
> > 김매경 wrote:
> > >
> > > 안녕하세요... 매경인데요...^^
> > >
> > > 웅... 이걸 if문에 관한 질문이라고 할런지... 테이블에 관한 질문이라고 할런지...
> > > 무쟈게 고민되는 군엽=_-
> > >
> > > 다름이 아니라...^^;;;
> > >
> > > 테이블을 검색(BANKCODE로...)해서 검색 결과가 암것두 없으면... 버튼을 disalbe시키고 싶거든요... (테이블을 검색한 내용은 그리드로 뿌려진답니다...^^)
> > >
> > > 그런데 제가 그리드를 이용하는 방법두 잘 모르고 해서... BANKCODE라는 DBTEXT를 폼에 하나 올려 놓구 Visable = False로 한담에... 그 DBText에 아무 내용도 없으면, 버튼을 disable시키게 하려구 했는데... BtnDelete.Enabled := False; 까진 되는데... !_!
> > >
> > > Bankcode로 검색해서 데이타가 있는 경우엔... 버튼이 다시 enable루 되는건... 안되네엽... 흑~ 도와주세여...!_!
> > >
> > > procedure TF_Ent_Info.BtnSearchClick(Sender: TObject);
> > > begin
> > > if (BANKCODE = nil) then
> > > begin
> > > BtnEdit.Enabled := False;
> > > BtnDelete.Enabled := False;
> > > end
> > > else
> > > begin
> > > BtnEdit.Enabled := True;
> > > BtnDelete.Enabled := True;
> > > end;
> > > end;
> > >
> > DBText값을 확인할 필요가 없을것 같은데요...
> > 음... DB에 연결된 DataSource의 이벤트에보면 OnDataChange 이벤트라는것이 있습니다.
> > 이부분에다 이렇게 기입하면 될것 같습니다.
> >
> > OnDataChange이벤트는 DB의 내용이 입력, 수정, 삭제나 검색에 의해 변화될때 발생되는 이벤트로 알고있습니다. 즉 검색을 해서 레코드의 변화가 생긴다면 발생하게 되죠.
> > 그리고 recordcount로 검색하면 값이 있는지 없는지 알수 있을것 같습니다.
> > 만약 아래와 같이 했는데 에러가 발생하는 경우에는 문장앞에
> > if (form1.visible=false) or (table1.active=false) then
> > exit;
> > 구문을 써주시면 될것 같습니다.
> >
> > procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
> > begin
> >
> > if table1.recordcount=0 then begin
> > btnedit.enable:=fasle;
> > BtnDelete.Enabled:=false;
> > end
> > else begin
> > btnedit.enable:=true;
> > BtnDelete.Enabled.true;
> > end;
> >
> > end;
>
> 주제넘은 답변인것 같지만 한마디 해야 겠네요 ^^;;
>
>
> recordcount 를 쓰셔도 무방하지만 데이타 건수가 많을경우에는 대책이 없습니다.
>
> recordcount는 일일이 건수를 세어서 보여주기 때문에 건수가 많으면 속도는 보장할수가 없습니다.
>
> eof 를 이용하시면 될것 같네요....
>
>
>
> table1.open;
> table1.first;
>
> if table1.eof then beign
> btnedit.enable:=fasle;
> BtnDelete.Enabled:=false;
> end
> else begin
> btnedit.enable:=true;
> BtnDelete.Enabled.true;
> end;
>
그렇군요! 제가 생각이 짧았습니다. 샘플데이타를 돌려보고 말씀드린거라서 미처 생각을 하지 못했군요. 좋은걸 배우고 갑니다.
(NOTICE) You must be logged in to comment on this post.
-
- RyanYun
- 1999.11.30 20:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 류보희
- •
- 1999.11.30 02:30
- 1 COMMENTS
- /
- 0 LIKES
-
혀노•1999.11.30 03:03음 제 상식으로는 DBGrid 에선 MouseDown같은 이벤트 핸들러는 없는걸로 아는데요. 정 구현할려면,,,, 다...
-
- 박태식
- 1999.11.30 02:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김매경
- •
- 1999.11.30 02:01
- 3 COMMENTS
- /
- 0 LIKES
안녕하세요... 매경인데요...^^ 웅... 이걸 if문에 관한 질문이라고 할런지... 테이블에 관한 질문이라고 할런지... 무쟈게 고민되는 군엽=_- 다름이 아니라...^^;;; 테이블을 검색(BANKCODE로...)해서 검색 결과가 암것두 없으면... 버튼...-
임형호•1999.11.30 02:51김매경 wrote: > > 안녕하세요... 매경인데요...^^ > > 웅... 이걸 if문에 관한 질문이라고 할런지...
-
김영해•1999.11.30 06:16임형호 wrote: > 김매경 wrote: > > > > 안녕하세요... 매경인데요...^^ > > > > 웅... 이걸 if문...
-
임형호•1999.11.30 17:33김영해 wrote: > 임형호 wrote: > > 김매경 wrote: > > > > > > 안녕하세요... 매경인데요...^^ > >...
-
- 땡글이
- 1999.11.30 01:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수정
- 1999.11.30 00:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 김명철
- •
- 1999.11.30 00:31
- 2 COMMENTS
- /
- 0 LIKES
-
류한규•1999.11.30 00:41Label1.Caption := FormatDateTime('yyyy-MM-dd ddd', now); // 월 Label2.Caption := FormatDateTime(...
-
혀노•1999.11.30 00:36파라독스는 잘 모르겠고요 오라클경우는 To_Char함수를 사용하세요. select 필드1, To_Char(필드2, 'yyyy...
-
- 복진희
- •
- 1999.11.30 00:02
- 4 COMMENTS
- /
- 0 LIKES
-
TeamX•1999.11.30 11:31안녕하세요. 요점은 객체(클래스)를 DLL 로 빼어서 구현한다는것 같은데.... 불가능하지는 않습니다....
-
배불뚝•1999.11.30 19:39복진희 wrote: > 안녕 하세요... > 날씨가 무척이나 추워졌네요~~ > > 다름이 아니고 델파이를 사용하...
-
류한규•1999.11.30 00:45어떠한 에러인지???? 복진희 wrote: > 안녕 하세요... > 날씨가 무척이나 추워졌네요~~ > > 다름이...
-
복진희•1999.11.30 01:59에러 메세지는 ... Access Violation ... 모 이런 메세지죠~~~ 그리고 하나의 화면에서 등록, 수정 .....
-
- 고수를 꿈꾸며
- •
- 1999.11.29 23:38
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•1999.11.30 02:56고수를 꿈꾸며 wrote: > 가능한가요..? > 윈도우 타이틀 색상 바꾸는 게... > 원 색은 진한 남색인데......
-
류한규•1999.11.30 00:23왼도우 디스플레이 등록정보에서 화면배색의 활성제목표시줄, 비활성제목표시줄을 이용하시면 간단합니다....
-
- 델피언
- •
- 1999.11.29 21:41
- 3 COMMENTS
- /
- 0 LIKES
-
조영모•2000.09.23 06:03이건 path의 문제점입니다.... 저도 이런경우를 당하다가 orbpas.dll이 있는 디렉토리를 path를 뚫어주니...
-
Guest•2000.05.19 20:39델피언 wrote: > 안녕하십니까? > > CORBA Server 풀그램을 만들어서 실행했는데 'ORBPAS.DLL' 를 찾을...
-
김경수•2001.03.05 07:57Guest wrote: > 델피언 wrote: > > 안녕하십니까? > > > > CORBA Server 풀그램을 만들어서 실행했는...
-
- 땡글이
- 1999.11.29 21:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 최연식
- 1999.11.29 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 이주상
- 1999.11.29 20:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 여용구
- •
- 1999.11.29 20:03
- 1 COMMENTS
- /
- 0 LIKES
-
혀노•1999.11.29 20:14프로퍼티에서 Anchors를 사용하세요,,코딩으로구현할수도 있지만 그러면 Only노가다 작업이 되어 버리니...
-
- 문영미
- •
- 1999.11.29 19:33
- 1 COMMENTS
- /
- 0 LIKES
-
최연식•1999.11.29 21:28예전에 작성한 코드인데, 디비에서 값을 읽어와 보여 주는 거지요.. 하지만 최적화 되어있지 않은 코드이...
-
- 김재현
- 1999.11.29 19:05
- 0 COMMENTS
- /
- 0 LIKES
-
- aha
- •
- 1999.11.29 18:31
- 3 COMMENTS
- /
- 0 LIKES
-
혀노•1999.11.29 18:34round함수나 trunc 함수를 사용하세요 자세한것은 도움말을 보시면 알수 있을거고요 차이점은 round함수...
-
aha•1999.11.29 18:40혀노 wrote: > round함수나 trunc 함수를 사용하세요 > 자세한것은 도움말을 보시면 알수 있을거고요 > ...
-
혀노•1999.11.29 18:55음,,글세요,,아닌것 같은데요. 아래 델파이 원문 그대로 붙였습니다. trunc함수에 관한 설명을요,,,,,,,, ...
-
- 나원용
- •
- 1999.11.29 17:16
- 1 COMMENTS
- /
- 0 LIKES
-
배불뚝•1999.11.30 19:41나원용 wrote: > 안녕하세요? > > dbgrid에 관하여 모르는게 있어 이렇게 질문을 올립니다. > > dbg...
-
- djha
- •
- 1999.11.29 09:29
- 1 COMMENTS
- /
- 0 LIKES
-
김봉학•1999.11.29 20:17djha wrote: > > 저는 Window Media player를 이용하여 화면을 > 재생시킬려고 하고있습니다만, > >...
-
- sam10
- 1999.11.29 08:35
- 0 COMMENTS
- /
- 0 LIKES
>
> 안녕하세요... 매경인데요...^^
>
> 웅... 이걸 if문에 관한 질문이라고 할런지... 테이블에 관한 질문이라고 할런지...
> 무쟈게 고민되는 군엽=_-
>
> 다름이 아니라...^^;;;
>
> 테이블을 검색(BANKCODE로...)해서 검색 결과가 암것두 없으면... 버튼을 disalbe시키고 싶거든요... (테이블을 검색한 내용은 그리드로 뿌려진답니다...^^)
>
> 그런데 제가 그리드를 이용하는 방법두 잘 모르고 해서... BANKCODE라는 DBTEXT를 폼에 하나 올려 놓구 Visable = False로 한담에... 그 DBText에 아무 내용도 없으면, 버튼을 disable시키게 하려구 했는데... BtnDelete.Enabled := False; 까진 되는데... !_!
>
> Bankcode로 검색해서 데이타가 있는 경우엔... 버튼이 다시 enable루 되는건... 안되네엽... 흑~ 도와주세여...!_!
>
> procedure TF_Ent_Info.BtnSearchClick(Sender: TObject);
> begin
> if (BANKCODE = nil) then
> begin
> BtnEdit.Enabled := False;
> BtnDelete.Enabled := False;
> end
> else
> begin
> BtnEdit.Enabled := True;
> BtnDelete.Enabled := True;
> end;
> end;
>
DBText값을 확인할 필요가 없을것 같은데요...
음... DB에 연결된 DataSource의 이벤트에보면 OnDataChange 이벤트라는것이 있습니다.
이부분에다 이렇게 기입하면 될것 같습니다.
OnDataChange이벤트는 DB의 내용이 입력, 수정, 삭제나 검색에 의해 변화될때 발생되는 이벤트로 알고있습니다. 즉 검색을 해서 레코드의 변화가 생긴다면 발생하게 되죠.
그리고 recordcount로 검색하면 값이 있는지 없는지 알수 있을것 같습니다.
만약 아래와 같이 했는데 에러가 발생하는 경우에는 문장앞에
if (form1.visible=false) or (table1.active=false) then
exit;
구문을 써주시면 될것 같습니다.
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if table1.recordcount=0 then begin
btnedit.enable:=fasle;
BtnDelete.Enabled:=false;
end
else begin
btnedit.enable:=true;
BtnDelete.Enabled.true;
end;
end;