delphi如何将其它程序界面中的GRID表格中的数据取得或者导出?
不知道是什么GRID控件,因为需要精确数据,所以不考虑抓图后再OCR识别的办法(还因为GRID有滚动所以抓图方法不一定取得所有数据)。
如果有其它现成控件更好。
谢谢高手!
不知道是什么GRID控件,因为需要精确数据,所以不考虑抓图后再OCR识别的办法(还因为GRID有滚动所以抓图方法不一定取得所有数据)。
如果有其它现成控件更好。
谢谢高手!
解决方案 »
- 关于cxgrid拖动列到分组的响应事件
- 聊天软件如何判断信息是否发送成功??
- 如何解决webbrowser第一次打开一个网页的时候速度特别慢
- jpg图片处理,可缩放,点某个位置后出现一个矩形框,并将这个框里的图复制到屏幕另外的地方,如有源代码者单独给100分
- 怎样在sql语句中加入单引号“‘”?
- 怎样汉化打印设置,和打印预览啊?
- 一个程序员的命运是否能够改变,就看各位了(急)
- ActiveDocument.Shapes("Text Box 2").Select 这句话在DELPHI里怎么写呢?
- 临界区操作
- 关于Socket问题,有点难度
- 如何使TImage控件中透明图片的透明部分不响应事件??
- 第二次执行存储过程时就会报错:错误提示为ACCESS violation at address 4DE43404 in module 'SQLOLEDB.DLL' ,read of address 00000018
利用SQL Server的功能可以导出。
如果不是SQLServer,你可以建立一个BDE连接,Delphi同样提供了SQL Monitor工具。
if Sender is TDBGrid then
begin
if TDBGrid(Sender).DataSource.DataSet.Active = False then
begin
Application.MessageBox(pchar('并没有数据啊!'),pchar('提示'),mb_ok+mb_iconinformation+mb_applmodal);
Exit ;
end
else
begin
ExcelApp.WorkBooks.Add;
ExcelApp.Caption:=tableName; tempchar := char(Byte('A')+Ncolumn-1) ;
tempstr := 'A1:'+tempchar+'1';
ExcelApp.worksheets[1].range[tempstr].Merge(True); tempstr := 'A:'+tempchar ;
ExcelApp.worksheets[1].range[tempstr].HorizontalAlignment := $FFFFEFF4;
ExcelApp.worksheets[1].range[tempstr].VerticalAlignment := $FFFFEFF4;
ExcelApp.WorkSheets[1].Cells[1,1].Value :=''''+ tableName;
for i:=2 to TDBGrid(Sender).Columns.Count do
ExcelApp.WorkSheets[1].Cells[2,i-1].Value :=''''+ TDBGrid(Sender).Columns[i-1].Title.Caption ;
with TDBGrid(Sender).DataSource.DataSet do
begin
i:=3 ;
First;
while not Eof do
begin
for j:=2 to TDBGrid(Sender).Columns.Count do
begin
tempstr:=TDBGrid(Sender).Columns[j-1].FieldName ;
ExcelApp.WorkSheets[1].Cells[i,j-1].Value :=''''+ FieldByName(tempstr).AsString;
end;
Inc(i);
Next ;
end;
end;
end;
end
可以复制或导入到自己程序中的TSTRINGGRID或别的控件,关键是如何得到独立程序内的TSTRINGGRID内的数据.