Совершенствование системы сравнительного анализа деятельности предприятия сети «Купеческий»

    DBGrid1.Columns[0].Title.caption:='Начальная дата';

    DBGrid1.Columns[1].Title.caption:='Конечная дата';

    DBGrid1.Columns[2].Title.caption:='Доходы от реализации';

    DBGrid1.Columns[3].Title.caption:='Вререализационные доходы';

    DBGrid1.Columns[4].Title.caption:='Переменные затраты';

    DBGrid1.Columns[5].Title.caption:='Прочие затраты';

    DBGrid1.Columns[6].Title.caption:='Постоянные затраты';

end; 

procedure TBuhgalO_form.Button9Click(Sender: TObject);

begin

var

i, j, index: Integer;

ExcelApp, sheet, Colum: Variant; 

begin

ExcelApp := CreateOleObject('Excel.Application');

ExcelApp.Visible := False;

ExcelApp.WorkBooks.Add(-4167);

 ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Доходы и расходы маг."Купеческий" ГГМ';

sheet:=ExcelApp.WorkBooks[1].WorkSheets['Доходы и расходы маг."Купеческий" ГГМ'].Columns;

 Sheet.Range['A1']:='Начальная дата';

Sheet.Range['B1']:='Конечная  дата';

Sheet.Range['C1']:='Доходы  от реализации';

Sheet.Range['D1']:='Внереализацонные  доходы';

Sheet.Range['E1']:='Постоянные  затраты';

Sheet.Range['F1']:='Переменные затраты';

Sheet.Range['G1']:='Прочие  затраты';

index:=2; // вывод  данных со второй строки

 DBGrid1.DataSource.DataSet.First;

      for i:=1 to  DBGrid1.DataSource.DataSet.RecordCount do

      begin

      for j:=1 to DBGrid1.FieldCount do

        sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring;

      inc(index);

      DBGrid1.DataSource.DataSet.Next;

      end;

ExcelApp.Visible := true;

                

end; 

 

procedure TBuhgalT_form.Button8Click(Sender: TObject);

