Написание программы с возможностью вывода на экран информации о людях, чьи данные введены с клавиатуры

Страницы работы

10 страниц (Word-файл)

Содержание работы

Задание:

Описать таблицу, содержащую следующие поля:

-Фамилия, Имя;

-Номер телефона

-Дата рождения

Написать программу:

-Ввод с клавиатуры данных в таблицу.

-Возможность проводить сортировку

-Возможность добавлять или удалять строки

-Возможность очистки данных

-Вывод на экран информации о людях, чьи данные введены с клавиатуры

Код программы:

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

#include <vcl.h>

#include <dstring.h>

#pragma hdrstop

#include "Laba666.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

StringGrid1->ColCount=5;     StringGrid1->RowCount=2;

StringGrid1->Cells[0][0]="№";

StringGrid1->Cells[1][0]="Фамилия";

StringGrid1->Cells[2][0]="Имя";

StringGrid1->Cells[3][0]="Номер телефона";

StringGrid1->Cells[4][0]="Дата рождения";

StringGrid1->Cells[0][1]=1;

StringGrid2->ColCount=5;     StringGrid2->RowCount=2;

StringGrid2->Cells[0][0]="№";

StringGrid2->Cells[1][0]="Фамилия";

StringGrid2->Cells[2][0]="Имя";

StringGrid2->Cells[3][0]="Номер телефона";

StringGrid2->Cells[4][0]="Дата рождения";

ComboBox1->Items->Add("Фамилия");

ComboBox1->Items->Add("Имя");

ComboBox1->Items->Add("Номер телефона");

ComboBox1->Items->Add("Дата рождения");

ComboBox1->Items->Add("Все");

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

StringGrid1->RowCount+=1;

StringGrid1->Cells[0][StringGrid1->RowCount-1]=StringGrid1->RowCount-1;

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if(StringGrid1->RowCount>2){

StringGrid1->RowCount-=1;

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

StringGrid1->Cells[i][StringGrid1->RowCount]="";

}

}

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

void __fastcall TForm1::Name1Click(TObject *Sender)

{

AnsiString temp;

bool t=true;

while(t){

t=false;

for(int Tehnoviking=1;Tehnoviking<StringGrid1->RowCount-1;Tehnoviking++){

if(StringGrid1->Cells[2][Tehnoviking].AnsiCompare(StringGrid1->Cells[2][Tehnoviking+1])>0){

t=true;

for(int i=1;i<=4;i++){temp=StringGrid1->Cells[i][Tehnoviking+1];StringGrid1->Cells[i][Tehnoviking+1]=StringGrid1->Cells[i][Tehnoviking];StringGrid1->Cells[i][Tehnoviking]=temp;}

}

}

}

}

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

void __fastcall TForm1::Phone1Click(TObject *Sender)

{

AnsiString temp;

bool t=true;

while(t){

t=false;

for(int Tehnoviking=1;Tehnoviking<StringGrid1->RowCount-1;Tehnoviking++){

if(StringGrid1->Cells[3][Tehnoviking].AnsiCompare(StringGrid1->Cells[3][Tehnoviking+1])>0){

t=true;

for(int i=1;i<=4;i++){temp=StringGrid1->Cells[i][Tehnoviking+1];StringGrid1->Cells[i][Tehnoviking+1]=StringGrid1->Cells[i][Tehnoviking];StringGrid1->Cells[i][Tehnoviking]=temp;}

}

}

}

}

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

void __fastcall TForm1::Date1Click(TObject *Sender)

{

AnsiString temp;

bool t=true;

while(t){

t=false;

for(int Tehnoviking=1;Tehnoviking<StringGrid1->RowCount-1;Tehnoviking++){

if(StringGrid1->Cells[4][Tehnoviking].AnsiCompare(StringGrid1->Cells[4][Tehnoviking+1])>0){

t=true;

for(int i=1;i<=4;i++){temp=StringGrid1->Cells[i][Tehnoviking+1];StringGrid1->Cells[i][Tehnoviking+1]=StringGrid1->Cells[i][Tehnoviking];StringGrid1->Cells[i][Tehnoviking]=temp;}

}

}

}

}

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

void __fastcall TForm1::Number1Click(TObject *Sender)

{

AnsiString temp;

bool t=true;

while(t){

t=false;

for(int Tehnoviking=1;Tehnoviking<StringGrid1->RowCount-1;Tehnoviking++){

if(StringGrid1->Cells[0][Tehnoviking].AnsiCompare(StringGrid1->Cells[0][Tehnoviking+1])>0){

Похожие материалы

Информация о работе

Тип:
Отчеты по лабораторным работам
Размер файла:
167 Kb
Скачали:
0