with adoquery1 do
begin
first;
while not eof do
begin
with tdbcheckbox.create(self) do
begin
parent := self;
datasource := datasource1;
datafield := 'yourfield';
left := 100;
top := 20; // you should calculate yourself
end;
next;
end;
end;
begin
first;
while not eof do
begin
with tdbcheckbox.create(self) do
begin
parent := self;
datasource := datasource1;
datafield := 'yourfield';
left := 100;
top := 20; // you should calculate yourself
end;
next;
end;
end;
解决方案 »
- 紧急求助:如何利用vclzip解压zip文件并保留子目录?
- fastreport 打印的条码 识别率的问题
- 数据库提取时字段名称为数字开头的怎么办
- 请问代码 TADOQuery.Properties['Update Criteria'].Value := 0; 是什么意思,谢谢!
- FastReport4 设置连续打印的问题!
- 讨论一下这种数据库添加方案
- 请各位在职的程序员大哥指点一下方向
- 如何用 遍历 出一个含有子项目(如 FONT,Constraints等)的属性下的所有子属性?(如: FONT 下有:CHARSET,CLOLOR,HEIGHT等)?多谢
- 我开了个小网吧,40台机,想找个略懂计算机的帮我上午开开门,晚上搞搞卫生,工作时间分两段 8:00—11:30 & 18:30-24:30,有谁愿意来?
- 请教:(socket)服务器端怎么把接收的流形成文件?谢谢!
- 高手先生们,请问:我想与telnet通讯,使用TSocketConnect空件行吗?使用中点击ServerName属性时出错,请赐教。
- Delphi中coolBar能不能浮动?
DBCTRLGRID在哪个控件组里
我想在一个表中提取数据让他显示在dbgrid中,然后在dbgrid中选择几条记录,把记录录入到另一个表中。在下一次提取数据的时候,我想在已经录入过的记录前面家一个标识,所以我想动态建立DBCheckbox。
不知道你有没有更好的方法?