delphi下拉列表怎么关联

来源：百度知道 编辑：UC知道 时间：2024/06/29 21:18:57
两个下拉列表框 一个dbgrid

一个列表框是系别 一个列表框是专业 dbgrid显示对应专业的具体信息

怎么实现选择系别，出现系别所对应的专业

而换别的系别 专业自动换成对应系别所属的专业

以前所选择的专业不会出现

假设控件名称cbbExpDpDir在他的DropDown里面写重新加载专业的事件 就可以了

procedure TfrmBackUpSet.cbbExpDpDirDropDown(Sender: TObject);
var
sSql: string;
begin
sSql := 'SELECT t.directory_name FROM dba_directories t';
cbbExpDpDir.Items.Clear;
// 自动检测 有目标机 和 非目标机 上面的目录
if ExpDpLocalType = 1 then
begin
// 目标机 则使用共用连接
PrepareQ(GDBQuery, sSql);
GDBQuery.Active := True;
GDBQuery.First;
if GDBQuery.RecordCount > 0 then
begin
while not GDBQuery.Eof do
begin
cbbExpDpDir.Items.Add(GDBQuery.FieldByName('directory_name').AsString);
GDBQuery.Next;
end;
end
else
begin
AppMsgBox('目标机尚未创建目录，请创建后在选择！');
cbbExpDpDir.ItemIndex := -1;
Exit;
end;
end;
end;