const int len = 31, tlen = 16;

struct TelList {
	char fam[len];
	char name[len];
	char tel[16];
	int start;
	int end;
	TelList* next;
};
//TelList* tl = new TelList;
TelList* tl;

	   TelList* pv = tl;
	   while(pv) {
		  StringGrid1->Cells[0][0] = StringGrid1->RowCount+1;
		  StringGrid1->Cells[1][0] = pv->fam;
		  StringGrid1->Cells[2][0] = pv->name;
		  StringGrid1->Cells[3][0] = pv->tel;
		  StringGrid1->Cells[4][0] = DateTimeToStr(pv->end - pv->start);
		  pv=pv->next;
	   }

	   TelList*pv;
	   pv = tl;

TelList* pv = tl;
MessageBox(NULL, tl->fam, "tl", 0);
MessageBox(NULL, pv->fam, "pv", 0);

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

#ifndef structH
#define structH
const int len = 31, tlen = 17;

struct TelList {
	char fam[len];
	char name[len];
	char tel[tlen];
	int start;
	int end;
	TelList* next;
};
//TelList* tl = new TelList;
TelList* tl;
//---------------------------------------------------------------------------
#endif

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

#pragma hdrstop

#include "struct.h"
//---------------------------------------------------------------------------

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

#ifndef mainH
#define mainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <DateUtils.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TStringGrid *StringGrid1;
	TButton *add;
	TButton *edit;
	TButton *del;
	TGroupBox *GroupBox1;
	TGroupBox *GroupBox2;
	TButton *apply;
	TEdit *Edit3;
	TEdit *Edit2;
	TEdit *Edit1;
	TLabel *Label5;
	TLabel *Label4;
	TLabel *Label3;
	TLabel *Label2;
	TLabel *Label1;
	TEdit *Edit4;
	TLabel *Label6;
	TButton *find;
	TGroupBox *GroupBox3;
	TLabel *Label7;
	TMaskEdit *MaskEdit3;
	TButton *izv;
	TMemo *Memo1;
	TButton *cler;
	TButton *rest;
        TDateTimePicker *DateTimePicker1;
        TDateTimePicker *DateTimePicker2;
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall Edit3KeyPress(TObject *Sender, char &Key);
	void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
	void __fastcall MaskEdit3KeyPress(TObject *Sender, char &Key);
	void __fastcall Edit2KeyPress(TObject *Sender, char &Key);
	void __fastcall addClick(TObject *Sender);
	void __fastcall applyClick(TObject *Sender);
	void __fastcall editClick(TObject *Sender);
		void __fastcall FormDestroy(TObject *Sender);
	void __fastcall delClick(TObject *Sender);
	void __fastcall findClick(TObject *Sender);
	void __fastcall clerClick(TObject *Sender);
	void __fastcall izvClick(TObject *Sender);
	void __fastcall restClick(TObject *Sender);
		void __fastcall DateTimePicker1KeyPress(TObject *Sender,
		  char &Key);
		void __fastcall DateTimePicker2KeyPress(TObject *Sender,
		  char &Key);
		void __fastcall Edit4KeyPress(TObject *Sender, char &Key);
private:	// User declarations
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);
};
struct Abonent {
	AnsiString fam;
	AnsiString nam;
	AnsiString tel;
	AnsiString start;
	AnsiString end;
	Abonent *next;
};
Abonent *TelList = 0, *find_list = 0;

//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
void add_abn(Abonent& abn);
void edit_abn(Abonent &beg);
void del_abn(AnsiString fam, AnsiString nam, AnsiString tel);
void add_finded(Abonent &abn);
void find_abn(Abonent *pv, AnsiString tel);
Abonent* find_abn(Abonent *pv, AnsiString fam, AnsiString nam, AnsiString tel, Abonent** prev);
AnsiString notice(int pay, Abonent *pv);
int read_dbase(char* filename);
int write_dbase(char *filename);

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

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool add_edit=false;
AnsiString familia, name, telephone;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
// ---ResizeGrid--------------------------------------------------------------
void ResizeGrid(TStringGrid* SG) {
	int cols, widths, w, c;

	cols = SG->ColCount;
	c = cols-1;
	w = SG->ColWidths[0];
	w = SG->Width - w;
	widths = (w / c) - 6;
	for (int i = 1; i <= cols - 1; i++) {
		SG->ColWidths[i] = widths;
	}
}

