Библиотека: вывести информацию и книгах, срок возврата которых просрочен не более, чем на N дней

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
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]="дата выдачи книги на руки";
StringGrid1->Cells[7][0]="срок возврата";
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N6Click(TObject *Sender)
{
StringGrid1->RowCount++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
AnsiString pytb;
student stud;
 if (SaveDialog1->Execute())
 pytb=SaveDialog1->FileName+".dat";
 ofstream f(pytb.c_str(),ios_base::out|ios_base::trunc|ios_base::binary);
 if (f.is_open())
 {
 for (int i=1;i<StringGrid1->RowCount;i++)
   {
   stud.number_gruppy=StrToInt(StringGrid1->Cells[1][i]);
   strcpy(stud.fio,StringGrid1->Cells[2][i].c_str());
   strcpy(stud.data,StringGrid1->Cells[3][i].c_str());
   stud.rost=StrToInt(StringGrid1->Cells[4][i]);
   stud.ves=StrToInt(StringGrid1->Cells[5][i]);
   f.write((char *)&stud,sizeof stud);
   }
   Application->MessageBox("Информация записана в файл",
   "Сохранение",MB_ICONINFORMATION);
 
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
AnsiString pytb;
student stud;
if (OpenDialog1->Execute())
pytb=OpenDialog1->FileName;
 
 ifstream f(pytb.c_str(),ios_base::in|ios_base::binary);
 if (f.is_open())
 {
 int i=1;
 while (f.read((char *)&stud,sizeof stud))
 
   {
   if (i>1)
   StringGrid1->RowCount++;
   StringGrid1->Cells[0][i]=i;
   StringGrid1->Cells[1][i]=stud.nomer_bileta;
   StringGrid1->Cells[2][i]=stud.avtor;
   StringGrid1->Cells[3][i]=stud.kniga;
   StringGrid1->Cells[4][i]=stud.izdatelstvo;
   StringGrid1->Cells[5][i]=stud.god;
   StringGrid1->Cells[5][i]=stud.data_vydachi;
   StringGrid1->Cells[5][i]=stud.srok_vozvrata;
   i++;
 
   }
   global_pytb=pytb;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N10Click(TObject *Sender)
{
int i,j;
for (i=1;i<StringGrid1->RowCount;i++)
 for (j=0;j<StringGrid1->ColCount;j++)
  StringGrid1->Cells[j][i]="";
StringGrid1->RowCount=2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1KeyPress(TObject *Sender, char &Key)
{
 if (Key==13)
  if (StringGrid1->Col==5)
 {
 StringGrid1->RowCount++;
 StringGrid1->Row++;
 StringGrid1->Col=0;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
  AnsiString pytb;
 student stud;
 pytb=global_pytb;
 ofstream f(pytb.c_str(),ios_base::out|ios_base::trunc|ios_base::binary);
 if (f.is_open())
 {
 for (int i=1;i<StringGrid1->RowCount;i++)
   {
   stud.nomer_bileta=StrToInt(StringGrid1->Cells[1][i]);
   strcpy(stud.avtor,StringGrid1->Cells[2][i].c_str());
   strcpy(stud.kniga,StringGrid1->Cells[3][i].c_str());
   strcpy(stud.izdatelstvo,StringGrid1->Cells[4][i].c_str());
   strcpy(stud.god,StringGrid1->Cells[5][i].c_str());
   stud.data_vydachi=StrToInt(StringGrid1->Cells[6][i]);
   stud.srok_vozvrata=StrToInt(StringGrid1->Cells[7][i]);
   f.write((char *)&stud,sizeof stud);
   }
   Application->MessageBox("Информация сохранена",
   "Сохранение",MB_ICONINFORMATION);
 
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N8Click(TObject *Sender)
{
 int r=StringGrid1->Row;
 StringGrid1->RowCount--;
 for (int i=r; i<StringGrid1->RowCount;i++)
  {StringGrid1->Cells[0][i]=i;
   StringGrid1->Cells[1][i]=StringGrid1->Cells[1][i+1];
   StringGrid1->Cells[2][i]=StringGrid1->Cells[2][i+1];
   StringGrid1->Cells[3][i]=StringGrid1->Cells[3][i+1];
   StringGrid1->Cells[4][i]=StringGrid1->Cells[4][i+1];
   StringGrid1->Cells[5][i]=StringGrid1->Cells[5][i+1];
   StringGrid1->Cells[6][i]=StringGrid1->Cells[6][i+1];
   StringGrid1->Cells[7][i]=StringGrid1->Cells[7][i+1];
  }
 int h=StringGrid1->DefaultRowHeight;
 StringGrid1->Height=StringGrid1->RowCount*h+h;
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 if (StringGrid1->Cells[0][1]!="")
  if (Application->MessageBox("Сохранить изменения?","Завершение работы",MB_OKCANCEL +
  MB_ICONQUESTION )==1)
 { N3Click(Sender);}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N11Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N9Click(TObject *Sender)
{
 if (StringGrid1->Cells[4][1]!="")
 {
  AnsiString input_string=InputBox("Поиск","Введите номер группы:","");
  if  (input_string!="")
  {
   Memo1->Clear();
   Memo2->Clear();
   int n=StrToInt(input_string);
   int i,j,s=0,k,kol=0,kol2=0;
   int index[50]; //содержит индексы строчек
   int schet[50]; //содержит кол-во строчек с одинаковыми данными
   AnsiString string1;
   unsigned short year,month,day;
   bool flag=true;
   for(i=1;i<StringGrid1->RowCount;i++)
    if (StrToInt(StringGrid1->Cells[1][i])==n)
    {
      kol++;
      if (s==0)
      {
       index[s]=i;
       s++;
      }
      else
      {
       DecodeDate(Date()-StrToDate(StringGrid1->Cells[3][i]),year,month,day);
       string1=IntToStr(year)+StringGrid1->Cells[4][i]+StringGrid1->Cells[5][i];
       k=0;
       while (k<s)
       {
        DecodeDate(Date()-StrToDate(StringGrid1->Cells[3][index[k]]),year,month,day);
        if (string1==IntToStr(year)+StringGrid1->Cells[4][index[k]]+
        StringGrid1->Cells[5][index[k]])
         break;
        else
         k++;
        }
       if (k==s)
       {
        index[s]=i;
        s++;
       }
      }
     }
    if (kol==0) Application->MessageBox("По данному запросу нет записей.",
   "Результат запроса",MB_ICONINFORMATION);
     else
       if (kol==1)
       {
        Application->MessageBox("По данному запросу найдена только одна запись",
          "Результат запроса",MB_ICONINFORMATION);
         Memo2->Lines->Add("Учащиеся группы "+IntToStr(n)+" с уникальными данными");
        Memo2->Lines->Add(StringGrid1->Cells[2][index[0]]);
       }
        else
        {
         for(j=0;j<s;j++)
         {
          DecodeDate(Date()-StrToDate(StringGrid1->Cells[3][index[j]]),year,month,day);
          string1=IntToStr(year)+StringGrid1->Cells[4][index[j]]+
          StringGrid1->Cells[5][index[j]];
          k=0;
          for(i=1;i<StringGrid1->RowCount;i++)
          {
           DecodeDate(Date()-StrToDate(StringGrid1->Cells[3][i]),year,month,day);
           if (string1==IntToStr(year)+StringGrid1->Cells[4][i]+
            StringGrid1->Cells[5][i])
             k++;
          }
          schet[j]=k;
         }
         Memo1->Lines->Add("Учащиеся группы "+IntToStr(n)+", возраст,рост и вес,"+
         "которых одинаковы:");
         Memo2->Lines->Add("Учащиеся группы "+IntToStr(n)+" с уникальными данными");
         for(j=0;j<s;j++)
         {
          DecodeDate(Date()-StrToDate(StringGrid1->Cells[3][index[j]]),year,month,day);
          string1=IntToStr(year)+StringGrid1->Cells[4][index[j]]+
          StringGrid1->Cells[5][index[j]];
         if (schet[j]==1)
         {
          Memo2->Lines->Add(StringGrid1->Cells[2][index[j]]);
          kol2++;
         }
         else
         {
          flag=false;
          Memo1->Lines->Add("");
          for(i=1;i<StringGrid1->RowCount;i++)
          {
           DecodeDate(Date()-StrToDate(StringGrid1->Cells[3][i]),year,month,day);
           if (string1==IntToStr(year)+StringGrid1->Cells[4][i]+
           StringGrid1->Cells[5][i])
           Memo1->Lines->Add(StringGrid1->Cells[2][i]);
          }
         }
         }
         if (kol2==0)
         {
          Memo2->Clear();
          Memo2->Lines->Add("Уникальных записей нет");
         }
 
        if (flag)
        {
         Memo1->Clear();
         Application->MessageBox("Все записи уникальны.",
   "Результат запроса",MB_ICONINFORMATION);
        }
   }
  }
 if (Application->MessageBox("Сохранить результат в файл?", "Сохранение",
 MB_OKCANCEL+MB_ICONQUESTION)==1)
  { AnsiString file_name;
    int i;
    if (SaveDialog1->Execute())
    file_name=SaveDialog1->FileName+".txt";
    ofstream results(file_name.c_str(),ios_base::out);
    if (results.is_open())
    {
     for(i=0;i<Memo1->Lines->Count;i++)
     results<<Memo1->Lines->Strings[i].c_str()<<"\n";
     for(i=0;i<Memo2->Lines->Count;i++)
     results<<Memo2->Lines->Strings[i].c_str()<<"\n";
     results.close();
    }
   } }
     else Application->MessageBox("Таблица не заполнена.",
   "Информационное сообщение",MB_ICONINFORMATION);//ShowMessage("Таблица не заполнена");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N13Click(TObject *Sender)
{
Application->MessageBox("Для того, чтобы редактировать запись с помощью мыши,сделайте активным любую ячейку таблицы просмотра. Затем можно перемещаться по таблице и редактировать необходимые записи.",
   "Информационное сообщение",MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------