- •Курсовая работа
- •Выполнил студент Группы ал-дли-901
- •Оценка _____________
- •1.2.2 Требования, предъявляемые к системе
- •1.2.3 Требования, предъявляемые к по
- •1.3 Характеристика используемой пэвм, ос и языка программирования
- •2 Разработка программного обеспечения
- •2.1 Технологический процесс машинной реализации задачи
- •2.2 Алгоритм задачи и его описание
- •2.3 Программы и их описание
- •2.3.1 Алгоритм и текст программы меню
- •2.4.2 Алгоритм и тексты (вид форм) программ ввода данных
- •2.4.3 Алгоритмы и тексты программ формирования выходных документов
- •2.4.1 Тексты прочих программ и процедур
- •6 Приложение
- •6.1 Приложение а – Техническое задание
- •6.2 Приложение б – эскизный проект
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");
}