디비콤보박스의 아이템값과 인텍스값에 대한 질문입니다.
디비에 저장 되는 값은 인텍스를값 을 char로 변환해서 저장합니다.
그리고 화면상에 뿌릴때는 아이템값을 출력하구요.....
연결된 쿼리콤포넌트의 이벤트 OnGetText와 OnSetText를 쓰면 될거 같은데요..
부탁드립니다. 꾸벅(^^)(__)(^^)(__)
아래와 같습니다.
procedure Tfm_dospde.Query1lagbnGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if Text<>'' then
begin
Case StrToInt(Text) of
0: Text:='하하하';
1: Text:='후후후';
end;
end;
end;
procedure Tfm_dospde.Query1lagbnSetText(Sender: TField;
const Text: String);
begin
if Text= '하하하' then Query1.FieldByName('la_gbn').AsString :='1'
else if Text='후후후' then Query1.FieldByName('la_gbn').AsString :='2';
end;
gettext, settext를 쓰면 될것 같은데요//
procedure Tfm_dospde.Query1lagbnGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if Text<>'' then
begin
DBComboBox1.Itemindex := strtoint(text);
end;
end;
procedure Tfm_dospde.Query1lagbnSetText(Sender: TField;
const Text: String);
begin
if DBComboBox1.Itemindex > -1 then
begin
Query1.FieldByName('la_gbn').AsString := DBComboBox1.Itemindex;
end;
end;
집에 델파이가 안깔려서 확인은 못해봤지만 아마 이렇게 하면 될겁니다..