48366 (588546), страница 7

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 7)

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);

begin

SpeedButton1.Hint:='Выход';

SpeedButton2.Hint:='Справка';

SpeedButton3.Hint:='Расчет ЗП';

SpeedButton4.Hint:='Данные за прошедшие года';

SpeedButton5.Hint:='Ввод\редактирование '+chr(13)+ 'данных о работниках';

end;

procedure TMainForm.Label2Click(Sender: TObject);

begin

MainForm.Visible:=false;

frm_menu.ShowModal;

end;

procedure TMainForm.Label5Click(Sender: TObject);

begin

winhelp(MainForm.Handle,'HLP1.HLP',HELP_CONTEXT, 1);

end;

procedure TMainForm.Label3Click(Sender: TObject);

begin

MainForm.Visible:=false;

menu2.ShowModal;

end;

procedure TMainForm.Label7Click(Sender: TObject);

begin

TabYear.ShowModal;

end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);

begin

mainform.Close;

end;

procedure TMainForm.SpeedButton5Click(Sender: TObject);

begin

MainForm.Visible:=false;

frm_menu.ShowModal;

end;

procedure TMainForm.SpeedButton3Click(Sender: TObject);

begin

MainForm.Visible:=false;

menu2.ShowModal;

end;

procedure TMainForm.SpeedButton4Click(Sender: TObject);

begin

TabYear.ShowModal;

end;

procedure TMainForm.SpeedButton2Click(Sender: TObject);

begin

winhelp(MainForm.Handle,'HLP1.HLP',HELP_CONTEXT, 1); end;

ПРИЛОЖЕНИЕ Б

Листинг модуля данных

unit dmPayU;

interface

uses

SysUtils, Classes, DB, ADODB, DdeMan, OleServer, ExcelXP;

procedure moveCalcFields(DataSet: TDataSet);

procedure personCalcFields(DataSet: TDataSet);

procedure yearCalcFields(DataSet: TDataSet);

var

dmPay: TdmPay;

implementation

{$R *.dfm}

procedure TdmPay.moveCalcFields(DataSet: TDataSet);

begin

//ставка для расчета

with dmPay.move do

fields[33].AsCurrency:=fields[3].AsFloat*person.Fields[4].AsCurrency;

//недельный час (1-4)классах

if dmpay.move.Fields[28].AsBoolean=true then

with dmpay.move do

fields[34].AsCurrency:=fields[33].AsCurrency/coff.Fields[1].AsFloat

else

with dmpay.move do

fields[34].AsCurrency:=0;

//недельный час (5-11)классах

if dmpay.move.Fields[28].AsBoolean=true then

with dmpay.move do

fields[35].AsCurrency:=fields[33].AsCurrency/coff.Fields[2].AsFloat

else

with dmpay.move do

fields[35].AsCurrency:=0;

//разовый час (1-4)

if dmpay.move.Fields[28].AsBoolean=true then

with dmpay.move do

fields[36].AsCurrency:=fields[33].AsCurrency/coff.Fields[3].AsFloat

else

with dmpay.move do

fields[36].AsCurrency:=0;

//разовый час (5-11)

if dmpay.move.Fields[28].AsBoolean=true then

with dmpay.move do

fields[37].AsCurrency:=fields[33].AsCurrency/coff.Fields[4].AsFloat

else

with dmpay.move do

fields[37].AsCurrency:=0;

//Экология

if dmpay.move.Fields[28].AsBoolean=true then

with dmPay.move do

fields[39].AsFloat:=coff.Fields[5].AsFloat*person.fields[9].AsFloat/person.fields[7].AsFloat

else dmpay.move.fields[39].AsCurrency:=0;

//ЗП

with dmpay.move do

fields[40].AsCurrency:=((fields[5].AsFloat+fields[6].AsFloat+fields[9].AsFloat+fields[10].AsFloat+fields[13].AsFloat+fields[14].AsFloat)*fields[34].AsFloat+(fields[7].AsFloat+fields[8].AsFloat+fields[11].AsFloat+fields[12].AsFloat+fields[15].AsFloat+fields[16].AsFloat)*fields[35].AsFloat)*person.Fields[9].AsInteger/person.Fields[7].AsInteger;

// Проверка тетрадей

if (dmPay.move.FieldByName('Предмет').AsString='начальные классы') then

begin

with dmpay.move do

fields[41].AsCurrency:=dmpay.person.Fields[4].AsCurrency*fields[25].AsFloat* person.Fields[9].AsInteger/person.Fields[7].AsInteger

end else

with dmpay.move do

if fields[29].AsBoolean=true then

begin

