Лабораторные работы / ЛЗ1 / Программа / Unit7

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

#include <vcl.h>
#include <stdio.h>
#include <string.h>
#include <SysUtils.hpp>
#pragma hdrstop

#include "Unit7.h"
#include "Unit3.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
int Found;
extern int UserSearch(FILE *, Auto);
extern AnsiString Trans(char []);
extern FILE *FN;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
        : TForm(Owner)
{
  Form7->Edit1->Text = "";
  Form7->Edit2->Text = "";
  Form7->Edit3->Text = "";
  Form7->Edit4->Text = "";
}
//---------------------------------------------------------------------------

void __fastcall TForm7::Button1Click(TObject *Sender)
{

  Auto InfoTmp;
  char Str[2] = "\0";
//Заполнение информационной части
  if (CompareText(Form7->Edit1->Text,"")==0)
    strcpy(InfoTmp.Name,Str);
  else
    strcpy(InfoTmp.Name,Form7->Edit1->Text.c_str());
  if (CompareText(Form7->Edit2->Text,"")==0)
    strcpy(InfoTmp.Mark,Str);
  else
    strcpy(InfoTmp.Mark,Form7->Edit2->Text.c_str());
  if (CompareText(Form7->Edit3->Text,"")==0)
    InfoTmp.SeatsNumb = 0;
  else
    InfoTmp.SeatsNumb = StrToInt(Form7->Edit3->Text);
  if (CompareText(Form7->Edit4->Text,"")==0)
    InfoTmp.UseP = 0;
  else
    InfoTmp.UseP = StrToFloat(Form7->Edit4->Text);
  Form7->Close();
  Form6->Show();    
  Form6->Label1->Caption = "";
  Form6->Label2->Caption = "";
  Form6->Label3->Caption = "";
  Form6->Label4->Caption = "";
  Form6->Label5->Caption = "";
  Found = UserSearch(FN, InfoTmp);
  Form6->Label5->Caption = "Найдено записей: "+IntToStr(Found);
  Form6->Label1->Caption = "Наименование: "+Trans(InfoTmp.Name);
  Form6->Label2->Caption = "Марка: "+Trans(InfoTmp.Mark);
  if (InfoTmp.SeatsNumb != 0)
    Form6->Label3->Caption = "Число мест: " + IntToStr(InfoTmp.SeatsNumb);
  else
    Form6->Label3->Caption = "Число мест: ";
  if (InfoTmp.UseP != 0)
    Form6->Label4->Caption = "Расход бензина: " + FloatToStr(InfoTmp.UseP);
  else
    Form6->Label4->Caption = "Расход бензина: ";
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button2Click(TObject *Sender)
{
  Form7->Edit1->Text = "";
  Form7->Edit2->Text = "";
  Form7->Edit3->Text = "";
  Form7->Edit4->Text = "";
}
//---------------------------------------------------------------------------