MainUnit.pas

Unit MainUnit;

Interface

Uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
    System.Classes, Vcl.Graphics, Vcl.Forms,
    Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.ComCtrls, Vcl.ExtCtrls,
    Vcl.Controls;

Type
    TMainForm = Class(TForm)
        MainMenu: TMainMenu;
        MMHelp: TMenuItem;
        LabelProgramName: TLabel;
        ButtonVacancyList: TButton;
        ButtonCandidateList: TButton;
        ButtonExit: TButton;
        MMInstruction: TMenuItem;
        MMSeparator: TMenuItem;
        MMProgramInfo: TMenuItem;
        Procedure ButtonVacancyListClick(Sender: TObject);
        Procedure ButtonCandidateListClick(Sender: TObject);
        Procedure FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
        Procedure ButtonExitClick(Sender: TObject);
        Procedure MMInstructionClick(Sender: TObject);
        Procedure MMProgramInfoClick(Sender: TObject);
        Procedure FormResize(Sender: TObject);
    End;

Const
    MAXLEN = 20;
    MINSALARY = 1;
    MAXSALARY = 99_999;
    MINVACATION = 1;
    MAXVACATION = 99;
    MINWORKAGE = 14;
    MAXWORKAGE = 99;
    MAXRECORDAMOUNT = 100;
    CANDIDATEFILEEXT = '.can';
    VACANCYFILEEXT = '.vac';
    NULL = #0;
    BACKSPACE = #8;

Function IsFileExtCorrect(Path: String; Const EXT: String): Boolean;
Procedure ClearListView(ListView: TListView);
Procedure StrEditKeyPress(LEdit: TLabeledEdit; Var Key: Char;
  Const MAXLENGTH: Integer);
Procedure IntEditKeyPress(LEdit: TLabeledEdit; Var Key: Char;
  Const MAX: Integer);
Function IsNumCorrect(Value: Integer;
  Const MINVALUE, MAXVALUE: Integer): Boolean;
Function IsStrEditCorrect(LEdit: TLabeledEdit): Boolean;
Function IsIntEditCorrect(LEdit: TLabeledEdit;
  Const MINVALUE, MAXVALUE: Integer): Boolean;
Procedure ShowInstruction();
Procedure ShowProgramInfo();
Procedure SelectItemInListView(I: Integer; ListView: TListView);

Var
    MainForm: TMainForm;

Implementation

{$R *.dfm}

Uses VacancyListUnit, CandidateListUnit;

Function IsStrEditCorrect(LEdit: TLabeledEdit): Boolean;
Begin
    IsStrEditCorrect := (Length(LEdit.Text) > 0) And
      (Length(LEdit.Text) < MAXLEN + 1);
End;

Function IsNumCorrect(Value: Integer;
  Const MINVALUE, MAXVALUE: Integer): Boolean;
Begin
    IsNumCorrect := (Value > MINVALUE - 1) And (Value < MAXVALUE + 1);
End;

Function IsIntEditCorrect(LEdit: TLabeledEdit;
  Const MINVALUE, MAXVALUE: Integer): Boolean;
Var
    Value: Integer;
Begin
    IsIntEditCorrect := TryStrToInt(LEdit.Text, Value) And
      IsNumCorrect(Value, MINVALUE, MAXVALUE);
End;

Procedure StrEditKeyPress(LEdit: TLabeledEdit; Var Key: Char;
  Const MAXLENGTH: Integer);
Begin
    If (Key <> BACKSPACE) And Not(Length(LEdit.Text) < MAXLENGTH) Then
        Key := NULL;
End;

Procedure IntEditKeyPress(LEdit: TLabeledEdit; Var Key: Char;
  Const MAX: Integer);
Begin
    If (Key <> BACKSPACE) And
      Not(Length(LEdit.Text) < Length(IntToStr(MAX))) Then
        Key := NULL
    Else If (LEdit.SelStart = 0) And (Key = '0') Then
        Key := NULL
    Else If (Length(LEdit.Text) > 0) And (StrToInt(LEdit.Text) = 0) And
      (LEdit.SelStart <> 0) And (Key <> BACKSPACE) Then
        Key := NULL;
End;

Procedure SelectItemInListView(I: Integer; ListView: TListView);
Begin
    ListView.Selected := ListView.Items[I];
    ListView.Items[I].MakeVisible(False);
End;

Procedure ClearListView(ListView: TListView);
Begin
    While ListView.Items.Count <> 0 Do
        ListView.Items[0].Delete;
End;

Procedure TMainForm.ButtonCandidateListClick(Sender: TObject);
Begin
    MainForm.Visible := False;
    CandidateListForm.ShowModal;
End;

Procedure TMainForm.ButtonExitClick(Sender: TObject);
Begin
    Close;
End;

