Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Учёт персонала на предприятии ОАО Оренбургэнергосбыт

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

Особенности разработки программы "Учёт персонала" с учетом строго ограниченных функций, необходимых для сотрудников компании ОАО Оренбургэнергосбыт. Использование среды визуального программирования 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

  • Табулирование функций в интегрированной среде программирования Delphi

    Особенности среды визуального проектирования 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

  • Язык программирования Delphi

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

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

  • Разработка базы данных "Управление складом"

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

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

  • Разработка программы с использованием компонентов среды визуального проектирования Visual C#

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

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

  • Сравнение Delphi u Lazarus

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

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

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

© 2000 — 2023, ООО «Олбест» Все права защищены