Delphi关于StringGrid的公用模块

来源：互联网发布：怎么查看自己淘宝几心编辑：程序博客网时间：2024/05/16 14:30
unit SGridFunction; 
{*******************************************
模块名称：StringGrid操作函数模块
编写者：Tony 
开始日期：2006年12月05日
版本号：v1.0.7 
********************************************}
interface
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,SConnect,
Dialogs, Global, Grids, DBGrids, DB, DBClient, WinSkinData, StdCtrls,
Buttons, ExtCtrls, ComCtrls, ComObj, Clipbrd, ADODB;
//成功提示框
//AMsg: 成功提示信息
procedureSuccessMsgbox(AMsg: String);
//错误提示框
//AMsg: 错误提示信息
procedureErrorMsgbox(AMsg: String);
//询问提示框
//strMsg:询问信息
functionAskMsgbox(AMsg: String):Boolean; 
//信息提示框
//AMsg: 提示信息
procedureInfoMsgbox(AMsg: String);
//导出数据到Excel
//ASGrid:需要导出的StringGrid
//ExcelModalPath: 报表模版全路径，为空则新建工作簿
//ExcelFileName: Excel文件的默认文件名
//AGridStartCol, AGridStartRow: StringGrid的起始列和行,从0开始
//AExcelStartCol, AExcelStartRow: Excel的起始列和行,从1开始
procedureExportToExcel(ASGrid: TStringGrid; ExcelModalPath, ExcelFileName:String; 
AGridStartCol, AGridStartRow, AExcelStartCol, AExcelStartRow:Integer); 
//取得某一列数据的最大长度
//ASgrid: 目标StringGrid
//ACol: 目标列,从0开始
//AStartRow: 起始行，从0开始
functionGetColMaxDataLength(ASGrid: TStringGrid; ACol, AStartRow:Integer): Integer; 
//根据数据长度自动设置指定列的列宽
//ASgrid: 目标StringGrid
//ACol: 目标列,从0开始
procedureSetOneColWidth(ASGrid: TStringGrid; ACol: Integer);
//根据数据长度自动设置全部列的列宽
//ASgrid: 目标StringGrid
procedureSetAllColWidth(ASGrid: TStringGrid); 
//显示ClientDataSet中的数据
//ASgrid: 目标StringGrid
//ACDSet: 包含数据的ClientDataSet
//AGridStartCol, AGridStartRow: StringGrid的起始列和行,从0开始
procedureShowClientDataSetData(ASGrid: TStringGrid; ACDSet: TClientDataSet;
AGridStartCol, AGridStartRow:Integer); 
//显示ADOQuery中的数据
//ASgrid: 目标StringGrid
//AQuery: 包含数据的ADOQuery
//AGridStartCol, AGridStartRow: StringGrid的起始列和行,从0开始
procedureShowQueryData(ASGrid: TStringGrid; AQuery: TADOQuery; 
AGridStartCol, AGridStartRow:Integer); 
//判断是否含有数据
//true: 包含数据
//false: 不包含数据
//ASgrid: 目标StringGrid
//AStartCol, AStartRow: 起始列和行，从0开始
functionHaveData(ASGrid: TStringGrid; AStartCol, AStartRow: Integer): Boolean;
//取得9位以内整数位数
//>=1: 该整型数的长度
//0: 空值
//-1: 长度超过9位
//ANumber: 需要判断位数的整型数
functionGetIntegerNumberLength(ANumber: Integer):Integer; 
//为指定的序号列赋值
//序号编号从1开始
//ASGrid: 目标StringGrid
//ACol: 目标列，从0开始
//AStartRow: 起始行，从0开始
procedureSetNumberFields(ASGrid: TStringGrid; ACol, AStartRow: Integer); 
//设置指定的列的对齐方式为右对齐
//实现方式为在数据左边补空格，所以取数据时应注意去掉空格
//ASGrid: 目标StringGrid
//ACol: 目标列，从0开始
//AStartRow: 起始行，从0开始
procedureSetColAlignRight(ASGrid: TStringGrid; ACol, AStartRow:Integer); 
//设置指定行的左边距
//ASGrid: 目标StringGrid
//ARow: 目标行，从0开始
procedureSetRowLeftSpace(ASGrid: TStringGrid; ARow, SpaceLength:Integer); 
//设置指定行的最小右边距
//ASGrid: 目标StringGrid
//ARow: 目标行，从0开始
procedureSetRowMinRightSpace(ASGrid: TStringGrid; ARow, SpaceLength:Integer); 
//设置指定行的最小边距
//ASGrid: 目标StringGrid
//ARow: 目标行，从0开始
procedureSetRowMinSpaceWidth(ASGrid: TStringGrid; ARow, SpaceLength:Integer); 
//获得当前X坐标所在的列
//ASGrid: 目标StringGrid
//AX: 坐标的X值
functionGetColByCX(ASGrid: TStringGrid; AX: Integer):Integer; 
//获得当前Y坐标所在的行
//ASGrid: 目标StringGrid
//AY: 坐标的Y值
functionGetRowByCY(ASGrid: TStringGrid; AY: Integer):Integer; 
//获得当前坐标所处的单元格的行列值
//ASGrid: 目标StringGrid
//AX, AY: 坐标的X，Y值
//ACol, ARow: 单元格的列，行索引，从0开始
procedureGetCellByCoordinate(ASGrid: TStringGrid; AX, AY: Integer; 
out ACol, ARow:Integer); 
//填充空的单元格为指定值
//ASGrid: 目标StringGrid
//AStartCol, AStartRow: 开始列和行，从0开始
//AEndCol, AEndRow: 结束列和行
//AValue: 填充值
procedureSetSpaceCells(ASGrid: TStringGrid; AStartCol, AStartRow,
AEndCol, AEndRow:Integer; AValue:String);
implementation
//----------------------------------------------------------------------------//
//成功提示框 
//----------------------------------------------------------------------------//
procedureSuccessMsgbox(AMsg: String);
begin
Application.MessageBox(Pchar(AMsg),'完成', MB_ICONINFORMATION + MB_OK);
end;
//----------------------------------------------------------------------------//
//错误提示框 
//----------------------------------------------------------------------------//
procedureErrorMsgbox(AMsg: String);
begin
Application.MessageBox(Pchar(AMsg),'错误', MB_ICONSTOP + MB_OK);
end;
//----------------------------------------------------------------------------//
//询问提示框 
//----------------------------------------------------------------------------//
functionAskMsgbox(AMsg: String):Boolean; 
begin
ifApplication.MessageBox(Pchar(AMsg),'确认', 
MB_ICONQUESTION + MB_YESNO) = IDYESthen 
begin
result :=true; 
end
elsebegin 
result :=false; 
end;
end;
//----------------------------------------------------------------------------//
//消息提示框 
//----------------------------------------------------------------------------//
procedureInfoMsgbox(AMsg: String);
begin
Application.MessageBox(Pchar(AMsg),'提示', MB_ICONINFORMATION + MB_OK);
end;
//----------------------------------------------------------------------------//
//导出数据到Excel
//----------------------------------------------------------------------------//
procedureExportToExcel(ASGrid: TStringGrid; ExcelModalPath, ExcelFileName:String; 
AGridStartCol, AGridStartRow, AExcelStartCol, AExcelStartRow:Integer); 
var
ExcelApp: Variant;
ColIndex, RowIndex:Integer; 
OneRowData:String; //单行数据 
DataList: TStringList;//所有数据 
SaveDlg: TSaveDialog;//保存对话框 
SaveExcelFilePath:String; //Excel文件的保存路径 
begin
try
//没有数据时直接退出
ifnot HaveData(ASGrid, AGridStartCol, AGridStartRow)then 
begin
InfoMsgBox('没有数据需要导出。');
exit;
end;
//选择保存路径
try
SaveDlg := TSaveDialog.Create(ASGrid);//创建保存窗口对象 
SaveDlg.InitialDir := ExtractFilePath(Application.ExeName);//文件保存在当前目录 
SaveDlg.Filter :='Excel Files(*.xls)| *.xls';//文件类型过滤 
SaveDlg.FileName := ExcelFileName + VarToStr(date);//定义默认文件名 
ifSaveDlg.Executethen 
begin
SaveExcelFilePath := SaveDlg.FileName;//保存文件路径 
end
elsebegin 
exit;//放弃导出 
end;
finally
SaveDlg.Free;//释放对象 
end;
//创建Excel对象
try
ExcelApp := CreateOleObject('Excel.Application' ); //创建新Excel对象 
except
ErrorMsgBox('请确认您的机器已经安装 Microsoft Excel 。');
Exit;
end;
try
//打开Excel工作簿
try
//打开报表模版
if(excelModalPath <> null) and(excelModalPath <> '')then 
begin
ExcelApp.WorkBooks.Open(ExcelModalPath);
end
//添加新工作簿
elsebegin 
ExcelApp.WorkBooks.Add;
//设置列宽
forColIndex := 0to ASGrid.ColCount - AGridStartCol -1 do
begin
//此处不能使用ASGrid.ColWidths[AGridStartCol + ColIndex];
ExcelApp.ActiveSheet.Columns[AExcelStartCol + ColIndex].ColumnWidth 
:= GetColMaxDataLength(ASGrid, AGridStartCol + ColIndex, AGridStartRow);
end;
//数字 NumberFormatLocal = "0.00_ "
//日期 NumberFormatLocal = "yyyy-m-d"
//时间 NumberFormatLocal = "[$-F400]h:mm:ss AM/PM"
//文本 NumberFormatLocal = "@"
ExcelApp.Cells.NumberFormatLocal := '@'; //设置单元格为文本格式 
end;
ExcelApp.WorkSheets[1].Activate;//设置第1个工作表为活动工作表 
ExcelApp.Cells.Item[AExcelStartRow, AExcelStartCol].Select; //设定Excel起始单元格 
except
ErrorMsgBox('无法打开报表模版：'+ #13 + ExcelModalPath); //#13为回车换行 
exit;
end;
try
//通过剪切板导出数据
try
//初始化DataList
DataList := TStringList.Create;
DataList.Clear;
//将数据保存到DataList
withASGrid do 
begin
//行
forRowIndex := AGridStartRow toRowCount - 1 do 
begin
OneRowData :=''; 
//列
forColIndex := AGridStartCol toColCount - 1 do 
begin
OneRowData := OneRowData + Trim(Cells[ColIndex, RowIndex]) + #9;//#9为制表符 
end;
DataList.Add(OneRowData);//将该行数据添加到DataList 
end;
end;
ClipBoard.AsText := DataList.Text;//将DataList中的数据拷贝到剪切板 
ExcelApp.ActiveSheet.Paste;//将剪切板中的数据拷贝到Excel 
finally
DataList.Free;//释放DataList 
ClipBoard.Clear;//清空剪切板 
end;
//保存Excel文件
ExcelApp.ActiveWorkbook.SaveAs(SaveExcelFilePath);//另存为到指定目录 
SuccessMsgBox('成功将文件保存到：'+ #13 + SaveExcelFilePath); //保存成功 
finally
ExcelApp.DisplayAlerts :=false; //不弹出保存提示对话框 
ExcelApp.WorkBooks.Close;//关闭工作簿 
end;
finally
ExcelApp.Quit;//关闭Excel进程 
ExcelApp:= Unassigned;//释放ExcelApp 
end;
except
One: Exception do
begin
ErrorMsgbox(e.Message);
end;
end;
end;
//----------------------------------------------------------------------------//
//取得某一列数据的最大长度
//----------------------------------------------------------------------------//
functionGetColMaxDataLength(ASGrid: TStringGrid; ACol, AStartRow:Integer): Integer; 
var
ColIndex, RowIndex:Integer; 
MaxColLength:Integer; //列数据的最大长度 
begin
MaxColLength :=0; 
withASGrid do 
begin
//取得列数据的最大长度
forRowIndex := AStartRow toRowCount - 1 do 
begin
iflength(Cells[ACol, RowIndex]) > MaxColLength then
begin
MaxColLength:= length(Cells[ACol, RowIndex]);
end;
end;
end;
result := MaxColLength;
end;
//----------------------------------------------------------------------------//
//根据数据长度自动设置指定列的列宽
//----------------------------------------------------------------------------//
procedureSetOneColWidth(ASGrid: TStringGrid; ACol: Integer);
var
OneCharPixel:Integer; //一个字符所占的像素数 
RightSpaceWidth:Integer; //右边距空隙 
begin
RightSpaceWidth :=3; //设置为3达到和左边距一致的效果
OneCharPixel :=6; //6对应9号字[*此处最好写成一个根据字号获得像素值的函数*]
ASGrid.ColWidths[ACol] := GetColMaxDataLength(ASGrid, ACol,0) * OneCharPixel
+ RightSpaceWidth;
end;
//----------------------------------------------------------------------------//
//根据数据长度自动设置全部列的列宽
//----------------------------------------------------------------------------//
procedureSetAllColWidth(ASGrid: TStringGrid); 
var
ColIndex:Integer; //需要设置的列 
begin
forColIndex := 0to ASGrid.ColCount -1 do
begin
SetOneColWidth(ASGrid, ColIndex);
end;
end;
//----------------------------------------------------------------------------//
//显示ClientDataSet中的数据
//----------------------------------------------------------------------------//
procedureShowClientDataSetData(ASGrid: TStringGrid; ACDSet: TClientDataSet;
AGridStartCol, AGridStartRow:Integer); 
var
ColIndex:Integer; 
RowIndex:Integer; 
begin
try
withASGrid do 
begin
//没有记录时,清空StringGrid并返回
ifACDSet.RecordCount <=0 then
begin
RowCount :=2; 
forColIndex := 0to ColCount - 1 do 
begin
Cells[ColIndex,1] := ''; 
end;
exit;
end;
RowCount := AGridStartRow + ACDSet.RecordCount;//StringGrid行数 
ColCount := AGridStartCol + ACDSet.FieldCount;//StringGrid列数 
RowIndex := AGridStartRow;//当前行为起始行 
whilenot ACDSet.Eofdo 
begin
//显示数据
forColIndex := AGridStartCol toColCount - 1 do 
begin
Cells[ColIndex, RowIndex]
:= ACDSet.Fields.Fields[ColIndex - AGridStartCol].AsString 
end;
//转到下一行
RowIndex := RowIndex +1; 
ACDSet.Next;
end;
end;
except
One: Exception do
begin
ErrorMsgBox(e.Message);
end;
end;
end;
//----------------------------------------------------------------------------//
//显示ADOQuery中的数据
//----------------------------------------------------------------------------//
procedureShowQueryData(ASGrid: TStringGrid; AQuery: TADOQuery; 
AGridStartCol, AGridStartRow:Integer); 
var
ColIndex:Integer; 
RowIndex:Integer; 
begin
try
withASGrid do 
begin
//没有记录时,清空StringGrid并返回
ifAQuery.RecordCount <=0 then
begin
RowCount :=2; 
forColIndex := 0to ColCount - 1 do 
begin
Cells[ColIndex,1] := ''; 
end;
exit;
end;
RowCount := AGridStartRow + AQuery.RecordCount;//StringGrid行数 
ColCount := AGridStartCol + AQuery.FieldCount;//StringGrid列数 
RowIndex := AGridStartRow;//当前行为起始行 
whilenot AQuery.Eofdo 
begin
//显示数据
forColIndex := AGridStartCol toColCount - 1 do 
begin
Cells[ColIndex, RowIndex]
:= AQuery.Fields.Fields[ColIndex - AGridStartCol].AsString 
end;
//转到下一行
RowIndex := RowIndex +1; 
AQuery.Next;
end;
end;
except
One: Exception do
begin
ErrorMsgBox(e.Message);
end;
end;
end;
//----------------------------------------------------------------------------//
//判断是否含有数据
//----------------------------------------------------------------------------//
functionHaveData(ASGrid: TStringGrid; AStartCol, AStartRow: Integer): Boolean;
var
ColIndex, RowIndex:Integer; 
begin
withASgrid do 
begin
forColIndex := AStartCol toColCount - 1 do 
begin
forRowIndex := AStartRow toRowCount - 1 do 
begin
//包含数据，返回true
ifCells[ColIndex, RowIndex] <> ''then 
begin
result :=true; 
exit;
end;
end;
end;
end;
//没有数据，返回false
result :=false; 
end;
//----------------------------------------------------------------------------//
//取得9位以内整数位数
//----------------------------------------------------------------------------//
functionGetIntegerNumberLength(ANumber: Integer):Integer; 
var
IsNegativeNumber:Boolean; //参数的正负,负数为true 
LoopIndex:Integer; //循环变量 
ComporeNumber:Integer; //用于比较的数 
NumberLength:Integer; //返回值，长度大于10返回-1 
begin
ifANumber = null then
begin
result :=0; //空值返回0
exit;
end;
//判断参数的正负
ifANumber < 0 then 
begin
ANumber :=0 - ANumber; //转换成正数用于计算长度 
IsNegativeNumber :=true; //是负数 
end
elsebegin 
ifANumber = 0 then 
begin
result :=1; //是0，直接返回1
exit;
end;
IsNegativeNumber :=false; //是正数 
end;
//开始比较
ComporeNumber:=10; 
forLoopIndex:= 1to 9 do 
begin
//长度符合要求
if(ComporeNumber divANumber) > 0 then 
begin
//得到长度
ifComporeNumber = ANumber thenNumberLength := LoopIndex + 1
elseNumberLength := LoopIndex; 
//如果是负数，则长度加1，即包含负号
ifIsNegativeNumber thenresult:= NumberLength + 1
elseresult := NumberLength; 
exit;
end;
//增大1位继续比较
ComporeNumber := ComporeNumber *10; 
continue;
end;
result := -1;//长度大于9，返回-1 
end;
//----------------------------------------------------------------------------//
//为指定的序号列赋值
//----------------------------------------------------------------------------//
procedureSetNumberFields(ASGrid: TStringGrid; ACol, AStartRow: Integer); 
var
RowIndex:Integer; //当前序号 
begin
withASGrid do 
begin
forRowIndex := 1to RowCount - AStartRowdo 
begin
//添加序号
Cells[ACol, AStartRow + RowIndex -1] := VarToStr(RowIndex);
end;
end;
end;
//----------------------------------------------------------------------------//
//设置指定的列的对齐方式为右对齐
//----------------------------------------------------------------------------//
procedureSetColAlignRight(ASGrid: TStringGrid; ACol, AStartRow:Integer); 
var
RowIndex:Integer; 
MaxDataLength:Integer; //该列最大的数据长度 
begin
MaxDataLength := GetColMaxDataLength(ASGrid, ACol,0); //取得该列最大的数据长度
withASGrid do 
begin
forRowIndex := AStartRow toRowCount - 1 do 
begin
whilelength(Cells[ACol, RowIndex]) < MaxDataLength do
begin
Cells[ACol, RowIndex] :=' ' + Cells[ACol, RowIndex];//在前面补空格 
end;
end;
end;
end;
//----------------------------------------------------------------------------//
//设置指定行的左边距
//----------------------------------------------------------------------------//
procedureSetRowLeftSpace(ASGrid: TStringGrid; ARow, SpaceLength:Integer); 
var
ColIndex, LoopIndex:Integer; 
begin
withASGrid do 
begin
forColIndex := 0to ColCount - 1 do 
begin
Cells[ColIndex, ARow] := TrimLeft(Cells[ColIndex, ARow]);//去掉左边空格 
forLoopIndex := 1to SpaceLength do 
begin
Cells[ColIndex, ARow] :=' ' + Cells[ColIndex, ARow];//在左边补空格 
end;
end;
end;
end;
//----------------------------------------------------------------------------//
//设置指定行的最小右边距
//----------------------------------------------------------------------------//
procedureSetRowMinRightSpace(ASGrid: TStringGrid; ARow, SpaceLength:Integer); 
var
ColIndex, LoopIndex:Integer; 
begin
withASGrid do 
begin
forColIndex := 0to ColCount - 1 do 
begin
Cells[ColIndex, ARow] := TrimRight(Cells[ColIndex, ARow]);//去掉右边空格 
forLoopIndex := 1to SpaceLength do 
begin
Cells[ColIndex, ARow] := Cells[ColIndex, ARow] +' '; //在右边补空格 
end;
end;
end;
end;
//----------------------------------------------------------------------------//
//设置指定行的最小边距
//----------------------------------------------------------------------------//
procedureSetRowMinSpaceWidth(ASGrid: TStringGrid; ARow, SpaceLength:Integer); 
var
ColIndex, LoopIndex:Integer; 
begin
withASGrid do 
begin
forColIndex := 0to ColCount - 1 do 
begin
Cells[ColIndex, ARow] := Trim(Cells[ColIndex, ARow]);//去掉两边空格 
forLoopIndex := 1to SpaceLength do 
begin
Cells[ColIndex, ARow] :=' ' + Cells[ColIndex, ARow] +' '; //在两边补空格 
end;
end;
end;
end;
//----------------------------------------------------------------------------//
//获得当前X坐标所在的列
//----------------------------------------------------------------------------//
functionGetColByCX(ASGrid: TStringGrid; AX: Integer):Integer; 
var
ColIndex:Integer; 
CurCellRect: TRect;//当前列的矩形区域 
begin
withASGrid do 
begin
forColIndex := 0to ColCount - 2 do 
begin
CurCellRect := CellRect(ColIndex,0); 
//当前列被隐藏，继续判断下一列
ifCurCellRect.Left = CurCellRect.Rightthen continue;
//X坐标在当前列的范围内
if(AX >= CurCellRect.Left)and (AX < CurCellRect.Right)then 
begin
result := ColIndex;
exit;
end;
end;
result := ColCount -1; //返回最后一列的索引
end;
end;
//----------------------------------------------------------------------------//
//获得当前Y坐标所在的行
//----------------------------------------------------------------------------//
functionGetRowByCY(ASGrid: TStringGrid; AY: Integer):Integer; 
var
RowIndex:Integer; 
CurCellRect: TRect;//当前行的矩形区域 
begin
withASGrid do 
begin
forRowIndex := 0to RowCount - 2 do 
begin
CurCellRect := CellRect(0, RowIndex);
//当前行被隐藏，继续判断下一行
ifCurCellRect.Top = CurCellRect.Bottomthen continue;
//Y坐标在当前行的范围内
if(AY > CurCellRect.Top)and (AY < CurCellRect.Bottom)then 
begin
result := RowIndex;
exit;
end;
end;
result := RowCount -1; //返回最后一行的索引
end;
end;
//----------------------------------------------------------------------------//
//获得当前坐标所处的单元格的行列值
//----------------------------------------------------------------------------//
procedureGetCellByCoordinate(ASGrid: TStringGrid; AX, AY: Integer; 
out ACol, ARow:Integer); 
begin
ACol := GetColByCX(ASGrid, AX);//取得列索引 
ARow := GetRowByCY(ASGrid, AY);//取得行索引 
end;
//----------------------------------------------------------------------------//
//填充空的单元格为指定值
//----------------------------------------------------------------------------//
procedureSetSpaceCells(ASGrid: TStringGrid; AStartCol, AStartRow,
AEndCol, AEndRow:Integer; AValue:String);
var
ColIndex, RowIndex:Integer; 
begin
withASGrid do 
begin
forColIndex := AStartCol toAEndCol do 
begin
forRowIndex := AStartRow toAEndRow do 
begin
//单元格为空（不含空格）时填充
ifTrim(Cells[ColIndex, RowIndex]) = ''then 
begin
Cells[ColIndex, RowIndex] := AValue;
end;
end;
end;
end;
end;
end.
Delphi关于StringGrid的公用模块
Delphi关于StringGrid的公用模块
关于 StringGrid 的公用模块
Delphi StringGrid控件的用法
Delphi的StringGrid使用技巧代码
Delphi StringGrid控件的属性及使用说明
delphi的一个公用函数库
Delphi StringGrid使用全书
StringGrid使用教程(Delphi)
Delphi StringGrid使用全书
Delphi StringGrid使用
delphi(stringgrid导出excel)
Delphi StringGrid使用全书
Delphi练习——StringGrid的使用（九九乘法表）
Delphi 中使用公用的 ADODataSet
Delphi 中使用公用的 ADODataSet
Delphi  StringGrid使用全书( 一)
delphi  stringgrid主要属性介绍
软件测试工具Loadrunner调用Java类(四)
给定一个源串和目标串，能够对源串进行如下操作：
数据结构学习之_二叉树的遍历
自定义图形xml格式
SSH各个框架的工作原理
Delphi关于StringGrid的公用模块
Windows 7下安装配置PHP+Apache+Mysql环境教程（IIS7.5）
PHP中运用正则表达式
你知道为什么吗
hdu 1078记忆化搜索
使用LoadRunner进行资源占用率的分析？(五)
汇编1
JPA
LoadRunner登录脚本认证失败的原因分析(六)