Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
курсовик рэис.doc
Скачиваний:
6
Добавлен:
20.08.2019
Размер:
548.86 Кб
Скачать

2.4.1 Тексты прочих программ и процедур

Поиск по базе и сортировка

Рисунок 10 Форма «Поиск по базе данных»

Кнопка «Поиск»

void __fastcall TForm7::BitBtn1Click(TObject *Sender)

{

AnsiString pole1;

if (ComboBox1->Text=="приходный_кассовый_ордер")

{

DM->ADOTable1->Active=false;

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

DM->ADOTable1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="номер";

DBGrid1->Columns->Items[1]->Title->Caption="дата";

DBGrid1->Columns->Items[2]->Title->Caption="наименование организации";

DBGrid1->Columns->Items[3]->Title->Caption="код окпо";

DBGrid1->Columns->Items[4]->Title->Caption="главный бухгалтер";

DBGrid1->Columns->Items[5]->Title->Caption="кассир";

DBGrid1->Columns->Items[6]->Title->Caption="наименование плательщика";

DBGrid1->Columns->Items[7]->Title->Caption="дебет";

DBGrid1->Columns->Items[8]->Title->Caption="кредит";

DBGrid1->Columns->Items[9]->Title->Caption="сумма";

DBGrid1->Columns->Items[10]->Title->Caption="основание";

DBGrid1->Columns->Items[11]->Title->Caption="приложение";

}

if (ComboBox1->Text=="расходный_кассовый_ордер")

{

DM->ADOTable1->Active=false;

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

DM->ADOTable1->Active=true;

DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="наименование организации";

DBGrid1->Columns->Items[4]->Title->Caption="код окпо";

DBGrid1->Columns->Items[5]->Title->Caption="должность руководителя";

DBGrid1->Columns->Items[6]->Title->Caption="ф.И.О руководителя";

DBGrid1->Columns->Items[7]->Title->Caption="главный бухгалтер";

DBGrid1->Columns->Items[8]->Title->Caption="кассир";

DBGrid1->Columns->Items[9]->Title->Caption="наименование получателя";

DBGrid1->Columns->Items[10]->Title->Caption="документ";

DBGrid1->Columns->Items[11]->Title->Caption="дебет";

DBGrid1->Columns->Items[12]->Title->Caption="кредит";

DBGrid1->Columns->Items[13]->Title->Caption="сумма";

DBGrid1->Columns->Items[14]->Title->Caption="основание";

DBGrid1->Columns->Items[15]->Title->Caption="приложение";

}

if (ComboBox1->Text=="журнал_ордер" )

{

DM->ADOTable1->Active=false;

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

DM->ADOTable1->Active=true;

DBGrid1->Columns->Items[1]->Title->Caption="номер строки";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="итого";

}

if (ComboBox1->Text=="ведомость")

{

DM->ADOTable1->Active=false;

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

DM->ADOTable1->Active=true;

DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="итого";

}

if (ComboBox1->Text=="кассовая_книга")

{

DM->ADOTable1->Active=false;

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

DM->ADOTable1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="дата";

DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="от кого";

DBGrid1->Columns->Items[3]->Title->Caption="кому";

DBGrid1->Columns->Items[4]->Title->Caption="приход";

DBGrid1->Columns->Items[5]->Title->Caption="расход";

}

if(RadioButton1->Checked)

{

if(ComboBox1->Text=="приходный_кассовый_ордер")

{ AnsiString *stringpoint;

AnsiString stringformat="dd/mm/yy";

stringpoint=&stringformat;

DM->ADOQuery1->Active=false;

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

DM->ADOQuery1->SQL->Add("select * from pko where ((pkodate>=:D1) and (pkodate<=:D2))");

DM->ADOQuery1->Parameters->ParamByName("D1")->Value=DateTimePicker1->Date.FormatString(*stringpoint);

DM->ADOQuery1->Parameters->ParamByName("D2")->Value=DateTimePicker2->Date.FormatString(*stringpoint);

DM->ADOQuery1->Active=true;

/* DBGrid1->Columns->Items[0]->Title->Caption="номер";

DBGrid1->Columns->Items[1]->Title->Caption="дата";

DBGrid1->Columns->Items[2]->Title->Caption="наименование организации";

DBGrid1->Columns->Items[3]->Title->Caption="код окпо";

DBGrid1->Columns->Items[4]->Title->Caption="главный бухгалтер";

DBGrid1->Columns->Items[5]->Title->Caption="кассир";

DBGrid1->Columns->Items[6]->Title->Caption="наименование плательщика";

DBGrid1->Columns->Items[7]->Title->Caption="дебет";

DBGrid1->Columns->Items[8]->Title->Caption="кредит";

DBGrid1->Columns->Items[9]->Title->Caption="сумма";

DBGrid1->Columns->Items[10]->Title->Caption="основание";

DBGrid1->Columns->Items[11]->Title->Caption="приложение";

*/

} //end if

if(ComboBox1->Text=="расходный_кассовый_ордер")

{

DM->ADOQuery1->Active=false;

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

DM->ADOQuery1->SQL->Add("select * from rko where ((rkodate>=:D1) and (rkodate<=:D2))");

DM->ADOQuery1->Parameters->ParamByName("D1")->Value=DateTimePicker1->Date;

DM->ADOQuery1->Parameters->ParamByName("D2")->Value=DateTimePicker2->Date;

DM->ADOQuery1->Active=true;

/* DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="наименование организации";

DBGrid1->Columns->Items[4]->Title->Caption="код окпо";

DBGrid1->Columns->Items[5]->Title->Caption="должность руководителя";

DBGrid1->Columns->Items[6]->Title->Caption="ф.И.О руководителя";

DBGrid1->Columns->Items[7]->Title->Caption="главный бухгалтер";

DBGrid1->Columns->Items[8]->Title->Caption="кассир";

DBGrid1->Columns->Items[9]->Title->Caption="наименование получателя";

DBGrid1->Columns->Items[10]->Title->Caption="документ";

DBGrid1->Columns->Items[11]->Title->Caption="дебет";

DBGrid1->Columns->Items[12]->Title->Caption="кредит";

DBGrid1->Columns->Items[13]->Title->Caption="сумма";

DBGrid1->Columns->Items[14]->Title->Caption="основание";

DBGrid1->Columns->Items[15]->Title->Caption="приложение";

}//end if */

}

if(ComboBox1->Text=="ведомость")

{

DM->ADOQuery1->Active=false;

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

DM->ADOQuery1->SQL->Add("select * from vedomost where ((veddate>=:D1) and (veddate<=:D2))");

DM->ADOQuery1->Parameters->ParamByName("D1")->Value=DateTimePicker1->Date;

DM->ADOQuery1->Parameters->ParamByName("D2")->Value=DateTimePicker2->Date;

DM->ADOQuery1->Active=true;

/* DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="итого";

*/

}

if(ComboBox1->Text=="журнал_ордер")

{

DM->ADOQuery1->Active=false;

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

DM->ADOQuery1->SQL->Add("select * from zurnalorder where ((date>=:D1) and (date<=:D2))");

DM->ADOQuery1->Parameters->ParamByName("D1")->Value=DateTimePicker1->Date;

DM->ADOQuery1->Parameters->ParamByName("D2")->Value=DateTimePicker2->Date;

DM->ADOQuery1->Active=true;

/*

DBGrid1->Columns->Items[1]->Title->Caption="номер строки";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="итого";

}

if(ComboBox1->Text=="кассовая_книга")

{

DM->ADOQuery1->Active=false;

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

DM->ADOQuery1->SQL->Add("select * from kaskniga where ((knigadate>=:D1) and (knigadate<=:D2))");

DM->ADOQuery1->Parameters->ParamByName("D1")->Value=DateTimePicker1->Date;

DM->ADOQuery1->Parameters->ParamByName("D2")->Value=DateTimePicker2->Date;

DM->ADOQuery1->Active=true;

/* DBGrid1->Columns->Items[0]->Title->Caption="дата";

DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="от кого";

DBGrid1->Columns->Items[3]->Title->Caption="кому";

DBGrid1->Columns->Items[4]->Title->Caption="приход";

DBGrid1->Columns->Items[5]->Title->Caption="расход";

*/

}

}}