// ---обновлени StringGrid и очистка Edits--------------------------------------------------------------
void ReadActiv(TStringGrid* SG) {
		Form1->GroupBox1->Enabled = false;
		Form1->Label1->Enabled = false;
		Form1->Label2->Enabled = false;
		Form1->Label3->Enabled = false;
		Form1->Label4->Enabled = false;
		Form1->Label5->Enabled = false;
	Form1->Edit1->Enabled = false;
	Form1->Edit2->Enabled = false;
	Form1->Edit3->Enabled = false;
	Form1->DateTimePicker1->Enabled = false;
	Form1->DateTimePicker2->Enabled = false;
	Form1->DateTimePicker1->Time = Form1->DateTimePicker1->Time.CurrentTime();
	Form1->DateTimePicker2->Time = Form1->DateTimePicker2->Time.CurrentTime();
		Form1->apply->Enabled = false;
		Form1->rest->Enabled = false;

	Form1->Edit1->Text = "";
	Form1->Edit2->Text = "";
	Form1->Edit3->Text = "";

		for (int r = 1; r < SG->RowCount; r++) {
				for (int c = 0; c < SG->ColCount; c++) {
						SG->Cells[c][r] = "";
				}
		}
	SG->RowCount = 2;

	Abonent *pv;

	if (find_list) {
		pv = find_list;
	} else {
		pv = TelList;
	}

		while(pv) {
			SG->RowCount++;
			SG->Cells[0][SG->RowCount-2] = SG->RowCount - 2;
			SG->Cells[1][SG->RowCount-2] = pv->fam;
			SG->Cells[2][SG->RowCount-2] = pv->nam;
			SG->Cells[3][SG->RowCount-2] = pv->tel;
			SG->Cells[4][SG->RowCount-2] = TimeToStr(StrToTime(pv->end) - StrToTime(pv->start));
			pv=pv->next;
		}
	if (SG->RowCount>2) {
		Form1->edit->Enabled = true;
		Form1->del->Enabled = true;
		Form1->GroupBox3->Enabled = true;
	} else {
		Form1->edit->Enabled = false;
		Form1->del->Enabled = false;
		Form1->GroupBox3->Enabled = false;
	}
		Form1->add->Enabled = true;
}

// ---главная--------------------------------------------------------------
void start() {
	read_dbase("dbase.abn");
}
// ---добавление абонента--------------------------------------------------------------
void add_abn(Abonent& abn)
{
	Abonent *pv = new Abonent;
	*pv = abn;
	pv->next=0;

	if(TelList)
	{
		Abonent *temp = TelList;
		while(temp->next)
			temp = temp->next;
		temp->next = pv;
	}
	else
		TelList = pv;
}

// ---корректировка--------------------------------------------------------------
void edit_abn(Abonent &beg)
{
	Abonent *prev;
	AnsiString fam = beg.fam;
	AnsiString nam = beg.nam;
	Abonent *abn = find_abn(TelList, familia, name, telephone, &prev);
	abn->fam = beg.fam;
	abn->nam = beg.nam;
	abn->tel = beg.tel;
	abn->start = beg.start;
	abn->end = beg.end;
}

// ---удаление--------------------------------------------------------------
void del_abn(AnsiString fam, AnsiString nam, AnsiString tel)
{
	Abonent *prev;
	Abonent *pv=find_abn(TelList, fam, nam, tel, &prev);
	if (pv)
	{
		if(pv == TelList)
			TelList = TelList->next;
		else
			TelList->next = pv->next;
		delete pv;
	}
}

// ---добавление найденых записей в список поиска по телефону--------------------------------------------------------------
void add_finded(Abonent &abn) {
	Abonent *pv = new Abonent;
	*pv = abn;
	pv->next=0;

	if(find_list)
	{
		Abonent *temp = find_list;
		while(temp->next)
			temp = temp->next;
		temp->next = pv;
	}
	else
				find_list=pv;
}
// ---поиск по телефону--------------------------------------------------------------
void find_abn(Abonent *pv, AnsiString tel)
{
	Abonent *prev = 0, *first = 0;
	Abonent *ret = pv;
	Abonent *tmp = new Abonent;
	tmp->next = 0;
	while(ret)
	{
		if(ret->tel == tel) {
		   add_finded(*ret);
		}
		ret=ret->next;
	}
		if (!find_list) {
				ShowMessage("Ничего не найдено");
		}
}

// ---поиск по фамилии, имени и телефону--------------------------------------------------------------
Abonent* find_abn(Abonent* pv, AnsiString fam, AnsiString nam, AnsiString tel, Abonent** prev)
{
	*prev=0;
	while(pv != NULL)
	{
		if(pv->fam == fam && pv->nam == nam && pv->tel == tel) {
			return pv;
		}
		*prev=pv;
		pv=pv->next;
	}
	return 0;
}