fields[41].AsCurrency:=((fields[5].AsFloat+fields[6].AsFloat+(fields[9].AsFloat+ fields[10].AsFloat+fields[13].AsFloat+fields[14].AsFloat)/2)*fields[25].AsFloat/ coff.Fields[1].AsFloat+((fields[7].AsFloat+(fields[11].AsFloat+fields[15].AsFloat) /2)*fields[26].AsFloat+(fields[8].AsFloat+(fields[12].AsFloat+fields[16].AsFloat)/2)*fields[27].AsFloat/coff.Fields[2].AsFloat)*person.Fields[4].AsCurrency* person.Fields[9].AsInteger/person.Fields[7].AsInteger

end else

with dmpay.move do

fields[41].AsCurrency:=((fields[5].AsFloat+fields[6].AsFloat)*fields[25].AsFloat/ coff.Fields[1].AsFloat+(fields[7].AsFloat*fields[26].AsFloat+fields[8].AsFloat* fields[27].AsFloat/coff.Fields[2].AsFloat)*person.Fields[4].AsCurrency* person.Fields[9].AsInteger/person.Fields[7].AsInteger;

// Замена

with dmpay.move do

fields[42].AsCurrency:= (fields[17].AsFloat+ fields[18].AsFloat) * fields[36].AsFloat + ( fields[19].AsFloat+ fields[20].AsFloat)* fields[37].AsFloat;

// Углубленное изучение

with dmpay.move do

fields[43].AsCurrency:=((fields[5].AsFloat+fields[6].AsFloat+fields[9].AsFloat+ fields[10].AsFloat+fields[13].AsFloat+fields[14].AsFloat)/coff.Fields[1].AsFloat+ (fields[7].AsFloat+fields[11].AsFloat+fields[15].AsFloat+fields[8].AsFloat+ fields[12].AsFloat+fields[16].AsFloat)/coff.Fields[2].AsFloat)* person.Fields[4].AsCurrency*fields[22].AsFloat*person.Fields[9].AsInteger/ person.Fields[7].AsInteger;

// Замена углубленного изучения

with dmpay.move do

fields[44].AsCurrency:=((fields[17].AsFloat+fields[18].AsFloat)/coff.Fields[3].AsFloat + (fields[19].AsFloat+fields[20].AsFloat) / coff.Fields[4].AsFloat) * fields[22].AsFloat*person.Fields[4].AsFloat;

//Оплата ставки

with dmpay.move do

fields[45].AsCurrency:=fields[30].AsFloat*fields[33].AsFloat*person.Fields[9].AsInteger / person.Fields[7].AsInteger;

//Классное руководство

with dmpay.move do

fields[46].AsCurrency:=person.Fields[4].AsFloat*fields[21].AsFloat* person.Fields[9].AsInteger / person.Fields[7].AsInteger;

//Вредность

with dmpay.move do

fields[47].AsCurrency:=person.Fields[4].AsFloat*fields[23].AsFloat* person.Fields[9].AsInteger/person.Fields[7].AsInteger;

// Внеклассная работа

with dmpay.move do

fields[48].AsCurrency:=person.Fields[4].AsFloat*fields[24].AsFloat* person.Fields[9].AsInteger/person.Fields[7].AsInteger;

//Итого

with dmpay.move do

fields[49].AsCurrency:=fields[47].AsCurrency+fields[46].AsCurrency+ fields[45].AsCurrency+fields[44].AsCurrency+fields[42].AsCurrency+ fields[41].AsCurrency+fields[40].AsCurrency+fields[39].AsCurrency+ fields[48].AsCurrency+fields[43].AsCurrency;

//Обязательные пенсионные взносы

with dmpay.move do

fields[53].AsCurrency:=fields[54].AsFloat*fields[49].AsFloat;

end;

procedure TdmPay.personCalcFields(DataSet: TDataSet);

begin

with dmPay.person do

fields[9].AsFloat:=fields[7].AsFloat-fields[8].AsFloat;

end;

Листинг окна поиска:

procedure Tfff.SpeedButton2Click(Sender: TObject);

var LO:TLocateOptions;

begin

LO:=[];

if CheckBox1.Checked then LO:=LO+[loCaseInsensitive];

if Checkbox2.Checked then LO:=[loPartialKey];

dmPay.person.Locate('P_Name',edit1.Text,LO);

fff.Close;

end;

end.

ПРИЛОЖЕНИЕ В

Листинг окна программы «Сумма ИПН»

unit ipn;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, ExcelXP, OleServer, Menus;

var

frm_ipn: Tfrm_ipn;

implementation

uses dmPayU, sum_soc, soc, prjBase, tabTime, frm_tim, frm_kl_ruk, frm_propusk, PropD, frm_vnekl, frm_vred, frm_ekolg, Zam, frm_kn;

{$R *.dfm}

procedure Tfrm_ipn.Button1Click(Sender: TObject);

var n:OleVariant;

begin

n:='C:\ЗарПлата\nal.xls';

excelapplication1.Workbooks.Open(n,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,0);

ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);

ExcelApplication1.Cells.Item[13,11].value:=DBedit2.Text;

ExcelWorkbook1.Save;

// обмен данными

edit39.Text:=excelapplication1.Cells.Item[13,10];

edit40.Text:=excelapplication1.Cells.Item[14,10];

edit41.Text:=excelapplication1.Cells.Item[15,10];

edit42.Text:=excelapplication1.Cells.Item[16,10];

edit43.Text:=excelapplication1.Cells.Item[17,10];

edit44.Text:=excelapplication1.Cells.Item[18,10];

edit45.Text:=excelapplication1.Cells.Item[19,10];

edit46.Text:=excelapplication1.Cells.Item[20,10];

edit47.Text:=excelapplication1.Cells.Item[21,10];

edit48.Text:=excelapplication1.Cells.Item[22,10];

edit49.Text:=excelapplication1.Cells.Item[23,10];

edit50.Text:=excelapplication1.Cells.Item[24,10];

edit52.Text:=excelapplication1.Cells.Item[25,10];

edit27.Text:=excelapplication1.Cells.Item[13,12];

edit28.Text:=excelapplication1.Cells.Item[14,12];

edit29.Text:=excelapplication1.Cells.Item[15,12];

edit30.Text:=excelapplication1.Cells.Item[16,12];

edit31.Text:=excelapplication1.Cells.Item[17,12];

edit32.Text:=excelapplication1.Cells.Item[18,12];

edit33.Text:=excelapplication1.Cells.Item[19,12];

edit34.Text:=excelapplication1.Cells.Item[20,12];

edit35.Text:=excelapplication1.Cells.Item[21,12];

edit36.Text:=excelapplication1.Cells.Item[22,12];

edit37.Text:=excelapplication1.Cells.Item[23,12];

edit38.Text:=excelapplication1.Cells.Item[24,12];

Edit1.Text:=excelapplication1.Cells.Item[13,13];

edit2.Text:=excelapplication1.Cells.Item[14,13];

edit3.Text:=excelapplication1.Cells.Item[15,13];

edit4.Text:=excelapplication1.Cells.Item[16,13];

edit5.Text:=excelapplication1.Cells.Item[17,13];

edit6.Text:=excelapplication1.Cells.Item[18,13];

edit7.Text:=excelapplication1.Cells.Item[19,13];

edit8.Text:=excelapplication1.Cells.Item[20,13];

edit9.Text:=excelapplication1.Cells.Item[21,13];

edit10.Text:=excelapplication1.Cells.Item[22,13];

edit11.Text:=excelapplication1.Cells.Item[23,13];

edit12.Text:=excelapplication1.Cells.Item[24,13];

Edit13.Text:=excelapplication1.Cells.Item[13,11];

edit14.Text:=excelapplication1.Cells.Item[14,11];

edit15.Text:=excelapplication1.Cells.Item[15,11];

edit16.Text:=excelapplication1.Cells.Item[16,11];

edit17.Text:=excelapplication1.Cells.Item[17,11];

edit18.Text:=excelapplication1.Cells.Item[18,11];

edit19.Text:=excelapplication1.Cells.Item[19,11];

edit20.Text:=excelapplication1.Cells.Item[20,11];

edit21.Text:=excelapplication1.Cells.Item[21,11];

edit22.Text:=excelapplication1.Cells.Item[22,11];

edit23.Text:=excelapplication1.Cells.Item[23,11];

edit24.Text:=excelapplication1.Cells.Item[24,11];

end;

procedure Tfrm_ipn.N3Click(Sender: TObject);

var n:OleVariant;

begin

n:='C:\ЗарПлата\nal.xls';

excelapplication1.Workbooks.Open(n,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,emptyParam,0);

ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);

