한국 델파이 개발자 모임 - 페이지컨트롤에 관하여

페이지컨트롤에 관하여

안냐세요~~~

메리 설날!!!

새해 복은 많이들 받으셨나요?? 안 받으신 분은

새해에도 복 많이 받으시고, 좋은 일들만 가득하시길... 꾸벅~~~

다름이 아니라 Form27의 페이지컨트롤 3개를 이용하여 Combobox 3,4,6에 아래와 같이

코딩하여 실행 했습니다. 그 결과가 나왔는데, 이 코딩을 복사하여 Form28에 붙여넣기하여 실행했습니다. 그런데 안 되던데, 앞의 Form과 뒤의 Form의 내용은 같음...

(기타 부수적인 내용은 수정 후 실행...)

뭔가 다른 것이 필요한지???

2000년 새해를 맞이한 이 시점에서 불쌍한 지현이에게 한표를.... 구벅~~~

procedure TForm27.ComboBox3Change(Sender: TObject);

var

i,t:integer;

begin

Table1.Filtered :=false;

t:=table1.RecordCount ;

edit4.text:= IntTostr(Table1.RecordCount);

if t>0then begin

case combobox3.ItemIndex of

0 : begin

table1.Filtered := false;

edit4.text:= IntTostr(Table1.RecordCount);

edit5.text:='';

end;

1 : begin

table1.Filtered := false;

table1.Filter := '세대주 = ''세''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit4.text:=IntTostr(Table1.RecordCount);

edit5.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

end;

end;

end;

procedure TForm27.Table1AfterOpen(DataSet: TDataSet);

begin

Edit4.text:=IntTostr(Table1.RecordCount);

end;

procedure TForm27.ComboBox4Change(Sender: TObject);

var

i,t:integer;

begin

Table1.Filtered :=false;

t:=table1.RecordCount ;

edit6.text:= IntTostr(Table1.RecordCount);

if t>0then begin

case combobox4.ItemIndex of

0 : begin

table1.Filtered := false;

edit6.text:= IntTostr(Table1.RecordCount);

edit7.text:='';

end;

1 : begin

table1.Filtered := false;

table1.Filter := '직업 = ''상업''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

edit6.text:= IntTostr(Table1.RecordCount);

end;

2 : begin

table1.Filtered := false;

table1.Filter := '직업 = ''수산업''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit6.text:= IntTostr(Table1.RecordCount);

edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

3 : begin

table1.Filtered := false;

table1.Filter := '직업 = ''서비스업''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit6.text:= IntTostr(Table1.RecordCount);

edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

4 : begin

table1.Filtered := false;

table1.Filter := '직업 = ''공무원''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit6.text:= IntTostr(Table1.RecordCount);

edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

5 : begin

table1.Filtered := false;

table1.Filter := '직업 = ''회사원''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit6.text:= IntTostr(Table1.RecordCount);

edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

6 : begin

table1.Filtered := false;

table1.Filter := '직업 = ''학생''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit6.text:= IntTostr(Table1.RecordCount);

edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

7 : begin

table1.Filtered := false;

table1.Filter := '직업 = ''기타''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit6.text:= IntTostr(Table1.RecordCount);

edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

end;

end;

end;

procedure TForm27.ComboBox6Change(Sender: TObject);

var

i,t:integer;

begin

Table1.Filtered :=false;

t:=table1.RecordCount ;

edit10.text:= IntTostr(Table1.RecordCount);

if t>0then begin

case combobox6.ItemIndex of

0 : begin

table1.Filtered := false;

edit10.text:= IntTostr(Table1.RecordCount);

edit11.text:='';

end;

1 : begin

table1.Filtered := false;

table1.Filter := '분석 = ''A''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit10.text:= IntTostr(Table1.RecordCount);

edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

2 : begin

table1.Filtered := false;

table1.Filter := '분석 = ''B''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit10.text:= IntTostr(Table1.RecordCount);

edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%'; end;

3 : begin

table1.Filtered := false;

table1.Filter := '분석 = ''C''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit10.text:= IntTostr(Table1.RecordCount);

edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

4 : begin

table1.Filtered := false;

table1.Filter := '분석 = ''D''';

table1.Filtered := true;

i:=Table1.RecordCount;

edit10.text:= IntTostr(Table1.RecordCount);

edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

5 : begin

table1.Filtered := false;

table1.Filter := '분석 = ''E''';

table1.Filtered := true;

edit10.text:= IntTostr(Table1.RecordCount);

i:=Table1.RecordCount;

edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

6 : begin

table1.Filtered := false;

table1.Filter := '분석 = ''F''';

table1.Filtered := true;

edit10.text:= IntTostr(Table1.RecordCount);

i:=Table1.RecordCount;

edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

end;

end;

end;

end;

이 게시물을

1 COMMENTS

nilriri • 2000.02.07 08:39

설날인데 작업을...

고생이 많군요... 문제 잘 해결되길 바라며 아는 범위에서 좀...

저는 폼의 내용과 작업이 같은 부분을 똑같이 사용할때 이런방법을 씁니다.

우선 폼위에서 마우스 우측버튼을 클릭하여 폼 모양을 텍스트로 변환하여

나타냅니다.

그리고 붙여넣기할 폼도 역시 텍스트로 변환하여 나타낸후 복사하여 붙여넣기합니다.

그리고 소스코드로 똑같이 붙여넣기 합니다.

이때 ctrl + r(바꾸기) 을 이용하여

procedure TForm27.ComboBox3Change이런부분을

procedure TForm28.ComboBox3Change이렇게 바꾸고 사용하면 될듯...

그리고 폼과 코드를 복사하여 넣었다면 이벤트를 복사하여 넣었다고

하더라도 오브젝트 인스펙터에 보변 이벤트가 제대로 나타나지 않는것을

볼 수 있을겁니다. 이때는 붙여넣기한 컨트롤에서 붙여넣기한 이벤트를

오브젝트인스팩터에서 드롭다운 콤보박스에서 선택하여 주어야 합니다.

그래야 복사한 이벤트가 제대로 작동됩니다.

저도 다른 폼또는 다른 프로제트에서 잘 오려다 붙이기를 하는 관계로

이상한 버그에 시달려 오기도 해서 .....

근데 코딩하는 습관을 갖어야 하겠더라구요.....-nilriri 생각-

서지현 wrote:

> 안냐세요~~~

> 메리 설날!!!

>

> 새해 복은 많이들 받으셨나요?? 안 받으신 분은

> 새해에도 복 많이 받으시고, 좋은 일들만 가득하시길... 꾸벅~~~

>

> 다름이 아니라 Form27의 페이지컨트롤 3개를 이용하여 Combobox 3,4,6에 아래와 같이

> 코딩하여 실행 했습니다. 그 결과가 나왔는데, 이 코딩을 복사하여 Form28에 붙여넣기하여 실행했습니다. 그런데 안 되던데, 앞의 Form과 뒤의 Form의 내용은 같음...

> (기타 부수적인 내용은 수정 후 실행...)

> 뭔가 다른 것이 필요한지???

>

> 2000년 새해를 맞이한 이 시점에서 불쌍한 지현이에게 한표를.... 구벅~~~

> procedure TForm27.ComboBox3Change(Sender: TObject);

> var

> i,t:integer;

> begin

> Table1.Filtered :=false;

> t:=table1.RecordCount ;

> edit4.text:= IntTostr(Table1.RecordCount);

> if t>0then begin

> case combobox3.ItemIndex of

> 0 : begin

> table1.Filtered := false;

> edit4.text:= IntTostr(Table1.RecordCount);

> edit5.text:='';

> end;

>

> 1 : begin

