Разработка Windows-приложения «Электронная касса».

dfm}

procedure TForm1.FormCreate(Sender: TObject);
var NewColumn: TListColumn;
Year, Month, Day : Word;
Layout: array[0.. KL_NAMELENGTH] of char;
begin
//процедура при открытии формы
Form1.Width:=800; //размеры формы - ширина и высота
Form1.Height:=600;
PageControl1.Align:=AlClient; //на весь экран
LoadKeyBoardLayout(StrCopy(Layout,'00000419'),KLF_ACTIVATE); //на русскую раскладку клавиатуры
DecimalSeparator:='.'; //установка разделителя целой и дробной части чисел
TabSheet1.TabVisible:=False;
TabSheet3.TabVisible:=False;
Panel3.Visible:=False;
Panel4.Visible:=False;
with ListView1 do
begin
NewColumn := Columns.Add;
NewColumn.Width:=120;
NewColumn.Caption := 'Фамилия';

NewColumn := Columns.Add;
NewColumn.Width:=120;
NewColumn.Caption := 'Имя';

NewColumn := Columns.Add;
NewColumn.Width:=120;
NewColumn.Caption := 'Отчество';
end;
ListView1.Align:=AlClient;
with ListView2 do
begin
NewColumn := Columns.Add;
NewColumn.Width:=100;
NewColumn.Caption := 'Валюта';

NewColumn := Columns.Add;
NewColumn.Width:=100;
NewColumn.Caption := 'Коэффициент';

NewColumn := Columns.Add;
NewColumn.Width:=100;
NewColumn.Caption := 'Номинал';

NewColumn := Columns.Add;
NewColumn.Width:=100;
NewColumn.Caption := 'Количество';

end;
ListView2.Align:=AlClient;

with ListView3 do
begin
NewColumn := Columns.Add;
NewColumn.Width:=100;
NewColumn.Caption := 'Валюта';

NewColumn := Columns.Add;
NewColumn.Width:=100;
NewColumn.Caption := 'Номинал';

NewColumn := Columns.Add;
NewColumn.Width:=100;
NewColumn.Caption := 'Количество';

end;
ListView3.Align:=AlClient;

