2.4.3 Алгоритмы и тексты программ формирования выходных документов

Рисунок 9 – Форма «Кассовая-книга»

Кнопка «Сформировать»

void __fastcall TForm4::Button1Click(TObject *Sender)

{

DM->ADOTable1->Close();

DM->ADOTable1->TableName="pko";

DM->ADOTable1->Open();

DM->ADOQuery1->Close();

DM->ADOQuery1->SQL->Clear();

DM->ADOQuery1->SQL->Add("select pko.pkodate from pko");

DM->ADOQuery1->Open();

DM->ADOTable2->Close();

DM->ADOTable2->TableName="kaskniga";

DM->ADOTable2->Open();

for( int i=0; i<10; i++ )

{

DM->ADOTable2->Edit();

DM->ADOTable2->FieldByName("knigadate")->AsString=DM->ADOQuery1->DataSource->DataSet->FieldByName("pkodate")->AsString;

}

//формирование номеров кассовой книги

DM->ADOTable1->Close();

DM->ADOTable1->TableName="pko";

DM->ADOTable1->Open();

DM->ADOQuery1->Close();

DM->ADOQuery1->SQL->Clear();

DM->ADOQuery1->SQL->Add("select pko.pkonum from pko");

DM->ADOQuery1->Open();

for( int i=0; i<10; i++ )

{

DM->ADOTable2->Edit();

DM->ADOTable2->FieldByName("kniganum")->AsString=DM->ADOQuery1->DataSource->DataSet->FieldByName("pkonum")->AsString;

}

// копирование данных от кого в строковый массив

DM->ADOTable1->Close();

DM->ADOTable1->TableName="pko";

DM->ADOTable1->Open();

DM->ADOQuery1->Close();

DM->ADOQuery1->SQL->Clear();

DM->ADOQuery1->SQL->Add("select pko.pkonameplat from pko");

DM->ADOQuery1->Open();

for(int i=0; i<10; i++)

{

DM->ADOTable2->Edit();

DM->ADOTable2->FieldByName("knigaotkogo")->AsString=DM->ADOQuery1->DataSource->DataSet->FieldByName("pkonameplat")->AsString;

}

//формирование книги данных кому

DM->ADOTable1->Close();

DM->ADOTable1->TableName="rko";

DM->ADOTable1->Open();

DM->ADOQuery1->Close();

DM->ADOQuery1->SQL->Clear();

DM->ADOQuery1->SQL->Add("select rko.rkonameorg from rko");

DM->ADOQuery1->Open();

for(int i=0; i<10; i++)

{

DM->ADOTable2->Edit();

DM->ADOTable2->FieldByName("knigakomu")->AsString=DM->ADOQuery1->DataSource->DataSet->FieldByName("rkonameorg")->AsString;

}

DM->ADOTable1->Close();

DM->ADOTable1->TableName="pko";

DM->ADOTable1->Open();

DM->ADOQuery1->Close();

DM->ADOQuery1->SQL->Clear();

DM->ADOQuery1->SQL->Add("select pko.pkonum from pko");

DM->ADOQuery1->Open();

for( int i=0; i<10; i++ )

{

DM->ADOTable2->Edit();

DM->ADOTable2->FieldByName("knigaprihod")->AsString=DM->ADOQuery1->DataSource->DataSet->FieldByName("pkosum")->AsString;

}

DM->ADOTable1->Close();

DM->ADOTable1->TableName="rko";

DM->ADOTable1->Open();

DM->ADOQuery1->Close();

DM->ADOQuery1->SQL->Clear();

DM->ADOQuery1->SQL->Add("select rko.rkosum from rko");

DM->ADOQuery1->Open();

for( int i=0; i<10; i++ )

{

DM->ADOTable2->Edit();

DM->ADOTable2->FieldByName("knigarashod")->AsString=DM->ADOQuery1->DataSource->DataSet->FieldByName("rkosum")->AsString;

}

DM->ADOTable2->Refresh();

DM->ADOTable2->Insert();

}

Кнопка «Печать»

void __fastcall TForm4::Button2Click(TObject *Sender)

{

int sum1, sum2;

sum1=0; sum2=0;

DM->ADOTable2->Close();

DM->ADOTable2->TableName="kaskniga";

DM->ADOTable2->Open();

DM->ADOTable2->First();

for (int i=0; i<DM->ADOTable2->RecordCount; i++)

{

if(DM->ADOTable2->FieldByName("knigaprihod")->AsString!="")

sum1+=StrToInt(DM->ADOTable2->FieldByName("knigaprihod")->AsString);

DM->ADOTable2->Next();

}

DM->ADOTable2->First();

for (int i=0; i<DM->ADOTable2->RecordCount; i++)

{

if(DM->ADOTable2->FieldByName("knigarashod")->AsString!="")

sum2+=StrToInt(DM->ADOTable2->FieldByName("knigarashod")->AsString);

DM->ADOTable2->Next();

}

TStringList *list=new TStringList;

AnsiString s1,s2,s3,s4,s5,s6,s7;

DM->ADOTable2->First();

list->Add(" Кассовая Книга " );

list->Add(" ");

list->Add("| номер | Дата | От кого | Кому | Приход | Расход |");

list->Add("___________________________________________________________________________________");

for(int i=0; i<10; i++)

{

s1=DM->ADOTable2->FieldByName("kniganum")->AsString;

s2=DM->ADOTable2->FieldByName("knigadate")->AsString;

s3=DM->ADOTable2->FieldByName("knigaotkogo")->AsString;

s4=DM->ADOTable2->FieldByName("knigakomu")->AsString;

s5=DM->ADOTable2->FieldByName("knigaprihod")->AsString;

s6=DM->ADOTable2->FieldByName("knigarashod")->AsString;

s7+=" ";

s7+=s1;

s7+=" ";

s7+=" ";

s7+=s2;

s7+=" ";

s7+=" ";

s7+=s3;

s7+=" ";

s7+=" ";

s7+=s4;

s7+=" ";

s7+=s5;

s7+=" ";

s7+=" ";

s7+=s6;

list->Add(s7);

list->Add("__________________________________________________________________________________");

s7="";

s1=""; s2=""; s3=""; s4=""; s5=""; s6="";

DM->ADOTable2->Next();

}

AnsiString itog="Итого по приходу: ";

itog+=IntToStr(sum1);

itog+=" ";

itog+="Итого по расходу: ";

itog+=IntToStr(sum2);

list->Add(itog);

list->Add(" ");

list->Add("Подпись директора___________");

list->Add(" ");

list->Add("Подпись Гл.Бухгалтера________");

list->SaveToFile("kniga.txt");

}