Учёт персонала на предприятии ОАО Оренбургэнергосбыт

Особенности разработки программы "Учёт персонала" с учетом строго ограниченных функций, необходимых для сотрудников компании ОАО Оренбургэнергосбыт. Использование среды визуального программирования Delphi7 с привлечением дополнительных компонентов.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 21.02.2016
Размер файла 1,3 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

StringGrid2.Cells[0,2] :='Отчество';

StringGrid2.Cells[0,3] :='Табельный номер';

StringGrid2.Cells[0,4] :='Структурное подразделение';

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

StringGrid2.Cells[0,6] :='Страна(город)';

StringGrid2.Cells[0,7] :='Организация';

StringGrid2.Cells[0,8] :='Дата начала';

StringGrid2.Cells[0,9] :='Дата окончания';

StringGrid2.Cells[0,10] :='срок, календарные дни';

StringGrid2.Cells[0,11] :='Цель';

StringGrid2.Cells[0,12] :='Командировка за счёт средств';

StringGrid2.Cells[0,13] :='Подпись, дата';

end;

procedure TForm11.BitBtn3Click(Sender: TObject);

begin

Form11.Print;

end;

procedure TForm11.DBEditd9Click(Sender: TObject);

begin

monthCalendar1.visible:=true ;

end;

procedure TForm11.MonthCalendar1Click(Sender: TObject);

begin

DBEditd9.Text:=datetostr(monthCalendar1.date);

monthCalendar1.visible:=false;

end;

procedure TForm11.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[1,1]:=DateToStr(date);

end;

end.

unit PTrudDogOff;

interface

uses

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

Dialogs, DB, ADODB, Mask, DBCtrls, XPMan, StdCtrls, Buttons, Grids,

ExtCtrls, ComCtrls;

type

TForm12 = class(TForm)

Label1: TLabel;

Label3: TLabel;

Label2: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

XPManifest1: TXPManifest;

DataSource1: TDataSource;

ADOConnection2: TADOConnection;

ADOTable1: TADOTable;

BitBtn3: TBitBtn;

DBNavigator1: TDBNavigator;

DBEditd: TDBEdit;

DBEditd1: TDBEdit;

DBEditd2: TDBEdit;

DBEditd3: TDBEdit;

DBEditd4: TDBEdit;

DBEditd5: TDBEdit;

DBEditd6: TDBEdit;

DBEditd7: TDBEdit;

DBEditd8: TDBEdit;

DBEditd9: TDBEdit;

DBEditd10: TDBEdit;

DBEditd11: TDBEdit;

DBEditd12: TDBEdit;

tmr1: TTimer;

MonthCalendar1: TMonthCalendar;

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBEditd3Click(Sender: TObject);

procedure MonthCalendar1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.FormActivate(Sender: TObject);

begin

StringGrid1.Cells[0,0] :='Номер документа';

StringGrid1.Cells[1,0] :='Дата составления';

StringGrid2.Cells[0,0] :='Табельный номер';

end;

procedure TForm12.FormCreate(Sender: TObject);

begin

Label25.Caption:=DateToStr(date);

DBEditd1.Text:=DateToStr(date);

end;

procedure TForm12.DBEditd3Click(Sender: TObject);

begin

monthCalendar1.visible:=true ;

end;

procedure TForm12.MonthCalendar1Click(Sender: TObject);

begin

DBEditd3.Text:=datetostr(monthCalendar1.date);

monthCalendar1.visible:=false;

end;

end.

unit PWork;

interface

uses

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

Dialogs, XPMan, StdCtrls, Buttons, Grids, DB, ADODB, ExtCtrls, DBCtrls,

Mask, ComCtrls;

type

TForm13 = class(TForm)

Label1: TLabel;

Label3: TLabel;

Label2: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

BitBtn3: TBitBtn;

XPManifest1: TXPManifest;

DataSource1: TDataSource;

ADOConnection2: TADOConnection;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

DBEditd31: TDBEdit;

MonthCalendar1: TMonthCalendar;

