Question

Delphi中ComboBox连接数据库，如何做到只搜索一次？

Delphi中ComboBox连接数据库，如何做到只搜索一次？就是第一次点dropdown的时候进行搜索，之后再点dropdown不进行搜索。
procedure TfrmWT.cbxJZRBMDropDown(Sender: TObject);
begin
inherited;
FuncUtils.SetItemValue('DBWORK', 'select distinct rtrim(PUBLBMXX_BMID) || ''|'' || PUBLBMXX_BMMC, PUBLBMXX_BMID from PUBLBMXX order by PUBLBMXX_BMID',
'<EMPTY>', '<EMPTY>', cbxJZRBM.Items, cbxJZRBM.Values);
end;

我的语句是这样的。

问题解决了 不需要dropdown事件，在forminit事件里面就可以了。
procedure TfrmWT.FormInit;
begin
inherited;
FuncUtils.SetItemValue('DBWORK', 'select distinct rtrim(PUBLBMXX_BMID) || ''|'' || PUBLBMXX_BMMC, PUBLBMXX_BMID from PUBLBMXX order by PUBLBMXX_BMID',
'<EMPTY>', '<EMPTY>', cbxTCRBM.Items, cbxTCRBM.Values);
end;

Answer 1

procedure TfrmWT.cbxJZRBMDropDown(Sender: TObject);
begin
if cbxJZRBM.Tag = 0 then
begin
inherited;
FuncUtils.SetItemValue('DBWORK', 'select distinct rtrim(PUBLBMXX_BMID) || ''|'' || PUBLBMXX_BMMC, PUBLBMXX_BMID from PUBLBMXX order by PUBLBMXX_BMID',
'<EMPTY>', '<EMPTY>', cbxJZRBM.Items, cbxJZRBM.Values);
cbxJZRBM.Tag = 1;
end;
end;

这个方法不知可否