CSDN论坛 > VB > 控件

请教VB 中dbgrid控件问题 [问题点数:0分,结帖人hcyzs]

Bbs1
本版专家分:36
结帖率 100%
CSDN今日推荐
Bbs1
本版专家分:0
Blank
红花 2001年8月 扩充话题大版内专家分月排行榜第一
Blank
黄花 2001年7月 扩充话题大版内专家分月排行榜第二
Bbs3
本版专家分:857
Bbs1
本版专家分:0
Blank
红花 2001年8月 扩充话题大版内专家分月排行榜第一
Blank
黄花 2001年7月 扩充话题大版内专家分月排行榜第二
Bbs3
本版专家分:691
Bbs1
本版专家分:81
匿名用户不能发表回复!登录|注册
其他相关推荐
DBGrid控件“点击标题栏自动排序功能”
 procedure TForm1.DBGrid1TitleClick(Column: TColumn); var  I,ii:Integer;  cStr:string;  c:TColumn; begin for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do begin  c:=TDBGrid(Column.Grid).Columns[ii]
DBGrid 各属性的设置
在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程,我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色,以及相关的字体的大小和风格。     以下的示例程序演示了对 DBGrid 各属性的设置,使 Delphi 显示的
Delphi DBGrid使用大全
Delphi DBGrid使用大全 Delphi DBGrid使用大全   delphi中TDBGrid的使用 2010-06-24 10:03 procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;Stat
将DBGrid中的数据快速导出到Excel的控件
发布原因:<br>在网上找了很久也没找到个好用的,不是慢,就是要依赖Excel(必须按装),又找呀找,才找到一个http://blog.csdn.net/xiangding/archive/2003/10/27/16918.aspx,但试了一下,不能用,不知是我用法不对还是本身有问题(由于没有给出使用示例),后来找到http://developer.51cto.com/art/200510/7494.htm这个不错,但他又让我装ehlid,不爽,所以对其做了修改,其它也就是去了个加页脚的地方,很爽,有进度条,导完后如果按安装了Excel则直接打开,如果没有的话就不管了,自已想办法打开吧!<br><br>特点:<br>一、不需安装Excel即可导出。<br>二、有进度条。<br>三、最多可以导出多少条,我没试,我试了5万条没有问题,时间也就是只需1-5分钟(我电脑较慢)。<br>四、不需安装组件。<br><br>使用方法(注:别忘了uses DBGridToExcel;):<br>procedure TForm1.btn1Click(Sender: TObject);<br>var<br> DBGridToExcel: TDBGridToExcel;<br> ExcelFileName: string;<br>begin<br> DBGridToExcel := TDBGridToExcel.Create(nil);<br> try<br> DBGridToExcel.TitleName := '入网车辆统计报表';<br> DBGridToExcel.BeginDate := '开始日期:2005-07-01';<br> DBGridToExcel.EndDate := '结束日期:2005-07-18';<br> DBGridToExcel.UserName := '系统管理员';<br> DBGridToExcel.DBGrid := dbgrd1;<br> DBGridToExcel.ShowProgress := True;<br> if ExcelFileName = '' then<br> begin<br> ExcelFileName := 'c:\1.xls';<br> with TSaveDialog.Create(nil) do<br> begin<br> Filter := 'Microsoft Excel xls文件|*.xls';<br> DefaultExt := 'xls';<br> if not Execute then<br> Exit<br> else<br> ExcelFileName := FileName;<br> end;<br> end;<br> DBGridToExcel.FileName := ExcelFileName;<br> DBGridToExcel.Open := False;<br> DBGridToExcel.ExportToExcel;<br> finally<br> DBGridToExcel.Free;<br> end;<br>end;<br>
Delphi中DBgrid控件数据库点击某列按序排列
Delphi中DBgrid控件数据库点击某列按序排列 procedure Tmainform.DBGrid2TitleClick(Column: TColumn); var i : integer; begin   for i:= 1 to DBGrid2.Columns.Count do   begin     //恢复所有标题字体为默认     DBGrid2.Columns
delphi7 dbgrid中加入COMBOBOX
在DBGrid 网 格 中 实 现 下 拉 列 表, 设 置 好DBGrid 中 该 字 段 的PickList  字 符 串 列 表、 初 始 的 序 号 值DropDownRows 即 可。 以 职 工 信 息 库 中  的 籍 贯 字 段( 字 符 串 类 型) 为 例, 具 体 设 计 步 骤 如 下:  1、 在 窗 体 上 放 置Table1、DataSource1、DBGrid
VB添加滚轮支持
在VB6.0的编程界面,我们在写代码和调试代码的时候要经常遇到上下滚动的功能,而目前大多数的电脑在安装vb6.0后,没有滚轮支持这一功能。鉴于不讲究和方便考虑,在这将解决的方法推荐给大家。     1.首先你电脑必须拥有VB6IDEMouseWheelAddin.dll这个动态链接库点击下载 访问密码 a011。     2.下载完成后将该文件放到如下路径下:(1)Windows的32位操作系
DBGrid显示行号的几种方法
先在DataSet控件的加号点开,在里面的fields点右键add all fields,然后再右键new fields,这里添加一个数据表里没有的字段比如NO,这个NO字段设置为Integer,下面设置为calculated,确定,然后在这个NO字段的事件OnGetText里面添加这个代码:          int r=Sender->DataSet->RecNo;      Text=(
在DBGrid中加入Checkbox
最近因为一个项目的原因想在DBGrid加入Checkbox,当然同样的功能Ehlib已经有一个控件DBGridEh已经实现。但是我不太喜欢它因为它太复杂了,而我又是一个比较赖的人,于是就想一个简单一点的方法,后来在橙子的博客发现了一段代码,拿来一试,呵呵搞定!我们开始吧1、新建一个项目,在其中加入ADOConnection1,ADOQuery1,DataSetProvider1, ClientDa
DataSnap DBGrid DateTimePicker 组合输入日期值
对于DataSnap三层数据库软件,对于日期格式要求比较严格,如日期采用“yyyy-MM-dd”格式,人工输入时,常会出现错误,将“2014-01-01”会错误录入成“2014-1-1”。为了避免用户录入错误。在DBGrid录入时,通过DateTimePicker规范录入格式,起到减少错误的效果。笔者通过参考网上的例子,通过DateTimePicker与DBGrid两控件的结合,将DateTime
关闭