Структура: фамилия, дата , время - C++ Builder - Ответ 2280777

#include <vcl.h>
#pragma hdrstop
#include <io.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
// собственно, структура и ее алименты :)
struct man
{
  AnsiString fio;
  AnsiString date;
  AnsiString time;
} m[1000];
 
int C = 0;
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SearchRec(AnsiString Dname) // ищет сколько раз и когда отмечался человек
{
  if (DirectoryExists("List\\" + Dname))   // проверка. если человек есть в базе - то у него должна быть папка в List. если она есть то выполнять следующее
  {
    Button3->Show(); // показать кнопку "подробнее"
    FileListBox1->Mask = "List\\" + Dname + "\\*.*"; // меняем маску  ФайлЛистБокса для того чтобы попасть в каталок человека. Dname - это сокращенно DirName . тоесть каждый новий человек. будет иметь свою папку в List. а в ней будут его данные - в какой день и в какое время был отмечен.
    for (int i=0,k=0; i < FileListBox1->Items->Count; i++) // начало цикла от І=0 до количества файлов в папке Dname
    {
      Search->Lines->Add("Дата: " + FileListBox1->Items->Strings[i]); // выводим дату
      buf->Lines->LoadFromFile("List\\" + Dname + "\\" + FileListBox1->Items->Strings[i]); // загружаем в буфер  файл даты
      Search->Lines->Add("Посещений: " + (AnsiString)buf->Lines->Count); // выводим количество посещений
      k += buf->Lines->Count;//cчетчик  общего количества посещений
      Search->Lines->Add(buf->Lines->Text);//вывод всего времени в определенный день
      Search->Lines->Delete(Search->Lines->Count-1); //удаление предпоследней строки
      Search->Lines->Add("=================================");
      Count->Caption = k;  //обновляем общий счетчик
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveRec(AnsiString Dname,AnsiString Fname,AnsiString time)
{
  CreateDir("List\\" + Dname);//  создание каталога с файлом внутри
  Fname = "List\\" + Dname + "\\" + Fname;
  buf->Clear();//  очистка буфера
  if (access(Fname.c_str(),0) == 0)
  {
    buf->Lines->LoadFromFile(Fname); //  помещение в буфер
    buf->Lines->Add(time); // загрузка в буфер
    buf->Lines->SaveToFile(Fname); // сохранение файла с информацие из буфера
  }
  else
  {
    buf->Lines->Add(time); // загрузка в буфер
    buf->Lines->SaveToFile(Fname); // сохранение файла с информацией из буфера
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  MkDir("List");
  if ((access("List\\db.txt",0)) == 0)
  {
    db->Lines->LoadFromFile("List\\db.txt"); // загрузка в мемо строк из файла 
    Rec->Caption = db->Lines->Count/3; // отображение в лябель количества строк в меме
    for (int i=0,j=0; j < db->Lines->Count;i++,j+=3) // цикл по мтрокам мемы
    {
      m[i].fio = db->Lines->Strings[j]; // присвоение элементам структуры
      m[i].date = db->Lines->Strings[j+1]; // значения строк мемо
      m[i].time = db->Lines->Strings[j+2];
      Spisok->Lines->Add("Ф.И.О: " + m[i].fio); // добавление в другое мемо 
      Spisok->Lines->Add("Дата: " + m[i].date); // элементов структуры
      Spisok->Lines->Add("Время: " + m[i].time);
      Spisok->Lines->Add("=================================");
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (FIO1->Text == "") // LabeledEdit если пуст
    ShowMessage("Введите Ф.И.О!"); // показ сообщения
  else // иначе
  {
    C = (db->Lines->Count/3); // присваиваем значение переменной 
    m[C].fio = FIO1->Text; // присваиваем элементу структуры текст LabeledEdit
    m[C].date = DateTimePicker1->Date.DateString(); // присваиваем элементу структуры значение
    m[C].time = DateTimePicker2->Time.TimeString(); // присваиваем элементу структуры значение
    Spisok->Lines->Add("Ф.И.О: " + m[C].fio); // добавляем строки в мемо
    Spisok->Lines->Add("Дата: " + m[C].date); // добавляем строки в мемо
    Spisok->Lines->Add("Время: " + m[C].time); // добавляем строки в мемо
    Spisok->Lines->Add("=================================");
    db->Lines->Add(FIO1->Text); // добавляем строки в мемо
    db->Lines->Add(DateTimePicker1->Date.DateString()); // добавляем строки в мемо
    db->Lines->Add(DateTimePicker2->Time.TimeString()); // добавляем строки в мемо
    Rec->Caption = db->Lines->Count/3; // добавляем строки в мемо
    db->Lines->SaveToFile("List\\db.txt"); // сохраняем мемо в файл
    SaveRec(m[C].fio,m[C].date,m[C].time); // самописная функция
    FIO1->Clear(); // очищаем мему
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Button3->Hide(); // прячем кнопку
  Count->Caption = 0; // сбрасываем значение в метке в 0
  Search->Clear(); // очищаем еще одно мемо (с мемами - полный дурдом)
  if (FIO2->Text == "") // если LabeledEdit пустой
    ShowMessage("Введите Ф.И.О!"); // показываем сообщение
  else // иначе
    SearchRec(FIO2->Text); // самописная функция
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  if (Button3->Caption == "Подробно=>") // если заголовок третьей кнопки
  {
    Form1->ClientWidth = 730; // ширина клентской части формы
    Search->Show(); // показать мему
    Button3->Caption = "<=Скрыть"; // надпись на третьей кнопке
  }
  else // иначе
  {
    Form1->ClientWidth = 500; // ширина клентской части формы
    Search->Hide(); // спрятать мему
    Button3->Caption = "Подробно=>"; // надпись на третьей кнопке
  }
}