Программное средство, которое обеспечивает учет спецодежды в Молодечненских электрических сетях
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
провести переiет калькуляции. Продолжить?, mtCustom, [mbyes,mbno], 0) = mrYes .norm_rasc_Set.Edit;.norm_rasc_Set.FieldByName(kod_izd).Value:=strtoint(label6.Caption);.norm_rasc_Set.FieldByName(mes).Value:=label3.Caption;.norm_rasc_Set.FieldByName(god).AsString:=label4.Caption;.norm_rasc_Set.Post;.Visible:=false;.Label3.Caption:=nov_norm_rasc.combobox1.Text;.Label4.Caption:=nov_norm_rasc.combobox2.Text;.Label5.Caption:=nov_norm_rasc.dbLookupcombobox1.Text;.Show;.ReadOnly:=true;.norm_rasc_Set.FieldByName(rabot).ReadOnly:=true;;;Tnorm_rasc.N6Click(Sender: TObject);.ReadOnly:=false;.norm_rasc_Set.FieldByName(rabot).ReadOnly:=false;.Visible:=true;.Visible:=false;.norm_rasc_Set.Edit;;Tnorm_rasc.N7Click(Sender: TObject);.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:=nov_norm_rasc.dbLookupcombobox1.KeyValue;.kalk_Set.ParamByName(param_mes).Value:=nov_norm_rasc.combobox1.Text;.kalk_Set.ParamByName(param_god).Value:=strtoint(nov_norm_rasc.combobox2.Text);.kalk_Set.Active:=true;.kalk_Set.Last;Form1.kalk_Set.RecordCount<>0 then
if MessageDlg(Необходимо будет провести переiет калькуляции. Продолжить?, mtCustom, [mbyes,mbno], 0) = mrYes MessageDlg(Удалить выбранную запись?, mtCustom, [mbyes,mbno], 0) = mrYes .norm_rasc_Set.Delete;.Label3.Caption:=nov_norm_rasc.combobox1.Text;.Label4.Caption:=nov_norm_rasc.combobox2.Text;.Label5.Caption:=nov_norm_rasc.dbLookupcombobox1.Text;.Show;.ReadOnly:=true;.norm_rasc_Set.FieldByName(rabot).ReadOnly:=true;;;Tnorm_rasc.BitBtn6Click(Sender: TObject);.Visible:=false;.Visible:=false;.Text:=;.Visible:=true;.Caption:=;.norm_rasc_Set.Cancel;;Tnorm_rasc.BitBtn1Click(Sender: TObject);.norm_rasc_Set.First;;Tnorm_rasc.BitBtn2Click(Sender: TObject);.norm_rasc_Set.Prior;;Tnorm_rasc.BitBtn3Click(Sender: TObject);.norm_rasc_Set.Next;;Tnorm_rasc.BitBtn4Click(Sender: TObject);.norm_rasc_Set.Last;;Tnorm_rasc.N13Click(Sender: TObject);.norm_rasc_Set.Active:=false;.norm_rasc_Set.SelectSQL.Clear;.norm_rasc_Set.SelectSQL.Add(select * from norm_rascenki, raboti where raboti.kod_rabot=norm_rascenki.kod_rabot order by rabot ASC);.norm_rasc_Set.Active:=true;;Tnorm_rasc.N14Click(Sender: TObject);.norm_rasc_Set.Active:=false;.norm_rasc_Set.SelectSQL.Clear;.norm_rasc_Set.SelectSQL.Add(select * from norm_rascenki, raboti where raboti.kod_rabot=norm_rascenki.kod_rabot order by rabot DESC);.norm_rasc_Set.Active:=true;;Tnorm_rasc.N15Click(Sender: TObject);.norm_rasc_Set.Active:=false;.norm_rasc_Set.SelectSQL.Clear;.norm_rasc_Set.SelectSQL.Add(select * from norm_rascenki order by norma ASC);.norm_rasc_Set.Active:=true;;Tnorm_rasc.N16Click(Sender: TObject);.norm_rasc_Set.Active:=false;.norm_rasc_Set.SelectSQL.Clear;.norm_rasc_Set.SelectSQL.Add(select * from norm_rascenki order by norma DESC);.norm_rasc_Set.Active:=true;;Tnorm_rasc.N17Click(Sender: TObject);.norm_rasc_Set.Active:=false;.norm_rasc_Set.SelectSQL.Clear;.norm_rasc_Set.SelectSQL.Add(select * from norm_rascenki order by rascenka ASC);.norm_rasc_Set.Active:=true;;Tnorm_rasc.N18Click(Sender: TObject);.norm_rasc_Set.Active:=false;.norm_rasc_Set.SelectSQL.Clear;.norm_rasc_Set.SelectSQL.Add(select * from norm_rascenki order by rascenka DESC);.norm_rasc_Set.Active:=true;;Tnorm_rasc.N3Click(Sender: TObject);_rasc.Close;;Tnorm_rasc.N19Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=false;.Caption:=Введите выполняемую работу:;;Tnorm_rasc.Edit3Change(Sender: TObject);.norm_rasc_Set.Locate(rab,Edit3.Text,[loCaseInsensitive, loPartialKey]);;Tnorm_rasc.N21Click(Sender: TObject);_norm_rasc.QuickRep1.Preview;;Tnorm_rasc.FormActivate(Sender: TObject);: integer;,y: double;:=0;:=0;.norm_rasc_Set.Last;.norm_rasc_Set.First;i:=0 to Form1.norm_rasc_Set.RecordCount-1 do:=x+Form1.norm_rasc_Set.fieldbyName(norma).Value;:=y+Form1.norm_rasc_Set.fieldbyName(rascenka).Value;.norm_rasc_Set.Next;;.Text:=floattostr(x);.Text:=floattostr(y);;.Unit10;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DBCtrls;_norm_rasc = class(TForm): TGroupBox;: TDBLookupComboBox;: TBitBtn;: TGroupBox;: TComboBox;: TComboBox;: TBitBtn;: TBitBtn;BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);FormActivate(Sender: TObject);BitBtn3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_norm_rasc: Tnov_norm_rasc;Unit1, Unit9, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit12, Unit15, Unit11, Unit13, Unit14;
{$R *.dfm}Tnov_norm_rasc.BitBtn1Click(Sender: TObject);(combobox1.Text=) or (combobox2.Text=) or (dblookupcombobox1.Text=)
then showmessage(Не все поля заполнены!)
else.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
showmessage(На этот период нормы времени и расценки для данного изделия не введены)
else_rasc.Label3.Caption:=combobox1.Text;_rasc.Label4.Caption:=combobox2.Text;_rasc.Label5.Caption:=dbLookupcombobox1.Text;_rasc.Label6.Caption:=dbLookupcombobox1.KeyValue;_rasc.Show;_norm_rasc.Close;;;Tnov_norm_rasc.BitBtn2Click(Sender: TObject);:integer;(combobox1.Text=) or (combobox2.Text=) or (dblookupcombobox1.Text=)
then showmessage(Не все поля заполнены!)
0then">else.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;.norm_rasc_Set.Last;Form1.norm_rasc_Set.RecordCount<>0 then
showmessage(Нормы времени и расценки по данному изделию на этот период уже введены)
else_rasc.Label3.Caption:=combobox1.Text;_rasc.Label4.Caption:=combobox2.Text;_rasc.Label5.Caption:=dbLookupcombobox1.Text;_rasc.Label6.Caption:=dbLookupcombobox1.KeyValue;_rasc.Show;_norm_rasc.Close;;;;Tnov_norm_rasc.FormActivate(Sender: TObject);.Text:=FormatDateTime(mmmm, Now);.Text:=FormatDateTime(yyyy, Now);;Tnov_norm_rasc.BitBtn3Click(Sender: TObject);(combobox1.Text=) or (combobox2.Text=) or (dblookupcombobox1.Text=)
then showmessage(Не все поля заполнены!)
else.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
showmessage(На этот период нормы времени и расценки для данного изделия не введены)
else_norm_rasc.QuickRep1.Preview;_norm_rasc.Close;;;.Unit11;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, DB, ExtCtrls;= class(TForm): TDBGrid;: TGroupBox;: TLabel;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TLabel;: TBitBtn;: TLabel;: TLabel;: TLabel;: TBitBtn;BitBtn2Click(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);BitBtn5Click(Sender: TObject);BitBtn6Click(Sender: TObject);FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations };: Tkalk;Unit1, Unit10, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit12, Unit13;
{$R *.dfm}Tkalk.BitBtn2Click(Sender: TObject);.kalk_Set.Prior;;Tkalk.BitBtn1Click(Sender: TObject);.kalk_Set.First;;Tkalk.BitBtn3Click(Sender: TObject);.kalk_Set.Next;;Tkalk.BitBtn4Click(Sender: TObject);.kalk_Set.Last;;Tkalk.BitBtn5Click(Sender: TObject);_kalk.QuickRep1.Preview;;;Tkalk.BitBtn6Click(Sender: TObject);x,y: double;: integer;
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;;
//иiисление калькуляции.kalk_Set.Last;.kalk_Set.First;i:=0 to Form1.kalk_Set.RecordCount-1 doForm1.kalk_Set.Locate(kod_st