델초보 wrote:

> 안녕하십니까..

> 델초보입니다.. 궁금한점이있어서요...

> DBGrid에서 PickList요...

> 콤보박스처럼 쓴다고 하셨는데...

> Item이

> 1 본인

> 5 가족

> 이렇게 있을때 DB에 저장은 코드값 1,5 만 될려구요..

> PickList에서도 가능한가요? 어떻게 하는지를 몰라서..

> 좀 가르쳐주십시요...

> UpdateSql을 쓰거든요...

> 글구 반대로 디비에 1,5가 코드값으로 있을때...

> 코드값에 대응되는 값을 뿌려줄려면요??

> 궁금합니다..

> 아시면 좀 갈켜주시면 감사하겠습니다...

> 멜루 보내주시면 더욱 감사하겠습니다...

> 부탁드립니다...



안녕하세요?

해당 테이블의 TField의 GetText, SetText이벤트를 조작하시면 됩니다.

쿼리컴포넌트를 두번 누르면 필드에디터가 나오죠?

거기서 원하시는 필드를 선택한 후 오브젝트인스펙트의 이벤트 목록을 보시면

GetText와 SetText이벤트가 보일겁니다.

아래는 예제입니다. 참고하세요.



//성별필드 0:여자 1:남자로 표시

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

DisplayText: Boolean);

begin

case Sender.AsInteger of

0: text:= '여자';

1: text:= '남자';

end;

end;





//여자를 입력하면 0으로 남자를 입력하면 1로 저장

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

DisplayText: Boolean);

begin

if Text='여자' then

Sender.AsInteger:=0

else if Text='남자' then

Sender.AsInteger:=1;

end;

잘 안되서요....



procedure TFM_ItmMst.AdoTB_ItmMst2itm_unit_kindSetText(Sender: TField;

const Text: String);

begin

if Sender.AsString = '1' then text := '단단위'; <--- 345

if Sender.AsString = '2' then text := '이단위';

if Sender.AsString = '3' then text := '환산단위(수동)';

if Sender.AsString = '4' then text := '환산단위(자동)';

if Sender.AsString = '5' then text := '단단위(가수)'; <---349

end;



요렇게 했는데요...



[Error] ItmMst.pas(345): Left side cannot be assigned to ....(349) 까지...

라고... 에러가 뜨거든요....



아무리 봐도... 틀린 구석이 없는데....

어디가 잘못 된거죠????...









> 안녕하세요?

> 해당 테이블의 TField의 GetText, SetText이벤트를 조작하시면 됩니다.

> 쿼리컴포넌트를 두번 누르면 필드에디터가 나오죠?

> 거기서 원하시는 필드를 선택한 후 오브젝트인스펙트의 이벤트 목록을 보시면

> GetText와 SetText이벤트가 보일겁니다.

> 아래는 예제입니다. 참고하세요.

>

> //성별필드 0:여자 1:남자로 표시

> procedure TForm1.Table1SEXGetText(Sender: TField; var Text: String;

> DisplayText: Boolean);

> begin

> case Sender.AsInteger of

> 0: text:= '여자';

> 1: text:= '남자';

> end;

> end;

>

>

> //여자를 입력하면 0으로 남자를 입력하면 1로 저장

> procedure TForm1.Table1SEXSetText(Sender: TField; var Text: String;

> DisplayText: Boolean);

> begin

> if Text='여자' then

> Sender.AsInteger:=0

> else if Text='남자' then

> Sender.AsInteger:=1;

> end;

parkisu wrote:

> 델초보 wrote:

> > 안녕하십니까..

> > 델초보입니다.. 궁금한점이있어서요...

> > DBGrid에서 PickList요...

> > 콤보박스처럼 쓴다고 하셨는데...

> > Item이

> > 1 본인

> > 5 가족

> > 이렇게 있을때 DB에 저장은 코드값 1,5 만 될려구요..

> > PickList에서도 가능한가요? 어떻게 하는지를 몰라서..

> > 좀 가르쳐주십시요...

> > UpdateSql을 쓰거든요...

> > 글구 반대로 디비에 1,5가 코드값으로 있을때...

> > 코드값에 대응되는 값을 뿌려줄려면요??

> > 궁금합니다..

> > 아시면 좀 갈켜주시면 감사하겠습니다...

> > 멜루 보내주시면 더욱 감사하겠습니다...

> > 부탁드립니다...

>

> 안녕하세요?

> 해당 테이블의 TField의 GetText, SetText이벤트를 조작하시면 됩니다.

> 쿼리컴포넌트를 두번 누르면 필드에디터가 나오죠?

> 거기서 원하시는 필드를 선택한 후 오브젝트인스펙트의 이벤트 목록을 보시면

> GetText와 SetText이벤트가 보일겁니다.

> 아래는 예제입니다. 참고하세요.

>

> //성별필드 0:여자 1:남자로 표시

> procedure TForm1.Table1SEXGetText(Sender: TField; var Text: String;

> DisplayText: Boolean);

> begin

> case Sender.AsInteger of

> 0: text:= '여자';

> 1: text:= '남자';

> end;

> end;

>

>

> //여자를 입력하면 0으로 남자를 입력하면 1로 저장

> procedure TForm1.Table1SEXSetText(Sender: TField; var Text: String;

> DisplayText: Boolean);

> begin

> if Text='여자' then

> Sender.AsInteger:=0

> else if Text='남자' then

> Sender.AsInteger:=1;

> end;

정말 감사합니다..

아직 세상은 살기좋은 곳이라니까요...

정말 감사합니다..