![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
grid
文章平均质量分 60
hnxxcxg
这个作者很懒,什么都没留下…
展开
-
dbgrideh设置可显示列
{*******************************************************}{ }{ 表格编辑 }{原创 2008-03-30 09:04:00 · 1232 阅读 · 0 评论 -
cxgrid经典用法
<br />1.简单介绍:cxGrid右下方的cxGrid1Level1是表示Grid表的层,cxGrid可以有多层,这相当于集合了PageControl的功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当于DBGrid一样。右击cxGrid1可以添加cxGrid1Level2,右击cxGrid1Level2,可以选择Create View , Add level 或者Delete Level。Add level可以增加子Level,Create View里面可以选择很多不同原创 2011-01-22 21:31:00 · 604 阅读 · 0 评论 -
cxgrid上如何取FOOTER上合计的值
<br />View_Client.DataController.Summary.FooterSummaryValues[0],//得到值<br />View_Client.DataController.Summary.FooterSummaryTexts //得到显示文字<br />View_Client.DataController.Summary.FooterSummarys //得到合计对象原创 2011-01-23 14:31:00 · 892 阅读 · 0 评论 -
cxgrid动态显示行号
type TMyCxGrid = class(TObject) class procedure DrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); end;{ TMyCxGrid }class procedure TMyCxGrid.DrawIndicatorCell原创 2011-01-22 17:10:00 · 1110 阅读 · 1 评论 -
能用图形分析
<br />object FormChart: TFormChart<br /> Left = 106<br /> Top = 175<br /> Width = 758<br /> Height = 485<br /> Caption = '图形分析'<br /> Color = clBtnFace<br /> Font.Charset = ANSI_CHARSET<br /> Font.Color = clWindowText<br /> Font.Height = -12<br />原创 2011-01-22 21:23:00 · 470 阅读 · 0 评论 -
myCxGrid
<br />//author: cxg<br />//操作cxgrid<br />unit myCxGrid;<br />interface<br />uses<br /> SysUtils, ComCtrls, Forms, Messages, Windows, ExtCtrls, StdCtrls<br /> , Graphics, Controls, Dialogs, Classes,<br /> cxCustomData, cxGraphics,<br /> cxFilter, cxData原创 2011-01-31 20:34:00 · 689 阅读 · 0 评论 -
通用下拉选择框
<br />object FormChoose: TFormChoose<br /> Left = 331<br /> Top = 269<br /> BorderStyle = bsDialog<br /> Caption = #36873#25321<br /> ClientHeight = 242<br /> ClientWidth = 439<br /> Color = clBtnFace<br /> Font.Charset = DEFAULT_CHARSET<br /> Fon原创 2011-02-23 21:10:00 · 735 阅读 · 0 评论 -
cxgrid 获取合计行数值
procedure Tfrm1.TableViewDataControllerSummaryAfterSummary( ASender: TcxDataSummary);begin inherited;iSaleAmt:=TableView.GetColumnByFieldName('SaleAmt').Index;vSaleAmt:=ASender.FooterSummaryValues[iSaleAmt];原创 2011-05-07 22:18:00 · 833 阅读 · 0 评论 -
TSelect
unit uSelect;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FindDM, Grids, DBGr原创 2011-09-05 21:31:31 · 467 阅读 · 0 评论 -
TFindFrames
unit FindDM;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ExtCtr原创 2011-09-05 21:30:33 · 412 阅读 · 0 评论 -
表格内嵌编辑控件
在DBGrid 中嵌入一个 DBComboBox1procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);原创 2011-09-19 22:16:29 · 635 阅读 · 0 评论 -
cxdbtreelist新增
type TMYDBControler = class(TcxDBTreeListDataController);procedure TForm15.Button1Click(Sender: TObject);var AParentKeyValue: Vari原创 2011-09-19 22:18:13 · 1097 阅读 · 0 评论 -
cxgrid动态多表头
function TForm15.CreateBand(View: TcxGridDBBandedTableView; BandCaption, ParentBandCaption: String): TcxGridBand;var band: TcxGridBa原创 2011-09-24 20:51:40 · 1123 阅读 · 0 评论 -
cxgrid动态创建footer
procedure CreateSumFooter(cxTableView: TcxGridDBTableView; const fieldList: string);var i: Integer; f: TcxGridDBTableSummaryItem; l: TStringList;begin l := TStringList.Create; l.DelimitedText := fieldList; l.Delimiter := ','; cxGrid1DBTableView1.Op原创 2011-01-22 16:19:00 · 854 阅读 · 0 评论 -
cxgrid显示行号
<br />把cxGridView里OptionsView选项中的两项修改成如下<br /> OptionsView.Indicator = True<br /> OptionsView.IndicatorWidth = 40//宽度<br />在customDrawIndicatorCell事件中填写<br />procedure TForm1.cxGrid1BandedTableView1CustomDrawIndicatorCell(<br /> Sender: TcxGridT原创 2011-01-22 15:54:00 · 759 阅读 · 0 评论 -
动态设置和访问cxgrid列的Properties
设置:cxGrid1DBTableView1Column.PropertiesClass = TcxTextEditProperties; cxGrid1DBTableView1Column.PropertiesClass = TcxDateEditProperties; cxGrid1DBTableView1Column.PropertiesClass =转载 2010-05-24 09:49:00 · 1677 阅读 · 0 评论 -
DBGRIDEH保存"显示标题"
//edit by cxg. 2008-04-19 10:01:52//增加保存"显示标题"procedure TCustomDBGridEh.SaveColumnsLayoutProducer(ARegIni: TObject; Section: String; DeleteSection: Boolean);var I: Integer; S: String;begin if (ARe原创 2008-04-19 10:49:00 · 620 阅读 · 0 评论 -
dbgrideh的導入和導出
{*******************************************************}{ }{ 导出Tdbgrideh数据 }{原创 2009-03-26 08:59:00 · 1416 阅读 · 0 评论 -
取dbgrideh當前cell裏面的數據
tdbgrideh(Sender).InplaceEditor.EditText原创 2009-12-10 14:48:00 · 423 阅读 · 0 评论 -
画Stringgrid斑马线
procedure TformRule.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin if (ARow = 0) or (ACol = 0) then exit; with sender as tstringgrid do /原创 2009-12-20 13:11:00 · 415 阅读 · 0 评论 -
cxgrid技巧集
========================================================================== 在主从TableView中根据主TableView得到对应的从TableView var ADetailDC: TcxGridDataController; AView: TcxCustomGridTableView; begin with cx转载 2010-05-17 15:15:00 · 371 阅读 · 0 评论 -
改良dbgrideh的文字过滤
uses ehlibado; 改良dbgrideh的文字过滤,原先过虑需要填%字符串%,修改后,直接填入所要搜索的字符串即可,相关代码: procedure TSTColumnFilterEh.InternalSetExpressionStr(const Value: String); procedure SetLookupKeyValues(var v: V原创 2010-05-19 15:13:00 · 957 阅读 · 0 评论 -
保存/恢复cxGrid布局
//恢复布局 IniFileName := ExtractFilePath(Application.ExeName) + Layout/ + Self.Name + .ini; if FileExists(IniFileName) then Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复 else begin Self.tv转载 2010-05-24 09:26:00 · 1093 阅读 · 0 评论 -
cxgrid动态生成BandedView
var AView: TcxCustomGridView; begin AView := .CreateView(TcxGridDBBandedTableView); TcxGridDBBandedTableView(AView).DataController.DataSource := ; TcxGridDBBandedTableView(AView).Bands.Add; with TcxGr转载 2010-05-24 09:28:00 · 602 阅读 · 0 评论 -
cxgrid在当前View插入记录
使用FocusedView属性得到当前焦点View,用View.DataController得到对应的Data Controller, 之后使用Data Controller的方法来操作数据: - Append - Insert - Post - Cancel - DeleteFocused - DeleteSelection 示例: var ARecIndex: Integer; … View.转载 2010-05-24 09:30:00 · 549 阅读 · 0 评论 -
cxgrid导出excel
uses cxexportgrid4link;var SaveDialog: TSaveDialog;begin SaveDialog:=TSaveDialog.Create(nil); with SaveDialog do begin Filter := *.xls|*.xls; if Execute then begin Expo转载 2010-05-24 09:44:00 · 2544 阅读 · 0 评论 -
cxgrid按条件计算合计值
在Footer的第一列显示[合计:] 加一个Summary项,Column设为Grid的第一列,Kind设为skNone 在该Summary项的OnGetText事件中,输入: procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText( Sender: TcxDat转载 2010-05-24 09:22:00 · 823 阅读 · 0 评论 -
cxgrid在内置右键菜单的后面增加菜单项
在内置右键菜单的后面增加菜单项 首先应在Form上加一个cxGridPopupMenu控件 以启用右键菜单 UseBuildInPopupMenus设为True procedure TFormItemList.FormCreate(Sender: TObject); var AMenu: TComponent; FMenuItem, FSubMenuItem: TMenuItem; begin A转载 2010-05-24 09:39:00 · 766 阅读 · 0 评论