Программное средство, которое обеспечивает учет спецодежды в Молодечненских электрических сетях
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
at,5,[loCaseInsensitive, loPartialKey])_ten:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_ten;.kalk_Set.Post;;Form1.kalk_Set.Locate(kod_stat,6,[loCaseInsensitive, loPartialKey])_en:=Form1.kalk_Set.FieldByName(summa).Value;.kalk_Set.Edit;.kalk_Set.FieldByName(summa).Value:=s_en;.kalk_Set.Post;;Form1.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,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;;
end;(Переiет калькуляции выполнен успешно.);
//конец иiисления;Tkalk.FormActivate(Sender: TObject);(DBGrid1.Handle, SB_VERt, false);;.Unit12;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, DBCtrls;_kalk = class(TForm): TGroupBox;: TDBLookupComboBox;: TBitBtn;: TGroupBox;: TComboBox;: TComboBox;: TGroupBox;: TLabel;: TLabel;: TEdit;: TBitBtn;: TLabel;: TLabel;: TBitBtn;BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);FormActivate(Sender: TObject);BitBtn3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_kalk: Tnov_kalk;_NDS, s_bezNDS, s_m, s_zp, s_ten, s_en, s_tzr, s_ozp, s_strah, s_nesch, s_proizv, s_pr_s, s_kr, s_ohr, s_pol_s, s_p, s_op_c, s_d_op_c, s_zat: double;, n, s: integer;, y, m: double;Unit1, Unit10, Unit11, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit20, Unit21;
{$R *.dfm}Tnov_kalk.BitBtn1Click(Sender: TObject);_NDS, s_bezNDS, s_m, s_zp, s_ten, s_en, s_tzr, s_ozp, s_strah, s_nesch, s_proizv, s_pr_s, s_kr, s_ohr, s_pol_s, s_p, s_op_c, s_d_op_c, s_zat: double;, n, s: integer;, y, m: double;(dblookupcombobox1.Text=) or (combobox1.text=)(combobox2.Text=) or (edit1.Text=) or (edit2.Text=)
then showMessage(Не все поля заполнены!)
0">else.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;Form1.kalk_Set.RecordCount<>0
then showmessage(Калькуляция по данному изделию на этот период уже составлена)
//есть ли расход материалов?
Form1.sostav_Set.Active:=false;.sostav_Set.SelectSQL.Clear;.sostav_Set.SelectSQL.Add(select * from sostav_izd where kod_izd=:param_izd and mes=:param_mes and god=:param_god);.sostav_Set.ParamByName(param_izd).Value:=dbLookupcombobox1.KeyValue;.sostav_Set.ParamByName(param_mes).Value:=combobox1.Text;.sostav_Set.ParamByName(param_god).Value:=strtoint(combobox2.Text);.sostav_Set.Active:=true;Form1.sostav_Set.RecordCount=0 then
begin(На этот период расход материалов на данное изделие не составлен);
//есть ли нормы и расценки?
Form1.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(На этот период нормы времени и расценки для данного изделия не введены);:=0;
//сумма на сырье и материалы
Form1.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;;
x:=round(x);:=0;
//сумма осн.з/п произв. рабочих
Form1.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
begin
//добавление всех статей.kalk_Set.Insert;
Form1.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;
end;
//калькуляция на данное изделие на период
Form1.kal
Copyright © 2008-2014 geum.ru рубрикатор по предметам рубрикатор по типам работ пользовательское соглашение