Geum.ru


Программное средство, которое обеспечивает учет спецодежды в Молодечненских электрических сетях

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



m_god).Value:=strtoint(combobox2.Text);.sostav_Set.Active:=true;Form1.sostav_Set.RecordCount=0 then

begin(На этот период расход материалов на данное изделие не составлен);

end.norm_rasc_Set.Active:=false;.norm_rasc_Set.SelectSQL.Clear;.norm_rasc_Set.SelectSQL.Add(select * from norm_rascenki where kod_izd=:param_izd and mes=:param_mes and god=:param_god);.norm_rasc_Set.ParamByName(param_izd).Value:=dbLookupcombobox1.KeyValue;.norm_rasc_Set.ParamByName(param_mes).Value:=combobox1.Text;.norm_rasc_Set.ParamByName(param_god).Value:=strtoint(combobox2.Text);.norm_rasc_Set.Active:=true;Form1.norm_rasc_Set.RecordCount=0 then

begin(На этот период нормы времени и расценки для данного изделия не введены);

end:=0;.sostav_Set.Last;.sostav_Set.First;i:=0 to Form1.sostav_Set.RecordCount-1 do:=x+strtofloat(Form1.sostav_Set.fieldbyName(sum).AsString);.sostav_Set.Next;;:=round(x);:=0;.norm_rasc_Set.Last;.norm_rasc_Set.First;i:=0 to Form1.norm_rasc_Set.RecordCount-1 do:=y+Form1.norm_rasc_Set.fieldbyName(rascenka).Value;.norm_rasc_Set.Next;;.stat_Set.Last;.stat_Set.First;i:=0 to Form1.stat_Set.RecordCount-1 do.kalk_Set.Insert;.kalk_Set.FieldByName(mes).Value:=combobox1.Text;.kalk_Set.FieldByName(god).Value:=strtoint(combobox2.Text);.kalk_Set.FieldByName(kod_izd).Value:=dblookupcombobox1.KeyValue;.kalk_Set.FieldByName(kod_stat).Value:=Form1.stat_Set.fieldbyname(kod_stat).Value;.kalk_Set.FieldByName(koef).Value:=Form1.stat_Set.fieldbyname(koef).Value;.stat_Set.Next;.kalk_Set.Post;;.kalk_Set.Active:=false;.kalk_Set.SelectSQL.Clear;.kalk_Set.SelectSQL.Add(select * from kalkul where kod_izd=:param_izd and mes=:param_mes and god=:param_god);.kalk_Set.ParamByName(param_izd).Value:=dbLookupcombobox1.KeyValue;.kalk_Set.ParamByName(param_mes).Value:=combobox1.Text;.kalk_Set.ParamByName(param_god).Value:=strtoint(combobox2.Text);.kalk_Set.Active:=true;.kalk_Set.Last;.kalk_Set.First;i:=0 to Form1.kalk_Set.RecordCount-1 doForm1.kalk_Set.Locate(kod_stat,1,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=x;_m:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,8,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=y;_ozp:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,5,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=strtofloat(edit1.Text);_ten:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,6,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=strtofloat(edit2.Text);_en:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,2,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_m/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_tzr:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,7,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_ozp*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_zp:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,9,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_zp/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_strah:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,11,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_zp/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_nesch:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,12,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_zp/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_proizv:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,13,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_m+s_tzr+s_ten+s_en+s_zp+s_strah+s_nesch+s_proizv;_pr_s:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,14,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_pr_s/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_kr:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,15,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_pr_s/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_ohr:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,16,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_pr_s+s_kr+s_ohr;_pol_s:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,17,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_pol_s/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_p:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,18,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_pol_s+s_p;_op_c:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,20,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;:=s_op_c;:=Trunc(m);:=n mod 100;s<50 then s_d_op_c:=n-s else s_d_op_c:=n+(100-s);.kalk_Set.FieldByName(summa).Value:=s_d_op_c;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,21,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_pol_s;_zat:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,22,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_d_op_c;_bezNDS:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,23,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=round(s_bezNDS/100*strtofloat(Form1.kalk_Set.fieldbyname(koef).AsString));_NDS:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,24,[loCaseInsensitive, loPartialKey]).kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_bezNDS+s_NDS;.kalk_Set.Post;;;.Label3.Caption:=combobox1.Text;.Label4.Caption:=combobox2.Text;.Label5.Caption:=dblookupcombobox1.Text;.Show;;;;;;;Tnov_kalk.BitBtn2Click(Sender: TObject);(dblookupcombobox1.Text=) or (combobox1.text=)(combobox2.Text=)showMessage(Не все поля заполнены!).kalk_Set.Active:=false;.kalk_Set.SelectSQL.Clear;.kalk_Set.SelectSQL.Add(select * from kalkul where kod_izd=:param_izd and mes=:param_mes and god=:param_god);.kalk_Set.ParamByName(param_izd).Value:=dbLookupcombobox1.KeyValue;.kalk_Set.ParamByName(param_mes).Value:=combobox1.Text;.kalk_Set.ParamByName(param_god).Value:=strtoint(combobox2.Text);.kalk_Set.Active:=true;Form1.kalk_Set.RecordCount=0 then

showmessage(Калькуляция по данному изделию на данный период не составлена)

else.Label3.Caption:=combobox1.Text;.Label4.Caption:=combobox2.Text;.Label5.Caption:=dblookupcombobox1.Text;.Show;_kalk.Close;;;;Tnov_kalk.FormActivate(Sender: TObject);.Text:=FormatDateTime(mmmm, Now);.Text:=FormatDateTime(yyyy, Now);;Tnov_kalk.BitBtn3Click(Sender: TObject);(dblookupcombobox1.Text=) or (combobox1.text=)(combobox2.Text=) showMessage(Не все поля заполнены!).kalk_Set.Active:=false;.kalk_Set.SelectSQL.Clear;.kalk_Set.SelectSQL.Add(select * from kalkul where kod_izd=:param_izd and mes=:param_mes and god=:param_god);.kalk_Set.ParamByName(param_izd).Value:=dbLookupcombobox1.KeyValue;.kalk_Set.ParamByName(param_mes).Value:=combobox1.Text;.kalk_Set.ParamByName(param_god).Value:=strtoint(combobox2.Text);.kalk_Set.Active:=true;Form1.kalk_Set.RecordCount=0 then

showmessage(Калькуляция по данному изделию на данный период не составлена)

else_kalk.QuickRep1.Preview;_kalk.Close;;;;.Unit13;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QRCtrls, QuickRpt, ExtCtrls;_kalk = class(TForm): TQuickRep;: TQRBand;: TQRBand;: TQRBand;: TQRBand;: TQRBand;: TQRBand;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRDBText;: TQRDBText;: TQRShape;: TQRShape;: TQRShape;: TQRShape;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRExpr;: TQRShape;: TQRDBText;: TQRShape;: TQRDBText;: TQRShape

Copyright © 2008-2014 geum.ru   рубрикатор по предметам  рубрикатор по типам работ  пользовательское соглашение