delphi CXGRID用法 （取行、列值；定位选中某行等等）

CXGRID用法 （取行、列值；定位选中某行等等）

Delphi Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值

cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号

cxGrid1DBTableView1.Controller.FocusedRow 当前行

cxGrid1DBTableView1.Controller.FocusedColumn 当前列

cxGrid1DBTableView1.Controller.FocusedColumnIndex 当前列号

cxGrid1DBTableView1.Controller.EditingItem 当前编辑中的单元框

cxGrid1DBTableView1.Controller.EditingController.Edit 当前的编辑框

在编辑状态下可以这样取当前单元格的值:

if cxGrid1DBTableView1.Controller.FocusedColumn.Editing then

ShowMessage(cxGrid1DBTableView1.Controller.EditingController.Edit.EditingValue)

else

cxGrid1DBTableView1.DataController.GetValue(cxGrid1DBTableView1.DataController.FocusedRecordIndex, cxGrid1DBTableView1.Controller.FocusedItemIndex);

非编辑状态下可以这样取得单元格内的值:

OnCellClick事件代码:

procedure   TForm1.cxGrid1DBTableView1CellClick(      Sender:   TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;      AShift: TShiftState;   var   AHandled: Boolean);  var

v : Variant;  begin

v := ACellViewInfo.Value;  end;

取列值

i := cxGrid1DBBandedTableView1.Controller.FocusedColumn.Index;

cxGrid1DBBandedTableView1.DataController.GetValue(cxGrid1DBBandedTableView1.Controller.SelectedRows[0].RecordIndex,i);

cxGrid1DBTableView1.DataController.Values[行,列]

取得焦点

cxGrid1DBTableView1.Columns[5].FocusWithSelection; cxGrid1DBTableView1.Columns[4].Focused:=True;

得到当前点击的单元格的值

uses   Clipbrd;

OnCellClick事件代码:  procedure   TForm1.cxGrid1DBTableView1CellClick(     Sender:   TcxCustomGridTableView;      ACellViewInfo:   TcxGridTableDataCellViewInfo;   AButton:   TMouseButton;     AShift:   TShiftState;   var   AHandled:   Boolean); var      v   :   Variant; begin      v   :=     ACellViewInfo.Value;//值      Clipboard.AsText     :=     vartostr(v);

//保存到clipboard end;  cxGrid的DBTableView的名称为dgtv1

1. 返回选中的行数 gdtv1.DataController.GetSelectedCount;

2. 返回选中行的索引: gdtv1.DataController.GetSelectedRowIndex(0) , 表示第一个选中行的索引

3. 返回选中行的数据;

var    I, J:Integer;

begin

for I:=0 to gdtv1.DataController.GetSelectedCount - 1 do

begin      J := gdtv1.DataController.GetSelectedRowIndex(I);       ShowMessage(VarToStr(gdtv1.DataController.GetValue(J, 0))); //选择中行的第列的值

end;

end;

4. 获取cxGrid排序规则

const

OrderArray: array[soNone..soDescending] of string = (‘None‘, ‘ASC‘, ‘DESC‘);

var

I: integer;

S, OrderStr: string;

begin

for I := 0 to gdtv1.SortedItemCount - 1 do

begin

if S <> ‘‘ then        S := S + ‘, ‘;

OrderStr := OrderStr + gdtv1.SortedItems[I].DataBinding.DefaultCaption + ‘ ‘;

OrderStr := OrderStr + OrderArray[TcxDataSortOrder(gdtv1.SortedItems[I].SortOrder)];

S := S + OrderStr;

end;

ShowMessage(‘ORDER BY ‘ + S);

5.获取多选的值

for   i   :=   0   to   cxgrid1.SelectedRows.Count-1   do begin

cxgrid1.DataSource.DataSet.GotoBookmark(Pointer(cxgrid1.SelectedRows.Items[i])); //定位选中的字段 end;

6.//选择行的第1列的值

for I:=0 to cxGrid1DBTableView1.DataController.GetSelectedCount - 1 do  begin

J := cxGrid1DBTableView1.DataController.GetSelectedRowIndex(I);

ShowMessage(VarToStr(cxGrid1DBTableView1.DataController.GetValue(J, 0)));   end;

7.获取所选行的值

with cxGrid1DBTableView1.Controller do

begin

