+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : هذا السورس وضعته لإصدار DBGRID الى excel (/showthread.php?tid=7763)
هذا السورس وضعته لإصدار DBGRID الى excel - Bachirsoft - 25-04-2016
السلام عليكم
هذا السورس وضعته لإصدار DBGRID الى excel
واجهة عدة مشاكل: 1- منها لا يصدر التاريخ، 2- لايمكن اضافة اعمدة أخرى من غير الموجود أي اكثر من 7 أعمدة،.... أين الخلل ؟
كود :
procedure TMenuF.spSkinSpeedButton17Click(Sender: TObject);
var
FEUIL: Variant;
LINE,CONT: Integer;
begin
CONT:=DM.Query.RecordCount;
spSkinGauge1.MaxValue:=CONT;
spSkinGauge1.Value:=0;
DM.QUERY.Filtered:=FALSE;
LINE:=2;
FEUIL:=CreateOleObject('Excel.Application');
FEUIL.Caption:='Liste de Perssonel';
FEUIL.Visible:=False;
FEUIL.workbooks.add(1);
FEUIL.cells[1,1]:='Matricule';
FEUIL.cells[1,2]:='Nom';
FEUIL.cells[1,3]:='Prenom';
FEUIL.cells[1,4]:='Sexe';
FEUIL.cells[1,5]:='Date_Naiss';
FEUIL.cells[1,6]:='Grade_Actuel';
FEUIL.cells[1,7]:='Sit_Administrative';
DM.query.DisableControls;
try
while not DM.query.Eof do
begin
FEUIL.cells[LINE,1]:=DM.QueryMatricule.Value;
FEUIL.cells[LINE,2]:=DM.QueryNom.Value;
FEUIL.cells[LINE,3]:=DM.QueryPrenom.Value;
FEUIL.cells[LINE,4]:=DM.QuerySexe.Value;
FEUIL.cells[LINE,5]:=DM.QueryDate_Naiss.Text;
FEUIL.cells[LINE,6]:=DM.QueryGrade_Actuel.Value;
FEUIL.cells[LINE,7]:=DM.QuerySit_Administrative.Value;
LINE:=LINE+1;
DM.Query.Next;
spSkinGauge1.Value:=spSkinGauge1.Value+1;
end;
FEUIL.columns.autofit;
FEUIL.Visible:=True;
finally
DM.Query.EnableControls;
FEUIL:=Unassigned;
end;
end;RE: هذا السورس وضعته لإصدار DBGRID الى excel - محمد عبد العزيز - 26-04-2016
وعليكم السلام ورحمة الله وبركاته
إقتباس :منها لا يصدر التاريخهذا لانك استخدمت VALUE وقد يكون التاريخ مكتوب بطريقة غير متوقعة
إقتباس :لايمكن اضافة اعمدة أخرى من غير الموجود أي اكثر من 7 أعمدةهذا لانك استخدمت cells[1,7] وكان الاحسن ان تستخدم Count
RE: هذا السورس وضعته لإصدار DBGRID الى excel - Bachirsoft - 26-04-2016
اشكرك اخي على الملاحظة ولا كن يبقى كيف يكون الحل اريد تصحيح لهذا السورس وجزاكم الله عنا كل خير
RE: هذا السورس وضعته لإصدار DBGRID الى excel - أبو معاذ - 27-04-2016
جرب مكان Value
كود :
DM.QueryNom.AsString;