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

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

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

k_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;

//иiисление калькуляции.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;;;

//конец иiисления.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;;;;.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;: TEdit;: TBitBtn;: TLabel;: TLabel;: TBitBtn;BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);FormActivate(Sender: TObject);BitBtn3Click(Sender: TObject);

{ Private declarations }

{ Public declarations };_kalk: Tnov_kalk;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(Калькуляция по данному периода на данное изделие уже составлена)

else.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(para

• На первую страницу
• Назад
• 16
• 17
• 18
• 19
• 20
• 21
• 22
• 23
• 24
• 25
• 26
• 27
• 28
• Далее

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