unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls,
  Vcl.Samples.Spin, Vcl.Grids, Vcl.ExtDlgs, Vcl.WinXCtrls;

Type
    Worker = Record
        Name: String[15];
        DetailsOnMonday: Integer;
        DetailsOnTuesday: Integer;
        DetailsOnWednesday: Integer;
        DetailsOnThursday: Integer;
        DetailsOnFriday: Integer;
        DetailsOnSaturday: Integer;
    End;
    AoW = Array of Worker;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    AboutProgramButton: TMenuItem;
    LabelOfWorkers: TLabel;
    SpinEditOfWorkers: TSpinEdit;
    FileButton: TMenuItem;
    OpenFileButton: TMenuItem;
    SaveButton: TMenuItem;
    OutputButton: TMenuItem;
    WorkerAndDetailsOnWeekFindButton: TMenuItem;
    BestWorkerFindButton: TMenuItem;
    FindDialog1: TFindDialog;
    MainStringGrid: TStringGrid;
    PopupMenuForStringGrid: TPopupMenu;
    DeleteButton: TMenuItem;
    OpenDialogForStringGrid: TOpenDialog;
    AdjustmentButton: TMenuItem;
    ChangeButton: TMenuItem;
    AddButton: TMenuItem;
    DeleteFromFileButton: TMenuItem;
    OpenDialogForTextFile: TOpenDialog;
    SaveDialog: TSaveDialog;
    HelpButton: TMenuItem;
    procedure AboutProgramButtonClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpinEditOfWorkersChange(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure WorkerAndDetailsOnWeekFindButtonClick(Sender: TObject);
    procedure BestWorkerFindButtonClick(Sender: TObject);
    procedure MainStringGridMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DeleteButtonClick(Sender: TObject);
    procedure OpenFileButtonClick(Sender: TObject);
    procedure ChangeButtonClick(Sender: TObject);
    procedure AddButtonClick(Sender: TObject);
    procedure DeleteFromFileButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpinEditOfWorkersClick(Sender: TObject);
    procedure HelpButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  ACol, ADeletedRow: Integer;
  //GlobalBuf: Integer;


implementation

{$R *.dfm}
uses
    Unit2, Unit3;

function IsMainStringGridCorrect(StringGrid: TStringGrid; SpinEdit: TSpinEdit):boolean;
var
    I, J: Integer;                                             //Проверка таблицы на корректность данных
    IsCorrect: Boolean;
begin
    IsCorrect := True;
    I := 1;
    while ((I <= SpinEdit.Value) and (IsCorrect)) do
    begin
        J := 2;
        while ((J < 8) and (IsCorrect)) do
        Begin
            Try
                StrToInt(StringGrid.Cells[J, I])
            Except
                IsCorrect := False;
            End;
            Inc(J);
        End;
        Inc(I);
    end;
    IsMainStringGridCorrect := IsCorrect;
end;

procedure TMainForm.FindDialog1Find(Sender: TObject); //Вывод фамилии сборщика и общего количества деталей, собранного им за неделю
var
    I, J, Sum: Integer;
    IsFound: Boolean;
begin
    Sum := 0;
    IsFound := False;
    for I := 1 to SpinEditOfWorkers.Value do
    if MainStringGrid.Cells[1, i] = FindDialog1.FindText then
        begin
            for J := 2 to 7 do
                Sum := Sum + StrToInt(MainStringGrid.Cells[J, I]);
            IsFound := True;
            ShowMessage(FindDialog1.FindText + ' за шестидневную неделю в сумме сделал ' + IntToStr(Sum) + ' деталей');
        end;
    if not(IsFound) then
        ShowMessage(FindDialog1.FindText + ' не найден в списке!');
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
    //MainStringGrid.Options := MainStringGrid.Options + [goRowSelect];
    MainStringGrid.Cells[0,1]:= '1';
    MainStringGrid.Cells[0,2]:= '2';
    MainStringGrid.Cells[0,0]:= '№ записи';
    MainStringGrid.Cells[1,0]:= 'Фамилия сборщика';
    MainStringGrid.Cells[2,0]:= 'Понедельник';
    MainStringGrid.Cells[3,0]:= 'Вторник';
    MainStringGrid.Cells[4,0]:= 'Среда';
    MainStringGrid.Cells[5,0]:= 'Четверг';
    MainStringGrid.Cells[6,0]:= 'Пятница';
    MainStringGrid.Cells[7,0]:= 'Суббота';
    SpinEditOfWorkers.Value := 1;
    //GlobalBuf := SpinEditOfWorkers.Value;
    DeleteButton.Enabled := False;

end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
    Choise: Integer;
begin
    Choise := Messagedlg('Вы уверены, что хотите выйти?', mtinformation, [mbYes, mbNo], 0);
    case Choise of
        mrYes: CanClose:= True;
        mrNo: CanClose:= False;
    end;
end;

procedure TMainForm.HelpButtonClick(Sender: TObject);
begin
    Form3.Show;
end;

function IsFileCorOfChangingCorrect(var FileCor: TextFile): boolean;
var
    I, Index, Details: Integer;
    Name: AnsiString;
    IsCorrect: Boolean;
    RussianChars: set of ansichar;       //Проверка файла корректур с даннымии для изменения ячеек
begin
    IsCorrect := True;
    Details := 0;
    Reset(FileCor);
    RussianChars := ['A'..'Я', 'a'..'я'];
    while not(EoF(FileCor)) do
    begin
        Try
            Readln(FileCor, Index);
        Except
            IsCorrect := False;
        End;
        Readln(FileCor, Name);
        I := 1;
        while ((I <= Length(Name)) and (IsCorrect)) do
        begin
            if not(Name[I] in RussianChars) then
                IsCorrect := False;
            Inc(I)
        end;
        I := 1;
        while not(eoln(FileCor)) and IsCorrect do
        begin
            Try
                Read(FileCor, Details);
            Except
                IsCorrect := False;
            End;
            Inc(I)
        end;
        Readln(FileCor);
    end;
    CloseFile(FileCor);
    IsFileCorOfChangingCorrect := IsCorrect;
end;

procedure TMainForm.MainStringGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MainStringGrid.MouseToCell(X, Y, ACol, ADeletedRow); //Получаем индексы ячейки ACol и ARow
end;

procedure TMainForm.ChangeButtonClick(Sender: TObject);  //Изменение таблицы с помощью файла корректур
var
    FileCor:TextFile;
    I, J, Index: Integer;
    Name: AnsiString;
    Details: array[1..6] of integer;
begin
    if IsMainStringGridCorrect(MainStringGrid, SpinEditOfWorkers) then
    begin
        if OpenDialogForTextFile.Execute then
        begin
            AssignFile(FileCor, OpenDialogForTextFile.FileName);
            if IsFileCorOfChangingCorrect(FileCor) then
            begin
                Reset(FileCor);
                while not(EoF(FileCor)) do
                begin
                    Readln(FileCor, Index);
                    Readln(FileCor, Name);
                    I := 1;
                    while not(eoln(FileCor)) do
                    begin
                        Read(FileCor, Details[I]);
                        Inc(I)
                    end;
                    for I := 1 to SpinEditOfWorkers.Value do
                        if I = Index then
                        begin
                            MainStringGrid.Cells[1, I] := Name;
                            for J := 2 to 7 do
                                MainStringGrid.Cells[J, I] := IntToStr(Details[J-1]);
                        end;
                    Readln(FileCor);
                end;
                CloseFile(FileCor)
            end
            else
                ShowMessage('Проверьте содержимое файла!');
        end
    end
    else
        ShowMessage('Проверьте таблицу!');
end;

function IsFileCorOfAddingCorrect(var FileCor: TextFile): boolean; //Проверка файла корректур с данными для добавления ячеек
var
    I, Details: Integer;
    Name: AnsiString;
    IsCorrect: Boolean;
    RussianChars: set of ansichar;
begin
    IsCorrect := True;
    Details := 0;
    Reset(FileCor);
    RussianChars := ['A'..'Я', 'a'..'я'];
    while not(EoF(FileCor)) do
    begin
        Readln(FileCor, Name);
        I := 1;
        while ((I <= Length(Name)) and (IsCorrect)) do
        begin
            if not(Name[I] in RussianChars) then
                IsCorrect := False;
            Inc(I)
        end;
        I := 1;
        while not(eoln(FileCor)) and IsCorrect do
        begin
            Try
                Read(FileCor, Details);
            Except
                IsCorrect := False;
            End;
            Inc(I)
        end;
        Readln(FileCor);
    end;
    CloseFile(FileCor);
    IsFileCorOfAddingCorrect := IsCorrect;
end;

procedure TMainForm.AddButtonClick(Sender: TObject); //Добавление ячеек таблицы при помощи файла корректур
var
    FileCor:TextFile;
    I, J: Integer;
    Name: AnsiString;
    Deatils: array[1..6] of integer;
begin
    if IsMainStringGridCorrect(MainStringGrid, SpinEditOfWorkers) then
    begin
        if OpenDialogForTextFile.Execute then
        begin
            AssignFile(FileCor, OpenDialogForTextFile.FileName);
            if IsFileCorOfAddingCorrect(FileCor) then
            begin
                Reset(FileCor);
                while not(EoF(FileCor)) do
                begin
                    Readln(FileCor, Name);
                    I := 1;
                    while not(EoLn(FileCor)) do
                    begin
                        Read(FileCor, Deatils[I]);
                        Inc(I)
                    end;
                    SpinEditOfWorkers.Value := SpinEditOfWorkers.Value + 1;
                    MainStringGrid.Cells[1, SpinEditOfWorkers.Value] := Name;
                    for J := 2 to 7 do
                        MainStringGrid.Cells[J, SpinEditOfWorkers.Value] := IntToStr(Deatils[J-1]);
                    Readln(FileCor);
                end;
                CloseFile(FileCor);
            end
            else
                ShowMessage('Проверьте содержимое файла!');
        end;
    end
    else
        ShowMessage('Проверьте таблицу');
end;

function IsFileCorOfDeleteCorrect(var FileCor: TextFile; MaxValue: Integer): boolean;
var
    I, DeleteIndex: Integer;
    Name: AnsiString;
    IsCorrect: Boolean;      //Проверка файла корректур с данными для удаления ячеек
begin
    IsCorrect := True;
    DeleteIndex := 0;
    I := 1;
    Reset(FileCor);
    while not(EoF(FileCor)) do
    begin
        Try
            Readln(FileCor, DeleteIndex);
        Except
            IsCorrect := False;
        End;
        if IsCorrect then
            if DeleteIndex > MaxValue then
                IsCorrect := False;
        Inc(I);
    end;
    CloseFile(FileCor);
    if I > MaxValue then
        IsCorrect := False;
    IsFileCorOfDeleteCorrect := IsCorrect;
end;

procedure DeleteRow(var ArrayOfRecords: AoW; I, DeletedRow: Integer; var MainStringGrid: TStringGrid; SpinEditOfWorkers: TSpinEdit);
begin
    while (I < DeletedRow) do
    begin
        ArrayOfRecords[I-1].Name := MainStringGrid.Cells[1, I];
        ArrayOfRecords[I-1].DetailsOnMonday := StrToInt(MainStringGrid.Cells[2, I]);
        ArrayOfRecords[I-1].DetailsOnTuesday := StrToInt(MainStringGrid.Cells[3, I]);
        ArrayOfRecords[I-1].DetailsOnWednesday := StrToInt(MainStringGrid.Cells[4, I]);
        ArrayOfRecords[I-1].DetailsOnThursday := StrToInt(MainStringGrid.Cells[5, I]);
        ArrayOfRecords[I-1].DetailsOnFriday := StrToInt(MainStringGrid.Cells[6, I]);
        ArrayOfRecords[I-1].DetailsOnSaturday := StrToInt(MainStringGrid.Cells[7, I]);
        Inc(I);
    end;

    I := DeletedRow + 1;

    while (I <= SpinEditOfWorkers.Value) do
    begin
        ArrayOfRecords[I-2].Name := MainStringGrid.Cells[1, I];
        ArrayOfRecords[I-2].DetailsOnMonday := StrToInt(MainStringGrid.Cells[2, I]);
        ArrayOfRecords[I-2].DetailsOnTuesday := StrToInt(MainStringGrid.Cells[3, I]);
        ArrayOfRecords[I-2].DetailsOnWednesday := StrToInt(MainStringGrid.Cells[4, I]);
        ArrayOfRecords[I-2].DetailsOnThursday := StrToInt(MainStringGrid.Cells[5, I]);
        ArrayOfRecords[I-2].DetailsOnFriday := StrToInt(MainStringGrid.Cells[6, I]);
        ArrayOfRecords[I-2].DetailsOnSaturday := StrToInt(MainStringGrid.Cells[7, I]);
        Inc(I);
    end;

    for I := 1 to 7 do
        MainStringGrid.Cells[I, SpinEditOfWorkers.Value] := ' ';

    SpinEditOfWorkers.Value := SpinEditOfWorkers.Value - 1;
    for I := 1 to SpinEditOfWorkers.Value do
    begin
        MainStringGrid.Cells[1, I] := ArrayOfRecords[I-1].Name;
        MainStringGrid.Cells[2, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnMonday);
        MainStringGrid.Cells[3, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnTuesday);
        MainStringGrid.Cells[4, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnWednesday);
        MainStringGrid.Cells[5, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnThursday);
        MainStringGrid.Cells[6, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnFriday);
        MainStringGrid.Cells[7, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnSaturday);
    end;
end;

procedure TMainForm.DeleteFromFileButtonClick(Sender: TObject); //Удаление ячеек таблицы при помощи файла корректур
var
    FileCor:TextFile;
    DeletedRow, I, Buf: Integer;
    IsCorrect: Boolean;
    ArrayOfRecords: AoW;
begin
    if IsMainStringGridCorrect(MainStringGrid, SpinEditOfWorkers) then
    begin
        if OpenDialogForTextFile.Execute then
        begin
            AssignFile(FileCor, OpenDialogForTextFile.FileName);
            if IsFileCorOfDeleteCorrect(FileCor, SpinEditOfWorkers.Value) then
            begin
                Reset(FileCor);
                SetLength(ArrayOfRecords, SpinEditOfWorkers.Value-1);
                I := 1;
                Buf := 0;
                DeletedRow := 0;
                While not(EoF(FileCor)) do
                begin
                    Readln(FileCor, DeletedRow);
                    if Buf > 0 then
                        DeletedRow := DeletedRow-Buf;
                    DeleteRow(ArrayOfRecords, I, DeletedRow, MainStringGrid, SpinEditOfWorkers);
                    Inc(Buf);
                end;
                CloseFile(FileCor);
            end
            else
                ShowMessage('Проверьте содержимое файла!');
        end;
    end
    else
        ShowMessage('Проверьте таблицу!');
end;



procedure TMainForm.AboutProgramButtonClick(Sender: TObject);    //О программе
begin
   Form2.Show;
end;

procedure TMainForm.OpenFileButtonClick(Sender: TObject); //Открыть таблицу из файла
var
    OpenedFile: File of Worker;
    I, J: Integer;
    IsCorrect: Boolean;
    ArrayOfRecords: AoW;
begin
    if OpenDialogForStringGrid.Execute then
    begin
        for I := 1 to SpinEditOfWorkers.Value do
            for J := 1 to 7 do
                MainStringGrid.Cells[J, I] := '';
        AssignFile(OpenedFile, OpenDialogForStringGrid.FileName);
        Reset(OpenedFile);
        SpinEditOfWorkers.Value := FileSize(OpenedFile);
        for I := 1 to SpinEditOfWorkers.Value do
            MainStringGrid.Cells[0, I] := IntToStr(I);
        SetLength(ArrayOfRecords, SpinEditOfWorkers.Value);
        I := 0;
        While not(EoF(OpenedFile)) do
        Begin
            Read(OpenedFile, ArrayOfRecords[I]);
            Inc(I);
        End;

        for I := 1 to SpinEditOfWorkers.Value do
        begin
            MainStringGrid.Cells[1, I] := ArrayOfRecords[I-1].Name;
            MainStringGrid.Cells[2, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnMonday);
            MainStringGrid.Cells[3, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnTuesday);
            MainStringGrid.Cells[4, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnWednesday);
            MainStringGrid.Cells[5, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnThursday);
            MainStringGrid.Cells[6, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnFriday);
            MainStringGrid.Cells[7, I] := IntToStr(ArrayOfRecords[I-1].DetailsOnSaturday);
        end;
        CloseFile(OpenedFile);
    end;
end;

procedure TMainForm.SaveButtonClick(Sender: TObject);   //Сохранить файл
var
    I: Integer;
    SavedFile: File of Worker;
    ArrayOfRecords: AoW;
begin
    if IsMainStringGridCorrect(MainStringGrid, SpinEditOfWorkers) then
    begin
        if SaveDialog.Execute then
        begin
            AssignFile(SavedFile, SaveDialog.FileName);
            Rewrite(SavedFile);
            SetLength(ArrayOfRecords, SpinEditOfWorkers.Value);
            for I := 1 to SpinEditOfWorkers.Value do
            begin
                ArrayOfRecords[I-1].Name := MainStringGrid.Cells[1, I];
                ArrayOfRecords[I-1].DetailsOnMonday := StrToInt(MainStringGrid.Cells[2, I]);
                ArrayOfRecords[I-1].DetailsOnTuesday := StrToInt(MainStringGrid.Cells[3, I]);
                ArrayOfRecords[I-1].DetailsOnWednesday := StrToInt(MainStringGrid.Cells[4, I]);
                ArrayOfRecords[I-1].DetailsOnThursday := StrToInt(MainStringGrid.Cells[5, I]);
                ArrayOfRecords[I-1].DetailsOnFriday := StrToInt(MainStringGrid.Cells[6, I]);
                ArrayOfRecords[I-1].DetailsOnSaturday := StrToInt(MainStringGrid.Cells[7, I]);
            end;

            for I := 0 to SpinEditOfWorkers.Value-1 do
                Write(SavedFile, ArrayOfRecords[I]);
            CloseFile(SavedFile);
        end;
    end
    else
        ShowMessage('Проверьте таблицу!');
end;

procedure TMainForm.WorkerAndDetailsOnWeekFindButtonClick(Sender: TObject);  //Сборщик и детали за неделю
begin
    if IsMainStringGridCorrect(MainStringGrid, SpinEditOfWorkers) then
        FindDialog1.Execute()
    else
        ShowMessage('Проверьте таблицу!');
end;

procedure TMainForm.BestWorkerFindButtonClick(Sender: TObject);  //Сборщик-рекордсмен
var
    ArrayOfSumOfProducts: array of integer;
    BestWorkman, BestDay: AnsiString;
    I, J, SumOfDetails, MaxDetails, BestBuf: Integer;
begin
    if IsMainStringGridCorrect(MainStringGrid, SpinEditOfWorkers) then
    begin
        SetLength(ArrayOfSumOfProducts, SpinEditOfWorkers.Value);
        MaxDetails := 0;
        BestBuf := 0;
        for I := 0 to SpinEditOfWorkers.Value-1 do //находит сумму всех деталей каждого рабочего
        begin
            SumOfDetails := 0;
            for J := 2 to 7 do
            begin
                SumOfDetails := SumOfDetails + StrToInt(MainStringGrid.Cells[J,I+1]);
            end;
            ArrayOfSumOfProducts[I] := SumOfDetails;
        end;

        for I := 0 to SpinEditOfWorkers.Value-1 do   // ищет максимум деталей среди рабочих и день высшей производительности
        begin
            if ((ArrayOfSumOfProducts[I] > ArrayOfSumOfProducts[I-1]) and (ArrayOfSumOfProducts[I] > MaxDetails)) then
            begin
                MaxDetails := ArrayOfSumOfProducts[I];
                BestWorkman := MainStringGrid.Cells[1, I+1];
                for J := 2 to 6 do
                    if ((StrToInt(MainStringGrid.Cells[J, I+1]) > StrToInt(MainStringGrid.Cells[J+1,I+1])) and (StrToInt(MainStringGrid.Cells[J, I+1]) > BestBuf)) then
                    begin
                        BestDay := MainStringGrid.Cells[J,0];
                        BestBuf := StrToInt(MainStringGrid.Cells[J, I+1])
                    end;
            end;
        end;

        if MaxDetails > 0 then
            ShowMessage(BestWorkman + ' собрал ' + IntToStr(MaxDetails) + ' деталей, что является лучшим показателем! День высшей производительности: ' + BestDay)
        else
            ShowMessage('Таких нет!');
    end
    else
        ShowMessage('Проверьте таблицу!');
end;

procedure TMainForm.DeleteButtonClick(Sender: TObject);   //Удаление поля таблицы
var
    ArrayOfRecords: AoW;
    I: Integer;
begin
    //GlobalCorrect := False;
    if SpinEditOfWorkers.Value > 1 then
    begin
        if IsMainStringGridCorrect(MainStringGrid, SpinEditOfWorkers) then
        begin
            Setlength(ArrayOfRecords, SpinEditOfWorkers.Value-1);
            I := 1;
            DeleteRow(ArrayOfRecords, I, ADeletedRow, MainStringGrid, SpinEditOfWorkers);
        end
        else
            ShowMessage('Проверьте таблицу!');
    end
end;

procedure TMainForm.SpinEditOfWorkersChange(Sender: TObject);
var
    UserHigh, I: Integer;
begin
  {  if ((GlobalCorrect) and (SpinEditOfWorkers.Value < GlobalBuf)) then
        SpinEditOfWorkers.Value := GlobalBuf
    else
        GlobalBuf := SpinEditOfWorkers.Value;  }
    UserHigh := 200;
    if ((SpinEditOfWorkers.Value > 0) and (SpinEditOfWorkers.Value < 23)) then
    begin
        MainStringGrid.Cells[0,SpinEditOfWorkers.Value]:= IntToStr(SpinEditOfWorkers.Value);
        MainStringGrid.Options := MainStringGrid.Options+[goEditing];
        MainStringGrid.RowCount := SpinEditOfWorkers.Value+1;
        MainStringGrid.Height := 36 * MainStringGrid.RowCount;
        if (MainStringGrid.Height + MainStringGrid.Top < UserHigh) then
            ClientHeight := UserHigh
        else
            ClientHeight := MainStringGrid.Height + MainStringGrid.Top + 10;
    end
    else
        MainStringGrid.Options := MainStringGrid.Options-[goEditing];
    if (SpinEditOfWorkers.Value > 1) then
    begin
        WorkerAndDetailsOnWeekFindButton.Enabled := True;
        BestWorkerFindButton.Enabled := True;
        DeleteButton.Enabled := True;
        DeleteFromFileButton.Enabled := True
    end
    else
    begin
        WorkerAndDetailsOnWeekFindButton.Enabled := False;
        BestWorkerFindButton.Enabled := False;
        DeleteButton.Enabled := False;
        DeleteFromFileButton.Enabled := False;
    end;
end;

procedure TMainForm.SpinEditOfWorkersClick(Sender: TObject);
begin
    //GlobalCorrect := True;
end;

end.