1. ParamByName과 FieldByName의 차이점이 무엇인지요?



2. 폼에 성별(남,여:radiobutton) 체크가 있는데, DB는 Alpha로 2자리 만들었습니다.

근데, DBGrid에는 "남자", "여자"로 나타났으면 좋겠는데, 어떻게 하면 되는지요? 여러가지 방법이 있을텐데, 가장 좋은 방법 좀 알려주세요.

이슬 wrote:

> 1. ParamByName과 FieldByName의 차이점이 무엇인지요?

>

> 2. 폼에 성별(남,여:radiobutton) 체크가 있는데, DB는 Alpha로 2자리 만들었습니다.

> 근데, DBGrid에는 "남자", "여자"로 나타났으면 좋겠는데, 어떻게 하면 되는지요? 여러가지 방법이 있을텐데, 가장 좋은 방법 좀 알려주세요.

>



이런 방법도 있어요.

Table 콤포넌트를 더블 클릭하여 필드 에디트를 열고

원하는 필드의 이벤트 핸들러중에 GetText 라는게 있습니다.

여기는 필드의 내용은 바꾸지 않고 디스플레이만 바꾸어 줍니다.



procedure TForm1.Table1AGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

IF SENDER.AsString = '1' THEN

TEXT := '1이다'

ELSE

TEXT := '1아님';

end;

위와 같이 작성후 실행시켜보면 그리드에는 '1이다'라고 표시됩니다..

> 2. 폼에 성별(남,여:radiobutton) 체크가 있는데, DB는 Alpha로 2자리 만들었습니다.

> 근데, DBGrid에는 "남자", "여자"로 나타났으면 좋겠는데, 어떻게 하면 되는지요? 여러가지 방법이 있을텐데, 가장 좋은 방법 좀 알려주세요.

>



2번 질문에 대하여 ...

Table에 Alpha2자리로 잡았다면 '남','여'로 기록했을테고

이를 Select하여 Dbgrid로 보여줄때 '남자','여자'로 보고싶다는 질문이지요?



해당Field(Column)를 'sex'라 가정하고



방법1.

Table을 Alpha 2자리로 하셨는데 가장좋은 방법은 Logical(Boolean형)으로

잡는것 입니다.

Table에 기록할때 True 또는 False로 기록하고 이경우 FieldsEditor에서

Sex Field의 DisplayValues 프로퍼티에서 '남자;여자'(여;남)라고

설정하면 True인경우 '남자'로 false인경우 '여자'로 표시됩니다.





방법2.(Alpha 2자리로 유지할경우)

Query1(Table도 같은방법) 컴포넌트를 사용한다고 가정하면



먼저 FieldsEditor에서 New FIeld메뉴를 선택하여 새로운 Calculated Field를

생성합니다.(Calculated Field명 :'c_sex', Type: String Size: 4)



다음 Query1의 OnCalcFields 이벤트에서 다음과 같이 코딩합니다.



procedure TForm1.Query1CalcFields(DataSet:TDataSet);

begin

with DataSet do

begin

if FieldByName('sex').AsString = '남' then

FieldByName('c_sex').AsString := '남자'

else

FieldByName('c_sex').AsString := '여자';

end;

end;

이슬 wrote:

> 1. ParamByName과 FieldByName의 차이점이 무엇인지요?

>

> 2. 폼에 성별(남,여:radiobutton) 체크가 있는데, DB는 Alpha로 2자리 만들었습니다.

> 근데, DBGrid에는 "남자", "여자"로 나타났으면 좋겠는데, 어떻게 하면 되는지요? 여러가지 방법이 있을텐데, 가장 좋은 방법 좀 알려주세요.

>



델파이를 연구중인 초보 종모입니다.

조금의 도움이 되었으면 좋겠습니다.



ParamByName은 사용자가 임의로 설정한 Parameter를 지정한다.



다음 예는 Test.DB의 D_Date필드에 Parameter를 사용하여

날자값을 넣는 예이다.



Query1.SQL.Clear;

Query1.SQL.Add('Insert Into Test(D_Date) Values ( :P_Date )');

Query1.ParamByName('P_Date').ASDateTime := StrToDate(Edit1.Text);

Query1.ExecSQL;



FieldByName은 실제로 존재하는 필드를 지정한다.

한글은 한글자에 2Byte를 사용한다.

(남자,여자)는 4Byte를 필요로 하므로 Alhpa 4Byte의 크기가 필요할까?



라디오버튼 이름 : RA_MAN, RA_GIRL;



// 버튼 클릭 이벤트

procedure TForm1.Button1Click(Sender : TObject)

begin

if RA_MAN.Checked then

Table1.FieldByName('Sex').AsString := '남자'

else

Table1.FieldByName('Sex').AsString := '여자'

end;

추가로 답변합니다.

2번째 건데 답변이 잘 못된 것 같아요.

가장 좋은 방법은 DBGRID 대신에 STRINGGRID를 쓰는 거죠.

DBGRID의 DBGrid1DrawColumnCell 이벤트에 다음과 같이

쓰시면 됩니다.

'Sex'필드의 값이 'M'이면 남자

아니면 여자임.

if Column.Field = DM.MemberTable.FieldByName('Sex') then

begin

DBGrid1.Canvas.Font.Color := clBlack;

DBGrid1.Canvas.FillRect(Rect);

if Column.Field.AsString = 'M' then

DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+1,'남자')

else

DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+1,'여자');

end;

이렇게 하시면 되지만 약간의 버그가 존재합니다. 한 번 해보시면 알

것에요.^^ 그럼 즐거운 코딩하셔요.~~~