DBEditd36: TDBEdit;

DBEditd37: TDBEdit;

DBNavigator1: TDBNavigator;

procedure FormActivate(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

procedure FormCreate(Sender: TObject);

procedure DBEditd36Click(Sender: TObject);

procedure MonthCalendar1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.FormActivate(Sender: TObject);

begin

StringGrid1.Cells[0,0] :='Номер документа';

StringGrid1.Cells[1,0] :='Дата составления';

StringGrid2.Cells[0,0] :='Табельный номер';

end;

procedure TForm13.BitBtn3Click(Sender: TObject);

begin

Form13.Print;

end;

procedure TForm13.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

ShowMessage('Сохранение прошло успешно!');

end;

procedure TForm13.FormCreate(Sender: TObject);

begin

DBEditd31.Text:=DateToStr(date);

Label25.Caption:=DateToStr(date);

end;

procedure TForm13.DBEditd36Click(Sender: TObject);

begin

monthCalendar1.visible:=true ;

end;

procedure TForm13.MonthCalendar1Click(Sender: TObject);

begin

DBEditd36.Text:=datetostr(monthCalendar1.date);

DBEditd37.Text:=datetostr(monthCalendar1.date+1826);

monthCalendar1.visible:=false;

end;

end.

unit POtpusk;

interface

uses

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

Dialogs, DB, ADODB, XPMan, Mask, DBCtrls, StdCtrls, Buttons, Grids,

ExtCtrls, ComCtrls;

type

TForm14 = class(TForm)

Label1: TLabel;

Label3: TLabel;

Label2: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label4: TLabel;

Label12: TLabel;

Label14: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label15: TLabel;

Label16: TLabel;

Label26: TLabel;

Label27: TLabel;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Edit15: TEdit;

Edit16: TEdit;

DBEdit1: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

XPManifest2: TXPManifest;

BitBtn3: TBitBtn;

DBEditd33: TDBEdit;

MonthCalendar1: TMonthCalendar;

DBEditd41: TDBEdit;

DBEditd42: TDBEdit;

DBEditd43: TDBEdit;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBNavigator1: TDBNavigator;

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBEditd41Click(Sender: TObject);

procedure MonthCalendar1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.FormActivate(Sender: TObject);

begin

StringGrid1.Cells[0,0] :='Номер документа';

StringGrid1.Cells[1,0] :='Дата составления';

StringGrid2.Cells[0,0] :='Табельный номер';

end;

procedure TForm14.FormCreate(Sender: TObject);

begin

Label25.Caption:=DateToStr(date);

DBEditd42.Text:=DateToStr(date);

end;

procedure TForm14.DBEditd41Click(Sender: TObject);

begin

monthCalendar1.visible:=true ;

end;

procedure TForm14.MonthCalendar1Click(Sender: TObject);

begin

DBEditd41.Text:=datetostr(monthCalendar1.date);

monthCalendar1.visible:=false;

end;

end.

unit PPoiskKomndirovka;

interface

uses

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

Dialogs, DB, ADODB, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, XPMan,

jpeg;

type

TForm15 = class(TForm)

DBGrid1: TDBGrid;

Panel2: TPanel;

ComboBox1: TComboBox;

Edit1: TEdit;

Button1: TButton;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

Image1: TImage;

dbnvgr1: TDBNavigator;

Label1: TLabel;

XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.Button1Click(Sender: TObject);

var st:string;

begin

st:=combobox1.Text;

if st<>'ВЫБЕРИТЕ ПОЛЕ ДЛЯ ПОИСКА' then begin

if not adoTable1.Locate(st, Edit1.Text, [loCaseInsensitive,

loPartialKey]) then

ShowMessage('Запись не найдена');

end;

end;

procedure TForm15.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=40;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=120;

DBGrid1.Columns[4].Width:=100;

DBGrid1.Columns[5].Width:=80;

DBGrid1.Columns[6].Width:=40;

DBGrid1.Columns[7].Width:=100;

DBGrid1.Columns[8].Width:=100;

DBGrid1.Columns[9].Width:=100;

DBGrid1.Columns[10].Width:=100;

DBGrid1.Columns[11].Width:=80;

DBGrid1.Columns[12].Width:=100;

DBGrid1.Columns[13].Width:=100;

DBGrid1.Columns[14].Width:=100;

end;

end.

unit PPoiskUvolnenie;

interface

uses

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

Dialogs, DB, ADODB, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, jpeg,

XPMan;

type

TForm16 = class(TForm)

DBGrid1: TDBGrid;

Panel2: TPanel;

ComboBox1: TComboBox;

Edit1: TEdit;

Button1: TButton;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

dbnvgr1: TDBNavigator;

XPManifest2: TXPManifest;

img1: TImage;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form16: TForm16;

implementation

{$R *.dfm}

procedure TForm16.Button1Click(Sender: TObject);

var st:string;

begin

st:=combobox1.Text;

if st<>'ВЫБЕРИТЕ ПОЛЕ ДЛЯ ПОИСКА' then begin

if not adoTable1.Locate(st, Edit1.Text, [loCaseInsensitive,

loPartialKey]) then

ShowMessage('Запись не найдена');

end;

end;

procedure TForm16.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=40;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=120;

DBGrid1.Columns[4].Width:=100;

DBGrid1.Columns[5].Width:=80;

DBGrid1.Columns[6].Width:=40;

DBGrid1.Columns[7].Width:=100;

DBGrid1.Columns[8].Width:=100;

DBGrid1.Columns[9].Width:=100;

DBGrid1.Columns[10].Width:=100;

DBGrid1.Columns[11].Width:=80;

end;

end.

unit PPoiskOtpusk;

interface

uses

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

Dialogs, DB, ADODB, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, jpeg;

type

TForm17 = class(TForm)

DBGrid1: TDBGrid;

Panel2: TPanel;

ComboBox1: TComboBox;

Edit1: TEdit;

Button1: TButton;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

dbnvgr1: TDBNavigator;

Image1: TImage;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.Button1Click(Sender: TObject);

var st:string;

begin

st:=combobox1.Text;

if st<>'ВЫБЕРИТЕ ПОЛЕ ДЛЯ ПОИСКА' then begin

if not adoTable1.Locate(st, Edit1.Text, [loCaseInsensitive,

loPartialKey]) then

ShowMessage('Запись не найдена');

end;

end;

procedure TForm17.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=40;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=120;

DBGrid1.Columns[4].Width:=80;

DBGrid1.Columns[5].Width:=80;

DBGrid1.Columns[6].Width:=80;

DBGrid1.Columns[7].Width:=100;

end;

end.

unit PPoiskWork;

interface

uses

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

Dialogs, DB, ADODB, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, jpeg;

type

TForm18 = class(TForm)

DBGrid1: TDBGrid;

Panel2: TPanel;

ComboBox1: TComboBox;

Edit1: TEdit;

Button1: TButton;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

dbnvgr1: TDBNavigator;

Image1: TImage;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form18: TForm18;

implementation

{$R *.dfm}

procedure TForm18.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=40;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=120;

DBGrid1.Columns[4].Width:=100;

DBGrid1.Columns[5].Width:=80;

DBGrid1.Columns[6].Width:=40;

DBGrid1.Columns[7].Width:=100;

DBGrid1.Columns[8].Width:=100;

DBGrid1.Columns[9].Width:=100;

DBGrid1.Columns[10].Width:=100;

DBGrid1.Columns[11].Width:=80;

DBGrid1.Columns[12].Width:=100;

DBGrid1.Columns[13].Width:=100;

DBGrid1.Columns[14].Width:=100;

end;

procedure TForm18.Button1Click(Sender: TObject);

var st:string;

begin

st:=combobox1.Text;

if st<>'ВЫБЕРИТЕ ПОЛЕ ДЛЯ ПОИСКА' then begin

if not adoTable1.Locate(st, Edit1.Text, [loCaseInsensitive,

loPartialKey]) then

ShowMessage('Запись не найдена');

end;

end;

end.

unit Razrab;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TForm19 = class(TForm)

Image2: TImage;

Label1: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form19: TForm19;

implementation

{$R *.dfm}

end.

unit OProgramm;

interface

uses

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

Dialogs, XPMan, jpeg, ExtCtrls, StdCtrls, ComCtrls;

type

TForm20 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Label1: TLabel;

img1: TImage;

XPManifest2: TXPManifest;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form20: TForm20;

implementation

{$R *.dfm}

end.

unit Parol;

interface

uses

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

Dialogs, XPMan, StdCtrls, jpeg, ExtCtrls;

type

TForm5 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

XPManifest1: TXPManifest;

img1: TImage;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

var Log,po:string;

c,i:integer;

begin

Log:=Edit1.Text;

po:=Edit2.Text; begin form1.Close; end;

c:=length(po);

for i:=1 to c do begin Edit2.Text:='*' end;

begin

if log<>'БДУП' then begin if po<>'персонал' then ShowMessage('НЕ верно введены данные. Повторите попытку!');

end;

end;

if log='БДУП' then begin if po='персонал' then Form1.show ; end;

begin form5.Visible:=false; end; end;

end.

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


Подобные документы

  • Характеристика организации, осуществляющей кадровый учёт сотрудников. Ведущие программные продуктов данной отрасли. Причины выбора среды Visual Studio для создания программного продукта. Практическая значимость прикладного решения в ООО "Алюбион Плюс".

    дипломная работа [1,7 M], добавлен 18.06.2014

  • Особенности среды визуального проектирования Borland Delphi 7.0. Этапы разработки программы и составления блок-схемы алгоритмов. Способы вычисления кусочно-заданной функции одной переменной. Рассмотрение компонентов среды Delphi, ее предназначение.

    контрольная работа [703,8 K], добавлен 24.09.2012

  • Среда визуального программирования Delphi. Арифметические и логические операции. Объекты программы Microsoft Access. Состояние записи в БД. Объектно-ориентированные и гибридные базы данных. Операторы управления данными. Программное обеспечение программы.

    курсовая работа [1,4 M], добавлен 10.05.2016

  • Создание легкой и удобной в применении программы "Клавиатурный тренажер" с помощью программы Delphi7. Использование компонентов Panel, Timer, Button, Status Bar, Label. Описание процедур и функций программы. Руководство разработчика и пользователя.

    курсовая работа [276,3 K], добавлен 27.05.2015

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

    дипломная работа [2,3 M], добавлен 11.04.2012

  • Язык разработки, среда реализации, инструменты разработки. Особенности виртуальной среды реализации программ и их учет в разработке программного продукта. Системные макросы и их применение в текстах разработки. Средства визуального программирования.

    учебное пособие [1,7 M], добавлен 26.10.2013

  • Эффективные средства разработки программного обеспечения. Технология визуального проектирования и событийного программирования. Конструирование диалоговых окон и функций обработки событий. Словесный алгоритм и процедуры программы Borland Delphi 7 Studio.

    дипломная работа [660,2 K], добавлен 21.05.2012

  • Классификация систем управления базами данных. Выбор операционной системы, языка программирования, среды разработки (IDE) и дополнительных компонент. Разработка интерфейса и функций программы по управлению складом, её тестирование и исходный код файлов.

    курсовая работа [487,3 K], добавлен 25.12.2015

  • Создание программы с использованием принципов объектно-ориентированного программирования на языке высокого уровня С# средствами Microsoft Visual Studio 2010. Построение алгоритма реализации. Определение математического аппарата, применение его в задаче.

    курсовая работа [500,4 K], добавлен 13.01.2015

  • Методы, подходы, принципы, интерфейс Lazarus и Delphi. Технические различия, ход установки и коммерческий доступ к продуктам среды визуального программирования. Установление дополнительных компонент программы, их совместимость с операционными системами.

    курсовая работа [4,1 M], добавлен 14.03.2012

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.