资源描述：
《StringGrid模块（操作函数）》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、unitSGridFunction;interfaceusesWindows,Messages,SysUtiIs,Variants,Classes,Graphics,Controls,Forms,SConncct,Dialogs,Global,Grids,DBGrids,DB,DBClicnt,WinSkinData,StdCtrls,Buttons,ExtCtrls,ComCtrls,ComObj,Clipbrd,ADODB;〃成功提示框//AMsg:成功提示信息procedureSucccssMsgbo
2、x(AMsg:String);//错谋提示框//AMsg:错谋提示信息procedureErrorMsgbox(AMsg:String);//询问提示框//strMsg:询问信息functionAskMsgbox(AMsg:String):Boolean;//信息提示框//AMsg:提示信息procedureInfoMsgbox(AMsg:String);//导出数据到Excel//ASGrid:需要导出的StringGrid//ExcclModalPath:报表模版全路径，为空则新建工作簿//ExcclF
3、ileName:Excel文件的默认文件名//AGridStartCol,AGridStartRow:StringGrid的起始列和行，从0开始//AExcclStartCol,AExcclStartRow:Excel的起始列和行，从1开始procedureExportToExccl(ASGrid:TStringGrid;ExcclModalPath,ExcclFileName:String;AGridStartCol,AGridStartRow,AExcclStartCol,AExcclStartRow:
4、Integer);//取得某一列数据的最大长度//ASgrid:口标StringGrid//ACol:口标列，从0开始//AStartRow:起始行,从0开始functionGctColMaxDataLcngth(ASGrid:TStringGrid;ACol,AStartRow:Integer):Integer;//根据数据长度自动设置指定列的列宽//ASgrid:口标StringGrid//ACol:口标列，从0开始procedureSctOncColWidth(ASGrid:TStringGrid;A
5、Col:Integer);〃根据数据长度自动设置全部列的列宽//ASgrid:口标StringGridprocedureSctAllColWidth(ASGrid:TStringGrid);//显示ClientDataSet屮的数据//ASgrid:口标StringGrid//ACDSct:包含数据的ClientDataSet//AGridStartCol,AGridStartRow:StringGrid的起始列和行，从0开始procedureShowClientDataSetData(ASGrid:TSt
6、ringGrid;ACDSct:TClicntDataSct;AGridStartCol,AGridStartRow:Integer);//显示ADOQuery小的数据//ASgrid:口标StringGrid//AQuery:包含数据的ADOQuery//AGridStartCol,AGridStartRow:StringGrid的起始列和行，从0开始procedureShowQueryData(ASGrid:TStringGrid;AQuery:TADOQuery;AGridStartCol,AGrid
7、StartRow:Integer);〃判断是否含有数据//true:包含数据//false:不包含数据//ASgrid:口标StringGrid//AStartCol,AStartRow:起始列和彳亍，从0开始functionHaveData(ASGrid:TStringGrid;AStartCol,AStartRow:Integer):Boolcan;〃取得9位以内整数位数//>=1:该整型数的长度//0:空值//-I：长度超过9位//ANumber:需要判断位数的整型数functionGctlntcgc
8、rNumbcrLcngth(ANumbcr:Intcgcr):Intcgcr;//为指定的序号列赋值〃序号编号从1开始//ASGrid:口标StringGrid//ACol:口标列，从0开始//AStartRow:起始行,从0开始procedureSctNumbcrFiclds(ASGrid:TStringGrid;ACol,AStartRow:Integer);//设置指定的列的对齐方式为右对齐〃实现方式为在数
