如何让用户自己生成DBGRID的各列,分不够再加。 目的是做个通用的,让用户根据自己的需要,自己把数据库的各个字段加进去。哪位大侠能提供实例。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 for i:=1 to 5 do begin dbgrid1.Columns.Add; dbgrid1.Columns[i-1].FieldName:='field'; end; DBGrid1.Columns.Clear;for i:=0 to ADOQuery1.Fields.Count-1 dobegin dbgrid1.Columns.Add; dbgrid1.Columns[i].FieldName:=ADOQuery1.FieldList[i]; end; dbgrid好像可以选择要加入的字段吧 n = ......for i:=1 to n do begin dbgrid1.Columns.Add; dbgrid1.Columns[i-1].FieldName:='YourFieldName'; end; 可以这样:1.将所有可能的字段加入一个listbox1,并设置listbox1可以多选.让用户从中选取.2.再将用户选定的字段结合实际需要产生一个SQL的SELECT语句.3.然后将dbgrid绊定一个ADO数据源,再在这数据源里执行这个SQL语句.4.OK! delphi自带的菜单控件做出的菜单太难看,有哪些免费的菜单控件可以快速做出漂亮的个性化菜单 如何获取PopupMenu1是由哪个对象pop出来的? 请教一个关于组件安装的问题! font size 为11的button 按钮显示有问题? 动态数组能作为函数的放回值吗? 如何动态查询列表框中的内容? 格式化软盘 一个关于数据库访问的问题!请帮忙! 编这样一个程序 我使用了TCanvas的CopyRect方法,但有闪烁现象,如何解决? 关于在Grid控件中的数据重复性校验问题! 如何在中间层动态创建DATASET并和DATASETPROVIDER绑定
begin
dbgrid1.Columns.Add;
dbgrid1.Columns[i-1].FieldName:='field';
end;
begin
dbgrid1.Columns.Add;
dbgrid1.Columns[i].FieldName:=ADOQuery1.FieldList[i];
end;
for i:=1 to n do
begin
dbgrid1.Columns.Add;
dbgrid1.Columns[i-1].FieldName:='YourFieldName';
end;
1.将所有可能的字段加入一个listbox1,并设置listbox1可以多选.让用户从中选取.
2.再将用户选定的字段结合实际需要产生一个SQL的SELECT语句.
3.然后将dbgrid绊定一个ADO数据源,再在这数据源里执行这个SQL语句.
4.OK!