Q&A
- Table의 DisplayFormat이 무시되는 현상의 해결책은?
table을 Field Editer에 필드를 등록해서 Display Format을 ##0.00으로 줬습니다.
여기까지는 괜찮았는데 필트의 특정값에대해 강조하려구 dbgrid의 OnDrawColumnCell에
아래와 같이 코딩하였습니다.
var
LeftPos: Integer;
begin
with TDBGrid(Sender).Canvas do begin
if Column.FieldName = 'GGjun' then begin
if MainTGGjun.Value < 0 then
Font.Color := clred;
end
else if Column.FieldName = 'GGto' then begin
if MainTGGto.Value < 0 then
Font.Color := clred;
end
else begin
Brush.Color := clWindow;
Font.Color := clWindowText;
end;
if (gdFocused in State) or (gdSelected in State) then begin
Brush.Color := clHighlight;
Font.Color := clHighlightText;
end;
FillRect(Rect);
LeftPos := Rect.Right - TDBGrid(Sender).Canvas.TextWidth(Column.Field.AsString);
TextOut(LeftPos-2, Rect.Top+2, Column.Field.AsString);
Brush.Style := bsSolid;
Brush.Color := clWindow;
end;
그랬더니 원래 디비가 가지고 있는 값 그대로를 출력하는군요.
뭔가 방법이 없을까요? 자릿수가 안맞아서 보기가 어렵다는군요.
그리구 데이터를 엑셀로 넘길때두 그냥 넘어가서 보기가 않좋습니다.
디비에 원래부터 원하는 형식으루 저장되면 좋을거 같은데요. 고수님들의 고견 기다리겠습니다. ^-^
여기까지는 괜찮았는데 필트의 특정값에대해 강조하려구 dbgrid의 OnDrawColumnCell에
아래와 같이 코딩하였습니다.
var
LeftPos: Integer;
begin
with TDBGrid(Sender).Canvas do begin
if Column.FieldName = 'GGjun' then begin
if MainTGGjun.Value < 0 then
Font.Color := clred;
end
else if Column.FieldName = 'GGto' then begin
if MainTGGto.Value < 0 then
Font.Color := clred;
end
else begin
Brush.Color := clWindow;
Font.Color := clWindowText;
end;
if (gdFocused in State) or (gdSelected in State) then begin
Brush.Color := clHighlight;
Font.Color := clHighlightText;
end;
FillRect(Rect);
LeftPos := Rect.Right - TDBGrid(Sender).Canvas.TextWidth(Column.Field.AsString);
TextOut(LeftPos-2, Rect.Top+2, Column.Field.AsString);
Brush.Style := bsSolid;
Brush.Color := clWindow;
end;
그랬더니 원래 디비가 가지고 있는 값 그대로를 출력하는군요.
뭔가 방법이 없을까요? 자릿수가 안맞아서 보기가 어렵다는군요.
그리구 데이터를 엑셀로 넘길때두 그냥 넘어가서 보기가 않좋습니다.
디비에 원래부터 원하는 형식으루 저장되면 좋을거 같은데요. 고수님들의 고견 기다리겠습니다. ^-^
2
COMMENTS
-
-
답변 감사합니다. ^-^
그런데 디비자체에서 디스플레이 포맷처럼 저장되는 형식을 지정할순 없는건가요?
혹시 아시면 답변 부탁드립니다.
최석기 wrote:
> 안녕하세요..
> 델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.
>
> 님 소스 부분에서 값 디스플레이 하는 부분만 수정하면 원하는 식으로 얻을 수 잇을꺼 같네요..
>
> TextOut(LeftPos-2, Rect.Top+2, Column.Field.DisplayText);
>
> 이런 식으로 수정하시면 DisplayFormat에서 준 형식으로 보여줄수 있어요..
>
> 엑셀로 넘기실때도 마찬가지이구요.
>
>
> 강인규 wrote:
> > table을 Field Editer에 필드를 등록해서 Display Format을 ##0.00으로 줬습니다.
> > 여기까지는 괜찮았는데 필트의 특정값에대해 강조하려구 dbgrid의 OnDrawColumnCell에
> > 아래와 같이 코딩하였습니다.
> > var
> > LeftPos: Integer;
> > begin
> > with TDBGrid(Sender).Canvas do begin
> > if Column.FieldName = 'GGjun' then begin
> > if MainTGGjun.Value < 0 then
> > Font.Color := clred;
> > end
> > else if Column.FieldName = 'GGto' then begin
> > if MainTGGto.Value < 0 then
> > Font.Color := clred;
> > end
> > else begin
> > Brush.Color := clWindow;
> > Font.Color := clWindowText;
> > end;
> >
> > if (gdFocused in State) or (gdSelected in State) then begin
> > Brush.Color := clHighlight;
> > Font.Color := clHighlightText;
> > end;
> > FillRect(Rect);
> > LeftPos := Rect.Right - TDBGrid(Sender).Canvas.TextWidth(Column.Field.AsString);
> > TextOut(LeftPos-2, Rect.Top+2, Column.Field.AsString);
> > Brush.Style := bsSolid;
> > Brush.Color := clWindow;
> > end;
> >
> > 그랬더니 원래 디비가 가지고 있는 값 그대로를 출력하는군요.
> > 뭔가 방법이 없을까요? 자릿수가 안맞아서 보기가 어렵다는군요.
> > 그리구 데이터를 엑셀로 넘길때두 그냥 넘어가서 보기가 않좋습니다.
> > 디비에 원래부터 원하는 형식으루 저장되면 좋을거 같은데요. 고수님들의 고견 기다리겠습니다. ^-^
> >
> >
> >
(NOTICE) You must be logged in to comment on this post.
-
- 파이공주
- •
- 2000.09.01 01:02
- 2 COMMENTS
- /
- 0 LIKES
-
박용철•2000.09.01 01:21프레임은 만드신 것 같고, 폼안에는 여러 프레임을 넣을 수 있습니다. 폼상태에서 Component Pallete의 St...
-
woosj•2000.10.07 12:49아래 답변에서 한가지가 빠졌군요. 제일 먼저 해야할 일은 frame을 만드는 것입니다. 그래야지 frame menu...
-
- 꼴통
- •
- 2000.09.02 11:23
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.02 11:23안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 사실 이런류의 질문은 ...
-
- 정진우
- •
- 2000.09.02 11:25
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2000.09.02 11:25WinExec / CreateProcess / ShellExecute에 대해 검색해 보시면 많은 도움이 될 것 같습니다. 수고하세요...
-
악마•2000.09.02 11:26C로 짠 프로그램을 DLL로 작성한 후 델파이 프로그램에서 호출하면 됨
-
- 강인규
- •
- •
- 2000.09.02 07:58
- 2 COMMENTS
- /
- 1 LIKES
table을 Field Editer에 필드를 등록해서 Display Format을 ##0.00으로 줬습니다. 여기까지는 괜찮았는데 필트의 특정값에대해 강조하려구 dbgrid의 OnDrawColumnCell에 아래와 같이 코딩하였습니다. var LeftPos: Integer; begin with TD...-
최석기•2000.09.02 07:58안녕하세요.. 델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다. 님 소스 부분에서 값...
-
강인규•2000.09.02 07:59답변 감사합니다. ^-^ 그런데 디비자체에서 디스플레이 포맷처럼 저장되는 형식을 지정할순 없는건가요? ...
-
- 심은진
- •
- 2000.09.02 07:44
- 3 COMMENTS
- /
- 0 LIKES
-
김일영•2000.09.02 07:49아래 링크를 보시면 예전에 구창민님께서 이와 똑같은 질문에 대해 올리신 답을 보실 수 있습니다. http:/...
-
공성환•2000.09.02 07:45답변이 될지... 외부프로그램도 본인이 짜신 프로그램일경우라면... 외부프로그램을 실행시킬때 파...
-
구창민•2000.09.02 07:45심은진 wrote: > ShellExecute 나 Winexec 함수를 이용해 외부 프로그램을 > 불러낸후 > 외부프로그램...
-
- 파이파이
- •
- 2000.09.01 00:39
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.09.01 01:19파이파이 wrote: > Edit에 날짜를 입력하여 그 날짜가 > 정확한 날짜인지를 알려는데 그 방법을 모르겠...
-
- 영규
- 2000.09.02 07:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 이동훈
- •
- 2000.09.01 00:06
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.09.01 01:30이동훈 wrote: > > 메인 메뉴의 구성을 팝업메뉴로 구성하여 제작하는데... > > 팝업메뉴의 글자가 ...
-
- coolling
- •
- 2000.08.31 23:30
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.08.31 23:45Query는 기본적으로 수정되지 않습니다. 만일 속성중에 RequestLive 란 속성을 True로 하시면 수정은 가능...
-
- 박영길
- •
- 2000.08.31 23:27
- 1 COMMENTS
- /
- 0 LIKES
-
Gromit•2000.09.01 00:10박영길 wrote: > > 여러 장의 스틸 사진 화일(*.jpg)을 가지고 AVI 화일을 만드는 방법이 있다는데요......
-
- 파이파이(초보)
- •
- 2000.08.31 22:15
- 1 COMMENTS
- /
- 0 LIKES
-
Fife•2000.08.31 22:19파이파이(초보) wrote: > Table에서 특정필드의 값이 같은 레코드들만 지우려고 하는데 > 좋은 방법좀 ...
-
- dasam4
- 2000.09.02 04:21
- 0 COMMENTS
- /
- 0 LIKES
-
- Nuppy
- •
- 2000.09.02 04:17
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.09.02 04:17안녕하세요.. 델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다. 일단 님이 질문하신...
-
- 성더기
- 2000.08.31 20:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 임형호
- •
- 2000.09.02 04:14
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.02 04:14안녕하세요. 최용일입니다. Variant는 말 그대로 입니다. 형에 따라 바뀝니다. TMemo.Lines.Add에 들어...
-
- 김민정
- •
- 2000.08.31 20:25
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.08.31 22:01안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. GetEnvironmentVariabl...
-
- 최혜정
- •
- 2000.09.02 04:10
- 2 COMMENTS
- /
- 0 LIKES
-
plan0611•2000.09.02 04:11최혜정 wrote: > 안녕하세요. > 전 언제쯤 사람들에게 답을 할수 있을지. > > IBTTable에 IBQuery를 ...
-
공성환•2000.09.02 04:11count,max,min,sum...등은 그룹합수입니다... group by 필드명1, 필드명2를 추가 시켜서 해보세요... ...
-
- 이문환
- •
- 2000.09.02 04:07
- 2 COMMENTS
- /
- 0 LIKES
-
허준•2000.09.02 04:08안녕하시오. 어이! 허준이오. 폼만 프린트 하는 방법은 Form.Print(); 하면 됩니다. 그럼. 어허 탕약 쫄...
-
이문환•2000.08.31 22:04허준 wrote: > 안녕하시오. 어이! 허준이오. > 폼만 프린트 하는 방법은 Form.Print(); 하면 됩니다. > ...
-
- 파이파이(초보)
- •
- 2000.08.31 20:07
- 1 COMMENTS
- /
- 0 LIKES
-
이선경•2000.08.31 20:13파이파이(초보) wrote: > 테이블에서 필터링하여 특정필드의 합을 구하려고 합니다. > 어떻게 해야 할지....
-
- won
- •
- 2000.08.31 20:03
- 1 COMMENTS
- /
- 0 LIKES
-
박용철•2000.08.31 20:38QuickRep Component의 Page.Columns 를 2 로하세요. 수고하세요. won wrote: > * 사용환경 : 델파이...
델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.
님 소스 부분에서 값 디스플레이 하는 부분만 수정하면 원하는 식으로 얻을 수 잇을꺼 같네요..
TextOut(LeftPos-2, Rect.Top+2, Column.Field.DisplayText);
이런 식으로 수정하시면 DisplayFormat에서 준 형식으로 보여줄수 있어요..
엑셀로 넘기실때도 마찬가지이구요.
강인규 wrote:
> table을 Field Editer에 필드를 등록해서 Display Format을 ##0.00으로 줬습니다.
> 여기까지는 괜찮았는데 필트의 특정값에대해 강조하려구 dbgrid의 OnDrawColumnCell에
> 아래와 같이 코딩하였습니다.
> var
> LeftPos: Integer;
> begin
> with TDBGrid(Sender).Canvas do begin
> if Column.FieldName = 'GGjun' then begin
> if MainTGGjun.Value < 0 then
> Font.Color := clred;
> end
> else if Column.FieldName = 'GGto' then begin
> if MainTGGto.Value < 0 then
> Font.Color := clred;
> end
> else begin
> Brush.Color := clWindow;
> Font.Color := clWindowText;
> end;
>
> if (gdFocused in State) or (gdSelected in State) then begin
> Brush.Color := clHighlight;
> Font.Color := clHighlightText;
> end;
> FillRect(Rect);
> LeftPos := Rect.Right - TDBGrid(Sender).Canvas.TextWidth(Column.Field.AsString);
> TextOut(LeftPos-2, Rect.Top+2, Column.Field.AsString);
> Brush.Style := bsSolid;
> Brush.Color := clWindow;
> end;
>
> 그랬더니 원래 디비가 가지고 있는 값 그대로를 출력하는군요.
> 뭔가 방법이 없을까요? 자릿수가 안맞아서 보기가 어렵다는군요.
> 그리구 데이터를 엑셀로 넘길때두 그냥 넘어가서 보기가 않좋습니다.
> 디비에 원래부터 원하는 형식으루 저장되면 좋을거 같은데요. 고수님들의 고견 기다리겠습니다. ^-^
>
>
>