Программное средство, которое обеспечивает учет спецодежды в Молодечненских электрических сетях
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
(param_god).Value:=strtoint(nov_sostav.combobox2.Text);.kalk_Set.Active:=true;.kalk_Set.Last;Form1.kalk_Set.RecordCount<>0 then
if MessageDlg(Необходимо будет провести переiет калькуляции. Продолжить?, mtCustom, [mbyes,mbno], 0) = mrYes .ReadOnly:=false;MessageDlg(Удалить выбранную запись?, mtCustom, [mbyes,mbno], 0) = mrYes .sostav_Set.Delete;.Label3.Caption:=nov_sostav.combobox1.Text;.Label4.Caption:=nov_sostav.combobox2.Text;.Label5.Caption:=nov_sostav.dbLookupcombobox1.Text;.Show;.ReadOnly:=true;.sostav_Set.FieldByName(mater).ReadOnly:=true;.sostav_Set.FieldByName(ed_izm).ReadOnly:=true;;;Tsostav.N5Click(Sender: TObject);:integer;:integer;:=0;.sostav_Set.Last;.sostav_Set.First;i:=0 to Form1.sostav_Set.RecordCount-1 do:=k+1;.sostav_Set.Next;
end;(Количество затраченных материалов на изделие: +IntToStr(k));
end;Tsostav.N6Click(Sender: TObject);.Close;;Tsostav.BitBtn2Click(Sender: TObject);.sostav_Set.FieldByName(mater).ReadOnly:=true;.ReadOnly:=true;.Visible:=false;.Visible:=false;.Visible:=true;.Caption:=;.Text:=;.sostav_Set.Cancel;;Tsostav.N14Click(Sender: TObject);.sostav_Set.Active:=false;.sostav_Set.SelectSQL.Clear;.sostav_Set.SelectSQL.Add(select * from sostav_izd, material where material.kod_mater=sostav_izd.kod_mater order by mater ASC);.sostav_Set.Active:=true;;Tsostav.N15Click(Sender: TObject);.sostav_Set.Active:=false;.sostav_Set.SelectSQL.Clear;.sostav_Set.SelectSQL.Add(select * from sostav_izd, material where material.kod_mater=sostav_izd.kod_mater order by mater DESC);.sostav_Set.Active:=true;;Tsostav.N16Click(Sender: TObject);.sostav_Set.Active:=false;.sostav_Set.SelectSQL.Clear;.sostav_Set.SelectSQL.Add(select * from sostav_izd order by stoim ASC);.sostav_Set.Active:=true;;Tsostav.N17Click(Sender: TObject);.sostav_Set.Active:=false;.sostav_Set.SelectSQL.Clear;.sostav_Set.SelectSQL.Add(select * from sostav_izd order by stoim DESC);.sostav_Set.Active:=true;;Tsostav.N18Click(Sender: TObject);.sostav_Set.Active:=false;.sostav_Set.SelectSQL.Clear;.sostav_Set.SelectSQL.Add(select * from sostav_izd order by norma ASC);.sostav_Set.Active:=true;;Tsostav.N19Click(Sender: TObject);.sostav_Set.Active:=false;.sostav_Set.SelectSQL.Clear;.sostav_Set.SelectSQL.Add(select * from sostav_izd order by norma DESC);.sostav_Set.Active:=true;;Tsostav.N13Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=false;.Caption:=Введите наименование материала:;;Tsostav.Edit2Change(Sender: TObject);.sostav_Set.Locate(mat,Edit2.Text,[loCaseInsensitive, loPartialKey]);;Tsostav.BitBtn3Click(Sender: TObject);.sostav_Set.First;;Tsostav.BitBtn4Click(Sender: TObject);.sostav_Set.Prior;;Tsostav.BitBtn5Click(Sender: TObject);.sostav_Set.Next;;Tsostav.BitBtn6Click(Sender: TObject);.sostav_Set.Last;;Tsostav.N21Click(Sender: TObject);_sostav.QuickRep1.Preview;;Tsostav.N8Click(Sender: TObject);.ReadOnly:=false;.Visible:=true;.Visible:=false;.sostav_Set.Edit;.sostav_Set.FieldByName(mater).ReadOnly:=false;.sostav_Set.FieldByName(ed_izm).ReadOnly:=false;;.Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DBCtrls;_sostav = class(TForm): TGroupBox;: TBitBtn;: TDBLookupComboBox;: TGroupBox;: TComboBox;: TComboBox;: TBitBtn;: TBitBtn;BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);FormActivate(Sender: TObject);BitBtn3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_sostav: Tnov_sostav;Unit1, Unit7, Unit2, Unit3, Unit4, Unit5, Unit6, Unit11, Unit10, Unit12, Unit13, Unit14, Unit9;
{$R *.dfm}Tnov_sostav.BitBtn1Click(Sender: TObject);(combobox1.Text=) or (combobox2.Text=) or (dblookupcombobox1.Text=)
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(param_god).Value:=strtoint(combobox2.Text);.sostav_Set.Active:=true;Form1.sostav_Set.RecordCount=0 then
showmessage(На этот период расход данного изделия не составлен)
else.Label3.Caption:=combobox1.Text;.Label4.Caption:=combobox2.Text;.Label5.Caption:=dblookupcombobox1.Text;.Label6.Caption:=dblookupcombobox1.KeyValue;.Show;_sostav.Close;;;Tnov_sostav.BitBtn2Click(Sender: TObject);i:integer;(combobox1.Text=) or (combobox2.Text=) or (dblookupcombobox1.Text=)
then showmessage(Не все поля заполнены!)
0">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(param_god).Value:=strtoint(combobox2.Text);.sostav_Set.Active:=true;.sostav_Set.Last;Form1.sostav_Set.RecordCount<>0
then showmessage(Расход материалов по данному изделию на данный период уже составлен)
else.Label3.Caption:=combobox1.Text;.Label4.Caption:=combobox2.Text;.Label5.Caption:=dblookupcombobox1.Text;.Label6.Caption:=dblookupcombobox1.KeyValue;.Show;_sostav.Close;;;;Tnov_sostav.FormActivate(Sender: TObject);.Text:=FormatDateTime(mmmm, Now);.Text:=FormatDateTime(yyyy, Now);;Tnov_sostav.BitBtn3Click(Sender: TObject);(combobox1.Text=) or (combobox2.Text=) or (dblookupcombobox1.Text=)
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(param_god).Value:=strtoint(combobox2.Text);.sostav_Set.Active:=true;Form1.sostav_Set.RecordCount=0 then
showmessage(На этот период расход данного изделия не составлен)
else_sostav.QuickRep1.Preview;_sostav.Close;;;.Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB, Menus, Buttons;_rasc = class(TForm): TDBGrid;: TGroupBox;: TGroupBox;: TGroupBox;: TLabel;: TEdit;: TEdit;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TBitBtn;: TEdit;: TBitBtn;: TLabel;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;N2Click(Sender: TObject);N5Click(Sender: TObject);BitBtn5Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);BitBtn6Click(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);N13Click(Sender: TObject);N14Click(Sender: TObject);N15Click(Sender: TObject);N16Click(Sender: TObject);N17Click(Sender: TObject);N18Click(Sender: TObject);N3Click(Sender: TObject);N19Click(Sender: TObject);Edit3Change(Sender: TObject);N21Click(Sender: TObject);FormActivate(Sender: TObject);
{ Private declarations }
{ Public declarations };_rasc: Tnorm_rasc;Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit13, Unit14, Unit15;
{$R *.dfm}Tnorm_rasc.N2Click(Sender: TObject);:integer;:integer;:=0;.norm_rasc_Set.Last;.norm_rasc_Set.First;i:=0 to Form1.norm_rasc_Set.RecordCount-1 do:=k+1;.norm_rasc_Set.Next;
end;(Количество бригад, выполняющие данные работы: +IntToStr(k));
0then">end;Tnorm_rasc.N5Click(Sender: TObject);: integer;, mes: string;.ReadOnly:=false;.norm_rasc_Set.FieldByName(rabot).ReadOnly:=false;.Visible:=true;.Visible:=false;:=label3.Caption;:=strtoint(label4.Caption);:=label6.Caption;.norm_rasc_Set.Insert;.norm_rasc_Set.Edit;Form1.norm_rasc_Set.State in [dsEdit] then.norm_rasc_Set.FieldByName(kod_izd).Value:=strtoint(label6.Caption);.norm_rasc_Set.FieldByName(mes).Value:=label3.Caption;.norm_rasc_Set.FieldByName(god).Value:=strtoint(label4.Caption);.norm_rasc_Set.FieldByName(norma).Value:=1;.norm_rasc_Set.FieldByName(rascenka).Value:=1;;;Tnorm_rasc.BitBtn5Click(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
0 then">if MessageDlg(Необходимо будет