Дипломная работа: Разработка программного продукта "Отдел кадров ВПТ"

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

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

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

Механизм получения и отправки данных обеспечивает соединение с источником данных (часто опосредованно). Он должен "знать", куда ему обращаться и какой протокол обмена использовать для обеспечения двунаправленного потока данных.

Механизм внутреннего представления данных является ядром приложения баз данных. Он обеспечивает хранение полученных данных в приложении и предоставляет их по запросу других частей приложения.

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

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

Между приложением и собственно базой данных находится специальное программное обеспечение (ПО), связывающее программу и источник данных и управляющее процессом обмена данными. Это ПО может быть реализовано самыми разнообразными способами, в зависимости от объема базы данных, решаемых системой задач, числа пользователей, способами соединения приложения и базы данных. Промежуточное ПО может быть реализовано как окружение приложения, без которого оно вообще не будет работать, как набор драйверов и динамических библиотек, к которым обращается приложение, может быть интегрировано в само приложение. Наконец, это может быть отдельный удаленный сервер, обслуживающий тысячи приложений.

Литература

1. Бобровский С.И. Delphi 7. - СПб.: Питер. 2004.

2. Гаевский А.Ю. Самоучитель работы на ПК. - М.: ТЕХНОЛОДЖИ. 2004.

3. Губарев В.Г. Программное обеспечение и операционные системы ПК. - Ростов н/Д.: Феникс. 2004.

4. Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0. - СПб.: Корона принт. 2005.

5. Могилёв А.В., Пак Н.И., Хеннер Е.К. Практикум по информатике. М.: Академия. 2006.

6. Рудаков А.В. Технология разработки программных продуктов. - М.: Академия. 2006.

7. Кузнецова Т.В., Кузнец С.Л. Кадровое делопроизводство. - М.: ООО «Интел - синтез АПР». 2006.

Приложения

Приложение 1

     

     

     

Приложение 2

program Project1;

uses

Forms,

Unit1 in 'Unit1. pas' {Form1},

Unit2 in 'Unit2. pas' {Form2},

Unit3 in 'Unit3. pas' {Form3};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm(TForm1, Form1);

Application. Run;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan, Buttons, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm1. Image1Click(Sender: TObject);

begin

Form2: =TForm2. Create(Self);

try

Form2. ShowModal;

finally

Form2. Free;

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan, ComCtrls, Menus, Buttons, DB, DBTables, ExtCtrls, DBCtrls, Mask, RpDefine, RpCon, RpConDS, RpConBDE, RpRave;

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

XPManifest1: TXPManifest;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Table1: TTable;

Table1Fio: TStringField;

Table1Im: TStringField;

Table1Ot: TStringField;

Table1Dd: TStringField;

Table1Dm: TStringField;

Table1Dg: TStringField;

Table1TRdn: TStringField;

Table1TRdd: TStringField;

Table1Obr: TStringField;

Table1NamObYch: TStringField;

Table1Nam: TStringField;

Table1Ser: TFloatField;

Table1Nom: TFloatField;

Table1GodOkonch: TStringField;

Table1ProfOsn: TStringField;

Table1ProfDr: TStringField;

Table1StajRabnad: TStringField;

Table1StajRabnam: TStringField;

Table1StajRabnag: TStringField;

Table1StajObd: TStringField;

Table1StajObm: TStringField;

Table1StajObg: TStringField;

Table1StajNepd: TStringField;

Table1StajNepm: TStringField;

Table1StajNepg: TStringField;

Table1Pas: TStringField;

Table1PasNom: TStringField;

Table1Pasd: TStringField;

Table1Pasm: TStringField;

Table1Pasg: TStringField;

Table1PasVid: TStringField;

Table1DatRegd: TStringField;

Table1DatRegm: TStringField;

Table1DatRegg: TStringField;

Table1NomerTel: TStringField;

Table1PrimnaRabd: TStringField;

Table1Strpod: TStringField;

Table1Dolg: TStringField;

Table1Stvka: TStringField;

Table1Osn1: TStringField;

Table1Podpes: TStringField;

Table1DatAtest: TStringField;

Table1ReshKom: TStringField;

Table1Docnom: TStringField;

Table1Docdat: TStringField;

Table1Osn2: TStringField;

Table1Datnach: TStringField;

Table1Datokoch: TStringField;

Table1Vidpovish: TStringField;

Table1NaimenObrYch: TStringField;

Table1Docnaimen: TStringField;

Table1DocSer: TStringField;

Table1Docd: TStringField;

Table1Osn3: TStringField;

Table1DataNach: TStringField;

Table1DataKon: TStringField;

