本文整理自网络,侵删。
dm.BM.First; while not dm.bm.Eof do begin combobox1.items.Add(dm.BM.FieldValues['部门名称']); dm.BM.Next; end; combobox1.Items.Add('<ALL>');
相关阅读 >>
Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4
Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法
更多相关阅读请进入《Delphi》频道 >>