Форум программистов [Powered by Invision Power Board]

Код

  


   ExcelApp.ConnectKind := ckRunningOrNew;
   ExcelApp.Connect;
   ExcelApp.Visible[1049] := true;
   ExcelApp.Workbooks.Add (EmptyParam,1);
   ExcelWb.ConnectTo (ExcelApp.ActiveWorkbook );
   ExcelWS.ConnectTo (ExcelWb.Worksheets [1] as _WorkSheet);




procedure TForm1.bbOpenDBClick(Sender: TObject);
begin
if od.Execute then
begin
try
   ADO_CON.Connected:=false;
   ADO_CON.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+od.FileName+';Persist Security Info=False';
   ADO_CON.Connected:=true;
   edtBASA.Text:=od.FileName;
finally
end;
end;
end;

procedure TForm1.bbExcelClick(Sender: TObject);
var
 from_m,to_m:integer;
 year_from:integer;
 year_to:integer;
 s:string;
begin
If TRIM(edtBASA.Text)='' then
showmessage('Áàçó âûáåðè...')
ELSE
BEGIN
try
    l:=TstringList.Create;
    qryADO.Active:=false;
    from_m:=cmMon.ItemIndex+1;
    to_m:=cmMon.ItemIndex+2;
    year_from:=strtoint(edtYear.Text);
    year_to:=strtoint(edtYear.Text);
    if to_m=13 then
    begin
      to_m:=1;
      year_to:=year_to+1;
    end;
    qryAdo.Parameters.ParamByName('PFROM').Value:=EncodeDate(Year_from,from_m,1);
    qryAdo.Parameters.ParamByName('PTO').Value:=EncodeDate(Year_TO,TO_m,1);
//    showmessage(qryADO.SQL.Text);
    try
      qryADO.Active:=true;
      qryADO.First;
      while not qryADO.Eof do
      begin
      s:='';
      s:=formatdatetime('dd.mm.yyyy',qryADO.fieldbyname('DEVENT_DATE').AsDateTime)+';';
      s:=s+formatdatetime('hh:nn',qryADO.fieldbyname('DEVENT_TIME').AsDateTime)+';';
      s:=s+qryADO.fieldbyname('TCARD').AsString+';';
      s:=s+qryADO.fields[3].AsString+';';
      s:=s+qryADO.fieldbyname('TDEPARTMENTNAME').AsString+';';
      s:=s+qryADO.fieldbyname('tDescReader').AsString;
      l.Add(s);
         qryADO.Next;
      end;
      l.SaveToFile('1.csv');
    TO_EXCEL(l);
    except
       showmessage('×åòî íå òî ñ SQLåì...')
    end;
    qryADO.Active:=false;
    ADO_con.Connected:=false;
    ADO_con.Connected:=true;
finally
    l.Clear;
    l.Free;
    l:=nil;
 end;
END;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADO_CON.Connected:=false;
end;