Table1Special: TStringField;

Table1DokymNam: TStringField;

Table1DokymNOM: TStringField;

Table1Dokymdat: TStringField;

Table1Osn4: TStringField;

Table1KolD: TStringField;

Table1PerRabS: TStringField;

Table1PerRabPo: TStringField;

Table1KolDen: TStringField;

Table1DataNa: TStringField;

Table1DataOk: TStringField;

Table1Osn5: TStringField;

Table1Yvol: TStringField;

Table1DatYd: TStringField;

Table1DatYm: TStringField;

Table1DatYg: TStringField;

Table1PrikN: TStringField;

Table1Prikd: TStringField;

Table1Prikm: TStringField;

Table1Prikg: TStringField;

Table1RabKadSlD: TStringField;

Table1Pod: TStringField;

Table1Rashifr: TStringField;

Table1Rabotnic: TStringField;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

Label5: TLabel;

DBEdit4: TDBEdit;

Label6: TLabel;

DBEdit5: TDBEdit;

Label7: TLabel;

DBEdit6: TDBEdit;

Label8: TLabel;

Label9: TLabel;

DBEdit7: TDBEdit;

Label10: TLabel;

DBEdit8: TDBEdit;

Label12: TLabel;

DBEdit10: TDBEdit;

Label13: TLabel;

DBEdit11: TDBEdit;

Label14: TLabel;

DBEdit12: TDBEdit;

Label15: TLabel;

DBEdit13: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

Label17: TLabel;

DBEdit15: TDBEdit;

Label18: TLabel;

DBEdit16: TDBEdit;

Label19: TLabel;

DBEdit17: TDBEdit;

Label20: TLabel;

Table1Grajdan: TStringField;

Table1MestoJ: TStringField;

Label11: TLabel;

DBEdit9: TDBEdit;

Label21: TLabel;

DBEdit18: TDBEdit;

Label22: TLabel;

DBEdit19: TDBEdit;

Label23: TLabel;

DBEdit20: TDBEdit;

Label24: TLabel;

DBEdit21: TDBEdit;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

DBEdit22: TDBEdit;

Label28: TLabel;

DBEdit23: TDBEdit;

Label29: TLabel;

DBEdit24: TDBEdit;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

DBEdit25: TDBEdit;

Label34: TLabel;

DBEdit26: TDBEdit;

Label35: TLabel;

DBEdit27: TDBEdit;

Panel1: TPanel;

Label36: TLabel;

Label37: TLabel;

DBEdit28: TDBEdit;

Label38: TLabel;

DBEdit29: TDBEdit;

Label39: TLabel;

DBEdit30: TDBEdit;

Label40: TLabel;

DBEdit31: TDBEdit;

Label41: TLabel;

DBEdit32: TDBEdit;

Label42: TLabel;

Label43: TLabel;

DBEdit33: TDBEdit;

Label44: TLabel;

Label45: TLabel;

DBEdit34: TDBEdit;

Label46: TLabel;

DBEdit35: TDBEdit;

Label47: TLabel;

DBEdit36: TDBEdit;

Label48: TLabel;

DBEdit37: TDBEdit;

Label49: TLabel;

Panel2: TPanel;

Label50: TLabel;

DBEdit38: TDBEdit;

Label51: TLabel;

DBEdit39: TDBEdit;

Label52: TLabel;

DBEdit40: TDBEdit;

Label53: TLabel;

DBEdit41: TDBEdit;

Label54: TLabel;

DBEdit42: TDBEdit;

Label55: TLabel;

DBEdit43: TDBEdit;

Label56: TLabel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Label57: TLabel;

Label58: TLabel;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

DBEdit44: TDBEdit;

Label64: TLabel;

DBEdit45: TDBEdit;

Label65: TLabel;

DBEdit46: TDBEdit;

Label66: TLabel;

DBEdit47: TDBEdit;

Label67: TLabel;

DBEdit48: TDBEdit;

Label68: TLabel;

Label69: TLabel;

DBEdit49: TDBEdit;

Label70: TLabel;

DBEdit50: TDBEdit;

Label71: TLabel;

DBEdit51: TDBEdit;

Label72: TLabel;

DBEdit52: TDBEdit;

Label73: TLabel;

Label74: TLabel;

DBEdit53: TDBEdit;

Label75: TLabel;

DBEdit54: TDBEdit;

Label76: TLabel;

DBEdit55: TDBEdit;

Label77: TLabel;

DBEdit56: TDBEdit;

Label78: TLabel;

Label79: TLabel;

DBEdit57: TDBEdit;

Label80: TLabel;

DBEdit58: TDBEdit;

