Программное обеспечение Центра занятости населения

Размещено на http://www.allbest.ru/

Содержание

• Введение
• 1. Системный анализ предметной области проектируемой базы данных
• 1.1 Характеристика предметной области
• 1.2 Экономическая сущность комплекса экономических информационных задач
• 1.3 Обособление проектных решений по программному обеспечению комплекса задач
• 2. Разработка информационной системы
• 2.1 Описание структуры базы данных
• 2.2 Технологическое обеспечение
• 2.3 Внешний вид программы
• 2.4 Описание работы программы
• Заключение
• список литературы

Введение

Курсовой проект преследует цель оценить уровень подготовки студентов по общепрофессиональным и специальным дисциплинам, полученные ими теоретические знания, приобретенные навыки самостоятельной работы, умение синтезировать полученные знания и применять их к решению практических задач.

Выполнение КП является одним из завершающих и наиболее значимым этапом обучения студентов по дисциплине «Разработка и эксплуатация автоматизированных информационных систем». Его конечным результатом является представление и защита оформленной соответствующим образом работы, в которой отражается содержание изучаемой дисциплины и качество подготовки специалистов этого направления.

Конечной целью КП является выявление уровня подготовки студента, степени готовности его к усвоению профессиональных знаний.

Основными задачами выполнения КП является:

выявление понимания студентом основных проблем и перспектив развития технологии проектирования автоматизированных информационных систем;

выявление понимания студентом значимости своей будущей профессиональной деятельности, умения приобретать новые знания, особенно в области современных информационных технологий;

выявление умения работать с технической и нормативной документацией, а также четко излагать свои мысли;

выявление навыков решать поставленные практические задачи с использованием теоретических знаний.

Целью данного курсового проекта является проектирование модели информационной системы и создание приложения по обработке информации на тему «Программное обеспечение Центра занятости населения» (далее ЦЗН).

1. Системный анализ предметной области проектируемой базы данных

1.1 Характеристика предметной области

программный обеспечение база данные

Представим предметную область «Программное обеспечение ЦЗН» как взаимодействие следующих сущностей: в Центре Занятости Населения используется единицы «Программного обеспечения». «Работники» пользуются этим «Программным обеспечением».

На основании исследования предметной области выделим следующие сущности модели «сущность-связь» («Entity Relationship» - ER-модели): «ПО», «Работники».

Следует отметить, что для каждого элемента сущности устанавливается свой личный номер - ключевой атрибут, однозначно характеризующий его.

Представим сущности в виде таблиц:

ПО
Идентификатор
Название
Описание
Цена
Разработчик
Дата покупки лицензии
Дата окончания срока действия лицензии

Работники
Идентификатор
Ф.И.О.
Должность
Отдел
Используемое ПО

Определение сущности «Работники» в модели ER

Между выделенными сущностями можно выделить следующую связь:

«Работник» может работать в одной из единиц «ПО» (связь 1:1).

Показана версия полной ER-модели для базы данных ЦЗН.

Рис. 1.1 - Моделирование связей между сущностями предметной области.

1.2 Экономическая сущность комплекса экономических информационных задач

Необходимо построить базу данных, содержащую информацию о ПО, используемом в ЦЗН.

В результате анализа предметной области выявляются документы - источники данных для создания базы данных.

Документы справочной информации. Справочная информация содержится в документах «Список работников ЦЗН», «Список ПО».

Документы учетной информации. Учетная информация содержится в нормативных документах ЦЗН.

Отметим, что документы предметной области не только дают возможность выявить структуру данных, но и являются основой для разработки форм ввода/вывода, отчетов для печати документов.

Построим диаграмму для нашего проекта по стандарту IDEF0.

Рис. 1.2 - Диаграмма IDEF0.

Сделаем декомпозицию основного процесса на диаграмме:



Рис. 1.3 - Декомпозиция главного блока диаграммы.

1.3 Обособление проектных решений по программному обеспечению комплекса задач

Все языки манипулирования данными (ЯМД), созданные до появления реляционных баз данных и разработанные для многих систем управления базами данных (СУБД) персональных компьютеров, были ориентированы на операции с данными, представленными в виде логических записей файлов. Это требовало от пользователей детального знания организации хранения данных и достаточных усилий для указания не только того, какие данные нужны, но и того, где они размещены и как шаг за шагом получить их.

SQLite -- легковесная встраиваемая реляционная база данных. Она прекрасно подойдёт для реализации поставленной задачи.

