C++Builder中有关TDBGrid的几个技巧

最新推荐文章于 2023-05-26 23:28:54 发布
最新推荐文章于 2023-05-26 23:28:54 发布
阅读量5.4k 收藏 4
点赞数
文章标签： c++builder windows 数据库 报表 class null

摘  要:本文给TDBGrid增加了dgThumbTracking、及dgMouseWheel两个选项，用来支持滚动条的跟踪和鼠标滚轮。以及有关DBGrid行列颜色的一个技巧。

关键词:C++Builder  TDBGrid  ThumbTracking  MouseWheel  控件

 

　　TDBGrid是数据库应用程序不能不使用的一个控件,它功能出奇的强大，基本上可以完成所有数据报表的显示，甚至还可以显示ADT和数组字段；TDBGrid的操作也很简单，比如固定字段的转换，实用又方便，它的属性、方法、事件等也都很直观;但就像能耐大的人都有点脾气一样，TDBGrid也有一些让我们不好理解的行为，其中大家谈论最多就是它怪异的键盘操作方式。

　　我在实际应用中感到很奇怪的是TDBGrid经TCustomDBGrid从TCustomGrid派生而来，却为什么不再支持TCustomGrid的goThumbTracking选项，滚动条的实时跟踪是很实用的，无法想象浏览一个记录集时，非要放开鼠标键才能知道滚动到记录集的什么位置。另外，TDBGrid对鼠标滚轮的支持有问题，当使用滚轮时，只是滚动了输入框，而没有滚动记录集，出现了焦点与当前记录不一致的错误。

　　技巧一、二，提供滚动条的实时跟踪及鼠标滚轮的支持。

　　直接从TDBGrid继承，创建一个TJDBGrid控件，增加了dgThumbTracking、及dgMouseWheel两个选项，源码如下:

　　//JDBGrid.h文件内容

//-------------------------------------------------------------------------　　#ifndef JDBGridH

　　#define JDBGridH

//-------------------------------------------------------------------------　　#include <SysUtils.hpp>

　　#include <Classes.hpp>

　　#include <Controls.hpp>

　　#include <DBGrids.hpp>

　　#include <Grids.hpp>

//-------------------------------------------------------------------------　　class PACKAGE TJDBGrid : public TDBGrid

　　{

　　enum TDBGridOption{ dgEditing, dgAlwaysShowEditor,

                     　　dgTitles, dgIndicator, dgColumnResize,

                     　　dgColLines, dgRowLines, dgTabs,

                     　　dgRowSelect, dgAlwaysShowSelection,

                     　　dgConfirmDelete, dgCancelOnExit,

                     　　dgMultiSelect ,dgThumbTracking,dgMouseWheel};

　　typedef Set<TDBGridOption,dgEditing,goThumbTracking>  TDBGridOptions;

　　private:

        　　TDBGridOptions FOptions;

　　protected:

       　　 TWndMethod DBGridProc;

       　　 TWndMethod DBInplaceEditProc;

        　　virtual void __fastcall JDBInplaceEditProc(Messages::TMessage &Message);

        　　virtual void __fastcall JDBGridProc(Messages::TMessage& Message);

        　　virtual Grids::TInplaceEdit* __fastcall CreateEditor(void);

       　　 void __fastcall SetOptions(TDBGridOptions Value);

　　public:

　　__fastcall TJDBGrid(TComponent* Owner);

　　__published:

__property TDBGridOptions Options = {read=FOptions, write=SetOptions,default=27901};

　　};

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

　　#endif

//JDBGrid.cpp文件内容

//-------------------------------------------------------------------------　　#include <vcl.h>

　　#pragma hdrstop

　　#include "JDBGrid.h"

　　#pragma package(smart_init)

　//-------------------------------------------------------------------------　　       static inline void ValidCtrCheck(TJDBGrid *)

　　{

　　        new TJDBGrid(NULL);

　　}

//-------------------------------------------------------------------------fastcall TJDBGrid::TJDBGrid(TComponent* Owner):TDBGrid(Owner)