DecodeDate(date, Year, Month, Day);
SpinEdit4.Value:=Year;
SpinEdit6.Value:=Year;
//заполнение выпадающего списка названиями месяцев для получения денег
ComboBox1.Items.Clear;
ComboBox1.Items.Add('январь'); ComboBox1.Items.Add('февраль'); ComboBox1.Items.Add('март');
ComboBox1.Items.Add('апрель'); ComboBox1.Items.Add('март'); ComboBox1.Items.Add('июнь');
ComboBox1.Items.Add('июль'); ComboBox1.Items.Add('август'); ComboBox1.Items.Add('сентябрь');
ComboBox1.Items.Add('октябрь'); ComboBox1.Items.Add('ноябрь'); ComboBox1.Items.Add('декабрь');
//заполнение выпадающего списка названиями месяцев для ведомости зарплат
ComboBox4.Items.Clear;
ComboBox4.Items.Add('январь'); ComboBox4.Items.Add('февраль'); ComboBox4.Items.Add('март');
ComboBox4.Items.Add('апрель'); ComboBox4.Items.Add('март'); ComboBox4.Items.Add('июнь');
ComboBox4.Items.Add('июль'); ComboBox4.Items.Add('август'); ComboBox4.Items.Add('сентябрь');
ComboBox4.Items.Add('октябрь'); ComboBox4.Items.Add('ноябрь'); ComboBox4.Items.Add('декабрь');
//заполним списками имеющихся валют
AssignFile(ManyFile, 'many.rec');
//если есть файл с валютами, то проверяем
if (FileExists('many.rec')) then
begin
Reset(ManyFile);
while not eof(ManyFile) do
begin
Read(ManyFile,Many_Record);
ComboBox2.Items.Add(Many_Record.Valuta);
ComboBox5.Items.Add(Many_Record.Valuta);
end;
CloseFile(ManyFile);
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var Pass_true : Boolean ; //переменная для определения корректности пароля
begin
//проверить ФИО и пароль
Label22.Caption:='0';
if (FileExists('list.rec')=False) then
begin
Application.MessageBox('Нет файла для проверки корректности имени пользователя и пароля!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
Pass_true:=False;
AssignFile(PersonFile, 'list.rec');
Reset(PersonFile);
while not eof(PersonFile) do
begin
Read(PersonFile,People_Record);
if ((People_Record.Family=trim(Edit1.Text)) and
(People_Record.Name=trim(Edit2.Text)) and
(People_Record.Patronim=trim(Edit3.Text))) then
begin
if (People_Record.Password<>SpinEdit1.Value) then
begin
Application.MessageBox('Пароль неверный!','Сообщение',mb_Ok+mb_ICONINFORMATION);
CloseFile(PersonFile);
exit;
end
else
Pass_true:=True;
end;
end;
if (not Pass_true) then
begin
Application.MessageBox('Такого пользователя нет!','Сообщение',mb_Ok+mb_ICONINFORMATION);
CloseFile(PersonFile);
exit;
end;
Panel1.Enabled:=False;
Panel10.Visible:=True;
CloseFile(PersonFile);

end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var ListItem:TlistItem;
begin
//заполнение ведомости на зарплату
if (trim(Edit5.Text)<>'1') then
begin
Application.MessageBox('Неверный пароль для бухгалтера!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
TabSheet3.TabVisible:=True;
PageControl1.ActivePage:=TabSheet3;
ListView1.Items.Clear;
if (FileExists('list.rec')) then
begin
AssignFile(PersonFile, 'list.rec');
Reset(PersonFile);
while not eof(PersonFile) do
begin
Read(PersonFile,People_Record);
ListItem:=ListView1.Items.Add;
ListItem.Caption:=People_Record.Family;
ListItem.SubItems.Add(People_Record.Name);
ListItem.SubItems.Add(People_Record.Patronim);
end;
CloseFile(PersonFile);
end;//if FileExists
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
//пополнение кассы деньгами
if (trim(Edit4.Text)<>'1') then
begin
Application.MessageBox('Неверный пароль для инкассатора!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
TabSheet1.TabVisible:=True;
PageControl1.ActivePage:=TabSheet1;
View_Kassa;
end;

procedure TForm1.View_Kassa;
var namefile:String;
ListItem:TlistItem;
begin
//просмотр содержимого кассы
ListView3.Items.Clear;
if (not FileExists('kassa.rec')) then exit;
namefile:='kassa.rec';
AssignFile(KassaFile,namefile);
Reset(KassaFile);
while not eof(KassaFile) do
begin
Read(KassaFile,Kassa_Record);
ListItem:=ListView3.Items.Add;
ListItem.Caption:=Kassa_Record.Valuta;
ListItem.SubItems.Add(IntToStr(Kassa_Record.Nominal));
ListItem.SubItems.Add(IntToStr(Kassa_Record.Vcount));
end;
CloseFile(KassaFile);
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
var ListItem:TlistItem;
begin
//проверить, есть или нет такой человек
AssignFile(PersonFile, 'list.rec');
//если есть файл с ФИО и паролями, то проверяем
if (FileExists('list.rec')) then
begin
Reset(PersonFile);
while not eof(PersonFile) do
begin
Read(PersonFile,People_Record);
if ((People_Record.Family=trim(Edit6.Text)) and
(People_Record.Name=trim(Edit7.Text)) and
(People_Record.Patronim=trim(Edit8.Text))) then
begin
Application.MessageBox('Человек с таким ФИО уже внесен в список!','Сообщение',mb_Ok+mb_ICONINFORMATION);
CloseFile(PersonFile);
exit;
end;
end;
end
else
Rewrite(PersonFile);
//добавить нового сотрудника
People_Record.Family:=trim(Edit6.Text);
People_Record.Name:=trim(Edit7.Text);
People_Record.Patronim:=trim(Edit8.Text);
People_Record.Password:=SpinEdit5.Value;
//запись введенных значений в файл
Write(PersonFile,People_Record);
CloseFile(PersonFile);

ListItem:=ListView1.Items.Add;
ListItem.Caption:=People_Record.Family;
ListItem.SubItems.Add(People_Record.Name);
ListItem.SubItems.Add(People_Record.Patronim);
//очистить поля после ввода
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
SpinEdit5.Value:=1;
Application.MessageBox('Новый сотрудник добавлен!','Сообщение',mb_Ok+mb_ICONINFORMATION);
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
var namefile:String; //переменная для имени файла с зарплатой
r : Real;
begin
//процедура для добавления зарплаты
try
r:=StrToFloat(trim(MaskEdit1.Text));
except
Application.MessageBox('Ошибка в сумме денег!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
if (ListView1.SelCount=0) then
begin
Application.MessageBox('Не выбран человек для внесения суммы денег!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;

namefile:=IntToStr(SpinEdit6.Value)+'_'+IntToStr(ComboBox4.ItemIndex+1)+'.rec';
AssignFile(PersonManyFile,namefile);
//если есть файл с начислениями денег за указанный год и месяц, то дозаписываем.
//Если файла нет, то создаем
if (FileExists(namefile)) then
Reset(PersonManyFile)
else
Rewrite(PersonManyFile);
//проверка, чтобы не было повторов при внесении зарплаты

while not eof(PersonManyFile) do
begin
Read(PersonManyFile,People_many_Record);
if ((People_many_Record.Family=ListView1.Selected.Caption) and
(People_many_Record.Name=ListView1.Selected.SubItems[0]) and
(People_many_Record.Patronim=ListView1.Selected.SubItems[1])) then
begin
Application.MessageBox('Зарплата сотрудника за указанный месяц уже имеется!','Повтор',mb_Ok+mb_ICONINFORMATION);
CloseFile(PersonManyFile);
exit;
end;
end;

//добавить новое начисление
People_many_Record.Family:=ListView1.Selected.Caption;
People_many_Record.Name:=ListView1.Selected.SubItems[0];
People_many_Record.Patronim:=ListView1.Selected.SubItems[1];
People_many_Record.Many:=StrToFloat(trim(MaskEdit1.Text));
//запись введенных значений в файл
Write(PersonManyFile,People_many_Record);
CloseFile(PersonManyFile);
//очистить поля после ввода
ComboBox4.ItemIndex:=-1;
MaskEdit1.Text:='';
Application.MessageBox('Зарплата сотрудника внесена!','Сообщение',mb_Ok+mb_ICONINFORMATION);

end;

procedure TForm1.BitBtn8Click(Sender: TObject);
var namefile:String; //переменная для имени файла с зарплатой
begin
//сформировать имя файла с зарплатой
namefile:=IntToStr(SpinEdit4.Value)+'_'+IntToStr(ComboBox1.ItemIndex+1)+'.rec';
if (FileExists(namefile)=False) then
begin
Application.MessageBox('Нет файла за указанный год и месяц!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
Label22.Caption:='0';
AssignFile(PersonManyFile,namefile);
Reset(PersonManyFile);
while not eof(PersonManyFile) do
begin
Read(PersonManyFile,People_many_Record);
if ((People_many_Record.Family)=trim(Edit1.Text)) and
(People_many_Record.Name=trim(Edit2.Text)) and
(People_many_Record.Patronim=trim(Edit3.Text)) then
Label22.Caption:=FloatToStr(People_many_Record.Many);
end;
CloseFile(PersonManyFile);
if (StrToFloat(Label22.Caption)>0) then
begin
Panel3.Visible:=True;
Panel4.Visible:=True;
Panel10.Enabled:=False;
end;
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
var r : Real;
begin
//добавить новую валюту
try
r:=StrToFloat(trim(MaskEdit2.Text));
except
Application.MessageBox('Ошибка в коэффициенте пересчета в рубли!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
if (trim(Edit9.Text)='рубль') then
begin
Application.MessageBox('Вводить валюту "рубль" не нужно!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
//проверить, есть или нет такой валюты
AssignFile(ManyFile, 'many.rec');
//если есть файл с валютами, то проверяем
if (FileExists('many.rec')) then
begin
Reset(ManyFile);
while not eof(ManyFile) do
begin
Read(ManyFile,Many_Record);
if (Many_Record.Valuta=trim(Edit9.Text)) then
begin
Application.MessageBox('Такая валюта уже внесена в список!','Сообщение',mb_Ok+mb_ICONINFORMATION);
CloseFile(ManyFile);
exit;
end;
end;
end
else
begin
Rewrite(ManyFile);
//сразу добавим валюту по умолчанию - рубли
ComboBox2.Items.Add('рубль');
ComboBox5.Items.Add('рубль');
Many_Record.Valuta:='рубль';
Many_Record.Koef:=1;
//запись введенных значений в файл
Write(ManyFile,Many_Record);
end;
//добавить новую валюту
Many_Record.Valuta:=trim(Edit9.Text);
Many_Record.Koef:=StrToFloat(trim(MaskEdit2.Text));
//запись введенных значений в файл
Write(ManyFile,Many_Record);
CloseFile(ManyFile);

ComboBox2.Items.Add(trim(Edit9.Text));
ComboBox5.Items.Add(trim(Edit9.Text));

//очистить поля после ввода
Edit9.Text:='';
Application.MessageBox('Новая валюта добавлена!','Сообщение',mb_Ok+mb_ICONINFORMATION);
end;


procedure TForm1.BitBtn9Click(Sender: TObject);
var namefile_source,namefile_destination : String;
KFile : file of TKassa; // файл для перезаписи данных после пополнения кассы
name1,name2:array [0..256] of char;
kupur:Boolean;
begin
//процедура для пополнения кассы
if ((SpinEdit7.Value=0) or (SpinEdit8.Value=0)) then
begin
Application.MessageBox('Ошибка в указании достоинства и/или количества купюр!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
if (ComboBox5.ItemIndex=-1) then
begin
Application.MessageBox('Не выбрана валюта!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
//если есть файл с денежными средствами в кассе, то дозаписываем.
//Если файла нет, то создаем
namefile_source:='kassa.rec';
AssignFile(KassaFile,namefile_source);
if (FileExists('kassa.rec')) then
Reset(KassaFile)
else
Rewrite(KassaFile);
//добавить новое поступление
namefile_destination:='kassa.rev';
AssignFile(KFile,namefile_destination);
Rewrite(KFile);
kupur:=False;
while not eof(KassaFile) do
begin
Read(KassaFile,Kassa_Record);
if ((Kassa_Record.Valuta=ComboBox5.Items[ComboBox5.ItemIndex]) and
(Kassa_Record.Nominal=SpinEdit7.Value)) then
begin
Kassa_Record.Vcount:=Kassa_Record.Vcount+SpinEdit8.Value;
kupur:=True; //купюры данного номинала найдены и просто увеличили их количество
end;
Write(KFile,Kassa_Record);
end;
//купюры данного номинала не найдены и добавим запись о них
if (kupur=False) then
begin
Kassa_Record.Valuta:=ComboBox5.Items[ComboBox5.ItemIndex];
Kassa_Record.Nominal:=SpinEdit7.Value;
Kassa_Record.Vcount:=SpinEdit8.Value;
Write(KassaFile,Kassa_Record);
end;

CloseFile(KassaFile);
CloseFile(KFile);
copyfile(StrPCopy(name1,namefile_source),StrPCopy(name2,namefile_destination),False);
DeleteFile(namefile_source);
copyfile(StrPCopy(name1,namefile_destination),StrPCopy(name2,namefile_source),False);
DeleteFile(namefile_destination);
//очистить поля после ввода
ComboBox5.ItemIndex:=-1;
SpinEdit7.Value:=0;
SpinEdit8.Value:=0;
//вызов процедуры для просмотра наличности в кассе
View_Kassa;
Application.MessageBox('Денежные средства внесены!','Сообщение',mb_Ok+mb_ICONINFORMATION);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var ListItem: TListItem;
koef : real;
i : Integer;
begin
//получатель денег выбирает номиналы банкнот
//проверим, чтобы не было такой валюты и номинала среди выбранных пользователем
for i:=0 to ListView2.Items.Count-1 do
begin
if ((ListView2.Items[i].Caption=ComboBox2.Items[ComboBox2.ItemIndex]) and
(StrToInt(ListView2.Items[i].SubItems[1])=SpinEdit3.Value)) then
begin
Application.MessageBox('Такая валюта указанного номинала уже была выбрана!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
end;
//сначала найдем коэффициент пересчета в рубли
AssignFile(ManyFile, 'many.rec');
Reset(ManyFile);
koef:=0;
while not eof(ManyFile) do
begin
Read(ManyFile,Many_Record);
if (Many_Record.Valuta=ComboBox2.Items[ComboBox2.ItemIndex]) then
koef:=Many_Record.Koef;
end;
CloseFile(ManyFile);
ListItem:=ListView2.Items.Add;
ListItem.Caption:=ComboBox2.Items[ComboBox2.ItemIndex];
ListItem.SubItems.Add(FormatFloat('0.00',koef));
ListItem.SubItems.Add(IntToStr(SpinEdit3.Value));
ListItem.SubItems.Add(IntToStr(SpinEdit9.Value));
ComboBox2.ItemIndex:=-1;
SpinEdit3.Value:=0;
SpinEdit9.Value:=0;
Application.MessageBox('Ваша заявка учтена!','Сообщение',mb_Ok+mb_ICONINFORMATION);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var i : Integer;
kupur : Boolean; //переменная для проверки купюры нужного номинала
summa : Real;
namefile_source,namefile_destination : String;
PMFile : file of TPeople_many; // файл для перезаписи данных после выдачи
name1,name2:array [0..256] of char;
KFile : file of TKassa; // файл для перезаписи данных в кассе после выдачи
begin
//проверить количество купюр в кассе (платежеспособность кассы)
AssignFile(KassaFile,'kassa.rec');
Reset(KassaFile);
for i:=0 to ListView2.Items.Count-1 do
begin
//встать на начало файла перед поиском каждой валюты
Seek(KassaFile, 0);
kupur:=False;
while not eof(KassaFile) do
begin
Read(KassaFile,Kassa_Record);
if ((Kassa_Record.Valuta=ListView2.Items[i].Caption) and
(Kassa_Record.Nominal=StrToInt(ListView2.Items[i].SubItems[1]))) then
begin
if (Kassa_Record.Vcount>StrToInt(ListView2.Items[i].SubItems[2])) then
kupur:=True;
end;
end;
if (kupur=False) then break; //выход из цикла, так как недостаточно в кассе купюр нужного номинала
end; //конец цикла for
CloseFile(KassaFile);
if (kupur=False) then
begin
Application.MessageBox('В кассе недостаточно купюр выбранной валюты и номинала!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
//проверить заказанную сумму с суммой зарплаты
summa:=0;
for i:=0 to ListView2.Items.Count-1 do
begin
summa:=summa+StrToFloat(ListView2.Items[i].SubItems[0])*StrToInt(ListView2.Items[i].SubItems[1])*StrToInt(ListView2.Items[i].SubItems[2]);
end;
if (summa>StrToFloat(Label22.Caption)) then
begin
Application.MessageBox('На Вашем счете недостаточно средств для заказанной суммы!','Сообщение',mb_Ok+mb_ICONINFORMATION);
exit;
end;
//если всё нормально, то надо уменьшить сумму на счете и в кассе
//уменьшим сумму на счете пользователя
namefile_source:=IntToStr(SpinEdit4.Value)+'_'+IntToStr(ComboBox1.ItemIndex+1)+'.rec';
AssignFile(PersonManyFile,namefile_source);
Reset(PersonManyFile);
namefile_destination:=IntToStr(SpinEdit4.Value)+'_'+IntToStr(ComboBox1.ItemIndex+1)+'.rev';
AssignFile(PMFile,namefile_destination);
Rewrite(PMFile);

while not eof(PersonManyFile) do
begin
Read(PersonManyFile,People_many_Record);
if ((People_many_Record.Family)=trim(Edit1.Text)) and
(People_many_Record.Name=trim(Edit2.Text)) and
(People_many_Record.Patronim=trim(Edit3.Text)) then
begin
People_many_Record.Many:=People_many_Record.Many-summa;
end;
Write(PMFile,People_many_Record);
end;
CloseFile(PersonManyFile);
CloseFile(PMFile);
copyfile(StrPCopy(name1,namefile_destination),StrPCopy(name2,namefile_source),False);
deleteFile(namefile_destination);
//уменьшим сумму в кассе
namefile_source:='kassa.rec';
AssignFile(KassaFile,namefile_source);
Reset(KassaFile);
namefile_destination:='kassa.rev';
AssignFile(KFile,namefile_destination);
Rewrite(KFile);
for i:=0 to ListView2.Items.Count-1 do
begin
//встать на начало файла перед поиском каждой валюты
Seek(KassaFile, 0);
while not eof(KassaFile) do
begin
Read(KassaFile,Kassa_Record);
if ((Kassa_Record.Valuta=ListView2.Items[i].Caption) and
(Kassa_Record.Nominal=StrToInt(ListView2.Items[i].SubItems[1]))) then
Kassa_Record.Vcount:=Kassa_Record.Vcount-StrToInt(ListView2.Items[i].SubItems[2]);
Write(KFile,Kassa_Record);

end;
end; //конец цикла for
CloseFile(KassaFile);
CloseFile(KFile);
copyfile(StrPCopy(name1,namefile_destination),StrPCopy(name2,namefile_source),False);
DeleteFile(namefile_destination);
ListView2.Items.Clear;
Panel3.Visible:=False;
Panel4.Visible:=False;
Panel10.Visible:=False;
Panel10.Enabled:=True;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
SpinEdit1.Value:=1;
Panel1.Enabled:=True;
TabSheet1.TabVisible:=False;
Application.MessageBox('Выплата произведена!','Сообщение',mb_Ok+mb_ICONINFORMATION);
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
//возврат в начало
Panel3.Visible:=False;
Panel4.Visible:=False;
Panel10.Visible:=False;
Panel10.Enabled:=True;
//сбросить набранную валюту и номиналы
ListView2.Items.Clear;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
SpinEdit1.Value:=1;
Panel1.Enabled:=True;
Edit1.SetFocus;
end;
end.

Приложение 2. Система тестов
Для получения денег пользователь должен ввести фамилию, имя, отчество и пароль пользователя. Если такого пользователя нет, то программа выдаст сообщение, показанное на рис. 1.

Рис. 1. Сообщение о некорректном вводе фамилии, имени и/или отчества пользователя
Для получения денег пользователь должен ввести фамилию, имя, отчество и пароль пользователя. Если пользователь ввел неверный пароль, то программа выдаст сообщение, показанное на рис. 2.

Рис. 2. Сообщение о некорректном вводе пароля пользователя
Для получения денег пользователь должен выбрать из выпадающего списка месяц и год. Если получатель денег выбрал неверно указанные параметры, то программа выдаст сообщение, показанное на рис. 3.

Рис. 3. Сообщение о некорректном выборе месяца и года
Если в заявке пользователь указал валюту такого достоинства, которого нет в кассе или недостаточно купюр данного достоинства, то программа выдаст сообщение, показанное на рис. 4.

Рис. 4. Сообщение о неплатежеспособности кассы
Если в заявке пользователь указал сумму, большую, чем у него имеется на счете, то программа выдаст сообщение, показанное на рис. 5.

Рис. 5. Сообщение о недостаточном количестве денежных средств на счете пользователя
Для перехода для ввода ведомостей для зарплаты, бухгалтер должен ввести пароль. Если пароль введен неверно, программа выдаст сообщение, показанное на рис. 6.

Рис. 6. Сообщение бухгалтеру о неверном пароле
Если бухгалтер пытается ввести еще раз одного и того же человека, то программа выдаст сообщение, показанное на рис. 7.

Рис. 7. Сообщение о дублировании информации о получателе денег
Если бухгалтер не указал из списка человека, по которому необходимо ввести денежные начисления, то программа выдаст сообщение, показанное на рис. 8.

Рис. 8. Сообщение бухгалтеру о том, что не выбран сотрудник из списка
Если бухгалтер пытается второй раз ввести данные о зарплате человека за указанный месяц и год, то программа выдаст сообщение, показанное на рис. 9.

Рис. 9. Сообщение бухгалтеру о дублировании начислений
Для перехода для пополнения кассы инкассатор должен ввести пароль. Если пароль введен неверно, программа выдаст сообщение, показанное на рис. 10.

Рис. 10. Сообщение инкассатору о неверном пароле
Если инкассатор пытается второй раз ввести информацию о новой валюте, то программа выдаст сообщение, показанное на рис. 11.

Рис. 11. Сообщение инкассатору о дублировании названия валюты
После ввода инкассатором количества денежных средств выбранной валюты указанного достоинства инкассатор может видеть информацию в списке справа о всей наличности, имеющейся в кассе. Тестирование приложения показало правильную работу программы при пополнении кассы.












2