48366 (Проектирование информационной системы "Начисление заработной платы сотрудникам школы"), страница 7
Описание файла
Документ из архива "Проектирование информационной системы "Начисление заработной платы сотрудникам школы"", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "остальное", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48366"
Текст 7 страницы из документа "48366"
{$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];
