cxGrid 实现 checkbox(无数据库记录)

文章转自http://www.cnblogs.com/hzqghost/articles/1434692.html

SQL语句
Query.SQL.add('select   *,'N' as Selected from make order by name ')

进入QUERY字段编辑器
将 Selected 的 FieldKind 设置为 fkInternalCalc

确保 readonly 为 false

给 cxGrid1DBTableView1 新建一列,选择 fielname 设为 Selected
ValueCheck := 'Y'   , ValueunCheck := 'N' 

鼠标点击事件1

procedure TEditProduct.cxGrid1DBTableView1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Row : Integer;
begin
  Row := cxGrid1DBTableView1.DataController.FocusedRecordIndex;
  //cxGrid1DBTableView1.DataController.DataSet.Edit;
  //cxGrid1DBTableView1.DataController.DataSet.FieldByName('Selected').AsString := 'Y';
  if cxGrid1DBTableView1.ViewData.Records[Row].Values[1] = 'Y' then
    cxGrid1DBTableView1.ViewData.Records[Row].Values[1] := 'N'
  else
    cxGrid1DBTableView1.ViewData.Records[Row].Values[1] := 'Y';
end;

 

鼠标点击事件2

procedure TorderMore1.cxGrid1DBTableView1CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
var
  Row : Integer;
begin
  if ACellViewInfo.Item.Name ='ColSelect' then
  begin
    Row := cxGrid1DBTableView1.DataController.FocusedRecordIndex;
    if cxGrid1DBTableView1.ViewData.Records[Row].Values[15] = 'Y' then
       cxGrid1DBTableView1.ViewData.Records[Row].Values[15] := 'N'
    else
       cxGrid1DBTableView1.ViewData.Records[Row].Values[15] := 'Y';
  end;
end;

 

初始化

procedure TEditProduct.FormActivate(Sender: TObject);
var
  I : integer;
  MakeMK : string;
  thisID : string;
begin
  if ID > 0 Then
  MakeMK := ',' + '1,2,3,4,5'+ ',';
  ShowMessage(MakeMK);
  begin
     for I :=0 to cxGrid1DBTableView1.ViewData.RecordCount-1 do
     begin
       thisID := ','+varToStr(cxGrid1DBTableView1.ViewData.Records[I].Values[0])+',';
       //ShowMessage(thisID);
       if AnsiStrPos(PChar(MakeMK), PChar(thisID)) <> nil then
         cxGrid1DBTableView1.ViewData.Records[I].Values[1] := 'Y';
     end;
  end;
end;

procedure TEditProduct.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
  if ARecord.Values[1] = 'Y' then
      AStyle := cxStyle2;
end;

提交结果

  for I :=0 to cxGrid1DBTableView1.ViewData.RecordCount-1 do
  begin
    T := varToStr(cxGrid1DBTableView1.ViewData.Records[I].Values[1]);
    if T = 'Y' then
      NewMake := NewMake + ',' + varToStr(cxGrid1DBTableView1.ViewData.Records[I].Values[0]);