for i:=0 to SelectedRowCount-1   do

begin

SelectedRows[i].Focused:=True;

ShowMessage(ADOQuery1.fieldbyname(‘mc‘).AsString);

end;

end

cxGrid功能强大，适合做企业级的复杂查询。非常方便。

但是对其用法介绍的并不多，在此总结他人的使用经验和自己的一点小经验，供大家参考。

（１）动态设置显示格式

procedure SetDisplayFormat(ACtrlData: TClientDataSet;  TbView: TcxGridDBTableView);

var

i: integer;

begin

if ACtrlData.RecordCount <= 0 then Exit;

try

TbView.ClearItems;

ACtrlData.First;

for i := 0 to ACtrlData.RecordCount - 1 do

begin

if ACtrlData.FieldByName(‘SQBF_DisplayInGrid‘).AsString = ‘1‘ then //在表格中显示

with TbView.CreateColumn do

begin

DataBinding.FieldName := ACtrlData.FieldByName(‘SQBF_FieldName‘).AsString;

Caption := ACtrlData.FieldByName(‘SQBF_Caption‘).AsString; //字段中文标题

Hint := ACtrlData.FieldByName(‘SQBF_Hint‘).AsString;

Width := ACtrlData.FieldByName(‘SQBF_Width‘).AsInteger;

HeaderAlignmentHorz := taCenter;

end;

ACtrlData.Next;

end;

except

on E: Exception do

SaveLog(‘设置显示格式时出错：‘ + E.Message);

end;

end;

（２）显示行号

procedure TFmQueryBase.cxDBViewMasterCustomDrawIndicatorCell(

Sender: TcxGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);

var

FValue: string;

FBounds: TRect;

begin

FBounds := AViewInfo.Bounds;

if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then

begin

ACanvas.FillRect(FBounds);

ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1);

FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index+1);

InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux.

ACanvas.Font.Color := clBlack;

ACanvas.Brush.Style := bsClear;

ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);

ADone := True;

end;

end;

（３）设置显示格式，我的项目要求先动态添加字段，这时不知道字段类型，所以设置DisplayFormat不方便，我还没有找到好方法。

所以采用打开数据集后再设置：

procedure TFmQueryBase.cdsMasterAfterOpen(DataSet: TDataSet);

var

i: Integer;

begin

for i := 0 to cxDBViewMaster.DataController.DataSet.FieldCount -1 do

begin

if cxDBViewMaster.DataController.DataSet.Fields[i] is TNumericField then

begin

