База данных продавцов и покупателей

Автор работы: Пользователь скрыл имя, 06 Июня 2013 в 20:59, курсовая работа

Краткое описание

Необходимо предусмотреть ввод всей необходимой информации для покупателей и продавцов, такой как:
- наименование товара;
- объём партии товара (объём покупки для покупателей);
- цена

Содержание

Введение…………………………………………………………………
3
1
Разработка алгоритма…………………………………………………….
4

1.1
Постановка задачи…………………………………………………
4

1.2
Описание алгоритма………………………………………………
11
2
Разработка рабочего проекта…………………………………………
13

2.1
Описание логической структуры…………………………………
13

2.2
Входные данные……………………………………………………
14

2.3
Выходные данные…………………………………………………
15

2.4
Вызов программы…………………………………………………
15
3
Тестирование проекта……………………………………………………
18
4
Внедрение………………………………………………………………..
20

4.1
Условия выполнения программы………………………………
20

Заключение………………………………………………………………
22

Список использованных источников……………………………………
23

Приложение А – Блок-схема…………………………………………
24

Приложение Б – Код программы………………………………………
28

Приложение В – Результаты выполнения программы…………………
35

Скачать полностью (328.54 Кб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

ПЗ.doc

— 487.50 Кб (Скачать документ)

        else StringGrid2->Cols[4]->Add("");

        StringGrid2->Cols[5]->Add(Edit3->Text);

        StringGrid2->Cols[6]->Add(Edit4->Text);

        StringGrid2->Cols[7]->Add(Edit5->Text);

        StringGrid2->Cols[8]->Add("0");

        StringGrid2->Cols[9]->Add(ComboBox1->Text);

 

for(int i=1; i<1000; i++)

        {

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

                {

                 Memo1->Lines->Add(StringGrid2->Cells[j][i]);

                }

        }

Memo1->Lines->SaveToFile("data.txt");

Memo1->Lines->Clear();

}

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

 

void __fastcall TForm1::Button5Click(TObject *Sender)

{

StringGrid1->Visible=true;

for (int i=0;i<1000;i++)StringGrid1->Rows[i]->Clear();

 

AnsiString txt="",txt2="";

StringGrid1->Visible=true;

StringGrid2->Visible=false;

 

Memo1->Lines->Clear();

StringGrid1->Cols[0]->Add("№ в БД");

StringGrid1->Cols[1]->Add("Наименование  товара");

StringGrid1->Cols[2]->Add("Партия,шт");

StringGrid1->Cols[3]->Add("Цена,$");

StringGrid1->Cols[4]->Add("Условия пр.");

StringGrid1->Cols[5]->Add("Оплата");

StringGrid1->Cols[6]->Add("Контакты");

StringGrid1->Cols[7]->Add("Примечание");

StringGrid1->Cols[8]->Add("А");

StringGrid1->Cols[9]->Add("П");

StringGrid1->RowCount=1000;

 

int k=1;

for(int i=1; i<1000; i++)

        {

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

                {

                txt=StringGrid2->Cells[9][i];

                txt2=StringGrid2->Cells[8][i];

                if(txt=="Покупатель"&&txt2=="0")

                StringGrid1->Cells[j][k]=StringGrid2->Cells[j][i];

                else break;

                }

        if(txt=="Покупатель"&&txt2=="0")k++;

        }

}

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

 

void __fastcall TForm1::Button8Click(TObject *Sender)

{

int a;

int b;

a=StringGrid1->Row;

if(StringGrid1->Cells[8][a]==0)StringGrid1->Cells[8][a]=1;

else StringGrid1->Cells[8][a]=0;

b=StrToFloat(StringGrid1->Cells[0][a]);

StringGrid2->Cells[8][b]=StringGrid1->Cells[8][a];

 

for(int i=1; i<1000; i++)

        {

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

                {

                 Memo1->Lines->Add(StringGrid2->Cells[j][i]);

                }

        }

Memo1->Lines->SaveToFile("data.txt");

Memo1->Lines->Clear();

StringGrid1->Visible=false;

}

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

 

void __fastcall TForm1::Button6Click(TObject *Sender)

{

StringGrid1->Visible=true;

for (int i=0;i<1000;i++)StringGrid1->Rows[i]->Clear();

 

AnsiString txt="";

StringGrid1->Visible=true;

StringGrid2->Visible=false;

 

Memo1->Lines->Clear();

StringGrid1->Cols[0]->Add("№ в БД");

StringGrid1->Cols[1]->Add("Наименование  товара");

StringGrid1->Cols[2]->Add("Партия,шт");

StringGrid1->Cols[3]->Add("Цена,$");

StringGrid1->Cols[4]->Add("Условия пр.");

StringGrid1->Cols[5]->Add("Оплата");

StringGrid1->Cols[6]->Add("Контакты");

StringGrid1->Cols[7]->Add("Примечание");

StringGrid1->Cols[8]->Add("А");

StringGrid1->Cols[9]->Add("П");

StringGrid1->RowCount=1000;

 

int k=1;

for(int i=1; i<1000; i++)

        {

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

                {

                txt=StringGrid2->Cells[8][i];

                if(txt=="1")

                StringGrid1->Cells[j][k]=StringGrid2->Cells[j][i];

                else break;

                }

        if(txt=="1")k++;

        }

}

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

 

void __fastcall TForm1::Button2Click(TObject *Sender)

{

int a=0;

a=StringGrid1->Row;

Memo1->Lines->Clear();

a=StrToFloat(StringGrid1->Cells[0][a]);

 

Memo1->Lines->Add( StringGrid2->Cells[1][0]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[2][0]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[3][0]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[4][0]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[5][0]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[6][0]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[7][0]+'\t'+'|'+'\t'

                  );

Memo1->Lines->Add( "_______________________________________________________________________________________________________________________________________________________");

Memo1->Lines->Add("");

Memo1->Lines->Add( StringGrid2->Cells[1][a]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[2][a]+'\t'+'\t'+'|'+'\t'

                  +StringGrid2->Cells[3][a]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[4][a]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[5][a]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[6][a]+'\t'+'|'+'\t'

                  +StringGrid2->Cells[7][a]+'\t'+'|'+'\t'

                  );

Memo1->Lines->SaveToFile("print.txt");

}

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

 

void __fastcall TForm1::Button9Click(TObject *Sender)

{

StringGrid1->Visible=true;

Panel2->Visible=false;

AnsiString twn="",txt="";

twn=Edit6->Text;

int k=1;

for(int i=1; i<1000; i++)

        {

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

                {

                txt=StringGrid2->Cells[1][i];

                if(txt==twn)

                StringGrid1->Cells[j][k]=StringGrid2->Cells[j][i];

                else break;

                }

        if(txt==twn)k++;

        }

}

//--------------------------------------------------------------------------- 
Приложение В – Результаты выполнения программы

 

База данных. Выведены продавцы

База данных. Ввод данных в поля TEdit

Результат ввода новой позиции


Информация о работе База данных продавцов и покупателей