10-12-2014, 12:39 PM
14-12-2014, 05:50 PM
ا[color="red"]لسلام عليكم
لدي نفس المشكلة أخي وانتظر من الإخوة إفادتنا [/color]
لدي نفس المشكلة أخي وانتظر من الإخوة إفادتنا [/color]
05-01-2015, 11:18 PM
هناك برنامج اسمه
paradox to access converter
سوف يحل لك المشكلة ان شاء الله
paradox to access converter
سوف يحل لك المشكلة ان شاء الله
08-01-2015, 10:06 AM
و عليكم السلام و رحمة الله تعالى و بركاته
أخي هناك ملحق (utilit)مع قاعدة بيانات أبسوليت يقوم بالتحويل من paradox إلى absolute و منها يمكنك التصدير إلى إكسيل بسهولة و احترافية و يدعم اللغة العربية بصفة عادية جدا
بالتوفيق
أخي هناك ملحق (utilit)مع قاعدة بيانات أبسوليت يقوم بالتحويل من paradox إلى absolute و منها يمكنك التصدير إلى إكسيل بسهولة و احترافية و يدعم اللغة العربية بصفة عادية جدا
بالتوفيق
09-01-2015, 11:41 AM
أوافق الأخ makhlouf فانا نفذة هذه العملية عدة مرات عليك بتحويلها إلى قاعدة absolut database تجدها هنا في الموضوع
http://delphi4arab.net/forum/showthread....e+Database
و بعدها تقوم بالتحويل إلى excel بكل سهولة حيث ان القاعدة الجديدة تدعم اللغة العربية
http://delphi4arab.net/forum/showthread....e+Database
و بعدها تقوم بالتحويل إلى excel بكل سهولة حيث ان القاعدة الجديدة تدعم اللغة العربية
09-01-2015, 12:03 PM
وعليكم السلام ورحمة الله وبركاته.
كيف تقوم بتحويله الى اكسل؟
لأن المشكل في الأسطر البرمجية التى تقوم بتحويل.
إقتباس :عندي قاعدة بينات paradox محتواها بالعربية و عند تحويلها إلى إكسل تظهر برموز أخرى غير مقرؤة
كيف تقوم بتحويله الى اكسل؟
لأن المشكل في الأسطر البرمجية التى تقوم بتحويل.
10-01-2015, 09:10 PM
السلام عليكم
هدا الموضوع سيسفيدك ان شاء الله
http://www.delphi4arab.net/forum/showthread.php?tid=541
وهدا ايضا
http://www.delphi4arab.net/forum/showthread.php?tid=205
هدا الموضوع سيسفيدك ان شاء الله
http://www.delphi4arab.net/forum/showthread.php?tid=541
وهدا ايضا
http://www.delphi4arab.net/forum/showthread.php?tid=205
12-01-2015, 09:08 PM
أشكر الجميع ،و جعلها في مزان حسناتكم
13-10-2015, 10:12 AM
أقدم لك هذه الدالة تخرج الحروف عربية مجربة:
]
كود :
Function ExportToExcel(oDataSet : TDataSet; sFile : String): Boolean;
var
iCol,iRow : Integer;
oExcel : TExcelApplication;
oWorkbook : TExcelWorkbook;
oSheet : TExcelWorksheet;
begin
iCol := 0;
iRow := 0;
result := True;
oExcel := TExcelApplication.Create(Application);
oWorkbook := TExcelWorkbook.Create(Application);
oSheet := TExcelWorksheet.Create(Application);
try
oExcel.Visible[0] := False;
oExcel.Connect;
except
result := False;
MessageDlg('Excel may not be installed', mtError, [mbOk], 0);
exit;
end;
oExcel.Visible[0] := True;
oExcel.Caption := 'Sawami Export Engine';
oExcel.Workbooks.Add(Null,0);
oWorkbook.ConnectTo(oExcel.Workbooks[1]);
oSheet.ConnectTo(oWorkbook.Worksheets[1] as _Worksheet);
// iRow := 1;
for iCol:=1 to oDataSet.FieldCount do begin
// oSheet.Cells.Item[iRow,iCol] := oDataSet.FieldDefs.Items[iCol].Name;
// oSheet.Cells.Item[iRow,iCol] := oDataSet.Fields[iCol-1].FieldName;
end;
// iRow := 2;
oDataSet.Open;
while NOT oDataSet.Eof do begin
Inc(iRow);
for iCol:=1 to oDataSet.FieldCount do begin
oSheet.Cells.Item[iRow,iCol] := oDataSet.Fields[iCol-1].AsString;
end;
oDataSet.Next;
end;
//Change the wprksheet name.
oSheet.Name := 'List of Accounts';
//Change the font properties of all columns.
oSheet.Columns.Font.Color := clPurple;
oSheet.Columns.Font.FontStyle := fsBold;
oSheet.Columns.Font.Size := 10;
//Change the font properties of a row.
oSheet.Range['A1','A1'].EntireRow.Font.Color := clNavy;
oSheet.Range['A1','A1'].EntireRow.Font.Size := 16;
oSheet.Range['A1','A1'].EntireRow.Font.FontStyle := fsBold;
oSheet.Range['A1','A1'].EntireRow.Font.Name := 'Arabic Transparent';
//Change the font properties of a row.
oSheet.Range['A2','A2'].EntireRow.Font.Color := clBlue;
oSheet.Range['A2','A2'].EntireRow.Font.Size := 12;
oSheet.Range['A2','A2'].EntireRow.Font.FontStyle := fsBold;
oSheet.Range['A2','A2'].EntireRow.Font.Name := 'Arabic Transparent';
oSheet.Range['A2','H2'].HorizontalAlignment := xlHAlignCenter;
{
//Change the font properties of a column.
oSheet.Range['A1','C1'].EntireColumn.Font.Color := clBlue;
//Change Cells color of a row.
oSheet.Range['A1', 'A1'].EntireRow.Interior.Color := clNavy;
//Change Cells color of a column.
oSheet.Range['C1', 'C1'].EntireColumn.Interior.Color := clYellow;
//Align a column.
oSheet.Range['A1','A1'].HorizontalAlignment := xlHAlignLeft;
//Set a column with manually.
// oSheet.Columns.Range['A1','A1'].ColumnWidth := 16;
}
//Auto fit all columns.
oSheet.Columns.AutoFit;
DeleteFile(sFile);
Sleep(2000);
oSheet.SaveAs(sFile);
oSheet.Disconnect;
oSheet.Free;
oWorkbook.Disconnect;
oWorkbook.Free;
oExcel.Quit;
oExcel.Disconnect;
oExcel.Free;
end;
Examples:
//Export a DBGrid to Excel:
ExportToExcel(DBGrid1.DataSource.DataSet,'C:\MyDat a.XLS');
//Export a Table to Excel:
ExportToExcel(Table1,'C:\MyData.XLS');
//Export a Query to Excel:
ExportToExcel(Query1,'C:\MyData.XLS');[/DELPHI14-10-2015, 02:06 PM
مثل ما تطرق الاخوة استخدم برامج التحويل لتصدر القاعدة الى اي قاعدة تريد .... تحياتي .