> table1.Filtered := false;

> table1.Filter := '세대주 = ''세''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit4.text:=IntTostr(Table1.RecordCount);

> edit5.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> end;

> end;

> end;

>

>

>

> procedure TForm27.Table1AfterOpen(DataSet: TDataSet);

> begin

> Edit4.text:=IntTostr(Table1.RecordCount);

> end;

>

> procedure TForm27.ComboBox4Change(Sender: TObject);

> var

> i,t:integer;

> begin

> Table1.Filtered :=false;

> t:=table1.RecordCount ;

> edit6.text:= IntTostr(Table1.RecordCount);

> if t>0then begin

> case combobox4.ItemIndex of

> 0 : begin

> table1.Filtered := false;

> edit6.text:= IntTostr(Table1.RecordCount);

> edit7.text:='';

> end;

>

> 1 : begin

> table1.Filtered := false;

> table1.Filter := '직업 = ''상업''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> edit6.text:= IntTostr(Table1.RecordCount);

> end;

> 2 : begin

> table1.Filtered := false;

> table1.Filter := '직업 = ''수산업''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit6.text:= IntTostr(Table1.RecordCount);

> edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 3 : begin

> table1.Filtered := false;

> table1.Filter := '직업 = ''서비스업''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit6.text:= IntTostr(Table1.RecordCount);

> edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 4 : begin

> table1.Filtered := false;

> table1.Filter := '직업 = ''공무원''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit6.text:= IntTostr(Table1.RecordCount);

> edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 5 : begin

> table1.Filtered := false;

> table1.Filter := '직업 = ''회사원''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit6.text:= IntTostr(Table1.RecordCount);

> edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 6 : begin

> table1.Filtered := false;

> table1.Filter := '직업 = ''학생''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit6.text:= IntTostr(Table1.RecordCount);

> edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 7 : begin

> table1.Filtered := false;

> table1.Filter := '직업 = ''기타''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit6.text:= IntTostr(Table1.RecordCount);

> edit7.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> end;

> end;

> end;

>

>

> procedure TForm27.ComboBox6Change(Sender: TObject);

> var

> i,t:integer;

> begin

> Table1.Filtered :=false;

> t:=table1.RecordCount ;

> edit10.text:= IntTostr(Table1.RecordCount);

> if t>0then begin

> case combobox6.ItemIndex of

> 0 : begin

> table1.Filtered := false;

> edit10.text:= IntTostr(Table1.RecordCount);

> edit11.text:='';

> end;

> 1 : begin

> table1.Filtered := false;

> table1.Filter := '분석 = ''A''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit10.text:= IntTostr(Table1.RecordCount);

> edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 2 : begin

> table1.Filtered := false;

> table1.Filter := '분석 = ''B''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit10.text:= IntTostr(Table1.RecordCount);

> edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%'; end;

> 3 : begin

> table1.Filtered := false;

> table1.Filter := '분석 = ''C''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit10.text:= IntTostr(Table1.RecordCount);

> edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 4 : begin

> table1.Filtered := false;

> table1.Filter := '분석 = ''D''';

> table1.Filtered := true;

> i:=Table1.RecordCount;

> edit10.text:= IntTostr(Table1.RecordCount);

> edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 5 : begin

> table1.Filtered := false;

> table1.Filter := '분석 = ''E''';

> table1.Filtered := true;

> edit10.text:= IntTostr(Table1.RecordCount);

> i:=Table1.RecordCount;

> edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> 6 : begin

> table1.Filtered := false;

> table1.Filter := '분석 = ''F''';

> table1.Filtered := true;

> edit10.text:= IntTostr(Table1.RecordCount);

> i:=Table1.RecordCount;

> edit11.text:=FloatTostr(trunc((i/t*100)*100+0.5)/100)+'%';

> end;

> end;

> end;

> end;

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

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