Слово «встраиваемый» означает, что SQLite не использует парадигму клиент-сервер, то есть движок SQLite не является отдельно работающим процессом, с которым взаимодействует программа, а предоставляет библиотеку, с которой программа компонуется и движок становится составной частью программы. Таким образом, в качестве протокола обмена используются вызовы функций (API) библиотеки SQLite. Такой подход уменьшает накладные расходы, время отклика и упрощает программу. SQLite хранит всю базу данных (включая определения, таблицы, индексы и данные) в единственном стандартном файле на том компьютере, на котором исполняется программа. Простота реализации достигается за счёт того, что перед началом исполнения транзакции записи весь файл, хранящий базу данных, блокируется; ACID-функции достигаются в том числе за счёт создания файла журнала.

Несколько процессов или потоков могут одновременно без каких-либо проблем читать данные из одной базы. Запись в базу можно осуществить только в том случае, если никаких других запросов в данный момент не обслуживается; в противном случае попытка записи оканчивается неудачей, и в программу возвращается код ошибки. Другим вариантом развития событий является автоматическое повторение попыток записи в течение заданного интервала времени.

Исходный код библиотеки SQLite передан в общественное достояние. В 2005 году проект получил награду Google-O'Reilly Open Source Awards.

Система управления базами данных предоставляет вам возможность контролировать задание структуры и описание своих данных, работу с ними и организацию коллективного пользования этой информацией. СУБД также существенно увеличивает возможности и облегчает каталогизацию и ведение больших объемов хранящейся в многочисленных таблицах информации. СУБД включает в себя три основных типа функций: определение (задание структуры и описание) данных, обработка данных и управление данными.

Для реализации функций СУБД в нашем проекте воспользуемся интегрированной средой разработки Borland Delphi 7, использующая язык программирования Delphi (ранее носивший название Object Pascal), созданная первоначально фирмой Borland и на данный момент принадлежащая и разрабатываемая Embarcadero Technologies.

Так как в модуле SQLite, подключаемом к Delphi, редактора баз не имеется, мы будем использовать сторонний программный продукт, менеджер по управлению базами данных SQlite3 под названием SQLite Developer. Он содержит эффективные инструменты управления данными.

2. Разработка информационной системы

2.1 Описание структуры базы данных

Реляционная схема базы данных для ЦЗН представлена следующими таблицами:

«ПО» - содержит список единиц программного обеспечения с дополнительными атрибутами;

«Работники» - содержит список работников ЦЗН, работающих с ПО.

Все таблицы базы данных ЦЗН находятся в третьей нормальной форме:

каждый столбец таблицы неделим, и в рамках одной таблицы нет столбцов с одинаковыми по смыслу значениями (1НФ);

первичные ключи однозначно определяют запись и неизбыточны, все поля каждой из таблиц зависят от ее первичного ключа (2НФ);

значение любого поля, не входящего в первичный ключ, не зависит от значения другого поля, тоже не входящего в первичный ключ (3НФ).

Таблицы базы данных (после каждой таблицы код её генерации):

Table po

Fields

Field	Data Type	PK	Not Null	Unique	Default	Collate	Check
id	integer	Y	Y	Y
name	varchar(250)
desc	varchar(1000)
price	float
dev	varchar(100)
datebuy	datetime
dateend	datetime

Definition:

CREATE TABLE [po](

[id] integer PRIMARY KEY AUTOINCREMENT UNIQUE NOT NULL

,[name] varchar(250)

,[desc] varchar(1000)

,[price] float

,[dev] varchar(100)

,[datebuy] datetime

,[dateend] datetime

)

Table sotr

Fields

Field	Data Type	PK	Not Null	Unique	Default	Collate	Check
id	integer	Y	Y	Y
fio	varchar(250)
dolj	varchar(250)
otd	varchar(250)
idpo	integer

Definition:

CREATE TABLE [sotr](

[id] integer PRIMARY KEY AUTOINCREMENT UNIQUE NOT NULL

,[fio] varchar(250)

,[dolj] varchar(250)

,[otd] varchar(250)

,[idpo] integer

)

Таким образом, мы уже имеем схему базы данных ЦЗН, которую получили, воспользовавшись общими правилами перехода к реляционной модели данных. Она является корректной, поскольку в ней уже отсутствуют нежелательные отношения. Теперь необходимо решить вопрос о том, какую СУБД будем использовать и, затем, описать концептуальную схему в терминах выбранной СУБД. Необходимо также произвести описание внешних моделей в терминах выбранной СУБД.

2.2 Технологическое обеспечение

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

Для работы с программным продуктом используется простой, интуитивно понятный интерфейс. Последовательность работы с объектами формы определяется доступностью командных кнопок, целостность данных определяется набором используемых в программе проверок.

