Проектирование информационной системы «Отдел кадров»

Delphi - это комбинация нескольких важнейших технологий:

• Высокопроизводительный компилятор в машинный код
• Объектно-ориентированная модель компонент
• Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов
• Масштабируемые средства для построения баз данных

Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре “клиент-сервер». Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения (4GL) и в тоже время обеспечивает качество кода, характерного для компилятора 3GL. Кроме того, Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно).

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

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

Основной упор в Delphi делается на максимальном реиспользовании кода. Это позволяет разработчикам строить приложения весьма быстро из заранее подготовленных объектов, а также дает им возможность создавать свои собственные объекты для среды Delphi. Никаких ограничений по типам объектов, которые могут создавать разработчики, не существует. Действительно, все в Delphi написано на нем же, поэтому разработчики имеют доступ к тем же объектам и инструментам, которые использовались для создания среды разработки. В результате нет никакой разницы между объектами, поставляемыми Borland или третьими фирмами, и объектами, которые вы можете создать. В стандартную поставку Delphi входят основные объекты, которые образуют удачно подобранную иерархию из 270 базовых классов. На Delphi можно одинаково хорошо писать как приложения к корпоративным базам данных, так и, к примеру, игровые программы. Во многом это объясняется тем, что традиционно в среде Windows было достаточно сложно реализовывать пользовательский интерфейс. Событийная модель в Windows всегда была сложна для понимания и отладки. Но именно разработка интерфейса в Delphi является самой простой задачей для программиста.

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

Для разработки информационной системы мы использовали интегрированную  среду разработки Borland Delphi 7. Эта среда представляет богатые возможности для разработки приложений Win32, обеспечивает дружественный интерфейс пользователя для приложений. Основное окно программы изображено на рисунке.

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

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

Алгоритм работы программы можно представить в виде диаграммы последовательности:

 

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

     

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

• ОС MS Windows 9x/NT/XP/Vista
• 3 Mb на жестком диске

 

2.2 Описание процедур  «Отдел Кадров»

 

Диаграмма активности

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

 

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

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

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

 

 

 

 

 

 

 

 

 

 

 

Список использованных источников

 

1 Архангельский А.Я. Программирование в Delphi 7. – М.: Бином – Пресс, 2003. –  1152 с.

2 Буч Г., Джекобсон  И., Рамбо Дж. UML: Руководство пользователя / Пер. с англ. – М.: ДМК, 2006. – 885 c.

3 Диго С.М. Базы данных: проектирование и использование. Учебное пособие для вузов. – Москва.: Финансы и статистика, 2005. – 250 c.

4 Дунаев С. В. Доступ к базам данных и техника работы в сети. Практические приемы современного программирования – М.: Диалог – МИФИ, 2010. – 416 с.

5 Гофман В., Хомоненко А.: Delphi 6 в подлиннике. – М.: Бином, 2009. – 420 c.

6 Канту, М. Delphi7: Для профессионалов. – М.: Канту, 2004. – 1101с.

7 Кузин А.В., Демин В.М. Разработка баз данных в системе Microsoft Access. – М.: Омега-Л, 2005. – 600с.

8 Пестриков В. М., Маслобоев А. Н.: Delphi на примерах/В.М. Пестриков, А.Н. Маслобоев. – СПб.:БХВ – Петерберг, 2005. – 596 с.

9 Работа с базами данных в Delphi: Метод. указ./Сост. А.В. Степанов, Ю.А. Степанов. – Новокузнецк.: ГОУВПО СибГИУ, 2011. – 240 c.

     10 Архангельский А.Я. Программирование в Delphi для Windows: Версии 2006, 2007, Turbo Delphi, 2007 г.

    11Молочков В.П., Карпинский В.Б. От Delphi 7 к Delphi 2006 для начинающих, 2007 г.

    12Тюкачев Н.А., Рыбак К.С., Михайлова Е.Е. Программирование в Delphi для начинающих, 2007 г.

    13 Рубенкинг Н.Дж. Delphi для "чайников", 2007 г.

 

 

 

Приложение

Unit1

my_class_methods;             //модуль с методами класса

interface

