Xuất
dbgrid vào Worksheet mới hoặc hiện có
Cú pháp
procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
| Newsheet |
Boolean tùy chọn. True - xuất dbgrid sang Worksheet mới; False - xuất dbgrid sang Worksheet hiện có. Giá trị mặc định là True |
| Row |
Optional Integer. hàng index |
| Col |
Optional Integer. cột index |
Ví dụ
Ví dụ này tạo Workbook Example1.xls với hai Worksheet chứa dữ liệu từ DBGrid1 và DBGrid2
begin
GridToXLS1.Workbook := nil; //Clears sổ làm việc
//First dbgrid
GridToXLS1.WorksheetName := 'DBGrid1 sheet'; //Chỉ định tên cho trang tính đầu tiên
GridToXLS1.DBGrid := DBGrid1; //Chỉ định DBGrid để xuất
GridToXLS1.ExportDBGrid;
//Second dbgrid
GridToXLS1.WorksheetName := 'DBGrid2 sheet'; //Chỉ định tên cho trang tính thứ hai
GridToXLS1.DBGrid := DBGrid2; //Chỉ định DBGrid để xuất
GridToXLS1.ExportDBGrid;
GridToXLS1.SaveAs('Example1.xls'); //Saves the created sổ làm việc into Example1.xls tệp
end;
Ví dụ này tạo Workbook Example2.xls với một Worksheet chứa dữ liệu từ DBGrid1 và DBGrid2