// ---формирование извещения--------------------------------------------------------------
AnsiString notice(int pay, Abonent *pv) {
	AnsiString not;
	not = "Абонент: " + pv->fam + " " + pv->nam + "\r\n";
	not+= "Номер телефона: " + pv->tel + "\r\n";
	not+= "Начало разговора: " + pv->start + "\r\n";
	not+= "Окончание разговора: " + pv->end + "\r\n";
	not+= "Длительность разговора: " + TimeToStr(StrToTime(pv->end) - StrToTime(pv->start)) + "\r\n";

	TTime call_duration = StrToTime(pv->end) - StrToTime(pv->start);
	int h = HourOf(call_duration);
	int m = MinuteOf(call_duration);
	int s = SecondOf(call_duration);
	float mins = h * 60 + m + (float)s / 60;
	AnsiString tmp = FormatFloat("0.00", (mins * pay));
	int rub = tmp.SubString(0, tmp.Pos(",")-1).ToInt();
	int kop = tmp.SubString(tmp.Pos(",")+1, tmp.Length()).ToInt();

	not+= "Сумма к оплате: " + IntToStr(rub) + " руб. " + IntToStr(kop) + " коп.";

	return not;
}

// ---чтение из файла--------------------------------------------------------------
int read_dbase(char* filename)
{
	FILE* fin;
	Abonent abn;
	const int MaxLen = 255;
	char fam[MaxLen], nam[MaxLen], tel[MaxLen], start[MaxLen], end[MaxLen];

	if((fin=fopen(filename,"r"))==0)
	{
		return 0;
	}
	while(!feof(fin))
	{
				fscanf(fin, "%s\n%s\n%s\n%s\n%s\n", fam, nam, tel, start, end);

		abn.fam=AnsiString(fam);
		abn.nam=AnsiString(nam);
		abn.tel=AnsiString(tel);
		abn.start=AnsiString(start);
		abn.end=AnsiString(end);
		add_abn(abn);
	}
	fclose(fin);
	return 0;
}

