Курсовая работа: Облік зареєстрованих автомобілів в ДАІ

}

//Для Билайна

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;

}

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

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<MaxRowIndex;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 < pStrings->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 <= StringGrid1->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 <vcl.h>

#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();

}

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