if Pos(‘AMOUNT‘, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then

begin

TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000‘;

Continue;

end;

if Pos(‘QUANTITY‘, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then

begin

TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000‘;

Continue;

end;

if Pos(‘MONEY‘, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then

begin

TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.00‘;

Continue;

end;

end;

end;

end;

2007-7-19 12:48:54

查看评语&raquo;&raquo;&raquo;

2007-7-19 12:53:09    别人的，转载http://www.showding.cn/item/cxGrid__182526.aspx

最近在学习使用cxGrid,安装的版本是ExpressQuantumGrid   Suite   v5.10

我发现这个控件功能虽然强大,但是非常难用。

现在我手头就有几个问题还没解决：

1）主从模式下导出Excel中文会产生乱码，而且从表内容没有导出。

我不知道是不是因为我的字段名包括单引号的原因。

导出代码：ExportGrid4ToExcel(FileName,   cxGrid);

2）主从模式下通过按钮对从表添加/删除行，代码怎么写。

附：单表添加/删除行的代码

procedure   TFormAccount.cxButtonNewClick(Sender:   TObject);

begin

Self.tvAccount.DataController.Append;

Self.tvAccount.Columns[0].Focused   :=   True;

cxGrid.SetFocus;

end;

procedure   TFormAccount.cxButtonDeleteClick(Sender:   TObject);

begin

if   Self.tvAccount.DataController.RowCount   =   0   then

Exit;

if   Application.MessageBox(‘确认删除当前记录?‘,   ‘确认删除‘,

MB_YesNo   +   MB_IconQuestion)   =   IDNO   then

Exit;

Self.tvAccount.DataController.DeleteFocused;

end;

3）动态创建主从结构出错（Compiler没错，运行时出现系统错误0000000018），

我使用了二个ADOStoreProcedure作主从表

代码如下：

var

Level:   TcxGridLevel;

GridView:   TcxGridDBTableView;

begin

Level   :=   cxGrid1.Levels[0].Add;

GridView   :=   TcxGridDBTableView(cxGrid1.CreateView(TcxGridDBTableView));

GridView.DataController.DataSource   :=   Self.dsDetail;

GridView.DataController.KeyFieldNames   :=   ‘PurchOrderID;POLineNbr;PromiseDate;ReceiverDate‘;

GridView.DataController.MasterKeyFieldNames   :=   ‘VendorID‘;

GridView.DataController.DetailKeyFieldNames   :=   ‘VendorID‘;

GridView.DataController.DataModeController.SmartRefresh   :=   True;

GridView.OptionsCustomize.ColumnHiding   :=   True;

GridView.OptionsCustomize.ColumnsQuickCustomization   :=   True;

GridView.OptionsData.Deleting   :=   False;

GridView.OptionsData.Inserting   :=   False;

GridView.OptionsView.Indicator   :=   True;

Level.GridView   :=   GridView;

GridView   :=   TcxGridDBTableView(cxGrid1.Levels[0].GridView);

GridView.DataController.KeyFieldNames   :=   ‘VendorID‘;

GridView.OptionsView.GroupByBox   :=   False;

//显示主表内容

tvResult.BeginUpdate;

tvResult.ClearItems;

tvResult.DataController.CreateAllItems;

tvResult.EndUpdate;

//显示明细表内容

GridView   :=   TcxGridDBTableView(cxGrid1.Levels[0].Items[0].GridView);

GridView.BeginUpdate;

GridView.ClearItems;

GridView.DataController.CreateAllItems;

GridView.DataController.Refresh;

GridView.EndUpdate;

end;

技巧二：在内置右键菜单的后面增加菜单项

首先应在Form上加一个cxGridPopupMenu控件   以启用右键菜单

UseBuildInPopupMenus设为True

procedure   TFormItemList.FormCreate(Sender:   TObject);

var

AMenu:   TComponent;

FMenuItem,   FSubMenuItem:   TMenuItem;

begin

AMenu   :=   nil;

if   cxGridPopupMenu.BuiltInPopupMenus.Count   =   0   then

Exit;

AMenu   :=   cxGridPopupMenu.BuiltInPopupMenus[0].PopupMenu; //第一个内置右键菜单(表头菜单)

if   Assigned(AMenu)   and   AMenu.InheritsFrom(TPopupMenu)   then

begin

TPopupMenu(AMenu).AutoHotkeys   :=   maManual;         //手动热键

//-------------------------

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Caption   :=   ‘-‘;

FMenuItem.Name   :=   ‘miLineForGroup‘;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//展开所有组

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Name   :=   ‘miExpandAllGroup‘;

FMenuItem.Caption   :=   ‘展开所有组(&X)‘;

FMenuItem.OnClick   :=   miExpandAllGroupClick;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//收缩所有组

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Name   :=   ‘miCollapseAllGroup‘;

FMenuItem.Caption   :=   ‘收缩所有组(&O)‘;

FMenuItem.OnClick   :=   miCollapseAllGroupClick;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//-------------------------

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Caption   :=   ‘-‘;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//过滤面板

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Name   :=   ‘miFilterPanel‘;

FMenuItem.Caption   :=   ‘过滤面板(&P)‘;

//自动显示

FSubMenuItem   :=   TMenuItem.Create(Self);

FSubMenuItem.Name   :=   ‘miFilterPanelAuto‘;

FSubMenuItem.Caption   :=   ‘自动(&A)‘;

FSubMenuItem.RadioItem   :=   True;

FSubMenuItem.GroupIndex   :=   5; //指定同一组

FSubMenuItem.Checked   :=   True;

FSubMenuItem.OnClick   :=   miFilterPanelClick;

FMenuItem.Add(FSubMenuItem); //加入二级子菜单

//总是显示

FSubMenuItem   :=   TMenuItem.Create(Self);

FSubMenuItem.Name   :=   ‘miFilterPanelAlways‘;

FSubMenuItem.Caption   :=   ‘总是显示(&W)‘;

FSubMenuItem.RadioItem   :=   True;

FSubMenuItem.GroupIndex   :=   5;

FSubMenuItem.OnClick   :=   miFilterPanelClick;

FMenuItem.Add(FSubMenuItem);

//从不显示

FSubMenuItem   :=   TMenuItem.Create(Self);

FSubMenuItem.Name   :=   ‘miFilterPanelNerver‘;

FSubMenuItem.Caption   :=   ‘从不显示(&N)‘;

FSubMenuItem.RadioItem   :=   True;

FSubMenuItem.GroupIndex   :=   5;

FSubMenuItem.OnClick   :=   miFilterPanelClick;

FMenuItem.Add(FSubMenuItem);

TPopupMenu(AMenu).Items.Add(FMenuItem);

//自定义过滤

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Name   :=   ‘miCustomFilter‘;

FMenuItem.Caption   :=   ‘自定义过滤(&M)‘;

FMenuItem.OnClick   :=   miCustomFilterClick;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//过滤管理器

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Name   :=   ‘miFilterBuilder‘;

TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   44); //添加图标图像

FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1; //指定图标序号

FMenuItem.Caption   :=   ‘过滤管理器‘;

FMenuItem.OnClick   :=   Self.miFilterBuilderClick;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//---------------------

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Caption   :=   ‘-‘;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//导出

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Name   :=   ‘miExport‘;

TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   37);

FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1;

FMenuItem.Caption   :=   ‘导出(&E)‘;

FMenuItem.OnClick   :=   Self.miExportClick;

TPopupMenu(AMenu).Items.Add(FMenuItem);

//打印

FMenuItem   :=   TMenuItem.Create(Self);

FMenuItem.Name   :=   ‘miPrint‘;

FMenuItem.Caption   :=   ‘打印(&P)‘;

TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   14);

FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1;

FMenuItem.OnClick   :=   Self.miPrintClick;

TPopupMenu(AMenu).Items.Add(FMenuItem);

end;

end;

procedure   TFormItemList.miExportClick(Sender:   TObject);

var

FileName,   FileExt,   msg:   String;

begin

if   Self.aqyQuery.IsEmpty   then

begin

msg   :=   ‘没有导出数据...‘;

Application.MessageBox(PChar(msg),   PChar(Application.Title),

MB_OK   or   MB_IconWarning);

Exit;

end;

Self.SaveDialogExport.Filter   :=   ‘Excel文件   (*.xls)|*.xls|XML文件   (*.xml)|*.xml‘

+   ‘|文本文件   (*.txt)|*.txt|网页文件   (*.html)|*.html‘;

Self.SaveDialogExport.Title   :=   ‘导出为‘;

if   not   Self.SaveDialogExport.Execute   then

Exit;

FileName   :=   Self.SaveDialogExport.FileName;

FileExt   :=   LowerCase(ExtractFileExt(FileName));

if   FileExt   =   ‘.xls‘   then

ExportGrid4ToExcel(FileName,   Self.cxGrid1)

else   if   FileExt   =   ‘.xml‘   then

ExportGrid4ToXML(FileName,   Self.cxGrid1)

else   if   FileExt   =   ‘.txt‘   then

ExportGrid4ToText(FileName,   Self.cxGrid1)

else   if   FileExt   =   ‘.html‘   then

ExportGrid4ToHTML(FileName,   Self.cxGrid1)

else

begin

msg   :=   ‘不支持的导出文件类型...‘;

Application.MessageBox(PChar(msg),   PChar(Application.Title),

MB_OK   or   MB_IconError);

Exit;

end;

msg   :=   ‘导出完成...‘;

Application.MessageBox(PChar(msg),   PChar(Application.Title),

MB_OK   or   MB_IconInformation);

end;

procedure   TFormItemList.miPrintClick(Sender:   TObject);

begin

//打印

Self.dxComponentPrinter.Preview(True,   Self.dxComponentPrinterLink1);

end;

procedure   TFormItemList.cxGridPopupMenuPopup(ASenderMenu:   TComponent;

AHitTest:   TcxCustomGridHitTest;   X,   Y:   Integer;   var   AllowPopup:   Boolean);

begin

if   GetHitTypeByHitCode(AHitTest.HitTestCode)   =   gvhtColumnHeader   then //右击列标题时

begin

//if   tvResult.DataController.Groups.GroupingItemCount   >   0   then

if   tvResult.GroupedColumnCount   >   0   then //有分组时显示

begin

