//你可以不懂 ClientDataSet1 的用法,只要数据库中加上一个 int 类型的字段,然后按照下面的连接方式
和设置,就可以出现 checkbox 了。祝你好运
dm1.ADOQuery1.Connection:=dm1.ADOConnection1;
DataSetProvider1.DataSet:=dm1.ADOQuery1;
ClientDataSet1.DisableControls;
ClientDataSet1.ProviderName:='DataSetProvider1';
dm1.DataSource1.DataSet:=ClientDataSet1;
dbgrideh1.DataSource:=dm1.DataSource1;
dm1.ADOQuery1.close;
dm1.ADOQuery1.sql.text:= mainform.helpersetsql;
dm1.ADOQuery1.open;
ClientDataSet1.Data:=DataSetProvider1.Data;
with dbgrideh1 Do
begin
Columns.clear;
for i:=0 to 21 do
begin
columns.Add;
if i=0 then
begin
Columns[0].KeyList.Clear;
Columns[0].KeyList.Add('1');
Columns[0].KeyList.Add('0');
Columns[0].AlwaysShowEditButton := True;
Columns[0].Checkboxes := True;
Columns[0].ReadOnly := False;
end;
Columns[i].Title.Caption:=mainform.titles[i]; {设置各列的标题名称 }
Columns[i].Width:=mainform.widths[i]; { TODO : 设置各列的宽度 }
Columns[i].FieldName:=mainform.fields[i]; { TODO : 设置各列的字段 }
columns[i].Title.Alignment:=taCenter; { TODO : 各列都设置成居中 }
if i>0 then
columns[i].ReadOnly:=True; { TODO : 各列都设置成只读属性 }
end;
left:=0;
top:=0;
end;
ClientDataSet1.EnableControls;
{Delphi 高手,项目请联系:1411057244@qq.com }
评论12