Как упоминалось в разделе 1.3, для управления базой данных будет использована программа, разработанная в среде разработки Delphi 7. Это удобно тем, что разработчик сам решает какие функции СУБД упростить или улучшить, а так же даёт полную свободу действий в создании графического интерфейса, что положительно сказывается на освоении программы непрофессионалами.



Рис. 2.1 - Внешний вид среды разработки Delphi 7.

Несмотря на то, что форматом базы данных в данном проекте является база данных SQLite, разработчик драйвера сей БД позаботился о реализации компонента для среды разработки Delphi 7. Благодаря этому при разработке приложения в Delphi достаточно подключить компонент SQLite3.pas, после чего можно будет использовать весь его функционал. Все функции, процедуры и типы данных компонента описаны в официальной документации.

Рассмотрим саму программу для управления базой данных проекта.

2.3 Внешний вид программы

В процессе разработки интерфейса уделялось большое внимание его упрощению для того, чтобы пользователь с минимальными знаниями и навыками в работе с компьютером мог без особого труда пользоваться СУБД.

Ниже приведён внешний вид программы:



Рис. 2.2 - Внешний вид программы

Для экономии рабочего места было решено вынести некоторые функции на дочерние формы. Доступ к ним осуществляется через ниспадающее меню. Ниже приведён их внешний вид:

Рис. 2.3 - Ниспадающее меню для доступа к дочерним формам.



Рис. 2.4 -- Форма «Справочник: ПО».

Рис. 2.5 -- Форма «Справочник: Пользователи».



Рис. 2.6 -- Форма генерации отчёта.

2.4 Описание работы программы

Кнопки на формах выполняют базовые функции редактирования и просмотра данных. Основной рабочий компонент, который выводит все данные из БД в окно программы, носит название StringGrid.

Этот элемент позволяет вывести данные, но к самой базе данных подключается компонент SQLite3.pas, использующий собственный драйвер из библиотеки SQLite3.dll. Как было указано ранее, компонент для Delphi 7 и драйвер к компоненту поставляются напрямую от разработчика SQLite.

Приложение взаимодействуют с компонентом SQLite3 и выполняет различные запрограммированные запросы к БД на языке SQL. Ниже приведён код некоторых процедур, выполняемых в приложении.

Подготовка Stringgrid и подключение к базе данных (выполняется при загрузке формы)

procedure TfrmMain.FormCreate(Sender: TObject);

begin

strngrd.ColCount:=4;

strngrd.Cells[0,0]:='№';

strngrd.Cells[1,0]:='Ф.И.О.';

strngrd.Cells[2,0]:='Должность';

strngrd.Cells[3,0]:='Отдел';

strngrd.ColWidths[0]:=30;

strngrd.ColWidths[1]:=200;

strngrd.ColWidths[2]:=250;

strngrd.ColWidths[3]:=230;

sldb := TSQLiteDatabase.Create('czn.db');

try

if not sldb.TableExists('po') then

begin

ShowMessage('База данных повреждена. Для решения проблемы обратитесь к администратору.');

Application.Terminate;

end;

except

ShowMessage('При подключении к базе произошла ошибка.');

Application.Terminate;

exit;

end;

UpdatePO;

end;

Для экономии места, а так же для улучшения читаемости исходного кода, его фрагмент вынесен в процедуру UpdatePo, которая обновляет список единиц ПО.

procedure TfrmMain.UpdatePO();

var

sltb:TSQLiteTable;

begin

sltb := sldb.GetTable('SELECT name FROM po');

try

cbbBezRab.Clear;

while not sltb.EOF do

begin

cbbBezRab.AddItem(UTF8Decode(sltb.FieldAsString(0)),self);

sltb.Next;

end;

finally

sltb.Free;

end;

end;

В дочерних модулях программы так же содержатся подобные процедуры. Вот пример некоторых из них:

procedure TfrmGr.UpdateTable();

var

sltb,sltb2:TSQLiteTable;

i:integer;

begin

for i:=strngrd.FixedRows to strngrd.RowCount-1 do

strngrd.Rows[i].Clear;

sltb := sldb.GetTable('SELECT * FROM po');

try

strngrd.RowCount := sltb.Count+1;

strngrd.ColCount := sltb.ColCount;

i := strngrd.FixedRows;

while not sltb.EOF do

begin

strngrd.Cells[0,i] := UTF8Decode(sltb.FieldAsString(0));

strngrd.Cells[1,i] := UTF8Decode(sltb.FieldAsString(1));

strngrd.Cells[2,i] := UTF8Decode(sltb.FieldAsString(2));

strngrd.Cells[3,i] := UTF8Decode(sltb.FieldAsString(3));

