社区
Delphi
帖子详情
在DBGRID中如何插入记录号子?
「已注销」
2003-09-11 03:10:43
有一个CLIENTDATASET,如何在要显示的DBGRID的第一列显示出该记录号?
...全文
28
回复
打赏
收藏
在DBGRID中如何插入记录号子?
有一个CLIENTDATASET,如何在要显示的DBGRID的第一列显示出该记录号?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Delphi在
DB
Grid
中
插入
下拉组合框
Delphi2007典型开发实例--在
DB
Grid
中
插入
下拉组合框源代码!
Delphi如何一次删除
db
grid
多条
记录
的例子.rar
Delphi演示如何一次删除网格数据表
db
grid
中
的多条
记录
,小技巧不过挺实用,希望对大家的Delphi编程有所帮助。以下是实现一次删除多条
记录
的相关代码供参考: if
DB
Grid
1.SelectedRows.Count >1 then s:= '真的要删除这些
记录
吗?'; if Application.MessageBox (Pchar(s),'删除多条
记录
',mb_iconinformation mb_yesNo)=idYes then begin
DB
Grid
1.DataSource.DataSet.DisableControls ; i:=0; While i<=
DB
Grid
1.SelectedRows.Count -1 do begin
DB
Grid
1.DataSource.DataSet.Bookmark:=
DB
Grid
1.SelectedRows.Items[i]; //重要在这里取得bookmark TempBookmark :=
DB
Grid
1.Datasource.Dataset.GetBookmark;
DB
Grid
1.DataSource.DataSet.GotoBookmark(TempBookMark);
DB
Grid
1.DataSource.DataSet.Delete ;
DB
Grid
1.DataSource.DataSet.FreeBookmark (TempBookMark); Inc(i); end;
DB
Grid
1.DataSource.DataSet.EnableControls; end; 更多代码请您在本页面下载源码。
Delphi读入数据到
DB
Grid
并向Word
中
插入
表格.rar
Delphi7.0读入数据到
DB
Grid
并向Word
中
插入
表格,其实就是Delphi向Word
中
插入
表格,测试数据由Delphi从SQLSERVER
中
读取,然后放入
DB
Grid
中
,再将
DB
Grid
网格
中
的数据通过Word转换成表格。 begin if TString
Grid
(
DB
Grid
1).RowCount>0 then begin //创建一个word对象 wordApp:=CreateOleObject('Word.Application'); wordApp.Visible:=true; //创建一个word文档 wordDoc:=wordApp.Documents.Add(); wordDoc.Select; wrdSelection:=wordApp.selection; //创建一个表格 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,
DB
Grid
1.FieldCount,2,0); for i:=1 to
DB
Grid
1.FieldCount do //设置首行的字体为粗体 begin wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(
DB
Grid
1.Columns[i-1].Field.FieldName); end;
DB
Grid
1.DataSource.DataSet.First; //当前行为首行 for y:=2 to ADOQuery1.RecordCount 1 do //向表
中
添加数据 begin for i:=1 to
DB
Grid
1.FieldCount do wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(
Db
Grid
1.Fields[i-1].NewValue);
DB
Grid
1.DataSource.DataSet.Next; //下一行 end; end else showmessage('T
DB
Grid
表
中
无数据,不能向Word
中
插入
表格。') end;
在Delphi
中
使用
DB
Grid
处理多条
记录
..rar
在Delphi
中
使用
DB
Grid
处理多条
记录
..rar
自动调整delphi
中
db
grid
大小
自动调整delphi
中
db
grid
大小,对
db
grid
中
根据文本值自动调整单元格的大小, 自动调整delphi
中
db
grid
大小,对
db
grid
中
根据文本值自动调整单元格的大小
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章