Разработка базы данных «Увольнение сотрудника»

 

Для создания клиентского приложения будем использовать встроенные инструменты для работы с данными (в Delphi 7 вкладка Data Controls). Процесс общения пользователя с программой должен быть простым и понятным, чтобы практически любого ранга пользователь мог моментально освоиться без каких-либо дополнительных пояснений.

Работа  начинается с главного окна программы, где будут приведены существующие базы данных (рис. 8)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Рис. 8. главное окно программы

 

3. Разработка меню программы

 

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

В меню программы  имеются две вкладки: «Работа с таблицами» и «Помощь». Из вкладки «Работа с таблицами» можно переходить на нужную таблицу. Вкладка «Помощь» содержит справку о программе и помощь.

4. Разработка таблиц

 

При нажатии  на кнопки в главном окне, будут открываться соответствующие таблицы: «Сотрудники», «Документы», «Статья увольнения».

Таблица «Сотрудники» содержит список всех сотрудников. Заполнение осуществляется с помощью соответствующих полей внизу слева, либо непосредственно в самой таблице (рис. 9)

 

 

 

 

 

 

 

 

 

 

 

 

Рис. 9. Таблица  «Сотрудники»

 

Для работы с таблицей созданы кнопки:

                      - перейти в начало/конец таблицы

                      - переход  на строку выше/ниже

                      - добавление/удаление записи

                      - подтвердить/отменить изменения

                      - отменить действие

В таблице  можно осуществлять фильтрацию данных с помощью кнопок: «Фильтр по фамилии», «Фильтр по подразделению», «Фильтр  по должности», «Снять фильтры».

Таблицы «Документы»  и «Статья увольнения» работают аналогично (рис. 10 и 11).

Рис. 10. Таблица  «Документы»

 

 

 

 

 

 

 

 

 

 

 

Рис. 11. Таблица  «Статья увольнения»

 

6. Листинг программы

program Project1;

uses

  Forms,

  Unit1 in 'Unit1.pas' {MainForm},

  Unit2 in 'Unit2.pas' {DM: TDataModule},

  Unit3 in 'Unit3.pas' {FormSotrudnic},

  Unit4 in 'Unit4.pas' {FormStatUvolnenia},

  Unit5 in 'Unit5.pas' {FormDocument},

{$R *.res}

begin

  Application.Initialize;

  Application.CreateForm(TMainForm, MainForm);

  Application.CreateForm(TDM, DM);

  Application.CreateForm(TFormSotrudnic, FormSotrudnic);

  Application.CreateForm(TFormStatUvolnenia, FormStatUvolnenia);

  Application.CreateForm(TFormDocument, FormDocument);

  Application.CreateForm(TFormProcedure, FormProcedure);

  Application.CreateForm(TForm7, Form7);

  Application.Run;

end.

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, Unit2, Unit3, Unit4,  Unit5, Unit6, ExtCtrls, StdCtrls;

type

  TMainForm = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    Label1: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.N2Click(Sender: TObject);

begin

DM.ADOSotrudnic.Open;

FormSotrudnic:=TFormSotrudnic.Create(Application);

FormSotrudnic.Show;

end;

procedure TMainForm.N3Click(Sender: TObject);

begin

DM.ADODocument.Open;

FormDocument:=TFormDocument.Create(Application);

FormDocument.Show;

end;

procedure TMainForm.N4Click(Sender: TObject);

begin

DM.ADOStatUvolnenia.Open;

FormStatUvolnenia:=TFormStatUvolnenia.Create(Application);

FormStatUvolnenia.Show;

end;

procedure TMainForm.N5Click(Sender: TObject);

begin

FormStatUvolnenia:=TFormStatUvolnenia.Create(Application);

FormStatUvolnenia.Show;

end;

procedure TMainForm.Button1Click(Sender: TObject);

begin

DM.ADOSotrudnic.Open;

FormSotrudnic:=TFormSotrudnic.Create(Application);