　　{

　　   short *shortTmp;

　　   Dbgrids::TDBGridOptions optionsTmp;

　　   (void*)shortTmp=(void*)&FOptions;

　　   *shortTmp=27901;

　　   (void*)shortTmp=(void*)&optionsTmp;

　　   *shortTmp=3325;

　　   TDBGrid::Options=optionsTmp;

　　   DBGridProc=WindowProc;

　　   WindowProc=JDBGridProc;

　　}

//-------------------------------------------------------------------------　　void __fastcall TJDBGrid::SetOptions(TDBGridOptions Value)

　　{

　　   short *pValue,*pOp,*pFOp,saveValue;

　　   Dbgrids::TDBGridOptions DBGridOptions;

　　   (void*)pValue=(void*)&Value;

　　   (void*)pOp=(void*)&DBGridOptions;

　　   (void*)pFOp=(void*)&FOptions;

　　   *pOp=*pValue & 0x1fff;

　　   TDBGrid::Options=DBGridOptions;

　　   DBGridOptions=TDBGrid::Options;

　　   *pFOp=*pOp | (*pValue & 0x6000);

　　}

　　//-------------------------------------------------------------------------　　void __fastcall TJDBGrid::JDBInplaceEditProc(Messages::TMessage &Message)

　　{

　　   switch (Message.Msg)

　　   {

　　      case WM_MOUSEWHEEL:

　　         if(Options.Contains(dgMouseWheel))

　　         {

　　            if (DataLink->Active)

　　            {

               if (Message.WParam<0)

　　               {

                if (DataLink->DataSet->RecNo<DataLink->DataSet->RecordCount)

                DataLink->DataSet->RecNo++;

　　               }

　　               else

　　               {

　　                  if (DataLink->DataSet->RecNo>1)

　　                     DataLink->DataSet->RecNo--;

　　               }

　　            }

　　            if (!Options.Contains(dgAlwaysShowEditor))

　　               EditorMode=false;

　　            return;

　　         }

　　      break;

　　   }

　　   DBInplaceEditProc(Message);

　　}

//-------------------------------------------------------------------------　　Grids::TInplaceEdit* __fastcall TJDBGrid::CreateEditor(void)

　　{

　　   TInplaceEdit *tmp;

　　   tmp=TDBGrid::CreateEditor();

　　   DBInplaceEditProc=tmp->WindowProc;

　　   tmp->WindowProc=JDBInplaceEditProc;

　　   return tmp;

　　}

　//-------------------------------------------------------------------------　　void __fastcall TJDBGrid::JDBGridProc(Messages::TMessage& Message)

　　{

　　   switch (Message.Msg)

　　   {

　　      case WM_VSCROLL:

　　      case WM_HSCROLL:

　　         if (Options.Contains(dgThumbTracking))

　　            if (Message.WParamLo==5)

　　            {

　　               DBGridProc(Message);

　　               Message.WParamLo=4;

　　               DBGridProc(Message);

　　               Message.WParam=8;

　　            }

　　      break;

　　      case WM_MOUSEWHEEL:

　　         if(Options.Contains(dgMouseWheel))

　　         {

　　            DBGridProc(Message);

　　            if (DataLink->Active)

　　            {

　　               if (Message.WParam<0)

　　               {

　　            if (DataLink->DataSet->RecNo<DataLink->DataSet->RecordCount)

　　            DataLink->DataSet->RecNo++;

　　               }

　　               else

　　               {

　　            if (DataLink->DataSet->RecNo>1)

　　            DataLink->DataSet->RecNo--;

　　               }

　　            }

　　            if (!Options.Contains(dgAlwaysShowEditor))

　　            EditorMode=false;

　　            return;

　　         }

　　      break;

　　   }

　　   DBGridProc(Message);

　　}

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

　　namespace Jdbgrid

　　{

　　        void __fastcall PACKAGE Register()

　　        {

　　                 TComponentClass classes[1] = {__classid(TJDBGrid)};

　　                 RegisterComponents("Samples", classes, 0);

　　        }

　　}

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

　　技巧三，行列不同颜色时，交叉部位颜色的设置。