Label81: TLabel;

DBEdit59: TDBEdit;

Label82: TLabel;

DBEdit60: TDBEdit;

Label83: TLabel;

DBEdit61: TDBEdit;

Label84: TLabel;

DBEdit62: TDBEdit;

Label85: TLabel;

DBEdit63: TDBEdit;

Label86: TLabel;

Label87: TLabel;

Panel8: TPanel;

Label88: TLabel;

Label90: TLabel;

Panel6: TPanel;

Label89: TLabel;

DBEdit64: TDBEdit;

Label91: TLabel;

DBEdit65: TDBEdit;

Label92: TLabel;

DBEdit66: TDBEdit;

Label93: TLabel;

DBEdit67: TDBEdit;

Label94: TLabel;

DBEdit68: TDBEdit;

Label95: TLabel;

DBEdit69: TDBEdit;

Label96: TLabel;

DBEdit70: TDBEdit;

Label97: TLabel;

Label98: TLabel;

Label99: TLabel;

Label100: TLabel;

Label101: TLabel;

DBEdit71: TDBEdit;

Label102: TLabel;

DBEdit72: TDBEdit;

Label103: TLabel;

DBEdit73: TDBEdit;

Label104: TLabel;

Label105: TLabel;

DBEdit74: TDBEdit;

Label106: TLabel;

DBEdit75: TDBEdit;

Label107: TLabel;

DBEdit76: TDBEdit;

Label108: TLabel;

DBEdit77: TDBEdit;

Label109: TLabel;

DBEdit78: TDBEdit;

Label110: TLabel;

Label111: TLabel;

Label112: TLabel;

DBEdit79: TDBEdit;

Label114: TLabel;

DBEdit81: TDBEdit;

Label115: TLabel;

RvTableConnection1: TRvTableConnection;

RvProject1: TRvProject;

RvTableConnection2: TRvTableConnection;

RvProject2: TRvProject;

RvTableConnection3: TRvTableConnection;

RvProject3: TRvProject;

N7: TMenuItem;

N8: TMenuItem;

procedure N2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label32MouseLeave(Sender: TObject);

procedure Label32Click(Sender: TObject);

procedure Label36Click(Sender: TObject);

procedure Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label49Click(Sender: TObject);

procedure Label56Click(Sender: TObject);

procedure Label49MouseLeave(Sender: TObject);

procedure Label57Click(Sender: TObject);

procedure Label58Click(Sender: TObject);

procedure Label59Click(Sender: TObject);

procedure Label60Click(Sender: TObject);

procedure Label61Click(Sender: TObject);

procedure Label62Click(Sender: TObject);

procedure Label88Click(Sender: TObject);

procedure Label99Click(Sender: TObject);

procedure Label100Click(Sender: TObject);

procedure Label90Click(Sender: TObject);

procedure Label57MouseLeave(Sender: TObject);

procedure Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label58MouseLeave(Sender: TObject);

procedure Label59MouseLeave(Sender: TObject);

procedure Label88MouseLeave(Sender: TObject);

procedure Label100MouseLeave(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *. dfm}

procedure TForm2. N2Click(Sender: TObject);

begin

form1. Close;

end;

procedure TForm2. FormCreate(Sender: TObject);

var s: string;

begin

Table1. Active: =true;

Label36. Cursor: =crHandPoint;

Label32. Cursor: =crHandPoint;

Label49. Cursor: =crHandPoint;

Label56. Cursor: =crHandPoint;

Label57. Cursor: =crHandPoint;

Label58. Cursor: =crHandPoint;

Label59. Cursor: =crHandPoint;

Label60. Cursor: =crHandPoint;

Label61. Cursor: =crHandPoint;

Label62. Cursor: =crHandPoint;

Label88. Cursor: =crHandPoint;

Label90. Cursor: =crHandPoint;

Label99. Cursor: =crHandPoint;

Label100. Cursor: =crHandPoint;

end;

procedure TForm2. Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label32. Font. Color: =clBlue;

end;

procedure TForm2. Label32MouseLeave(Sender: TObject);

begin

Label32. Font. Color: =clBlack;

end;

procedure TForm2. Label32Click(Sender: TObject);

begin

Panel1. Visible: =true;

Label32. Visible: =false;

end;

procedure TForm2. Label36Click(Sender: TObject);

begin

Panel1. Visible: =false;

Label32. Visible: =true;

end;

procedure TForm2. Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label49. Font. Color: =clBlue;

end;

procedure TForm2. Label49Click(Sender: TObject);

begin

Panel2. Visible: =true;

Label49. Visible: =false;

end;

procedure TForm2. Label56Click(Sender: TObject);

