Содержание
Задание на разработку программного комплекса
Функциональная структура приложения
Спецификация программного комплекса
Структурная диаграмма программного комплекса
Данные для тестирования
Инструкция пользователя
Приложение
Задание на разработку программного комплекса
Разработать информационную подсистему отдела кадров.
Информация, обрабатываемая в подсистеме, должна храниться в текстовом или типизированном файлах.
Данные, которые должны быть отражены в подсистеме: фамилия, месяц и год приема на работу, образование, специальность, пол, отношение к воинской службе, год рождения.
Сведения о сотрудниках пополняются по мере приема на работу.
В системе должны решаться следующие задачи:
1. Создание файла.
2. Дополнение файла.
3. Корректировка данных в файле.
4. Формирование ответов на запросы пользователя:
4.1. Вывести в виде таблицы фамилии, образование, отношение к воинской службе сотрудников младше 30 лет;
4.2. Определить средний возраст работающих мужчин и женщин;
4.3. Вывести на экран фамилии сотрудников, принятых в текущем году, в порядке убывания их возраста;
4.4. Построить графики изменения уровня образования от возраста;
4.5. Построить круговую диаграмму, отражающую возрастное соотношение работающих: выделить группы до 30 лет, от 31 до 50 лет, старше 51 года;
4.6. Построить столбиковую диаграмму, отражающую долю сотрудников с высшим, средним специальным, средним, неполным средним, начальным образованием. Столбики диаграммы расположить в порядке возрастания.
Функциональная структура приложения
Программный комплекс предназначен для работы с базой данных в виде типизированного файла с расширением txt. Комплекс осуществляет чтение, запись и создание базы.
Помимо этого программный комплекс предоставляет возможность создавать, удалять и редактировать записи в БД. А также осуществляет выборку данных на основе фиксированных правил отбора и построение графиков и диаграмм.
Спецификация программного комплекса
Основной задачей является разработка информационной подсистемы отдела кадров. Поскольку для реализации требуется дружественный интерфейс то было принято решение вести разработку в среде программирования Delphi 7. Это улучшает потребительские качества программного продукта, а также позволит создать графический интерфейс для операционной системы Windows.
Единственное требование для данного программного пакета это наличие ОС семейства Windows.
Интерфейс программы состоит из основной формы и вспомогательных форм, таких как форма редактирования записи, форма отображения результатов запроса, форма построения графиков, форма выбора базы данных. Попасть на эти формы пользователь может при помощи использования кнопок на основной форме.
В качестве входных данных программа использует типизированный файл базы данных, а также сведения о работнике такие как:
· Фамилия – текстовое поле с максимальной длинной 100 символов;
· Дата приема на работу – поле типа TDate;
· Образование – текстовое поле длинной 100 символов;
· Специальность - текстовое поле длинной 100 символов;
· Пол – поле типа byte;
· Отношение к воинской службе - текстовое поле длинной 100 символов;
· Год рождения – поле типа TDate.
В качестве выходных данных программы выступает файл базы данных. А также графическое отображение результатов запросов пользователя. Из графической информации пользователь может получить следующие типы объектов:
· Таблица с данными;
· График;
· Текстовая информация.
Поскольку вся информация проверяется при вводе и пользователь выбирает только то, что может использоваться в данном поле, то ловится всего одна ошибка связанная с попыткой редактирования пустой строки таблицы данных.
Структурная диаграмма программного комплекса
Схема построения программного средства и основных классов:
Данные для тестирования
| Фамилия | Дата рождения | Принят на работу | Пол | Образование | Специальность | Отношение к воинской службе |
| Петров | 03.12.1956 | 12.12.2001 | муж | Высшее | Инженер | В запасе |
| Иванов | 15.01.1990 | 11.12.2009 | муж | Среднее | Техник | В запасе |
| Федорова | 30.04.1964 | 04.11.2004 | жен | Высшее | Бухгалтер | |
| Сидоров | 24.07.1992 | 0707.2010 | муж | Начальное | Курьер | Призывник |
Инструкция пользователя
При запуске программы пользователь попадает но основное окно программы:
Если необходимо использовать уже созданную базу то необходимо использовать кнопку «Выбрать базу». После этого пользователь попадет на окно выбора создания или открытия существующей базы.
Для того что бы выбрать базу необходимо нажать на кнопку «…» и в открывшемся окне задать имя или выбрать уже существующий файл базы.
Внимание:
Если выбран режим создания БД и указывается существующий файл, то он будет перезаписан.
При этом даже если не загружать базу есть возможность создавать новые записи. По завершению работы и закрытию программы пользователю будет предложено сохранить внесенные изменения.
Управлять записями можно используя три кнопки внизу экрана. При помощи этих кнопок можно создавать. Удалять или редактировать записи.
Существует возможность выполнения определенных запросов. Для выбора нужного запроса необходимо воспользоваться выпадающим списком в верхней части экрана, после чего нажать на кнопку «Выполнить запрос». Как только программа осуществит выборку на экран будет выведена форма с результатами запроса.
график диаграмма типизированный файл
Приложение. Исходные тексты программных модулей
unitUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Grids, DBGrids, DB, DBTables;
type
TWorker=record
FIO: string[100];
StartWork : TDate;
Edication : String[100];
Spec : String[100];
sex: byte;
Armi: String[100];
BirthDay: TDate;
end;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
Button1: TButton;
Button2: TButton;
Button3: TButton;
StringGrid1: TStringGrid;
Button4: TButton;
Button5: TButton;
ComboBox1: TComboBox;
procedure Exit1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ReadData(fileName:string; new:bool);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure TableRowToWorker(index:integer; table:TStringGrid);
procedure AddRowToTable(row:TWorker; table:TStringGrid);
procedure EditTableRow(row:TWorker; table:TStringGrid);
procedure Button5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SetBase();
procedure WriteData(fileName:string; table:TStringGrid);
procedure Button3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
Worker:TWorker;
Base:String;
tableDS:TDataSet;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, DateUtils, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetBase();
end;
//выводит форму выбора файла с базой данных
procedure TForm1.SetBase();
var
i:integer;
begin
if Form2.ShowModal = mrOk then
begin
if Form2.RadioButton1.Checked then
begin
Base :=Form2.Edit1.Text;
ReadData(Base, true);
end
else
begin
Base :=Form2.Edit3.Text;
ReadData(Base, false);
end;
end;
end;
//переводит объект типа TWorker в строку таблицы
//row - новая строка типа TWorker
//table - таблица, в которую добавляется строка
procedure TForm1.AddRowToTable(row:TWorker; table:TStringGrid);
begin
table.Cells[0, table.RowCount - 1] := row.FIO;
table.Cells[1, table.RowCount - 1] := DateToStr(row.StartWork);
table.Cells[2, table.RowCount - 1] := row.Edication;
table.Cells[3, table.RowCount - 1] := row.Spec;
if row.sex = 0 then
table.Cells[4, table.RowCount - 1] := 'муж'
else
table.Cells[4, table.RowCount - 1] := 'жен';
table.Cells[5, table.RowCount - 1] := row.Armi;
table.Cells[6, table.RowCount - 1] := DateToStr(row.BirthDay);
table.RowCount := table.RowCount + 1;
end;
//Вносит изменения в отредактированную строку
//row - отредактированные данные типа TWorker
//table - таблица, в которую вносятся изменения
procedure TForm1.EditTableRow(row:TWorker; table:TStringGrid);
var
i:integer;
begin
i := table.Selection.Top;
table.Cells[0, i] := row.FIO;
table.Cells[1, i] := DateToStr(row.StartWork);
table.Cells[2, i] := row.Edication;
table.Cells[3, i] := row.Spec;
if row.sex = 0 then
table.Cells[4, i] := 'муж'
else
table.Cells[4, i] := 'жен';
table.Cells[5, i] := row.Armi;
table.Cells[6, i] := DateToStr(row.BirthDay);
end;
//Преобразует строку таблицы в TWorker
//index - номер строки
//table - таблица, в которой находятся данные
procedure TForm1.TableRowToWorker(index:integer; table:TStringGrid );
var
i:integer;
begin
i := index;
Worker.FIO := table.Cells[0, i];
Worker.StartWork := StrToDate(table.Cells[1, i]);
Worker.Edication := table.Cells[2, i];
Worker.Spec := table.Cells[3, i];
if table.Cells[4, i] = 'муж' then
Worker.sex := 0
else
Worker.sex := 1;
Worker.Armi := table.Cells[5, i];
Worker.BirthDay := StrToDate(table.Cells[6, i]);
end;
//читает данные из файла в таблицу
// fileName - имя файла и путь к нему
//new - показывает отрывается существующая база или создается новая
procedure TForm1.ReadData(fileName:string; new:bool);
var
F:File of TWorker;
size:integer;
begin
AssignFile(F,fileName);
if new then
begin
Rewrite(F);
end
else
begin
Reset(F);
Seek(F,0);
while (not EOF(F)) do
begin
Read(F,Worker);
AddRowToTable(Worker,StringGrid1);
end;
end;
CloseFile(F);
end;
//событие при нажатии кнопки создания новой записи
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.editRecord := false;
if Form3.ShowModal = mrOk then
begin
Worker := Form3.Worker;
AddRowToTable(Worker,StringGrid1);
//Worker.StartWork := Form3.Edit1;
end;
end;
//событиепринажатииредактирования
procedure TForm1.Button4Click(Sender: TObject);
begin
try
Form3.editRecord := true;
TableRowToWorker(StringGrid1.Selection.Top,StringGrid1);
Form3.Worker := Worker;
if Form3.ShowModal = mrOk then
begin
Worker := Form3.Worker;
EditTableRow(Worker, StringGrid1);
end;
except
MessageDlg('При попытки редактирования произошла ошибка',mtError,[mbOK],0);
end;
end;
//Функция удаления строки из TStringGrid
//RowNumber - номер строки
//Grid - таблица из которой происходит удаление
procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);
var
i: Integer;
begin
Grid.Row := RowNumber;
if (Grid.Row = Grid.RowCount - 1) then
{ On the last row}
Grid.RowCount := Grid.RowCount - 1
else
begin
{ Not the last row}
for i := RowNumber to Grid.RowCount - 1 do
Grid.Rows[i] := Grid.Rows[i + 1];
Grid.RowCount := Grid.RowCount - 1;
end;
end;
//Удалениестрок
procedure TForm1.Button5Click(Sender: TObject);
var
i,n,start:integer;
begin
n := StringGrid1.Selection.Bottom - StringGrid1.Selection.Top + 1;
start:= StringGrid1.Selection.Top;
ifStringGrid1.Selection.Bottom < StringGrid1.Selection.Top then
start:= StringGrid1.Selection.Bottom;
for i := 1 to n do
begin
GridDeleteRow(start + i - 1, StringGrid1);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
res:integer;
begin
if Base = '' then
begin
res := MessageDlg('Сохранитьзаписи?',mtInformation,[mbYes, mbNo],0);
if res = mrYes then
SetBase()
else
exit;
end;
WriteData(Base, StringGrid1);
end;
//записьданныхвфайлбазы
//fileName - имя и путь к файлу базы
//table - Таблицасданными
procedure TForm1.WriteData(fileName:string; table:TStringGrid);
var
F:File of TWorker;
i:integer;
begin
AssignFile(F,fileName);
Reset(F);
Seek(F,0);
for i := 1 to table.RowCount-2 do
begin
TableRowToWorker(i,StringGrid1);
Write(F,Worker);
end;
CloseFile(F);
end;
//Функция быстрой сортировки
//А - массив для сортировки
//iLo - начало массива
//iHi - конецмассива
procedure QuickSort(var A: array of TWorker; iLo, iHi: Integer);
var
Lo, Hi: Integer;
Pivot :TDate;
T: TWorker;
begin
Lo := iLo;
Hi := iHi;
Pivot := A[(Lo + Hi) div 2].BirthDay;
repeat
while A[Lo].BirthDay < Pivot do Inc(Lo) ;
while A[Hi].BirthDay > Pivot do Dec(Hi) ;
if Lo <= Hi
begin
T := A[Lo];
A[Lo] := A[Hi];
A[Hi] := T;
Inc(Lo) ;
Dec(Hi) ;
end;
until Lo > Hi;
if Hi > iLo then QuickSort(A, iLo, Hi) ;
if Lo < iHi then QuickSort(A, Lo, iHi) ;
end;
//Выполняетзапросы
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
Workers:array of TWorker;
y1,m1,d1,y2,m2,d2:Word;
MAge, WAge : real;
MStch, WStch : integer;
begin
if ComboBox1.ItemIndex = 0 then
begin
SetLength(Workers, StringGrid1.RowCount - 2);
DecodeDate(Now,y2,m2,d2);
for i := 1 to StringGrid1.RowCount - 2 do
begin
TableRowToWorker(i,StringGrid1);
DecodeDate(Worker.BirthDay,y1,m1,d1);
if (abs(y2 - y1) <= 30) and (Worker.sex = 0) then
Workers[i-1] :=Worker;
end;
Form4.FillTable(Workers);
Form4.ShowModal;
end
else
if ComboBox1.ItemIndex = 1 then
begin
DecodeDate(Now,y2,m2,d2);
MStch := 0;
WStch := 0;
for i := 1 to StringGrid1.RowCount - 2 do
begin
TableRowToWorker(i,StringGrid1);
DecodeDate(Worker.BirthDay,y1,m1,d1);
if (Worker.sex = 0) then
begin
MAge := MAge + y2 - y1;
MStch := MStch +1;
end
else
begin
WAge := WAge + y2 - y1;
WStch := WStch +1;
end;
end;
MAge := MAge / MStch;
WAge := WAge / WStch;
Form5.Label3.Caption := FloatToStrF(MAge,ffGeneral, 8, 2);
Form5.Label4.Caption := FloatToStrF(WAge,ffGeneral, 8, 2);
Form5.ShowModal;
end
else
if ComboBox1.ItemIndex = 2 then
begin
SetLength(Workers, StringGrid1.RowCount - 1);
DecodeDate(Now,y2,m2,d2);
for i := 1 to StringGrid1.RowCount - 2 do
begin
TableRowToWorker(i,StringGrid1);
DecodeDate(Worker.StartWork,y1,m1,d1);
if y2 = y1 then
Workers[i] :=Worker;
end;
if (Length(Workers) > 3) then
QuickSort(Workers,1, Length(Workers))
else
if Workers[1].BirthDay < Workers[1].BirthDay then
begin
worker :=Workers[1];
Workers[1] := Workers[2];
Workers[2] := worker;
end;
Form6.FillTable(Workers);
Form6.ShowModal;
end
else
if ComboBox1.ItemIndex = 3 then
begin
SetLength(Workers, StringGrid1.RowCount - 2);
for i := 1 to StringGrid1.RowCount - 2 do
begin
TableRowToWorker(i,StringGrid1);
Workers[i-1] :=Worker;
end;
Form7.FillTable(Workers);
Form7.ShowModal;
end
else
if ComboBox1.ItemIndex = 4 then
begin
SetLength(Workers, StringGrid1.RowCount - 2);
for i := 1 to StringGrid1.RowCount - 2 do
begin
TableRowToWorker(i,StringGrid1);
Workers[i-1] :=Worker;
end;
Form7.FillKrug(Workers);
Form7.ShowModal;
end
else
if ComboBox1.ItemIndex = 5 then
begin
SetLength(Workers, StringGrid1.RowCount - 2);
for i := 1 to StringGrid1.RowCount - 2 do
begin
TableRowToWorker(i,StringGrid1);
Workers[i-1] :=Worker;
end;
Form7.FillStolb(Workers);
Form7.ShowModal;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
StringGrid1.Cells[0,0] := 'Фамилия';
StringGrid1.Cells[1,0] := 'Принят';
StringGrid1.Cells[2,0] := 'Образование';
StringGrid1.Cells[3,0] := 'Специализация';
StringGrid1.Cells[4,0] := 'Пол';
StringGrid1.Cells[5,0] := 'Отн. кслужбе';
StringGrid1.Cells[6,0] := 'Датарождения';
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit1: TEdit;
Label1: TLabel;
Label3: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
Label1.Enabled := true;
Edit1.Enabled := true;
Edit3.Enabled := false;
Label3.Enabled := false;
Button2.Enabled := true;
Button3.Enabled := false;
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
Label1.Enabled := false;
Edit1.Enabled := false;
Button2.Enabled := false;
Edit3.Enabled := true;
Label3.Enabled := true;
Button3.Enabled := true;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
Edit1.Text := SaveDialog1.FileName+'.txt';
end
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit3.Text := OpenDialog1.FileName;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
ModalResult := mrOk;
//Close;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Unit1;
type
TForm3 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
ComboBox1: TComboBox;
Edit2: TEdit;
ComboBox2: TComboBox;
Edit3: TEdit;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ClearFields();
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Worker:TWorker;
editRecord:bool;
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.ClearFields();
begin
Edit1.Text := '';
DateTimePicker2.Date := Now;
ComboBox1.ItemIndex := 0;
Edit2.Text := '';
ComboBox2.ItemIndex := 0;
Edit3.Text := '';
DateTimePicker1.Date := Now;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Worker.FIO := Edit1.Text;
Worker.StartWork := DateTimePicker2.Date;
Worker.Edication := ComboBox1.Text;
Worker.Spec := Edit2.Text;
Worker.sex := ComboBox2.ItemIndex;
Worker.Armi := Edit3.Text;
Worker.BirthDay := DateTimePicker1.Date;
ModalResult := mrOK;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
ModalResult := mrCancel;
end;
procedure TForm3.FormShow(Sender: TObject);
begin
if not editRecord then
ClearFields
else
begin
Edit1.Text := Worker.FIO;
DateTimePicker2.Date := Worker.StartWork;
ComboBox1.Text := Worker.Edication;
Edit2.Text := Worker.Spec;
ComboBox2.ItemIndex := Worker.sex;
Edit3.Text := Worker.Armi;
DateTimePicker1.Date := Worker.BirthDay;
end;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Unit1;
type
TForm4 = class(TForm)
StringGrid1: TStringGrid;
private
{ Private declarations }
public
{ Public declarations }
procedure FillTable(Workers:array of TWorker);
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.FillTable(Workers:array of TWorker);
var
i,n:integer;
begin
n:= Length(Workers);
StringGrid1.Cells[0,0] := 'Фамилия';
StringGrid1.Cells[1,0] := 'Образование';
StringGrid1.Cells[2,0] := 'Отношение к службе';
StringGrid1.RowCount := n+1;
for i:=1 to n do
begin
StringGrid1.Cells[0,i] := Workers[i-1].FIO;
StringGrid1.Cells[1,i] := Workers[i-1].Edication;
StringGrid1.Cells[2,i] := Workers[i-1].Armi;
end;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Unit1;
type
TForm6 = class(TForm)
StringGrid1: TStringGrid;
private
{ Private declarations }
public
procedure FillTable(Workers:array of TWorker);
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.FillTable(Workers:array of TWorker);
var
i,n:integer;
begin
n:= Length(Workers);
StringGrid1.Cells[0,0] := 'Фамилия';
StringGrid1.Cells[1,0] := 'Датарожд.';
StringGrid1.RowCount := n;
for i:=1 to n-1 do
begin
StringGrid1.Cells[0,i] := Workers[i].FIO;
StringGrid1.Cells[1,i] := DateToStr(Workers[i].BirthDay);
end;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, TeeFunci, Series, ExtCtrls, TeeProcs, Chart, Unit1;
type
TForm7 = class(TForm)
Chart1: TChart;
Series1: TLineSeries;
TeeFunction1: TMultiplyTeeFunction;
Chart2: TChart;
Series3: TPieSeries;
Chart3: TChart;
Series2: TBarSeries;
private
{ Private declarations }
public
{ Public declarations }
procedure FillTable(Workers:array of TWorker);
procedure FillKrug(Workers:array of TWorker);
procedure FillStolb(Workers:array of TWorker);
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.FillTable(Workers:array of TWorker);
var
i,n:integer;
y1,m1,d1,y2,m2,d2:Word;
yars:array[0..60] of integer;
begin
//Chart1.SeriesList.Clear;
//Chart1.SeriesList.Add(Series1);
Chart1.Visible := true;
Chart2.Visible := false;
Chart3.Visible := false;
Caption := 'Образование';
Series1.Clear;
n:= Length(Workers);
DecodeDate(Now,y2,m2,d2);
for i:=1 to 60 do
yars[i-1] := 0;
for i:=1 to n do
begin
DecodeDate(Workers[i-1].BirthDay,y1,m1,d1);
if (Workers[i-1].Edication = 'Высшее') then
yars[y2-y1] := yars[y2-y1] + 5
else
if (Workers[i-1].Edication = 'Cреднеспециальное') then
yars[y2-y1] := yars[y2-y1] + 4
else
if (Workers[i-1].Edication = 'Cреднее') then
yars[y2-y1] := yars[y2-y1] + 3
else
if (Workers[i-1].Edication = 'Неполноесреднее') then
yars[y2-y1] := yars[y2-y1] + 2
else
yars[y2-y1] := yars[y2-y1] + 1;
end;
for i:=1 to 60 do
Series1.AddXY(i,yars[i-1]);
end;
procedure TForm7.FillKrug(Workers:array of TWorker);
var
i,n : integer;
y1,m1,d1,y2,m2,d2 : Word;
stch1,stch2,stch3 : integer;
begin
//Chart1.SeriesList.Clear;
//Chart1.SeriesList.Clear;
//Chart1.SeriesList.Add(Series2);
Chart1.Visible := false;
Chart2.Visible := true;
Chart3.Visible := false;
Caption := 'Возрастноесоотношение';
Series3.Clear;
stch1 := 0;
stch2 := 0;
stch3 := 0;
n:= Length(Workers);
DecodeDate(Now,y2,m2,d2);
for i:=1 to n do
begin
DecodeDate(Workers[i-1].BirthDay,y1,m1,d1);
if (y2-y1 <= 30) then
Inc(stch1)
else
if (y2-y1 <= 50) then
Inc(stch2)
else
Inc(stch3);
end;
//Series2.Add(50);
Series3.Add(stch1);
Series3.Add(stch2);
Series3.Add(stch3);
end;
procedure TForm7.FillStolb(Workers:array of TWorker);
var
i,n : integer;
stch1,stch2,stch3,stch4,stch5 : integer;
begin
Chart1.Visible := false;
Chart2.Visible := false;
Chart3.Visible := true;
Caption := 'Образованиесотрудников';
Series2.Clear;
stch1 := 0;
stch2 := 0;
stch3 := 0;
stch4 := 0;
stch5 := 0;
n:= Length(Workers);
for i:=1 to n do
begin
if (Workers[i-1].Edication = 'Высшее') then
Inc(stch1)
else
if (Workers[i-1].Edication = 'Cреднеспециальное') then
Inc(stch2)
else
if (Workers[i-1].Edication = 'Cреднее') then
Inc(stch3)
else
if (Workers[i-1].Edication = 'Неполноесреднее') then
Inc(stch4)
else
Inc(stch5);
end;
Series2.Add(stch1);
Series2.Add(stch2);
Series2.Add(stch3);
Series2.Add(stch4);
Series2.Add(stch5);
end;
end.