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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
90
Unit_Premii, Unit_Oklady, Unit_Otpusk, Unit_NachislZarplaty,
Unit_Komandir, Excel2000, Unit_PrikazPriemWork, Unit_Anketa,
Unit_BrauserPrikazPriemWork, ReportF1God, Unit_ReportSotrudnik,
Unit_NachislPensii, Unit_ZarplataVedomost, Unit_VyborDataPremii,
Unit_VyborDataOtpusk, Unit_SZV4_1, Unit_AktSverki, Svedeniy;
var E:variant;
{$R *.dfm}
procedure TFormMain.N3Click(Sender: TObject);
var s: string;
d: TDateTime;
begin
if application.MessageBox('Вы действительно хотите выйти из программы
?','Выход',MB_ICONWARNING+MB_YESNO)=IDNO
then exit;
//заносим вход в историю
s:= 'Выход из системы - пользователя с кодом ' + IntToStr(TekCodUser);
d:= now();
FormVxod.HistoryBD(d, s, TekCodUser);
Close;
end;
procedure TFormMain.N4Click(Sender: TObject);
begin
N3Click(Sender);
91
end;
procedure TFormMain.N11Click(Sender: TObject);
begin
FormDolgnost:=TFormDolgnost.Create(self);{Создаем форму}
FormDolgnost.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N12Click(Sender: TObject);
begin
FormVidAdress:=TFormVidAdress.Create(self);{Создаем форму}
FormVidAdress.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N13Click(Sender: TObject);
begin
FormVidDoxodRashod:=TFormVidDoxodRashod.Create(self);{Создаем форму}
FormVidDoxodRashod.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N14Click(Sender: TObject);
begin
{ FormVidDocument:=TFormVidDocument.Create(self);
FormVidDocument.ShowModal;
}
end;
procedure TFormMain.N7Click(Sender: TObject);
92
begin
FormNastrParam:=TFormNastrParam.Create(self);{Создаем форму}
FormNastrParam.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N15Click(Sender: TObject);
begin
FormStrahStavki:=TFormStrahStavki.Create(self);{Создаем форму}
FormStrahStavki.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N3N128062006N251Click(Sender: TObject);
begin
FormReportPrilogN3:=TFormReportPrilogN3.Create(self);{Создаем форму}
FormReportPrilogN3.ShowModal;{Отображаем форму}
end;
function TFormMain.GetNastrParametr(s:string):string;
begin
ADODataSetNastrParametr.Close;
ADODataSetNastrParametr.CommandText:='select * from Tabl_NastrParametr where Name like
'+ QuotedStr(s);
ADODataSetNastrParametr.Open;
GetNastrParametr:= ADODataSetNastrParametrZnach.Value;
end;
procedure TFormMain.SetNastrParametr(Znach:string;s:string);
begin
93
ADODataSetNastrParametr.Close;
ADODataSetNastrParametr.CommandText:='select * from Tabl_NastrParametr where Name like
'+ QuotedStr(s);
ADODataSetNastrParametr.Open;
ADODataSetNastrParametr.Edit;
ADODataSetNastrParametrZnach.Value:= Znach;
ADODataSetNastrParametr.Post;
end;
procedure TFormMain.G1Click(Sender: TObject);
begin
FormPodrazdelenie:=TFormPodrazdelenie.Create(self);{Создаем форму}
FormPodrazdelenie.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N19Click(Sender: TObject);
begin
FormSotrudnik:=TFormSotrudnik.Create(self);{Создаем форму}
FormSotrudnik.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N20Click(Sender: TObject);
begin
FormPrikazPooshr:=TFormPrikazPooshr.Create(self);{Создаем форму}
FormPrikazPooshr.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N10Click(Sender: TObject);
begin
94
FormSpravka:=TFormSpravka.Create(self);{Создаем форму}
FormSpravka.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N9Click(Sender: TObject);
begin
FormSpravka_2:=TFormSpravka_2.Create(self);{Создаем форму}
FormSpravka_2.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N21Click(Sender: TObject);
begin
FormBrauserPrikazPooshr:=TFormBrauserPrikazPooshr.Create(self);{Создаем форму}
FormBrauserPrikazPooshr.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N28Click(Sender: TObject);
begin
FormOtchetSotrudnik:=TFormOtchetSotrudnik.Create(self);{Создаем форму}
FormOtchetSotrudnik.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N29Click(Sender: TObject);
begin
FormPremii:=TFormPremii.Create(self);{Создаем форму}
FormPremii.ShowModal;{Отображаем форму}
end;
Источник: https://baza.diplomsite.ru/previewfile/2248

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

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