TMenuItem(Self.FindComponent(‘miLineForGroup‘)).Visible   :=   True;

TMenuItem(Self.FindComponent(‘miExpandAllGroup‘)).Visible   :=   True;

TMenuItem(Self.FindComponent(‘miCollapseAllGroup‘)).Visible   :=   True;

end

else

begin

TMenuItem(Self.FindComponent(‘miLineForGroup‘)).Visible   :=   False;

TMenuItem(Self.FindComponent(‘miExpandAllGroup‘)).Visible   :=   False;

TMenuItem(Self.FindComponent(‘miCollapseAllGroup‘)).Visible   :=   False;

end;

end;

end;

procedure   TFormItemList.miFilterBuilderClick(Sender:   TObject);

begin

//过滤管理器

//弹出Filter   Builder   Dialog对话框

tvResult.Filtering.RunCustomizeDialog;

end;

procedure   TFormItemList.miCustomFilterClick(Sender:   TObject);

var

AHitTest:   TcxCustomGridHitTest;

begin

//自定义过滤

//弹出Custom   Filter   Dialog对话框

AHitTest   :=   cxGridPopupMenu.HitTest;

if   GetHitTypeByHitCode(AHitTest.HitTestCode)   =   gvhtColumnHeader   then //获得右击的列

tvResult.Filtering.RunCustomizeDialog(TcxGridColumnHeaderHitTest(AHitTest).Column);

end;

procedure   TFormItemList.miFilterPanelClick(Sender:   TObject);

var

mi:   TMenuItem;

begin

//隐藏/显示过滤面板

mi   :=   TMenuItem(Sender);

mi.Checked   :=   True;

if   mi.Name   =   ‘miFilterPanelAlways‘   then

tvResult.Filtering.Visible   :=   fvAlways

else   if   mi.Name   =   ‘miFilterPanelNerver‘   then

tvResult.Filtering.Visible   :=   fvNever

else

tvResult.Filtering.Visible   :=   fvNonEmpty;

end;

procedure   TFormItemList.miExpandAllGroupClick(Sender:   TObject);

begin

//展开所有组

tvResult.DataController.Groups.FullExpand;

end;

procedure   TFormItemList.miCollapseAllGroupClick(Sender:   TObject);

begin

//收缩所有组

tvResult.DataController.Groups.FullCollapse;

end;

技巧三   按条件计算合计值

在Footer的第一列显示[合计:]

加一个Summary项,Column设为Grid的第一列,Kind设为skNone

在该Summary项的OnGetText事件中,输入:

procedure  
TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText(

Sender:  
TcxDataSummaryItem;   const   AValue:  
Variant;   AIsFooter:   Boolean;

var   AText:  
String);

begin

AText   :=   ‘合计:‘;

end;

按条件汇总:

在TableView的DataController->Summary->FooterSummary->OnSummary事件中,输入:

procedure   TFormExpense.tvExpenseDataControllerSummaryFooterSummaryItemsSummary(

ASender:  
TcxDataSummaryItems;   Arguments:  
TcxSummaryEventArguments;

var   OutArguments:  
TcxSummaryEventOutArguments);

begin

//得到字段名  
TcxDBDataSummaryItem(Arguments.SummaryItem).FieldName;

if  
(ASender.DataController.Values[Arguments.RecordIndex,  
tvExpenseLevel.Index]   >  
1)       //只统计Level列=1的值

and  
(TcxDBDataSummaryItem(Arguments.SummaryItem).Kind   =  
skSum)   then

OutArguments.Value  
:=   0; //Level   >   1的统计值设为0

end;

技巧四:根据某列的值设定其它列的可编辑性

procedure   TFormUser.tvUserEditing(Sender:  
TcxCustomGridTableView;

AItem:  
TcxCustomGridTableItem;   var   AAllow:  
Boolean);

begin

//如果第三列值为True,则第4列不能修改

if  
(tvUser.Controller.FocusedRecord.Values[2]   =  
True)   and   (AItem.Index   =  
4)   then

AAllow  
:=   False

else

AAllow  
:=   True;

end;

技巧五:保存/恢复Grid布局

//恢复布局

IniFileName   :=  
ExtractFilePath(Application.ExeName)   +  
‘Layout\‘   +   Self.Name   +  
‘.ini‘;

if   FileExists(IniFileName)  
then

Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复

else

