وثائق HotXLS
الصفحة الرئيسية المحتويات نظرة عامة

طريقة ExportDBGrid

يصدر dbgrid إلى Worksheet جديد أو موجود

بناء الجملة

procedure ExportDBGrid;
procedure ExportDBGrid(Newsheet: Boolean);
procedure ExportDBGrid(Newsheet: Boolean; Row, Col: Integer);
Newsheet اختياري Boolean. True - تصدير dbgrid إلى Worksheet جديد؛ False - تصدير dbgrid إلى Worksheet موجود. القيمة الافتراضية هي True
Row اختياري Integer. فهرس الصف
Col اختياري Integer. فهرس العمود

مثال

ينشئ هذا المثال Workbook يسمى Example1.xls بورقتي عمل تحتويان على بيانات من DBGrid1 و DBGrid2 

begin
  GridToXLS1.Workbook := nil; // يمسح Workbook

  // dbgrid الأول
  GridToXLS1.WorksheetName := 'DBGrid1 sheet'; // يحدد الاسم لـ Worksheet الأول
  GridToXLS1.DBGrid := DBGrid1; // يحدد dbgrid للتصدير
  GridToXLS1.ExportDBGrid;

  // dbgrid الثاني
  GridToXLS1.WorksheetName := 'DBGrid2 sheet'; // يحدد الاسم لـ Worksheet الثاني
  GridToXLS1.DBGrid := DBGrid2; // يحدد dbgrid للتصدير
  GridToXLS1.ExportDBGrid;

  GridToXLS1.SaveAs('Example1.xls'); // يحفظ Workbook المنشأ في ملف Example1.xls
end;
ينشئ هذا المثال Workbook يسمى Example2.xls بورقة عمل واحدة تحتوي على بيانات من DBGrid1 و DBGrid2 

begin
  GridToXLS1.Workbook := nil; // يمسح Workbook
  GridToXLS1.WorksheetName := 'DBGrid1 and DBGrid2 sheet'; // يحدد الاسم لـ Worksheet

  // dbgrid الأول
  GridToXLS1.DBGrid := DBGrid1; // يحدد dbgrid للتصدير
  GridToXLS1.ExportDBGrid;

  // dbgrid الثاني
  GridToXLS1.DBGrid := DBGrid2; // يحدد dbgrid للتصدير
  GridToXLS1.ExportDBGrid(false);

  GridToXLS1.SaveAs('Example2.xls'); // يحفظ Workbook المنشأ في ملف Example2.xls
end;