strngrd.Cells[4,i] := UTF8Decode(sltb.FieldAsString(4));

strngrd.Cells[5,i] := UTF8Decode(sltb.FieldAsString(5));

strngrd.Cells[6,i] := UTF8Decode(sltb.FieldAsString(6));

sltb.Next;

i:=i+1;

end;

finally

sltb.Free;

end;

end;

procedure TfrmDol.UpdateTable();

var

sltb,sltb2:TSQLiteTable;

i:integer;

begin

for i:=strngrd.FixedRows to strngrd.RowCount-1 do

strngrd.Rows[i].Clear;

sltb := sldb.GetTable('SELECT * FROM sotr');

try

strngrd.RowCount := sltb.Count+1;

strngrd.ColCount := sltb.ColCount;

i := strngrd.FixedRows;

while not sltb.EOF do

begin

strngrd.Cells[0,i] := UTF8Decode(sltb.FieldAsString(0));

strngrd.Cells[1,i] := UTF8Decode(sltb.FieldAsString(1));

strngrd.Cells[2,i] := UTF8Decode(sltb.FieldAsString(2));

strngrd.Cells[3,i] := UTF8Decode(sltb.FieldAsString(3));

sltb2:=sldb.GetTable('SELECT name FROM po WHERE id='+UTF8Decode(sltb.FieldAsString(4)));

strngrd.Cells[4,i]:= UTF8Decode(sltb2.FieldAsString(0));

sltb2.Free;

sltb.Next;

i:=i+1;

end;

finally

sltb.Free;

end;

UpdateOrg;

end;

procedure TfrmDol.UpdateOrg();

var

sltb:TSQLiteTable;

begin

sltb := sldb.GetTable('SELECT name FROM po');

try

cbbEdPo.Clear;

while not sltb.EOF do

begin

cbbEdPo.AddItem(UTF8Decode(sltb.FieldAsString(0)),Self);

sltb.Next;

end;

finally

sltb.Free;

end;

end;

При навигации между формами требуется защита от ошибок, вызванных случайными неверными действиями пользователя. Для этого в процедурах вызова дочерних форм будем использовать значение свойства родительской формы Enabled равное False. Родительская форма станет неактивной и пользователь не сможет внести в неё изменения, не закончив работу с дочерней. Пример такой процедуры ниже:

procedure TfrmMain.N3Click(Sender: TObject);

begin

frmOrg.show;

frmMain.Enabled:=false;

end;

Очень важными являются функции СУБД. Запросы, вносящие изменения в базу данных, реализованы с помощью метода ExecSQL, применяемого к уже загруженной в память базе данных типа TSQLiteDatabase с выполненным подключением. Применяемый метод позволяет выполнить SQL запрос и отследить результат его выполнения (успешный или с ошибкой). Ниже приведены примеры использования таких конструкций на кнопках редактирования в форме редактора.

//Добавление:

procedure TfrmGr.btnAddClick(Sender: TObject);

begin

sldb.ExecSQL('INSERT INTO po (name,desc,price,dev,datebuy,dateend) VALUES ("'+AnsiToUtf8(edtName.text)+

'","'+AnsiToUtf8(edtDesc.text)+

'","'+AnsiToUtf8(edtPrice.text)+

'","'+AnsiToUtf8(edtDev.text)+

'","'+AnsiToUtf8(edtBuy.text)+

'","'+AnsiToUtf8(edtEnd.text)+

'")');

edtName.Text:='';

edtDesc.Text:='';

edtPrice.Text:='';

edtDev.Text:='';

edtBuy.Text:='';

edtEnd.Text:='';

ShowMessage('Готово!');

UpdateTable;

end;

//Внесение изменений:

procedure TfrmGr.btnSaveClick(Sender: TObject);

begin

if idn='' then

ShowMessage('Сначала выберете запись!')

else

begin

sldb.ExecSQL('UPDATE po SET name="'+AnsiToUtf8(edtName.text)+

'", desc="'+AnsiToUtf8(edtDesc.text)+

'", price="'+AnsiToUtf8(edtPrice.text)+

'", dev="'+AnsiToUtf8(edtDev.text)+

'", datebuy="'+AnsiToUtf8(edtBuy.text)+

'", dateend="'+AnsiToUtf8(edtEnd.text)+

'" WHERE id='+idn);

UpdateTable;

end;

end;

//Удаление:

procedure TfrmGr.btnDelClick(Sender: TObject);

begin

if idn='' then

ShowMessage('Сначала выберете запись!')

else

begin

sldb.ExecSQL('DELETE FROM po WHERE id='+idn);

UpdateTable;

end;

end;