begin

Panel2. Visible: =false;

Label49. Visible: =true;

end;

procedure TForm2. Label49MouseLeave(Sender: TObject);

begin

Label49. Font. Color: =clBlack;

end;

procedure TForm2. Label57Click(Sender: TObject);

begin

Panel3. Visible: =true;

Label57. Visible: =false;

end;

procedure TForm2. Label58Click(Sender: TObject);

begin

Panel4. Visible: =true;

Label58. Visible: =false;

end;

procedure TForm2. Label59Click(Sender: TObject);

begin

Panel5. Visible: =true;

Label59. Visible: =false;

end;

procedure TForm2. Label60Click(Sender: TObject);

begin

Panel3. Visible: =false;

Label57. Visible: =true;

end;

procedure TForm2. Label61Click(Sender: TObject);

begin

Panel4. Visible: =false;

Label58. Visible: =true;

end;

procedure TForm2. Label62Click(Sender: TObject);

begin

Panel5. Visible: =false;

Label59. Visible: =true;

end;

procedure TForm2. Label88Click(Sender: TObject);

begin

label88. Visible: =false;

Panel6. Visible: =true;

end;

procedure TForm2. Label99Click(Sender: TObject);

begin

label88. Visible: =true;

Panel6. Visible: =false;

end;

procedure TForm2. Label100Click(Sender: TObject);

begin

Label100. Visible: =false;

Panel8. Visible: =true;

end;

procedure TForm2. Label90Click(Sender: TObject);

begin

Label100. Visible: =true;

Panel8. Visible: =false;

end;

procedure TForm2. Label57MouseLeave(Sender: TObject);

begin

Label57. Font. Color: =clBlack;

end;

procedure TForm2. Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label57. Font. Color: =clBlue;

end;

procedure TForm2. Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label58. Font. Color: =clBlue;

end;

procedure TForm2. Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label59. Font. Color: =clBlue;

end;

procedure TForm2. Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label88. Font. Color: =clBlue;

end;

procedure TForm2. Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label100. Font. Color: =clBlue;

end;

procedure TForm2. Label58MouseLeave(Sender: TObject);

begin

Label58. Font. Color: =clBlack;

end;

procedure TForm2. Label59MouseLeave(Sender: TObject);

begin

Label59. Font. Color: =clBlack;

end;

procedure TForm2. Label88MouseLeave(Sender: TObject);

begin

Label88. Font. Color: =clBlack;

end;

procedure TForm2. Label100MouseLeave(Sender: TObject);

begin

Label100. Font. Color: =clBlack;

end;

procedure TForm2. N6Click(Sender: TObject);

begin

RvProject1. Execute;

end;

procedure TForm2. N4Click(Sender: TObject);

begin

Form3: =TForm3. Create(Self);

try

Form3. ShowModal;

finally

Form3. Free;

end;

end;

procedure TForm2. N7Click(Sender: TObject);

begin

RvProject2. Execute;

end;

procedure TForm2. N8Click(Sender: TObject);

begin

RvProject3. Execute;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellApi, jpeg, OleCtrls, SHDocVw, XPMan, Buttons;

type

TForm3 = class(TForm)

Panel1: TPanel;

Image1: TImage;

Label3: TLabel;

Label6: TLabel;

XPManifest1: TXPManifest;

Label7: TLabel;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

procedure FormCreate(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label6MouseLeave(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *. dfm}

procedure TForm3. FormCreate(Sender: TObject);

begin

Image1. Picture. LoadFromFile('Мы 0085959595. jpg');

end;

Procedure AutoSendMail;

Var

EMailDestinationString,SubjectString,Line1String,Line2String,mailstring: String;

begin

EMailDestinationString: ='aleks_bugaev@mail. ru';

SubjectString: ='Message Subject';

Line1String: ='This is the first line';

Line2String: ='This is the second line';

 //  Можно использовать несколько адресов, разделяя их точкой с запятой  //

mailstring: ='mailto: ' + EMailDestinationString +

'? subject=' + SubjectString +

'&body='+ Line1String +

'%0d' + Line2String;

if (ShellExecute(0,'open',PChar(mailstring),'','',SW_SHOWNORMAL) <=32) then

ShowMessage('Auto method failed. ');

end;

procedure TForm3. Label6Click(Sender: TObject);

begin

AutoSendMail;

end;

procedure TForm3. Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label6. Font. Color: =clBlue;

Label7. Font. Color: =clBlue;

end;

procedure TForm3. Label6MouseLeave(Sender: TObject);

begin

Label6. Font. Color: =clBlack;

Label7. Font. Color: =clBlack;

end;

end.