ExcelApplication1.Cells.Item[13,11].value:=DBedit2.Text;

ExcelWorkbook1.Save;

edit39.Text:=excelapplication1.Cells.Item[13,10];

edit40.Text:=excelapplication1.Cells.Item[14,10];

edit41.Text:=excelapplication1.Cells.Item[15,10];

edit42.Text:=excelapplication1.Cells.Item[16,10];

edit43.Text:=excelapplication1.Cells.Item[17,10];

edit44.Text:=excelapplication1.Cells.Item[18,10];

edit45.Text:=excelapplication1.Cells.Item[19,10];

edit46.Text:=excelapplication1.Cells.Item[20,10];

edit47.Text:=excelapplication1.Cells.Item[21,10];

edit48.Text:=excelapplication1.Cells.Item[22,10];

edit49.Text:=excelapplication1.Cells.Item[23,10];

edit50.Text:=excelapplication1.Cells.Item[24,10];

edit52.Text:=excelapplication1.Cells.Item[25,10];

edit27.Text:=excelapplication1.Cells.Item[13,12];

edit28.Text:=excelapplication1.Cells.Item[14,12];

edit29.Text:=excelapplication1.Cells.Item[15,12];

edit30.Text:=excelapplication1.Cells.Item[16,12];

edit31.Text:=excelapplication1.Cells.Item[17,12];

edit32.Text:=excelapplication1.Cells.Item[18,12];

edit33.Text:=excelapplication1.Cells.Item[19,12];

edit34.Text:=excelapplication1.Cells.Item[20,12];

edit35.Text:=excelapplication1.Cells.Item[21,12];

edit36.Text:=excelapplication1.Cells.Item[22,12];

edit37.Text:=excelapplication1.Cells.Item[23,12];

Характеристики

Список файлов ВКР