Procedure TMainForm.ButtonVacancyListClick(Sender: TObject);
Begin
    MainForm.Visible := False;
    VacancyListForm.ShowModal;
End;

Procedure TMainForm.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
Var
    ButtonSelected: Integer;
Begin
    If Not IsVacancyListSaved Then
    Begin
        ButtonSelected := Application.MessageBox
          ('Âû õîòèòå ñîõðàíèòü èçìåíåíèÿ â ñïèñêå âàêàíñèé?', 'Âûõîä',
          MB_YESNOCANCEL + MB_ICONQUESTION);
        If ButtonSelected = MrYes Then
        Begin
            VacancyListForm.MMSaveFile.Click;
            If Not IsVacancyListSaved Then
                Close;
        End
        Else
            CanClose := IsCandidateListSaved And (ButtonSelected = MrNo);
        IsVacancyListSaved := True;
    End;
    If Not IsCandidateListSaved Then
    Begin
        ButtonSelected := Application.MessageBox
          ('Âû õîòèòå ñîõðàíèòü èçìåíåíèÿ â ñïèñêå êàíäèäàòîâ?', 'Âûõîä',
          MB_YESNOCANCEL + MB_ICONQUESTION);
        If ButtonSelected = MrYes Then
        Begin
            CandidateListForm.MMSaveFile.Click;
            If Not IsCandidateListSaved Then
                Close;
        End
        Else
            CanClose := ButtonSelected = MrNo;
        IsCandidateListSaved := True;
    End;
End;

Procedure TMainForm.FormResize(Sender: TObject);
Begin
    Left := (Screen.Width - Width) Div 2;
    Top := (Screen.Height - Height) Div 2;
End;

Procedure ShowInstruction();
Begin
    Application.MessageBox
      ('1. Äëÿ äîáàâëåíèÿ çàïèñè â ñïèñîê íàæìèòå íà êíîïêó "Äîáàâèòü", è ââåäèòå òðåáóþùóþñÿ èíôîðìàöèþ.'#13#10
      + '2. Äëÿ ðåäàêòèðîâàíèÿ çàïèñè íàæìèòå äâàæäû íà íóæíóþ ñòðîêó ñïèñêà.'#13#10
      + '3. Äëÿ óäàëåíèÿ çàïèñè âûáåðèòå åå â ñïèñêå è íàæìèòå íà êíîïêó "Óäàëèòü".'#13#10
      + '4. Äëÿ ïîäáîðà êàíäèäàòîâ äëÿ âàêàíñèè âûáåðèòå íóæíóþ âàêàíñèþ â ñïèñêå è íàæìèòå íà êíîïêó "Ïîäîáðàòü êàíäèäàòîâ".'#13#10
      + '5. Äëÿ ïðîñìîòðà äåôèöèòíûõ ñïåöèàëèñòîâ íàæìèòå ñîîòâåòñòâóþùóþ êíîïêó â îêíå ñïèñêà ñ êàíäèäàòàìè.'#13#10
      + '6. Ìàêñèìàëüíîå êîëè÷åñòâî çàïèñåé â êàæäîì ñïèñêå - 100.'#13#10 +
      '7. Äëÿ âîçâðàùåíèÿ â ãëàâíîå ìåíþ çàêðîéòå îêíî ñî ñïèñêîì èëè íàæìèòå Esc.'#13#10 + '8. Ôîðìàò äëÿ ôàéëîâ ñ âàêàíñèÿìè: *.vac.'#13#10 +
      '9. Ôîðìàò äëÿ ôàéëîâ ñ êàíäèäàòàìè: *.can.', 'Èíñòðóêöèÿ', MB_OK);
End;

Procedure ShowProgramInfo();
Begin
    Application.MessageBox('Áèðæà òðóäà'#13#10 +
      'Ðàçðàáîò÷èê: Ãîðîäêî Êñåíèÿ Åâãåíüåâíà, 351005'#13#10 +
      'Ó÷åáíàÿ ïðàêòèêà (îçíàêîìèòåëüíàÿ), âàðèàíò 15'#13#10 + 'ÁÃÓÈÐ 2024',
      'Î ïðîãðàììå', MB_OK);
End;

Procedure TMainForm.MMInstructionClick(Sender: TObject);
Begin
    ShowInstruction();
End;

Procedure TMainForm.MMProgramInfoClick(Sender: TObject);
Begin
    ShowProgramInfo();
End;

Function IsFileExtCorrect(Path: String; Const EXT: String): Boolean;
Begin
    If ExtractFileExt(Path) <> EXT Then
        Application.MessageBox(PWideChar('Ôàéë äîëæåí èìåòü ðàçðåøåíèå ' + EXT +
          '!'), 'Îøèáêà', MB_ICONERROR);
    IsFileExtCorrect := ExtractFileExt(Path) = EXT;
End;

End.