- 이영일
- •
- 2000.02.07 20:42
- 1 COMMENTS
- /
- 0 LIKES
Quick report에서 세로 출력 할려구하는데...
- 이재식
  
  •
  
  2000.02.08 05:17
  
  이영일 wrote: > 출력할때 형식을 주려합니다. > 즉, > > 1 4 7 -> 디테일 벤드 > 2 5 8...
- hyuna
- 2000.02.07 20:33
- 0 COMMENTS
- /
- 0 LIKES
image를 db로! 알려주세요
- 지연
- 2000.02.07 20:05
- 0 COMMENTS
- /
- 0 LIKES
[급질문]파라독스의 post문제
- 홍희
- •
- 2000.02.07 19:01
- 1 COMMENTS
- /
- 0 LIKES
DeleteFile()삭제가 되지 않아요....
- 이현신
  
  •
  
  2000.02.07 20:02
  
  홍희 wrote: > 안녕하세요... > 여러분 모두 설을 재미 있게 보내셨는지요~~~ > > if FileExists(Extr...
- sonjin
- •
- 2000.02.07 18:52
- 1 COMMENTS
- /
- 0 LIKES
mdi 에 대해서
- 최원실
  
  •
  
  2000.02.07 19:12
  
  sonjin wrote: > mdi 프로그램을 작성 하려는데 > 새폼을 오푼 할때 마다 새로운 폼이 아니라 기존에 있...
- 유민
- 2000.02.07 18:49
- 0 COMMENTS
- /
- 0 LIKES
NT 인지 98 or 95 인지 구분할 수 있나요??
- 한웅
- •
- 2000.02.07 17:28
- 2 COMMENTS
- /
- 0 LIKES
쿼리를 오라클에서 실행 시키는 방법
- 이재식
  
  •
  
  2000.02.08 05:08
  
  한웅 wrote: > 예를 들어 > select * from 테이블명 > where code = 변수 > 로 지정을 하고 싶거든요. ...
- 최원실
  
  •
  
  2000.02.07 18:02
  
  한웅 wrote: > 예를 들어 > select * from 테이블명 > where code = 변수 > 로 지정을 하고 싶거든요. ...
- 김경준
- •
- 2000.02.07 14:29
- 1 COMMENTS
- /
- 0 LIKES
수없이 책을 뒤적이다 못찾고 흑흑흑...
- 박권섭
  
  •
  
  2000.05.17 06:21
  
  김경준 wrote: > 델파이 초보자가 고수님들의 구원의 손길을 기다리고 있습니다. > > 프로그램 구성 :...
- 서지현
- •
- 2000.02.07 07:02
- 1 COMMENTS
- /
- 0 LIKES
페이지컨트롤에 관하여

안냐세요~~~ 메리 설날!!! 새해 복은 많이들 받으셨나요?? 안 받으신 분은 새해에도 복 많이 받으시고, 좋은 일들만 가득하시길... 꾸벅~~~ 다름이 아니라 Form27의 페이지컨트롤 3개를 이용하여 Combobox 3,4,6에 아래와 같이 코딩하여 ...
- nilriri
  
  •
  
  2000.02.07 08:39
  
  설날인데 작업을... 고생이 많군요... 문제 잘 해결되길 바라며 아는 범위에서 좀... 저는 폼의 내...
- 김징욱
- 2000.02.07 05:29
- 0 COMMENTS
- /
- 0 LIKES
데이타 공유시 변경된 DATA를 자동으로 나타내려면?
- 지승용
- •
- 2000.02.07 01:59
- 2 COMMENTS
- /
- 0 LIKES
인터넷프로그램중 주소의 내용을 훅킹할 수 없을까요?
- 민성기
  
  •
  
  2000.02.07 12:51
  
  음... 그림을 준비했는데... 바이너리 입력이 안되네요~ ^^ http://www.tcomponent.com/images/Exam.gif...
- 민성기
  
  •
  
  2000.02.07 12:45
  
  안녕하세요~ 민성기 입니다. 얼마전에 감동적으로 구경한 어플리케이션 중에... 복잡한 URL대신 한글을 ...
- 초보
- •
- 2000.02.06 21:07
- 1 COMMENTS
- /
- 0 LIKES
레지스트리 값 순번을 알아내려면?
- 최용일
  
  •
  
  2000.02.21 11:40
  
  초보 wrote: > 레지스트리키아래 이름과 데이타의 순번을 알아오는 방법은 없을까요? > > 예를들면 좌...
- 조성윤
- •
- 2000.02.06 11:45
- 1 COMMENTS
- /
- 0 LIKES
에러에 관련된건데요.....
- nilriri
  
  •
  
  2000.02.07 08:51
  
  TStringField 이걸로 봐서는 db가 변경되거나 아님 폼에 놓인 테이블이나 쿼리 컴포넌트의 필드에 이상이 ...
- 초보
- 2000.02.05 05:31
- 0 COMMENTS
- /
- 0 LIKES
[재질문]어플리케이션 상에서 웹 사이트로 이동
- 하얀까마귀
- •
- 2000.02.05 02:24
- 1 COMMENTS
- /
- 0 LIKES
Ani Gif Display할려면 어떻게 해요??
- 이주흥
  
  •
  
  2000.02.06 07:02
  
  Rx컴포를 깔면 Gif Animation이라는 콤포가 있습니다. 그걸 사용하시면 딱 맞겠네요.. 하얀까마귀 wr...
- 하얀까마귀
- •
- 2000.02.05 02:21
- 1 COMMENTS
- /
- 0 LIKES
통신프로그램 어떻게 만들어요?
- 이현신
  
  •
  
  2000.02.07 19:47
  
  하얀까마귀 wrote: > 안녕하세요 하얀까마귀입니다. > 어제 올렸는데 아무도 말씀해주시는 분이 안계시...
- 송수현
- •
- 2000.02.05 01:00
- 2 COMMENTS
- /
- 0 LIKES
텍스트파일생성저장에서 에러가 생기네요
- 배불뚝
  
  •
  
  2000.02.08 01:29
  
  송수현 wrote: > 안녕하세요 꾸벅~! > function TForm1.FileExists(FileName: string): Boolean; > var ...
- 양병규
  
  •
  
  2000.02.05 23:15
  
  TStringList라는 놈이 있슴다. 이놈을 이용하면 비교적 간편하게 텍스트파일을 다룰 수 있습니다. //텍...
- 유재우
- 2000.02.05 00:57
- 0 COMMENTS
- /
- 0 LIKES
?? 잘못된 형식이거나 올바른 범위 밖에 있거나 서로 충돌하는 인수입니다.
- budgie
- 2000.02.04 23:45
- 0 COMMENTS
- /
- 0 LIKES
이런 것 본적있는 분....
- 이동기
- •
- 2000.02.04 22:37
- 3 COMMENTS
- /
- 0 LIKES
프린터로 글자를 출력할때 굵은 글자로 하려면 어떻게 하죠?
- 이재식
  
  •
  
  2000.02.05 04:44
  
  이동기 wrote: > 이곳에 델파이 고수님들이 많다고 들었습니다. > 제가 프린터로 라벨을 출력하려고 하는...
- 양병규
  
  •
  
  2000.02.05 23:23
  
  약간 착각하신것 같군요.. Printer.Canvas.Font.Style := [] + [fsBold] ; 이렇게 하면 무조건 굵은...
- 이동기
  
  •
  
  2000.02.05 20:06
  
  정말로 감사합니다. 이것 때문에 회사에서 골치를 앓았었는데, 이제야 속이 후련해지는군요. 정말정말 감...

서지현
2000/02/07 07:02
Views221

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

2649 2650 2651 2652 2653 2654 2655 2656 2657 2658

Last Page→