　　如图：在交叉部位使用行列颜色的alpha混合。

响应TDBGrid的OnDrawColumnCell事件如下：

    void __fastcall TForm1::JDBGrid1DrawColumnCell(TObject *Sender,

          const TRect &Rect, int DataCol, TColumn *Column,

          TGridDrawState State)

    {

       int recordNo,tmpInt;

       if (JDBGrid1->DataSource->DataSet->Active)

       {

          recordNo=DataCol=JDBGrid1->DataSource->DataSet->RecNo % 10;

          if (recordNo ==0 || recordNo>5 )

             JDBGrid1->Canvas->Brush->Color=0xb0b0ff;

          else

             JDBGrid1->Canvas->Brush->Color=0xffe0e0;

          tmpInt=Column->Color;

          if (tmpInt!=clWindow)

          {

              int R1,G1,B1,R2,G2,B2,rgbTmp;

              int alpha=60;

              rgbTmp=JDBGrid1->Canvas->Brush->Color;

              R1=tmpInt & 0xff;

              G1=(tmpInt & 0xff00)>>8;

              B1=(tmpInt & 0xff0000)>>16;

              R2=rgbTmp & 0xff;

              G2=(rgbTmp & 0xff00)>>8;

              B2=(rgbTmp & 0xff0000)>>16;

              R1=(R1*alpha+R2*(256-alpha))>>8;

              G1=(G1*alpha+G2*(256-alpha))>>8;

              B1=(B1*alpha+B2*(256-alpha))>>8;

              JDBGrid1->Canvas->Brush->Color=(TColor)(R1+(G1<<8)+(B1<<16));

          }

          JDBGrid1->Canvas->FillRect(Rect);

       }

       JDBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);

    }

　　以上代码在C++Builder 6.0 Windows XP下调试通过。

