Q&A

  • DBGrid와 DBComboBox에관하여
1.맨위에 보이시는 스샷에 DBGrid에 있는 필드값들을 그아래 스샷에 보이시는 DBComboBox에 넣어서 오른쪽 Edit 에 표시되게하는거하고요.
       DBComboBox 인스팩터에서 datasource,datafield 값은 다 집어넣었습니다.
2.맨아래 스샷에서 콤보박스를 클릭하면 오른쪽에 Edit 에 표시하는거좀 설명해주세요.
procedure TfmPSI.DBComboBox1Change(Sender: TObject);
begin
  case DBComboBox1.ItemIndex of
    0: Edit1.Text := '동시조회제한';
    1: Edit1.Text := '총량제한';
    else
       Edit1.Text := '';
  end;
end;
procedure TfmPSI.DBComboBox2Change(Sender: TObject);
begin
  case DBComboBox2.ItemIndex of
    0: Edit2.Text := '이용자누적';
    1: Edit2.Text := '건수누적';
    else
       Edit2.Text := '';
  end;
end;

procedure TfmPSI.DBComboBox3Change(Sender: TObject);
begin
  case DBComboBox3.ItemIndex of
    0: Edit3.Text := 'YY';
    1: Edit3.Text := 'MM';
    2: Edit3.Text := 'DD';
    3: Edit3.Text := 'HH';
    4: Edit3.Text := 'FT';

    else
       Edit3.Text := '';
  end;
end;

이런식으로했는데 잘안돼네요.ㅠㅠ
콤보박스 클릭하면 목록이 나와야되는데,엉뚱한목록이 나오네요.
잘부탁드립니다.

0  COMMENTS