if cxview1.DataController.Controller.SelectedRecordCount>0 then with cxview1.DataController.DataSource.DataSet do begin
global.BQ_ppp('',3); //只进行数据清除
for i:=0 to cxview1.DataController.Controller.SelectedRecordCount-1 do begin
GotoBookmark(Pointer(cxview1.DataController.GetSelectedBookmark(i))); if Pos('计',fields[0].AsString)=0 then begin
if CheckBox2.Checked then
global.BQ_ppp(fields[0].AsString,0)//立即进行标签打印,不把数据加到临时数据库。 else
global.BQ_ppp(fields[0].AsString,1); //加入数据到临时数据库。 end; end;
if CheckBox2.Checked=false then //打印中的数据只是包含一种标签。 不是多种标签打印,集中打印临时数据库中的数据。
global.BQ_ppp('',2); //只进行标签打印 Log_save('标签补打','标签打印'); end;
end;
来自:lihoulong, 时间:2006-7-8 23:59:31, ID:3500034 function CopyRecord(var recData: TArrayVariant): boolean; var
i: integer; begin
with FDataset do
begin
SetLength(recData, Fields.Count); for i := 0 to Fields.Count - 1 do recData[i] := Fields[i].Value; end;
Result := true; end;
function TwpQDTable.PasteRecord(
const RecData: array of Variant): boolean; var fcnt,
i: integer; begin
with FDataset do
try
fcnt := Length(RecData) - 1;
for i := 0 to fcnt do begin
if FDataset.State in [dsBrowse] then Edit;
Fields[i].Value := RecData[i]; end;
Result := true; except
Result := false; end; end;
定义一个记录数组
for i := 0 to cxgrid.SelectedCount-1 do begin 依据关键字定位数据集,再执行CopyRecord end;
在粘贴的地方用pasteRecord
cxGrid的使用方法
1. 去掉cxgrid中台头的box ,在tableview1的ptionsview的groupbybox=false; 2. 在GRID footer 中加入sum(列), tableview1的optionsviewàfooter=ture
然后在cxGRid1的customize..中的summary 的footer.add需要合计的列kind= skSum
3. 去掉cxgrid 中的过滤下拉箭头 选择tableview1.optionscustomize.columnfiltering=fasle;
4. cxGrid1DBTableView1 的 OptionView中属性GroupFooters设为gfAlwaysVisible并设置需要求和的列,在summary.default for Groups 下add加入需要合计的字段,column下显示fieldname 为统计字段,format为格式,kind为统计方法,position 为位子 spfooter 在分组的下面,spgroup 在分组的上面
或用cxGridPopupMenu1,在运行时可对任意数字类型列求和,方法是只需设置cxGridPopupMenu1的属性Grid为cxGrid1DBTableView1的cxGrid,
即可实现您所需功能
5. DEV Express里的cxGrid默认的数值格式带¥,怎幺去掉啊! 6. 双击Cxgrid,选择colmnum改变类型 options.properties.Memo 7. 在displayformat中进行设置 来源于大富翁论坛
使用cxGrid有一些时间了,在这里总结一下使用cxGrid的一些方法,希望给刚开始接触cxGrid的人一些帮助。
1.简单介绍:cxGrid右下方的cxGrid1Level1是表示Grid表的层,cxGrid可以有多层,这相当于集合了PageControl的
功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当于DBGrid一样。右击cxGrid1可以添加cxGrid1Level2,右击
cxGrid1Level2,可以选择Create View , Add level 或者Delete Level。Add level可以增加子Level,Create View
里面可以选择很多不同总类的View。其中
1)DB Table可以和数据库连接的View,更一般的DBGrid类似,它比DBGrid多了比如鼠标中键可以用,可以统计,
查询,等等功能;
2)DB Banded Table 则可以实现比如:
---------------------------------
| 说明1 | 说明2 | ---------------------------------
| 字段1 | 字段2 | 字段3 | 字段4 |
等类似的功能;
3)DB Card View 则提供了卡片方式的显示数据的功能,这个用在比如人事档案管理比较不错; 4)其它不一一赘述。
2.一些使用方法:
1)有图片和MEMO的例子:
拖入一个cxGrid1,Table1,DataSource1。 Table1的DatabaseName设为DBDEMOS,TableName设为biolife.db, Active设为True;DataSource1的DataSet设为Table1;cxGrid1DBTableView1的DataController中的DataSource
设为DataSource1;右击cxGrid1DBTableView1选择Create All Columns;双击cxGrid1,在弹出的窗口中找到
cxGrid1DBTableView1Notes和cxGrid1DBTableView1Graphic,将它们的Properties属性设为BlobEdit;运行看看
结果。再将cxGrid1DBTableView1Graphic的Properties属性设为Image,再将Properties下的Stretch设为True,
将cxGrid1DBTableView1->optionsview->CellAutoHeight 设为True,看看结果。
2)如何让“Drag a column here to group by that column”不显示
解决:点击cxGrid1上的cxGrid1DBTableView1
在cxGrid1DBTableView1->optionsview->groupbybox:=false即可
注:OptionsView里面有很多属性可能经常要用,比如:ColumnAutoWith,Navigator等等,慢慢琢磨吧:)
3)GroupPanel上面的英文[Drag a column header to group by that column]怎幺可以改成中文?
解决:最简单的方法是 TcxGridTableView.OnCustomDrawPartBackground ,也可用 OnCustomDrawGroupCell: procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground( Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean); begin
AViewInfo.Text:='动态设置 GroupBox 的显示内容'; ACanvas.FillRect(AViewInfo.Bounds); end;
4)如何实现如下功能: +财务部
+原材料仓库 +成品库 +冲压车间 +软件开发部
这个是部门的名称,点击加号就可以将本部门的人员情况显示出来。 解决:其实这是一个主从表关系,1:填好主表的keyfieldnames
2:填好从表的keyfieldnames
3:填好从表的 detaikeyfieldNames与masterkeyfieldnames 4: 从表的数据源一定要按与主表关联的字段排序
注:其它地方设置了主从表结构那样就显示不出来,比如设置了从表的Table或者Query的mastersource和 asterfield就会不能显示数据!如果是两个cxGrid的主从关系,这样设置就很OK了。
5)统计功能
解决:cxGrid1DBTableView1->optionsview->Footer 设为True
cxGrid1DBTableView1->DataController->Summary设置FooterSummaryItems即可
6)类似PageControl显示
解决:增加一个Level,将cxGrid1->RootLevelOptions->DetailTabsPosition设为dtpTop,然后相应的设置cxGrid1Level1,和cxGrid1Level2的Caption值。 未完待续。。。。。。。。。
7)如何设定左边几列,不能滚动?
解决:使用DB Banded Table才可以实现,
在cxGrid1DBBandedTableView里建立Band0,Band1 Band0的Fixed=tfLeft Band1的Fixed=tfnone
设置要锁定的字段的BandIndex=0,其它为1,就OK了。
相关推荐: