112
Рисунок 2.11 – Блок-схема функций а) ReadFromFile б)
ReadVisFromFile
Рисунок 2.12 – Блок-схема функций а) WriteToFile б) WriteVisToFile
113
Начало
Конец
init; log('Чтение базы данных');
log('Записей в базе BASE:
'+inttostr(ReadFromFile));
ReadVisFromFile; filltable(i,p);
Рисунок 2.13 – Блок-схема процедуры FormCreate
Начало
Конец
mas[i+1].id:=mas[i].id+1; mas[i+1].fam:=edit1.Text; mas[i+1].name:=edit2.Text;
mas[i+1].sname:=edit3.Text; mas[i+1].dolzh:=edit4.Text;
mas[i+1].day_in:=StrTotime(Edit5.Text); mas[i+1].day_out:=strTotime(Edit10.Text);
mas[i+1].otp_int:=strToDate(Edit9.Text); mas[i+1].otp_out:=strToDate(Edit8.Text);
mas[i+1].otp_type:=strtoint(ComboBox1.Text[1]); mas[i+1].ob_in:=strTotime(Edit6.Text);
mas[i+1].ob_out:=strTotime(Edit11.Text); mas[i+1].ned:=strtoint(combobox2.text[1]);
inc(i); WriteMasToFile; log('Добавлена запись в базу'); filltable(1,0);
Рисунок 2.14 – Блок-схема процедуры Button2Click
Начало
Конец
application.Terminate
Рисунок 2.15– Блок-схема процедуры Button4Click
114
Рисунок 2.16 – Блок-схема процедуры Button5Click
115
Рисунок 2.17 – Блок-схема процедуры Button1Click
116
Рисунок 2.18 – Блок-схема процедуры ComboBox3Change
117
Рисунок 2.19 – Блок-схема процедуры Button6Click
118
Рисунок 2.20 – Блок-схема процедуры Button3Click
119
120
Рисунок 2.21 – Блок-схема процедуры Button7Click
Рисунок 2.22 – Блок-схема процедуры Button8Click
121
Рисунок 2.23 – Блок-схема процедуры Button8Click (продолжение)