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