//------------------------------------------------------------------------------

/* if(RadioButton2->Checked)

{

if(Form1->ComboBox1->Text=="Приходный_кассовый_ордер")

{

pole1="pkonum";

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

DM->ADOQuery1->Active=false;

AnsiString question;

question=" select * from pko where ( ";

question+=pole1;

question+=" >= ";

question+=Edit1->Text;

question+= " ) and ( " ;

question+=pole1;

question+=" <= ";

question+=Edit2->Text;

question+=" ) ";

DM->ADOQuery1->SQL->Add(question);

DBGrid1->DataSource=DM->DataSource2;

DM->ADOQuery1->Open();

DBGrid1->Columns->Items[0]->Title->Caption="номер";

DBGrid1->Columns->Items[1]->Title->Caption="дата";

DBGrid1->Columns->Items[2]->Title->Caption="наименование организации";

DBGrid1->Columns->Items[3]->Title->Caption="код окпо";

DBGrid1->Columns->Items[4]->Title->Caption="главный бухгалтер";

DBGrid1->Columns->Items[5]->Title->Caption="кассир";

DBGrid1->Columns->Items[6]->Title->Caption="наименование плательщика";

DBGrid1->Columns->Items[7]->Title->Caption="дебет";

DBGrid1->Columns->Items[8]->Title->Caption="кредит";

DBGrid1->Columns->Items[9]->Title->Caption="сумма";

DBGrid1->Columns->Items[10]->Title->Caption="основание";

DBGrid1->Columns->Items[11]->Title->Caption="приложение";

}// end if

//------------------------------------------------------------------------------

if(Form1->ComboBox1->Text=="Расходный_кассовый_ордер")

{

pole1="rkonum";

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

DM->ADOQuery1->Active=false;

AnsiString question;

question="select * from rko where (";

question+=pole1;

question+=">=";

question+=Edit1->Text;

question+=") and (" ;

question+=pole1;

question+="<=";

question+=Edit2->Text;

question+=")";

DM->ADOQuery1->SQL->Add(question);

DBGrid1->DataSource=DM->DataSource2;

DM->ADOQuery1->Open();

DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="наименование организации";

DBGrid1->Columns->Items[4]->Title->Caption="код окпо";

DBGrid1->Columns->Items[5]->Title->Caption="должность руководителя";

DBGrid1->Columns->Items[6]->Title->Caption="ф.И.О руководителя";

DBGrid1->Columns->Items[7]->Title->Caption="главный бухгалтер";

DBGrid1->Columns->Items[8]->Title->Caption="кассир";

DBGrid1->Columns->Items[9]->Title->Caption="наименование получателя";

DBGrid1->Columns->Items[10]->Title->Caption="документ";

DBGrid1->Columns->Items[11]->Title->Caption="дебет";

DBGrid1->Columns->Items[12]->Title->Caption="кредит";

DBGrid1->Columns->Items[13]->Title->Caption="сумма";

DBGrid1->Columns->Items[14]->Title->Caption="основание";

DBGrid1->Columns->Items[15]->Title->Caption="приложение";

} //end if

//------------------------------------------------------------------

if(Form1->ComboBox1->Text=="Ведомость")

{

pole1="vednum";

DM->ADOTable1->Active=false;

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

DM->ADOTable1->Active=true;

DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="итого";

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

DM->ADOQuery1->Active=false;

AnsiString question;

question="select * from rko where (";

question+=pole1;

question+=">=";

question+=Edit1->Text;

question+=") and (" ;

question+=pole1;

question+="<=";

question+=Edit2->Text;

question+=")";

DM->ADOQuery1->SQL->Add(question);

DBGrid1->DataSource=DM->DataSource2;

DM->ADOQuery1->Open();

}//end if vedomost

//-----------------------------------------------------------------------------

if(Form1->ComboBox1->Text=="Журнал_ордер")

{

pole1="strnum";

DM->ADOTable1->Active=false;

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

DM->ADOTable1->Active=true;

DBGrid1->Columns->Items[1]->Title->Caption="номер строки";

DBGrid1->Columns->Items[2]->Title->Caption="дата";

DBGrid1->Columns->Items[3]->Title->Caption="итого";

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

DM->ADOQuery1->Active=false;

AnsiString question;

question="select * from rko where (";

question+=pole1;

question+=">=";

question+=Edit1->Text;

question+=") and (" ;

question+=pole1;

question+="<=";

question+=Edit2->Text;

question+=")";

DM->ADOQuery1->SQL->Add(question);

DBGrid1->DataSource=DM->DataSource2;

DM->ADOQuery1->Open();

}//end if zurnal_order

//-----------------------------------------------------------------------------

if(Form1->ComboBox1->Text=="Кассовая_книга")

{

pole1="kniganum";

DBGrid1->Columns->Items[0]->Title->Caption="дата";

DBGrid1->Columns->Items[1]->Title->Caption="номер";

DBGrid1->Columns->Items[2]->Title->Caption="от кого";

DBGrid1->Columns->Items[3]->Title->Caption="кому";

DBGrid1->Columns->Items[4]->Title->Caption="приход";

DBGrid1->Columns->Items[5]->Title->Caption="расход";

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

DM->ADOQuery1->Active=false;

AnsiString question;

question="select * from rko where (";

question+=pole1;

question+=">=";

question+=Edit1->Text;

question+=") and (" ;

question+=pole1;

question+="<=";

question+=Edit2->Text;

question+=")";

DM->ADOQuery1->SQL->Add(question);

DBGrid1->DataSource=DM->DataSource2;

DM->ADOQuery1->Open();

} //end if kniga

//------------------------------------------------------------------------------

}//end if cheked

if(RadioButton3->Checked)

{

if(Form1->ComboBox1->Text=="Приходный_кассовый_ордер")

{

pole1="pkosum";

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

DM->ADOQuery1->Active=false;

AnsiString question;

question="select pko.pkosum from pko ";

where ( ";

question+=pole1;

question+=" >= ";

question+=Edit1->Text;

question+=" ) and ( " ;

question+=pole1;

question+=" <= ";

question+=Edit2->Text;

question+=" ) ";

DM->ADOQuery1->SQL->Add(question);

DBGrid1->DataSource=DM->DataSource2;

DM->ADOQuery1->Open();

DBGrid1->Columns->Items[0]->Title->Caption="номер";

DBGrid1->Columns->Items[1]->Title->Caption="дата";

DBGrid1->Columns->Items[2]->Title->Caption="наименование организации";

DBGrid1->Columns->Items[3]->Title->Caption="код окпо";

DBGrid1->Columns->Items[4]->Title->Caption="главный бухгалтер";

DBGrid1->Columns->Items[5]->Title->Caption="кассир";

DBGrid1->Columns->Items[6]->Title->Caption="наименование плательщика";

DBGrid1->Columns->Items[7]->Title->Caption="дебет";

DBGrid1->Columns->Items[8]->Title->Caption="кредит";

DBGrid1->Columns->Items[9]->Title->Caption="сумма";

DBGrid1->Columns->Items[10]->Title->Caption="основание";

DBGrid1->Columns->Items[11]->Title->Caption="приложение";

}

}

}//end progs

//-------------------------------------------------------------

if(Form1->ComboBox1->Text=="Расходный_кассовый_ордер")

pole1="rkosum";

if(Form1->ComboBox1->Text=="Ведомость")

pole1="itogoved";

if(Form1->ComboBox1->Text=="Журнал_ордер")

pole1="itogo";

if(Form1->ComboBox1->Text=="Кассовая_книга")

pole1="knigaprihod";

}

}

Рисунок 11 Форма «Сортировка базы данных»

Кнопка «Включить сортировку по выбранному полю»

void __fastcall TForm8::CheckBox1Click(TObject *Sender)

{

if(CheckBox1->Checked)

{

if(ComboBox1->Text=="приходник")

{

int t=CheckListBox1->Count;

AnsiString field2="select ";

AnsiString field1;

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

{

if((CheckListBox1->Checked[i]))

{

field1+=CheckListBox1->Items->Strings[i];

field1+=" ";

}//end if

}//end for

char p[90];

strcpy(p,field1.c_str());

for(int i=0; i<field1.Length()-1; i++)

{

if(p[i]==' ')

p[i]=',';

}//end for

field2=" select ";

field2+=p;

field2+=" from pko " ;

DM->ADOQuery1->Close();

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

DM->ADOQuery1->SQL->Add(field2);

DM->ADOQuery1->Open();

}//end if combo box

if(ComboBox1->Text=="расходник")

{

int t=CheckListBox1->Count;

AnsiString field2="select ";

AnsiString field1;

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

{

if((CheckListBox1->Checked[i]))

{

field1+=CheckListBox1->Items->Strings[i];

field1+=" ";

}//end if

}//end for

char p[90];

strcpy(p,field1.c_str());

for(int i=0; i<field1.Length()-1; i++)

{

if(p[i]==' ')

p[i]=',';

}//end for

field2=" select ";

field2+=p;

field2+=" from rko " ;

DM->ADOTable1->Close();

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

DM->ADOTable1->Open();

DM->ADOQuery1->Close();

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

DM->ADOQuery1->SQL->Add(field2);

DM->ADOQuery1->Open();

}//end if

if(ComboBox1->Text=="журнал_ордер")

{

int t=CheckListBox1->Count;

AnsiString field2="select ";

AnsiString field1;

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

{

if((CheckListBox1->Checked[i]))

{

field1+=CheckListBox1->Items->Strings[i];

field1+=" ";

}//end if

}//end for

char p[90];

strcpy(p,field1.c_str());

for(int i=0; i<field1.Length()-1; i++)

{

if(p[i]==' ')

p[i]=',';

}//end for

field2=" select ";

field2+=p;

field2+=" from zurnalorder" ;

DM->ADOQuery1->Close();

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

DM->ADOQuery1->SQL->Add(field2);

DM->ADOQuery1->Open();

}//end if

if(ComboBox1->Text=="ведомость")

{

int t=CheckListBox1->Count;

AnsiString field2="select ";

AnsiString field1;

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

{

if((CheckListBox1->Checked[i]))

{

field1+=CheckListBox1->Items->Strings[i];

field1+=" ";

}//end if

}//end for

char p[90];

strcpy(p,field1.c_str());

for(int i=0; i<field1.Length()-1; i++)

{

if(p[i]==' ')

p[i]=',';

}//end for

field2=" select ";

field2+=p;

field2+=" from vedomost" ;

DM->ADOQuery1->Close();

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

DM->ADOQuery1->SQL->Add(field2);

DM->ADOQuery1->Open();

}//end if

if(ComboBox1->Text=="кассовая_книга")

{

int t=CheckListBox1->Count;

AnsiString field2="select ";

AnsiString field1;

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

{

if((CheckListBox1->Checked[i]))

{

field1+=CheckListBox1->Items->Strings[i];

field1+=" ";

}//end if

}//end for

char p[90];

strcpy(p,field1.c_str());

for(int i=0; i<field1.Length()-1; i++)

{

if(p[i]==' ')

p[i]=',';

}//end for

field2=" select ";

field2+=p;

field2+=" from kaskniga " ;

DM->ADOQuery1->Close();

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

DM->ADOQuery1->SQL->Add(field2);

DM->ADOQuery1->Open();

}//end if

}//end checkbox */

}

