社区
Delphi
帖子详情
DBGrid不绑定DataSource,如何做数据输入?Helpme!!!
Sprikg
2000-06-06 11:59:00
想从DBGrid继承做一个控件,到时候并不与Query,Table等控件一起使用,请问修改哪个属性后可以做数据输入?
...全文
164
5
打赏
收藏
DBGrid不绑定DataSource,如何做数据输入?Helpme!!!
想从DBGrid继承做一个控件,到时候并不与Query,Table等控件一起使用,请问修改哪个属性后可以做数据输入?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
kxy
2000-06-08
打赏
举报
回复
然后从TCustomGrid继承.
kxy
2000-06-08
打赏
举报
回复
你可以看TDBGrid的source,研究研究.
Sprikg
2000-06-07
打赏
举报
回复
如果从STRINGGRID继承,如何绑定TColumn类?
thinking_man
2000-06-07
打赏
举报
回复
是啊,用STRINGGRID做也可以啊。
zxh1972
2000-06-07
打赏
举报
回复
那何不继承StringGrid做?
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
的添加修改删除
数据
操作 sql
数据
库
delphi 对
db
grid
的添加修改删除
数据
操作 sql
数据
库
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;
打印
DB
Grid
表格里的
数据
打印
DB
Grid
表格里的
数据
打印软件(打印
datasource
,
db
grid
,string
grid
)
reprint 使用说明 本人长期使用delphi
做
数据
库的开发,报表控件使用Quickrpt,在打印上经常遇到一些问题,于是自己经常编写一部分打印的程序,经过总结开发了这个控件。 本控件可打印
datasource
,
db
grid
,string
grid
. 一 、控件属性: 1、colstitle 设置报表的列标题属性 (1)alignment 列标题对齐方式。 (2)font 列标题字体 (3)print 设置是否打印列标题 (4)rowspace 列标题行的高度 2、
datasource
选择要打印的
datasource
3、
db
grid
选择要打印的
db
grid
4、string
grid
选择要打印的string
grid
5、detail 设置要打印的明细
数据
属性 (1)arrange 设置明细字段排列方向 Horizontal 横向打印(默认的一般打印) Vertical 竖向打印(字段竖向排列适合打印字段内容较长的报表如“会议纪录”) (2)aotureturn 打印明细字段时,如果字段超过列的宽度是否允许自动换行 (3)colsline 设置竖线属性引用tpen类 (4)footer 设置明细尾 (5)frame 设置明细边框属性引用tpen类 (6)head 设置明细头同footer (7)rowsline 设置横线属性引用tpen类 (8)rowspace 设置明细行的高度 (9)top 明细与标题的距离 6、page 设置纸张的上下左右边距 7、pagefooter 设置页脚同明细尾 8、pageheader 设置页眉同页脚 9、printobject 选择要打印的对象 (
datasource
、
db
grid
、 string
grid
) 10、title 设置标题类页眉、页脚 二 、控件方法: (1) preview 预览 (2) print 打印 (3) SaveToFile() 保存为报表文件 (4) SaveToStream() 保存为流(然后就可把整个报表存到
数据
库了很方便哦! ~_~) (5) PrintFile() 打印报表文件 (6) PrintStream() 打印流(流的
数据
库存取就不用多说了吧) (7) PreviewFile() 预览文件 (8) PreviewStream() 预览流 (9) OptionToStream() 报表的属性保存为流 (10) OptionFromStream() 从流中得到报表属性 三、 控件事件: AfterPrint 打印后 BeforePrint 打印前 (本来很多事件,但没有预览,后来加上预览以及一些方法后实现很困难就去掉了!) 四、注意事项 (1) text 属性,
输入
“¦;;;;;;;#¦;;;;;;;”打印页码值,如果想打印页码可
输入
“第¦;;;;;;;#¦;;;;;;;页”
输入
“¦;;;;;;;RecordCount¦;;;;;;;”打印 记录数 (2) 不同的打印机,打印和预览效果可能有一点点不同(保证
数据
打印完全正确一致)。本人用一台针式和一台激光打印机
做
测试,开始差别较大后经过调试基本一致,不知其他打印机如何。 就这些个吧基本满足了我的软件开发需要,解决了很多问题,关键是
做
报表省了很大力气,当然了很复杂的报表还是要其它报表控件来解决。如果有其他问题或好的建议可与我联系。 程序设计:吴进昊 E-mail :jinhaowu@hotmail.com qq :54254770 2003.01.03
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章