begin

Self.tvResult.BeginUpdate;

for   i   :=  
0   to   Self.tvResult.ItemCount   -  
1   do

Self.tvResult.Items[i].ApplyBestFit; //调整为最佳宽度

Self.tvResult.EndUpdate;

end;

//保存布局

IniFileName   :=  
ExtractFilePath(Application.ExeName)   +  
‘Layout\‘   +   Self.Name   +  
‘.ini‘;

if   not  
DirectoryExists(ExtractFileDir(IniFileName))   then

CreateDir(ExtractFileDir(IniFileName));

Self.tvResult.StoreToIniFile(IniFileName); //保存为布局文件

时间： 2024-10-18 22:44:04

delphi CXGRID用法 （取行、列值；定位选中某行等等）的相关文章

delphi CxGrid用法总结(63问)

1. 去掉cxGrid中台头的Box 解决:在tableview1的optionsview的groupbybox=false; ***************************************************************************** 2．统计功能 解决:(1) tableview tableview1的optionsviewfooter=ture 然后在cxGRid1的customize..中的summary 的footer.add需要合计的列k

明文密码和散列值抓取防范方法

一.单机密码抓取的防范方法 微软为了防止用户密码在内存中以明文形式泄露,发不了补丁KB2871997,关闭了Wdigest功能.windows server 2012以上版本默认关闭Wdigest,使攻击者无法从内存中获取明文密码.对于win server 2012以下版本,通过安装KB2871997补丁,可以避免攻击者获取明文密码. 通过查看注册表键值,可以判断Wdigest功能状态.如果该项值为“1”则为开启,即可以获取明文密码,如果该项值为“0”,则明文密码不会出现在内存中.开启和关闭Wd

CXGRID用法（取行、列值；定位选中某行等等）

Delphi Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值 cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号 cxGrid1DBTableView1.Controller.FocusedRow 当前行cxGrid1DBTableView1.Controller.FocusedColumn 当前列cxGrid1DBTableView1.Controller.FocusedColumnIndex 当前列号cxGrid1DBTab

Hbase 098.4中使用新API通过Get列表获取多行的列值

在Hbase0.98.4中通过Get列表的方式获取Hbase中多行的列值,本来想使用KeyValue类来处理的,结果发现该类的getRow()和getValue()的两个方法已经废弃了,最终使用新API中的Cell接口来实现,如下: Hbase中测试表中数据如下: hbase(main):005:0> scan 'testtable' ROW                      COLUMN+CELL                                             

转Delphi中Memo显示行号列号

http://www.alonely.com.cn/Delphi/20160814/8912.html 实例说明本例是个光标应用的简单技巧,希望通过这个例子的学习后能举一反三.Delphi中像这样简单而又实用的例子还有很多,只要平时多注意积累就能写出简洁.执行效率高的代码.编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值,即可获知此组件中光标所在的行号,向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号 实例说明 本例是个光标应用

按某一字段分组取最大(小)值所在行的数据 分拆列值（转） 日期的推算

数据如下:name val memoa 2 a2(a的第二个值)a 1 a1--a的第一个值a 3 a3:a的第三个值b 1 b1--b的第一个值b 3 b3:b的第三个值b 2 b2b2b2b2b 4 b4b4b 5 b5b5b5b5b5*/--创建表并插入数据:create table tb(name varchar(10),val int,memo varchar(20))insert into tb values('a', 2, 'a2(a的第二个值)')insert into tb v

SharePoint 取附加列的值

SharePoint列表中有一个附加列Degree:Rank,已知该列表中的某个item,要想获得该附加列的值,可通过以下代码实现: SPFieldLookupValue degreeRankLookUpValue = new SPFieldLookupValue((string)item["Degree_x003a_Rank"]);int degreeRank = (int)Convert.ToSingle(degreeRankLookUpValue.LookupValue); 其中

无法插入空行。行必须至少有一个列值集

ADOTable,在post的时候出现 无法插入空行.行必须至少有一个列值集 可能的原因是,某个字段的宽度不够.

WPF{ComboBox绑定类对象， 下拉列显示的值，与取到的值}

DisplayMemberPath 是用来显示下拉列表的值 SelectedValuePath是用来取得选中项的值. ComboBox绑定类对象, 下拉列显示的值,与取到的值 string. Join的作用 输出结果是