Заключение

В процессе выполнения курсового проекта были разработаны структура и алгоритм работы приложения «Учет кассовых операций по счету 50». Программное обеспечение написано на языке С++ с использованием среды разработки С++ Builder 6.0

Результатом работы стало создание программного обеспечения, обслуживающего деятельность кассира. В ходе работы над данной работой была проанализирована предметная область. Были изучены источники. 

После этого были написаны руководства пользователя. Так же мной были приобретены навыки в области построения баз данных. Был разработан удобный пользовательский интерфейс. Кроме того, в стороне не осталось стилистическое и эстетическое оформление программного продукта, привлекающее внимание потенциального покупателя. 

В результате выполнения курсового проекта можно сделать вывод, что сегодня внедрение информационных систем может способствовать получению более рациональных вариантов решения управленческих задач за счет внедрения интеллектуальных систем. Эффективность от использования данной информационной системы, достигается за счет замены бумажных носителей на их цифровые копии, что приводит к более рациональной организации переработки информации на компьютере и снижению объемов бумажных документов. Освобождение сотрудников от рутинной работы, за счет ее автоматизации, и повышения скорости поиска и обработки данных кассира.

Список общепринятых сокращений

ПО – программное обеспечение.

ОС – операционная система.

СУБД – система управления баз данных.

ЭИС – экономические информационные системы.

БД – база данных.

ПЭВМ – персональная электронно-вычислительная машина.

Список литературы

1. Самоучитель С++ Г.Шилдт (Изд. «БХВ»)

2. Язык С++ в С++ Builder А.Я Архангельский (Изд. «Вильямс»)

3. Философия С++ Введение в стандартный С++ Б. Эккель (Изд. «Кно-рус»)

4. Философия С++ Практическое программирование Б. Эккель (Изд. «Кно-рус»)

5. Access Трюки Э. Джон (Изд. «Орион»)

6. Microsoft Access Проблемы и решения Д. Аккардоли (Изд. «Вильямс»)

7. Теория и практика построения Баз Данных Р. Джонсон (Изд. «Вильямс»)

8. Ассess в примерах Б. Хомоненко (Изд. «БХВ»)

9. SQL – полное руководство Б. Хомоненко (Изд. «Питер»)

10. SQL- на практике Ч. Брук (Изд. «Папирус»)