uses

  SysUtils, Dialogs;

  type

  RDannue=record                   //переменная типа запись с полями фамилия, имя , отчество, должность,

      familia: string[20];         //паспортные данные, заработная плата, дополнительная информация

      name: string[15];

      surname: string[30];

      dolzhnost:string[255];

      info: string[255];

      pasport:integer;

      zarplata:integer;

  end;

  //описания класса  методов для

  //автоматизированной  работы отдела кадров

  TDannue = class

    public

       otdelkadrov : array[0..100] of RDannue;  // массив записей

       kol_vo:integer;                         // количество записей

       number: integer;                        //номер текущей строки

 

 

      constructor Create;                 //конструктор класса

 

                                          //метод для добав-

                                          //ления записи

      procedure Dannue_add(familia, name, surname, dolzhnost, info: string; pasport,

                            zarplata : integer);

                                          //удаляет запись

      procedure Del_Dannue (number : integer);

                                          //сохраняет базу

                                          //в файл

      procedure Save (filename : string);

                                          //загружает базу

                                          //из файла

      procedure Load (filename : string);

      procedure Sort;                      //сортировка по алфавиту

            procedure Sorted;                   //сортировка против алфавита

      procedure Dannue_update(number: integer;familia, name, surname, dolzhnost, info : string; pasport,

zarplata : integer);

  end;

implementation

constructor TDannue.Create;         //конструктор для

begin                             //класса TDannue

  inherited Create;               //вызов родительского

                                  //конструктора

  Kol_vo := 1;                    // количество записей =1

end;

procedure TDannue.Sort();       // сортировка по алфавиту(выборкой)

var

  i, j : integer;

  k : integer;

  m : RDannue;

begin

  for i := 1 to (kol_vo - 2) do

    for j := (i + 1) to (kol_vo - 1) do

      begin

        k := i;

     if (otdelkadrov[j].familia[1]<otdelkadrov[k].familia[1]) and (otdelkadrov[j].familia[1] <> '') then

          k := j;

        m := otdelkadrov[i];

        otdelkadrov[i] := otdelkadrov[k];

        otdelkadrov[k] := m;

      end;

end;

procedure TDannue.Dannue_add(familia, name, surname, dolzhnost, info : string; pasport, zarplata : integer);

begin                             //процедура для добавления

                                  //записи

   otdelkadrov[kol_vo].name:= name;

   otdelkadrov[kol_vo].familia := familia;

   otdelkadrov[kol_vo].surname := surname;

   otdelkadrov[kol_vo].dolzhnost := dolzhnost;

   otdelkadrov[kol_vo].info := info;

   otdelkadrov[kol_vo].pasport := pasport;

   otdelkadrov[kol_vo].zarplata := zarplata;

  inc (kol_vo);

end;

procedure TDannue.Dannue_update(number: integer;familia, name, surname, dolzhnost, info : string;

pasport, zarplata : integer);

begin                             //процедура для добавления

                                  //записи

   otdelkadrov[number].name:= name;

   otdelkadrov[number].familia := familia;

   otdelkadrov[number].surname := surname;

   otdelkadrov[number].dolzhnost := dolzhnost;

   otdelkadrov[number].info := info;

   otdelkadrov[number].pasport := pasport;

   otdelkadrov[number].zarplata := zarplata;

end;

procedure TDannue.Del_Dannue(number : integer); // процедура удаления записи из  базы

var

  i : integer;

begin

  dec (number);

  for i := number to (kol_vo - 1) do

    otdelkadrov[i] := otdelkadrov[i+1];

    kol_vo := kol_vo - 1;

end;

procedure TDannue.Save(filename : string);   // процедура сохранения базы в  типизированный файл *.bas

var

  data_file : file of RDannue;

  i : integer;

begin

    if pos ('.bas', filename) = 0 then

    filename := filename + '.bas';

  assignfile (data_file, filename);

  rewrite (data_file);

  for i := 1 to kol_vo do

    write (data_file, otdelkadrov[i]);

  closefile (data_file);

end;

procedure TDannue.Sorted();                 //процедура сортировки данных против алфавита(выборкой)

var

  i, j : integer;

  k : integer;

  m : RDannue;

begin

  for i := 1 to (kol_vo - 2) do

    for j := (i + 1) to (kol_vo - 1) do

      begin

        k := i;

        if otdelkadrov[j].familia[1] > otdelkadrov[k].familia[1] then

          k := j;

        m := otdelkadrov[i];

        otdelkadrov[i] := otdelkadrov[k];

        otdelkadrov[k] := m;

      end;

end;

procedure TDannue.Load(filename : string);   //процедура открытия файла

var

  data_file : file of RDannue;