yaneng
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
【C++ Builder 6.0】设置DBGrid单元显示格式
zyk的博客
12-21 1335
1.设置列的展示格式 DBGrid的DataSource设置一个ADOquery。 双击ADOquery，在弹出的字段编辑器中，新增要设置的字段。 点击新增字段，设置displayformat属性。例如展示为，带有三位小数。0.000 2.设置行高 ((TStringGrid *)dbgrd1)-&gt;DefaultRowHeight = 50; 3.技巧，快速向DBGrid添加字段...
BCB6实例教程
06-28
Borland_C++_Builder6.0简易实例教程，可帮你快速了解BCB.
C++ Builder DrawGrid 控件如何对特定的单元格进行颜色填充和字体设置。
fall_on_me的博客
05-26 215
C++ Builder DrawGrid 控件如何对特定的单元格进行颜色填充和字体设置
c++ builder OLE创建Excel表格
wyp331993272的专栏
06-09 1492
#include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; #define
C++ Builder初学问与答8
cyp0207的专栏
11-28 711
8.图形类组件 59）问：Windows是一个图形系统，C++Builder是怎样处理图形的呢？ 答：C++Builder通过提供图形组件来处理图形，其中比较常用的有图像组件（Image）、几何图形组件（Shape）和画板组件（PaintBox）。前两个组件位于Additional页中，画板组件位于System页中。 在BCB中，Form、Image、BitMap、PaintBox等都具有绘图能力
DBGrid 应用系列
简简单单
01-15 1994
DBGrid 应用系列版权所有 codesky.net 2003-2005发表时间：2004-10-19    关键字:未知在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的
C++Builder组件大全.zip
05-27
在C++Builder中，组件分为几个主要类别，包括基本组件、标准组件、数据库组件、Internet组件等。这些组件具有各自的属性、方法和事件，它们是理解和使用C++Builder组件的关键概念： 1. **属性**：每个组件都有一个...
C++Builder案例开发集锦(第二版)
11-17
C++Builder案例开发集锦的核心内容可能包括以下几个方面： 1. **C++Builder基础**：介绍C++Builder的基本界面、项目管理、编译与调试工具的使用方法，以及VCL组件库的结构和功能。 2. **VCL组件应用**：详细讲解...
图表chart的使用（c++builder）
06-23
在C++Builder中，`TChart`控件是用于创建各种图表类型，如折线图、柱状图、饼图等的工具。这个控件来自`DevExpress`库，提供了丰富的功能，使得开发者能够轻松地在应用程序中添加可视化数据展示。在“图表chart的...
C++Builder6.0界面开发实例
03-14
在C++Builder中，你需要了解以下几个关键概念： 1. **表单（Form）**：表单是应用程序的窗口，它承载着所有的界面元素。你可以通过Form Designer来设计表单的布局和外观。 2. **组件（Component）**：组件是构成用户...
Builder组件大全
01-28
"Builder组件大全"这个资源显然是一个关于C++Builder组件的综合指南，对于想要深入理解和应用C++Builder的开发者来说，是非常有价值的。 首先，我们要理解什么是组件。在C++Builder中，组件是预先编写好的对象，...
BCB刷新DBgrid不换行
05-17
BCB 刷新 dbgrid列表 不换行
C++Builder之TChart与TDBChart
ljianhui的专栏
07-26 3664
最近接触得比较多C++Builder的Tchart和TDBchart这两个控件，也在网上搜索了很多资料，我就整理一下把常用的分享一下。     一、显示数据柱数据图表DBChart对象用于在报表中插入图表。双击数据图表对象，可以调出图表编辑器：     (1)Series类型：（a)Format页（数据柱的风格）在Color Each中打勾，就可使用多种颜色显示,color按钮用于设置颜色，S
获取dbgrid的行索引
diligentcat的专栏
11-07 528
只要将dbgrid转换为tstringgrid即可。   ShowInt(TStringGrid(rzdbgrd1).Row);
如何在DBGrid中利用鼠标取得单元格的值
阿里个包
07-01 3022
如上3图所示，右键菜单里的选项随着鼠标指向的单元格数据不同而不同。如何实现呢？问题的关键在于如何取得鼠标指向的单元格的值。 查BCB帮助，看到DBGrid中有一方法： TCustomGrid::MouseCoord TCustomGrid See also ———————————————————————— Returns the row and column indexes of th
DBGridEh（增强型表格组件）功能详解
虫二的专栏~~在路上~~~
12-25 3796
DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持Borland Delphi versions 4，5，6＆7 和 Borland C++ Builde
bcb dbgrid 动态隐藏Columns
chutuoyong1130的博客
02-14 220
DBGrid1->Columns->Items[i]->Visible = false; 转载于:https://my.oschina.net/u/3044416/blo...
c++ builder 使用sql教程
最新发布
05-28
C++ Builder 可以使用多种数据库，其中之一是 SQL。以下是使用 SQL 数据库的简单教程： 1. 创建数据库连接 首先，需要创建一个数据库连接组件。打开“组件”窗口，从“数据访问”选项卡中拖拽一个“TSQLConnection”组件到窗口中。 2. 配置数据库连接 双击“TSQLConnection”组件，打开属性编辑器。在“ConnectionName”属性中，输入一个名称，例如“myConnection”。在“DriverName”属性中选择您要使用的数据库驱动程序。在“Params”属性中，输入您的数据库连接信息，例如： ``` Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword; ``` 3. 创建数据集 在“组件”窗口中，从“数据访问”选项卡中拖拽一个“TSQLDataSet”组件到窗口中。双击“TSQLDataSet”组件，打开属性编辑器。在“SQLConnection”属性中，选择您刚刚创建的数据库连接组件。在“CommandText”属性中，输入您要执行的 SQL 查询。 4. 创建数据源 在“组件”窗口中，从“数据访问”选项卡中拖拽一个“TDataSource”组件到窗口中。双击“TDataSource”组件，打开属性编辑器。在“DataSet”属性中，选择您刚刚创建的数据集组件。 5. 显示数据 在窗口中放置一个“TDBGrid”组件，并将其“DataSource”属性设置为您刚刚创建的数据源组件。现在您可以编译并运行您的应用程序，以查看从 SQL 数据库检索的数据。 以上是使用 SQL 数据库的简单教程。需要注意的是，具体的步骤和操作可能因不同的数据库而有所不同。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值