Разработка программного комплекса (стр. 1 из 2)
Содержание
Задание на разработку программного комплекса
Функциональная структура приложения
Спецификация программного комплекса
Структурная диаграмма программного комплекса
Данные для тестирования
Приложение
Задание на разработку программного комплекса
Разработать информационную подсистему отдела кадров.
Информация, обрабатываемая в подсистеме, должна храниться в текстовом или типизированном файлах.
Данные, которые должны быть отражены в подсистеме: фамилия, месяц и год приема на работу, образование, специальность, пол, отношение к воинской службе, год рождения.
Сведения о сотрудниках пополняются по мере приема на работу.
В системе должны решаться следующие задачи:
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 - таблица из которой происходит удаление