85
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;
86
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;
87
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;
88
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);
89
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,
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;