begin

  DataModule.DataModule_TheForm.Query3.Close;

  DataModule.DataModule_TheForm.Query3.SQL.Clear;

  DataModule.DataModule_TheForm.Query3.SQL.Add('Select Svod_vedomost_two.Data_sv_t,');

  DataModule.DataModule_TheForm.Query3.SQL.Add('Realizaciya_two.Vur_tt_realiz_tov_t - Realizaciya_two.Sebestoim_tov_t,');

  DataModule.DataModule_TheForm.Query3.SQL.Add('Vnerealiz_dohod_two.Nakopit_skidki_t + Vnerealiz_dohod_two.Subarenda_t + Vnerealiz_dohod_two.Bonus_marketing_t + Vnerealiz_dohod_two.Prochie_doh_t,');

  DataModule.DataModule_TheForm.Query3.SQL.Add('Peremen_zatrat_two.Usl_svyazi_t + Peremen_zatrat_two.Usl_thran_t + Peremen_zatrat_two.Usl_banka_t + Peremen_zatrat_two.Incasaciya_t');

  DataModule.DataModule_TheForm.Query3.SQL.Add('Peremen_zatrat_two.Upakov_mater_t + Peremen_zatrat_two.So1d_kassov_hoz_t + Peremen_zatrat_two.Transport_t + Peremen_zatrat_two.Usl_stron_trg_t + Peremen_zatrat_two.Kommun_rashod_t + Peremen_zatrat_two.Poteri_tt_realiz_t,');

  DataModule.DataModule_TheForm.Query3.SQL.Add('Prochie_zatrat_two.Shtraf_za_narush_dogov_t + Prochie_zatrat_two.Predstav_rashod_t + Prochie_zatrat_two.Hoz_rashod_t + Prochie_zatrat_two.Kanctovar_t + Prochie_zatrat_two.GSM_t+Prochie_zatrat_two.Marketing_t + Prochie_zatrat_two.Med_tsmotr_t + Prochie_zatrat_two.Obed_t,');

  DataModule.DataModule_TheForm.Query3.SQL.Add('Postoyan_zatrat_two.Zarplata_t+Postoyan_zatrat_two.Premiay_t');

  DataModule.DataModule_TheForm.Query3.SQL.Add('FROM "Peremen_zatrat_two.DB" Peremen_zatrat_two, "Prochie_zatrat_two.db" Prochie_zatrat_two, "Vnerealiz_dohod_two.db" Vnerealiz_dohod_two, "Svod_vedomost_two.db" Svod_vedomost_two, "Postoyan_zatrat_two.db" Postoyan_zatrat_two, "Realizaciya_two.db" Realizaciya_two');

  DataModule.DataModule_TheForm.Query3.SQL.Add('Where(Realizaciya_two.Kod_realiz_t = Svod_vedomost_two.Kod_realiz_t)');

  DataModule.DataModule_TheForm.Query3.SQL.Add('and(Svod_vedomost_two.Kod_vnerealiz_doh_t = Vnerealiz_dohod_two.Kod_vnerealiz_doh_t');

  DataModule.DataModule_TheForm.Query3.SQL.Add('and(Svod_vedomost_two.Kod_proch_zatrat_t = Prochie_zatrat_two.Kod_proch_zatrat_t');

  DataModule.DataModule_TheForm.Query3.SQL.Add('and(Svod_vedomost_two.Kod_post_zatrat_t = Postoyan_zatrat_two.Kod_post_zatrat_t');

  DataModule.DataModule_TheForm.Query3.SQL.Add('and(Svod_vedomost_two.Kod_perem_zatrat_t = Peremen_zatrat_two.Kod_perem_zatrat_t');

  DataModule.DataModule_TheForm.Query3.SQL.Add('and(Svod_vedomost_two.Data_sv =:dt)');

  DataModule.DataModule_TheForm.Query3.SQL.Add('dt').AsDate:=DateTimePicker1.Date;

  DataModule.DataModule_TheForm.Query3.SQL.Add('and(Svod_vedomost_two.Data_sv_t =:dt)');

  DataModule.DataModule_TheForm.Query3.SQL.Add('dt1').AsDate:=DateTimePicker1.Date;

  DataModule.DataModule_TheForm.Query3.Open;

  DBGrid1.Refresh;

    DBGrid1.Columns[0].Title.caption:='Начальная дата';

    DBGrid1.Columns[1].Title.caption:='Конечная дата';

    DBGrid1.Columns[2].Title.caption:='Доходы от реализации';

    DBGrid1.Columns[3].Title.caption:='Вререализационные доходы';

    DBGrid1.Columns[4].Title.caption:='Переменные затраты';

    DBGrid1.Columns[5].Title.caption:='Прочие затраты';

    DBGrid1.Columns[6].Title.caption:='Постоянные затраты';

end; 

procedure TBuhgalT_form.Button9Click(Sender: TObject);

begin

var

i, j, index: Integer;

ExcelApp, sheet, Colum: Variant; 

begin

ExcelApp := CreateOleObject('Excel.Application');

ExcelApp.Visible := False;

ExcelApp.WorkBooks.Add(-4167);

ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Доходы и расходы маг."Алиас"';

sheet:=ExcelApp.WorkBooks[1].WorkSheets['Доходы и расходы маг."Алиас"'].Columns;

 Sheet.Range['A1']:='Начальная дата';

Sheet.Range['B1']:='Конечная  дата';

Sheet.Range['C1']:='Доходы  от реализации';

Sheet.Range['D1']:='Внереализацонные  доходы';

Sheet.Range['E1']:='Постоянные  затраты';

Sheet.Range['F1']:='Переменные  затраты';

Sheet.Range['G1']:='Прочие  затраты';

index:=2; // вывод  данных со второй строки

 DBGrid1.DataSource.DataSet.First;

      for i:=1 to  DBGrid1.DataSource.DataSet.RecordCount do

      begin

      for j:=1 to DBGrid1.FieldCount do

        sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring;

      inc(index);

      DBGrid1.DataSource.DataSet.Next;

      end;

ExcelApp.Visible := true;

                             

end;