专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
打印 TDBGrid内容----方法1procedure PrintDbGrid(DataSet:TDataSet;DbGrid:TDbGrid;Title:String);varPointX,PointY:integer;ScreenX:integer;i,lx,ly:integer;px1,py1,px2,py2:integer;RowPerPage,RowPrinted:integer;ScaleX:Real;THeight:integer;TitleWidth:integer;SumWidth:integer;PageCou [阅读全文] [PDF]
DbGrid控件的标题栏弹出菜单procedure TFrmOrderPost.DbgOrderPostMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var CurPost:TPoint;begin GetCursorPos(CurPost);//获得鼠标当前坐标 if (y<=17) and (x<=vCurRect.Right) then begin if button=mbright then [阅读全文] [PDF]
把DBGrid输出到Excel表格---方法一(支持多Sheet){功能描述:把DBGrid输出到Excel表格(支持多Sheet)调用格式:CopyDbDataToExcel([DBGrid1, DBGrid2]);}procedure CopyDbDataToExcel(Args: array of const);var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant; I: Integer;begin Screen.Cursor := crHourGlass; i [阅读全文] [PDF]
[阅读全文] [PDF]
标签:
1 共4条 分1页