49783 (Облік зареєстрованих автомобілів в ДАІ), страница 5

2016-07-30СтудИзба

Описание файла

Документ из архива "Облік зареєстрованих автомобілів в ДАІ", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "49783"

Текст 5 страницы из документа "49783"

}

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Киевстар" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Life :)" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Городской телефон" )

{

StringGrid1->Cells[6][b]= z;

}

//Для Городского телефона

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Городской телефон" )

{

StringGrid1->Cells[6][b]= w;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "МТС" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Киевстар" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Life :)" )

{

StringGrid1->Cells[6][b]= z;

}

if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Билайн" )

{

StringGrid1->Cells[6][b]= z;

}

else

{

x= StrToFloat(StringGrid1->Cells[5][b]);

l= StrToFloat(StringGrid1->Cells[6][b]);

m= StrToFloat(x*l);

StringGrid1->Cells[7][b] = m;

}

b=b+1;

}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

StringGrid1->Options << goEditing << goTabs;

StringGrid1->FixedCols = 0;

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

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

StringGrid1->Cells[2][0]="Ф.И.О выз. аб.";

StringGrid1->Cells[3][0]="Оператор выз. аб.";

StringGrid1->Cells[4][0]="Оператор наб. аб.";

StringGrid1->Cells[5][0]="Продолж звонка";

StringGrid1->Cells[6][0]="Стоимость 1 минуты (в грн.)";

StringGrid1->Cells[7][0]="Сумма к оплате";

StringGrid1->RowCount = 2;

}

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

void __fastcall TForm1::BitBtn3Click(TObject *Sender)

{

int DeleteIndex = i;

if(StringGrid1->RowCount > 2)

{

for ( int q = DeleteIndex,MaxRowIndex=StringGrid1->RowCount-1;q

StringGrid1->Rows[q]->Assign(StringGrid1->Rows[q+1]);

StringGrid1->RowCount = StringGrid1->RowCount-1;

b=b-1;

int q=1;

for(int x=1;x<=b;x++)

{

StringGrid1->Cells[0][x]=q;

q=q+1;

}

p=p-1;

}

else

{

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

StringGrid1->Cells[2][1] = "";

StringGrid1->Cells[3][1] = "";

StringGrid1->Cells[4][1] = "";

StringGrid1->Cells[5][1] = "";

StringGrid1->Cells[6][1] = "";

StringGrid1->Cells[7][1] = "";

}

}

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

bool draw_it;

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,

int ARow, TRect &Rect, TGridDrawState State)

{

i=ARow;

if (Find && Edit3->Text == StringGrid1->Cells[ACol][ARow])

{

StringGrid1->Canvas->Brush->Color = clRed; //цвет

StringGrid1->Canvas->FillRect(Rect);

StringGrid1->Canvas->Font->Color = clWhite;

StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]);

//Find = false; - раз комментировать если надо найти только первый экземпляр

}

}

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

void __fastcall TForm1::BitBtn4Click(TObject *Sender)

{

if(OpenDialog1->Execute())

{

TStringList *pStrings = new TStringList;

pStrings->LoadFromFile(OpenDialog1->FileName);

StringGrid1->RowCount = pStrings->Count+1;

for(int i=0; i Count; i++)

{

StringGrid1->Rows[i+1]->Delimiter = wchar_t(" ");

StringGrid1->Rows[i+1]->DelimitedText = pStrings->Strings[i];

}

delete pStrings;

}

}

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

void __fastcall TForm1::BitBtn5Click(TObject *Sender)

{

if(SaveDialog1->Execute()){TStringList *pStrings = new TStringList;

for(int i=1; i RowCount; i++)

{

pStrings->Add(StringGrid1->Cells[0][i] + " " + StringGrid1->Cells[1][i] + " " + StringGrid1->Cells[2][i]+ " " + StringGrid1->Cells[3][i]+ " " + StringGrid1->Cells[4][i]+ " " + StringGrid1->Cells[5][i]+ " " + StringGrid1->Cells[6][i]+ " " + StringGrid1->Cells[7][i]+ " " + StringGrid1->Cells[8][i]+ " " + StringGrid1->Cells[9][i]+ " " + StringGrid1->Cells[10][i]+ " " + StringGrid1->Cells[11][i]);

}

pStrings->SaveToFile(SaveDialog1->FileName);

delete pStrings;

}

}

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

void __fastcall TForm1::BitBtn6Click(TObject *Sender)

{

Find = true;

StringGrid1->Repaint();

}

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

void __fastcall TForm1::BitBtn7Click(TObject *Sender)

{

AboutBox->Show();

}

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

#include

#pragma hdrstop

#include "Unit3.h"

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

#pragma resource "*.dfm"

TAboutBox *AboutBox;

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

__fastcall TAboutBox::TAboutBox(TComponent* AOwner)

: TForm(AOwner)

{

}

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

void __fastcall TAboutBox::OKButtonClick(TObject *Sender)

{

AboutBox->Close();

}

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

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4100
Авторов
на СтудИзбе
670
Средний доход
с одного платного файла
Обучение Подробнее