25-04-2016, 11:39 PM
السلام عليكم
هذا السورس وضعته لإصدار DBGRID الى excel
واجهة عدة مشاكل: 1- منها لا يصدر التاريخ، 2- لايمكن اضافة اعمدة أخرى من غير الموجود أي اكثر من 7 أعمدة،.... أين الخلل ؟
هذا السورس وضعته لإصدار 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;