// ---запись в файл--------------------------------------------------------------
int write_dbase(char *filename)
{
	FILE *fout;
		Abonent *pv = TelList;
	if ((fout=fopen(filename,"w")))
	{
		while(pv != NULL)
		{
				fprintf(fout, "%s\n%s\n%s\n%s\n%s\n", pv->fam, pv->nam, pv->tel, pv->start, pv->end);
				pv=pv->next;
		}
		}
	fclose(fout);
	return 0;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	StringGrid1->Cells[0][0] = "№";
	StringGrid1->Cells[1][0] = "Фамилия";
	StringGrid1->Cells[2][0] = "Имя";
	StringGrid1->Cells[3][0] = "Номер";
	StringGrid1->Cells[4][0] = "Длительность";
	ResizeGrid(StringGrid1);
	start();
	ReadActiv(StringGrid1);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
	write_dbase("dbase.abn");
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
	if(((Key>='А')&&(Key<='я')) || ((Key>='a')&&(Key<='z'))
			|| ((Key>='A')&&(Key<='Z'))||(Key==VK_BACK)) return;
	if (Key=13) {
		Edit2->SetFocus();
	}
	Key=0;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
	if(((Key>='А')&&(Key<='я')) || ((Key>='a')&&(Key<='z'))
			|| ((Key>='A')&&(Key<='Z'))||(Key==VK_BACK)) return;
	if (Key=13) {
		Edit3->SetFocus();
	}
	Key=0;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
	switch (Key) {
	case '0':
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
	case '-':
	case '+':
	case 8:
		break;
	case 13: {
			DateTimePicker1->SetFocus();
			break;
		}
	default:
		Key = 0;
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit4KeyPress(TObject *Sender, char &Key)
{
	switch (Key) {
	case '0':
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
	case '-':
	case '+':
	case 8:
		break;
	case 13: {
			find->Click();
			break;
		}
	default:
		Key = 0;
	}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::DateTimePicker1KeyPress(TObject *Sender, char &Key)
{
	switch (Key) {
	case '0':
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
	case 8:
		break;
	case 13: {
			DateTimePicker2->SetFocus();
			break;
		}
	default:
		Key = 0;
	}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::DateTimePicker2KeyPress(TObject *Sender, char &Key)
{
	switch (Key) {
	case '0':
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
	case 8:
		break;
	case 13: {
			apply->Click();
			break;
		}
	default:
		Key = 0;
	}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::MaskEdit3KeyPress(TObject *Sender, char &Key)
{
	switch (Key) {
	case '0':
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
	case 8:
		break;
	case 13: {
			izv->Click();
			break;
		}
	default:
		Key = 0;
	}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::addClick(TObject *Sender)
{
	add_edit = false;
		GroupBox1->Enabled = true;
		Label1->Enabled = true;
		Label2->Enabled = true;
		Label3->Enabled = true;
		Label4->Enabled = true;
		Label5->Enabled = true;
	Edit1->Enabled = true;
	Edit2->Enabled = true;
	Edit3->Enabled = true;
	DateTimePicker1->Enabled = true;
	DateTimePicker2->Enabled = true;
		apply->Enabled = true;
		rest->Enabled = true;
	Edit1->SetFocus();

		add->Enabled = false;
		edit->Enabled = false;
		del->Enabled = false;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::editClick(TObject *Sender)
{
	add_edit = true;
		GroupBox1->Enabled = true;
		Label1->Enabled = true;
		Label2->Enabled = true;
		Label3->Enabled = true;
		Label4->Enabled = true;
		Label5->Enabled = true;
	Edit1->Enabled = true;
	Edit2->Enabled = true;
	Edit3->Enabled = true;
	DateTimePicker1->Enabled = true;
	DateTimePicker2->Enabled = true;
		apply->Enabled = true;
		rest->Enabled = true;
	Edit1->SetFocus();

		add->Enabled = false;
		edit->Enabled = false;
		del->Enabled = false;

	Abonent* prev;
	AnsiString fam = StringGrid1->Cells[1][StringGrid1->Row];
	AnsiString nam = StringGrid1->Cells[2][StringGrid1->Row];
	AnsiString tel = StringGrid1->Cells[3][StringGrid1->Row];
	Abonent* pv = find_abn(TelList, fam, nam, tel, &prev);

	Edit1->Text = pv->fam;
	Edit2->Text = pv->nam;
	Edit3->Text = pv->tel;
	DateTimePicker1->Time = StrToTime(pv->start);
	DateTimePicker2->Time = StrToTime(pv->end);

	familia = pv->fam;
	name = pv->nam;
	telephone = pv->tel;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::applyClick(TObject *Sender)
{
		Edit1->Text = Edit1->Text.Trim();
		Edit2->Text = Edit2->Text.Trim();
		Edit3->Text = Edit3->Text.Trim();

		Abonent abn;
		if (Edit1->Text.Length() && Edit2->Text.Length() && Edit3->Text.Length()) {
			abn.fam = Edit1->Text;
			abn.nam = Edit2->Text;
			abn.tel = Edit3->Text;
			abn.start = DateTimePicker1->Time.TimeString();
			abn.end = DateTimePicker2->Time.TimeString();
		} else {
		   ShowMessage("Все поля должны быть заполнены");
		   return;
		}

	if (!add_edit) {
		add_abn(abn);
	} else {
		edit_abn(abn);
	}

	ReadActiv(StringGrid1);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::restClick(TObject *Sender)
{
	ReadActiv(StringGrid1);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::delClick(TObject *Sender)
{
	AnsiString fam = StringGrid1->Cells[1][StringGrid1->Row];
	AnsiString nam = StringGrid1->Cells[2][StringGrid1->Row];
	AnsiString tel = StringGrid1->Cells[3][StringGrid1->Row];
	del_abn(fam, nam, tel);
		ReadActiv(StringGrid1);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::findClick(TObject *Sender)
{
	AnsiString tel = Edit4->Text;
	find_list = 0;
	find_abn(TelList, tel);
	ReadActiv(StringGrid1);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::clerClick(TObject *Sender)
{
	Edit4->Text = "";
	find_list = 0;
	ReadActiv(StringGrid1);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::izvClick(TObject *Sender)
{
	Memo1->Clear();
	AnsiString tmp_pay = MaskEdit3->Text.Trim();
	if (tmp_pay.Length()) {
		int pay = StrToInt(tmp_pay);
		Abonent* prev;
		int row = StringGrid1->Row;
		if (row == 0) {
			row++;
		}
		AnsiString fam = StringGrid1->Cells[1][row];
		AnsiString nam = StringGrid1->Cells[2][row];
		AnsiString tel = StringGrid1->Cells[3][row];
		Abonent* pv = find_abn(TelList, fam, nam, tel, &prev);

		AnsiString not = notice(pay, pv);
		Memo1->Lines->Add(not);
	} else {
		ShowMessage("Введите цену минуты");
	}
}

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