Помимо основных форм для вывода используются отчёты.

Отчеты представляют собой наилучшее средство представления информации из базы данных в виде печатного документа. По сравнению с другими методами вывода данных на печать отчеты обладают двумя принципиальными преимуществами:

* отчеты предоставляют широкие возможности для группировки и вычисления промежуточных и общих итогов для больших наборов данных;

* отчеты могут быть использованы для получения красиво оформленных материалов, наклеек и других документов.

Для формирования отчётов в нашей программе есть отдельная форма. Она позволяет сформировать требуемый отчёт и потом распечатать его (или вывести в файл). Для формирования отчёта и вывода будет использоваться встроенный компонент среды Delphi 7 под названием Printers.pas. С помощью этого компонента мы можем использовать принтер, установленный в системе, что бы вывести отчёт. Если физического принтера в системе не установлено, или по умолчанию выбран виртуальный принтер, отчёт выведется в файл.

Ниже приведена процедура печати отчёта:

procedure PrintGrid(sGrid: TStringGrid; sTitle: string);

var

X1, X2: Integer;

Y1, Y2: Integer;

TmpI: Integer;

F: Integer;

TR: TRect;

begin

Printer.Title := sTitle;

Printer.BeginDoc;

Printer.Canvas.Pen.Color := 0;

Printer.Canvas.Font.Name := 'Times New Roman';

Printer.Canvas.Font.Size := 12;

Printer.Canvas.Font.Style := [fsBold, fsUnderline];

Printer.Canvas.TextOut(0, 100, Printer.Title);

for F := 1 to sGrid.ColCount - 1 do

begin

X1 := 0;

for TmpI := 1 to (F - 1) do

X1 := X1 + 5 * (sGrid.ColWidths[TmpI]);

Y1 := 300;

X2 := 0;

for TmpI := 1 to F do

X2 := X2 + 5 * (sGrid.ColWidths[TmpI]);

Y2 := 450;

TR := Rect(X1, Y1, X2 - 30, Y2);

Printer.Canvas.Font.Style := [fsBold];

Printer.Canvas.Font.Size := 7;

Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]);

Printer.Canvas.Font.Style := [];

for TmpI := 1 to sGrid.RowCount - 1 do

begin

Y1 := 150 * TmpI + 300;

Y2 := 150 * (TmpI + 1) + 300;

TR := Rect(X1, Y1, X2 - 30, Y2);

Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]);

end;

end;

Printer.EndDoc;

end;При выводе отчёта в файл он выглядит следующим образом:

Заключение

Использование данной автоматизированной системы электронного документооборота в реальных условиях приведет к улучшению ряда экономических показателей:

- улучшение значений показателей качества обработки информации (повышение степени достоверности обработки информации, степени ее защищенности, повышение степени автоматизации получения первичной информации);

- уменьшение времени, затраченного на обработку данных людьми.

К составляющим эффективность при использовании данной системы электронного документооборота можно отнести также следующее:

- во всех подразделениях и в организации в целом вводится унифицированная, формализованная и строго регламентированная технология делопроизводства;

- организация становится полностью управляемой. Появляется возможность ответить на любой вопрос по документам и исполнителям, осуществлять анализ и управление документационной деятельностью;

- система автоматизации делопроизводства, по сути, является носителем строго формализованной и документированной технологической информации о правилах и порядке работы с документами. В результате уменьшается зависимость организации от персонала как физического носителя технологических знаний и правил работы с документами.

- создаются условия для резкого ускорения прохождения документов по организации, особенно при организации электронного документооборота.

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

- качественный выигрыш достигается организации взаимоувязанного электронного документооборота между организациями, поскольку полностью отпадают проблемы, связанные изготовлением и пересылкой бумажных документов, а затем - в повторном вводе реквизитов текстов полученных документов.

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

Список литературы

А. Хомоненко и др. Delphi 7. - СПб.: БХВ-Петербург, 2004г.

С. И. Бобровский. Delphi 7. Учебный курс. - СПб.: Питер, 2003г.

В.В. Фаронов. Программирование баз данных в Delphi 7. Учебный курс. - СПб.: Питер, 2004г.

А.В. Понамарев. Самоучитель Delphi 7 Studio. - СПб.: БХВ-Петербург, 2004г.

С.В. Маклаков. BpWin и ErWin. Case-средства разработки информационных систем. - М.: Диалог-МИФИ, 1999г.

Мартин Грубер. Понимание SQL. - М.: Apress, 2002г.

В.А. Благодатских и др. Экономика, разработка и использование программного обеспечения ЭВМ. - М.: Финансы и статистика, 1995г.

Размещено на Allbest.ru