FormSotrudnic.Show;

end;

procedure TMainForm.Button2Click(Sender: TObject);

begin

DM.ADODocument.Open;

FormDocument:=TFormDocument.Create(Application);

FormDocument.Show;

end;

procedure TMainForm.Button3Click(Sender: TObject);

begin

DM.ADOStatUvolnenia.Open;

FormStatUvolnenia:=TFormStatUvolnenia.Create(Application);

FormStatUvolnenia.Show;

end;

procedure TMainForm.Button4Click(Sender: TObject);

begin

exit

end;

procedure TMainForm.FormCreate(Sender: TObject);

begin

end;

end.

 

unit Unit2;

interface

uses

  SysUtils, Classes, DB, ADODB;

type

  TDM = class(TDataModule)

    ADOConnection1: TADOConnection;

    ADOSotrudnic: TADOTable;

    ADOStatUvolnenia: TADOTable;

    ADODocument: TADOTable;

    DataSotrudnic: TDataSource;

    DataStatUvolnenia: TDataSource;

    DataDocument: TDataSource;

    procedure DataModuleCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);

begin

end;

end.

 

unit Unit3;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Unit2, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

  TFormSotrudnic = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBEName: TDBEdit;

    DBEFamilja: TDBEdit;

    DBEOtcestvo: TDBEdit;

    DBEDolgnost: TDBEdit;

    DBEPodrazdelenie: TDBEdit;

    DBEData: TDBEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    BFamili: TButton;

    Button2: TButton;

    Button3: TButton;

    Button5: TButton;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormSotrudnic: TFormSotrudnic;

implementation

{$R *.dfm}

end.

 

 

unit Unit4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Unit2, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

  TFormStatUvolnenia = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    DBEPrichUvol: TDBEdit;

    DBENazStUvol: TDBEdit;

    DBENomerStUvoln: TDBEdit;

    DBENomerPunctaUvoln: TDBEdit;

    BFamili: TButton;

    Button2: TButton;

    Button3: TButton;

    Button5: TButton;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormStatUvolnenia: TFormStatUvolnenia;

 

implementation

{$R *.dfm}

end.

 

unit Unit5;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Unit2, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

  TFormDocument = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBEDataRegistr: TDBEdit;

    DBENomerDoc: TDBEdit;

    DBEDataUvoln: TDBEdit;

    DBEKodStaty: TDBEdit;

    DBEKodSotrudnica: TDBEdit;

    DBEDenegnCompens: TDBEdit;

    BFamili: TButton;

    Button2: TButton;

    Button3: TButton;

    Button5: TButton;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormDocument: TFormDocument;

implementation

{$R *.dfm}

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

 

В ходе выполнения курсового проекта были разработаны базы данных «Книжное  дело» и «Увольнение сотрудников». Создано клиентское приложение для работы с базой данных «Увольнение сотрудников». Разработанная программа устойчиво выполняет все свои функции: хранение, поиск, и выдачу данных об уволенных сотрудниках.

Были приобретены навыки программирования на языке Object Pascal в среде Delphi 7.0, освоена СУБД Microsoft SQL Server, язык Transact  SQL. А также навыки разработки собственных алгоритмов для решения поставленных задач, освоены методы и средства отладки и тестирования программ.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

1. Разработка клиент-серверных приложений в Microsoft SQL Server и Delphi 7.0, Учебно-методическое пособие, Семенова И.И., Омск, 2009г, 61 с.
2. Методические указания к выполнению курсовой работы, Дубинин А.В., МГУТУ, 2012 г.
3. Базы данных язык SQL для студента, Дунаев В.В., Санкт-Петербург, 2006г, 288 с.
4. Учебно-практическое пособие «Базы данных», Гаврилюк Я.Д. – М., МГТиУ, 2004
5. Базы данных: основы, проектирование, использование, Малыхина М.П. М: BHV, 2007 – 528 с.