Q&A

  • 디비콤보박스를 사용합니다.
디비콤보박스의 아이템값과 인텍스값에 대한 질문입니다.
디비에 저장 되는 값은 인텍스를값 을 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;

1  COMMENTS
  • Profile
    열심히 2002.12.20 01:25
    네 님이 말씀하신데로

    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;

    집에 델파이가 안깔려서 확인은 못해봤지만 아마 이렇게 하면 될겁니다..