Дипломная работа: Автоматизация управления персонала на кондитерской фабрике "Победа Вкуса"

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

unit Main;

interface

uses

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

Dialogs, Menus, DB, ADODB, jpeg, ExtCtrls, StdCtrls;

type

TFormMain = class(TForm)

PopupMenu1: TPopupMenu;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N3N128062006N251: TMenuItem;

ADODataSetNastrParametr: TADODataSet;

ADODataSetNastrParametrCod: TAutoIncField;

ADODataSetNastrParametrName: TWideStringField;

ADODataSetNastrParametrZnach: TWideStringField;

ADODataSetNastrParametrOpisanie: TWideStringField;

N17: TMenuItem;

N18: TMenuItem;

G1: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

excel1: TMenuItem;

N27: TMenuItem;

Image1: TImage;

N28: TMenuItem;

N29: TMenuItem;

N30: TMenuItem;

N31: TMenuItem;

N32: TMenuItem;

N33: TMenuItem;

N34: TMenuItem;

N35: TMenuItem;

ADODataSetSotrudnik: TADODataSet;

DataSourceSotrudnik: TDataSource;

ADODataSetSotrudnikCod: TAutoIncField;

ADODataSetSotrudnikFam: TWideStringField;

ADODataSetSotrudnikName: TWideStringField;

ADODataSetSotrudnikOtch: TWideStringField;

ADODataSetSotrudnikTabNomer: TWideStringField;

ADODataSetSotrudnikPol: TWideStringField;

ADODataSetSotrudnikINN: TWideStringField;

ADODataSetSotrudnikDataRozhd: TDateTimeField;

ADODataSetSotrudnikNomPensKarty: TWideStringField;

ADODataSetSotrudnikNomerPasport: TWideStringField;

ADODataSetSotrudnikSeriyPasport: TWideStringField;

ADODataSetSotrudnikDataPrihodWork: TDateTimeField;

ADODataSetSotrudnikFoto: TBlobField;

ADODataSetSotrudnikChildren: TIntegerField;

ADODataSetSotrudnikGrazhdanstvo: TWideStringField;

ADODataSetSotrudnikLogin: TWideStringField;

ADODataSetSotrudnikPassword: TWideStringField;

ADODataSetSotrudnikCodDolgnost: TIntegerField;

ADODataSetSotrudnikCodPodrazdelenie: TIntegerField;

N36: TMenuItem;

N37: TMenuItem;

N128062006N281: TMenuItem;

N38: TMenuItem;

N39: TMenuItem;

N40: TMenuItem;

N411: TMenuItem;

N41: TMenuItem;

N42: TMenuItem;

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N3N128062006N251Click(Sender: TObject);

function GetNastrParametr(s:string):string;

procedure SetNastrParametr(Znach:string;s:string);

procedure G1Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure N29Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N30Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N34Click(Sender: TObject);

procedure N35Click(Sender: TObject);

procedure excel1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N36Click(Sender: TObject);

procedure N37Click(Sender: TObject);

procedure N128062006N281Click(Sender: TObject);

procedure N38Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N411Click(Sender: TObject);

procedure N41Click(Sender: TObject);

procedure N42Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormMain: TFormMain;

implementation

uses Vxod, Unit_Dolgnost, Unit_VidAdress, Unit_VidDoxodRashod,

{Unit_VidDocument,} Unit_NastrParam, Unit_StrahStavki, ReportPrilogN3, DM1,

Unit_Podrazdelenie, Sotrudnik, Unit_PrikazPooshr, Unit_Spravka,

Unit_Spravka_2, Unit_BrauserPrikazPooshr, Unit_OtchetSotrudnik,

Источник: https://baza.diplomsite.ru/previewfile/2248

Смотрите также:







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии