Программное средство, которое обеспечивает учет спецодежды в Молодечненских электрических сетях
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Btn2Click(Sender: TObject);.Rabot_Set.Prior;;Trabot.BitBtn3Click(Sender: TObject);.Rabot_Set.Next;;Trabot.BitBtn4Click(Sender: TObject);.Rabot_Set.Last;;Trabot.N5Click(Sender: TObject);.Visible:=true;.Visible:=false;.Rabot_Set.Insert;;Trabot.N6Click(Sender: TObject);.Visible:=true;.Visible:=false;.Rabot_Set.Edit;;Trabot.BitBtn5Click(Sender: TObject);.Rabot_Set.Post;.Visible:=false;;Trabot.BitBtn6Click(Sender: TObject);.Visible:=false;.Caption:=;.Visible:=true;.Visible:=false;.Text:=;;Trabot.N11Click(Sender: TObject);.Rabot_Set.Active:=false;.Rabot_Set.SelectSQL.Clear;.Rabot_Set.SelectSQL.Add(select * from raboti order by rabot ASC);.Rabot_Set.Active:=true;;Trabot.N12Click(Sender: TObject);.Rabot_Set.Active:=false;.Rabot_Set.SelectSQL.Clear;.Rabot_Set.SelectSQL.Add(select * from raboti order by rabot DESC);.Rabot_Set.Active:=true;;Trabot.N13Click(Sender: TObject);.Visible:=true;.Caption:=Введите название выполняемых работ:;.Visible:=false;.Visible:=true;;Trabot.Edit1Change(Sender: TObject);.Rabot_Set.Locate(rabot,Edit1.Text,[loCaseInsensitive, loPartialKey]);;Trabot.N15Click(Sender: TObject);_rab.QuickRep1.Preview;;.Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Menus, Grids, DB, DBGrids;= class(TForm): TDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TGroupBox;: TEdit;: TBitBtn;: TBitBtn;: TMenuItem;: TMenuItem;BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);N5Click(Sender: TObject);BitBtn6Click(Sender: TObject);N6Click(Sender: TObject);BitBtn5Click(Sender: TObject);N10Click(Sender: TObject);N11Click(Sender: TObject);N13Click(Sender: TObject);Edit1Change(Sender: TObject);N15Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: Tmater;Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit2, Unit3, Unit4, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}Tmater.BitBtn1Click(Sender: TObject);.mater_set.First;;Tmater.BitBtn2Click(Sender: TObject);.mater_set.Prior;;Tmater.BitBtn3Click(Sender: TObject);.mater_set.Next;;Tmater.BitBtn4Click(Sender: TObject);.mater_set.Last;;Tmater.N2Click(Sender: TObject);:integer;:integer;:=0;.mater_Set.Last;.mater_Set.First;i:=0 to Form1.mater_Set.RecordCount-1 do:=k+1;.mater_Set.Next;
end;(Количество записей в справочнике: +IntToStr(k));
end;Tmater.N3Click(Sender: TObject);.Close;;Tmater.N5Click(Sender: TObject);.Visible:=true;.Visible:=false;.Visible:=true;.mater_set.Insert;;Tmater.BitBtn6Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=true;.Text:=;.Caption:=;;Tmater.N6Click(Sender: TObject);.Visible:=true;.Visible:=false;.Visible:=true;.mater_set.Edit;;Tmater.BitBtn5Click(Sender: TObject);.mater_set.Post;.Visible:=false;.Visible:=false;.Visible:=true;;Tmater.N10Click(Sender: TObject);.mater_Set.Active:=false;.mater_Set.SelectSQL.Clear;.mater_Set.SelectSQL.Add(select * from material order by mater ASC);.mater_Set.Active:=true;;Tmater.N11Click(Sender: TObject);.mater_Set.Active:=false;.mater_Set.SelectSQL.Clear;.mater_Set.SelectSQL.Add(select * from material order by mater DESC);.mater_Set.Active:=true;;Tmater.N13Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=false;.Caption:=Введите название материала:;;Tmater.Edit1Change(Sender: TObject);.mater_Set.Locate(mater,Edit1.Text,[loCaseInsensitive, loPartialKey]);;Tmater.N15Click(Sender: TObject);_mat.QuickRep1.Preview;;.Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, Buttons, Grids, DB, DBGrids;= class(TForm): TDBGrid;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TEdit;: TBitBtn;: TBitBtn;N2Click(Sender: TObject);N3Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);BitBtn5Click(Sender: TObject);BitBtn6Click(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);N7Click(Sender: TObject);N10Click(Sender: TObject);N11Click(Sender: TObject);N13Click(Sender: TObject);Edit1Change(Sender: TObject);
{ Private declarations }
{ Public declarations };: Tstat;Unit1;
{$R *.dfm}Tstat.N2Click(Sender: TObject);:integer;:integer;:=0;.stat_Set.Last;.stat_Set.First;i:=0 to Form1.stat_Set.RecordCount-1 do:=k+1;.stat_Set.Next;
end;(Количество записей в справочнике: +IntToStr(k));
end;Tstat.N3Click(Sender: TObject);.Close;;Tstat.N5Click(Sender: TObject);.Visible:=true;.Visible:=false;.stat_Set.Insert;;Tstat.N6Click(Sender: TObject);.Visible:=true;.Visible:=false;.stat_Set.Edit;;Tstat.BitBtn5Click(Sender: TObject);.stat_Set.Post;.Visible:=false;.Visible:=true;.stat_Set.FieldByName(stat).ReadOnly:=true;;Tstat.BitBtn6Click(Sender: TObject);.Visible:=false;.Visible:=true;.Visible:=true;.Text:=;.Caption:=;.stat_Set.FieldByName(stat).ReadOnly:=true;;Tstat.BitBtn1Click(Sender: TObject);.stat_Set.First;;Tstat.BitBtn2Click(Sender: TObject);.stat_Set.Prior;;Tstat.BitBtn3Click(Sender: TObject);.stat_Set.Next;;Tstat.BitBtn4Click(Sender: TObject);.stat_Set.Last;;Tstat.N10Click(Sender: TObject);.stat_Set.Active:=false;.stat_Set.SelectSQL.Clear;.stat_Set.SelectSQL.Add(select * from stat order by stat ASC);.stat_Set.Active:=true;;Tstat.N11Click(Sender: TObject);.stat_Set.Active:=false;.stat_Set.SelectSQL.Clear;.stat_Set.SelectSQL.Add(select * from stat order by stat DESC);.stat_Set.Active:=true;;Tstat.N13Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=false;.Caption:=Введите статью калькуляции:;;Tstat.Edit1Change(Sender: TObject);.stat_Set.Locate(stat,Edit1.Text,[loCaseInsensitive, loPartialKey]);;.Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DBCtrls, StdCtrls, Mask, ExtCtrls, DB, Menus, Buttons;= class(TForm): TDBGrid;: TGroupBox;: TGroupBox;: TGroupBox;: TEdit;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TBitBtn;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TEdit;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TLabel;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;FormActivate(Sender: TObject);N7Click(Sender: TObject);BitBtn1Click(Sender: TObject);N9Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);BitBtn2Click(Sender: TObject);N14Click(Sender: TObject);N15Click(Sender: TObject);N16Click(Sender: TObject);N17Click(Sender: TObject);N18Click(Sender: TObject);N19Click(Sender: TObject);N13Click(Sender: TObject);Edit2Change(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);BitBtn5Click(Sender: TObject);BitBtn6Click(Sender: TObject);N21Click(Sender: TObject);N8Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: Tsostav;Unit1, Unit8, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6, Unit9, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit20, Unit21;
0then">{$R *.dfm}Tsostav.FormActivate(Sender: TObject);: integer;: double;:=0;.sostav_Set.First;i:=0 to Form1.sostav_Set.RecordCount-1 do:=x+strtofloat(Form1.sostav_Set.fieldbyname(sum).AsString);.sostav_Set.Next;;.Text:=floattostr(x);;Tsostav.N7Click(Sender: TObject);: integer;, mes: string;.sostav_Set.FieldByName(mater).ReadOnly:=false;.sostav_Set.FieldByName(ed_izm).ReadOnly:=false;.ReadOnly:=false;.Visible:=true;.Visible:=false;:=label3.Caption;:=strtoint(label4.Caption);:=label6.Caption;.sostav_Set.insert;.sostav_Set.FieldByName(mes).Value:=mes;.sostav_Set.FieldByName(god).Value:=god;.sostav_Set.FieldByName(kod_izd).Value:=strtoint(izd);;Tsostav.BitBtn1Click(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_sostav.dbLookupcombobox1.KeyValue;.kalk_Set.ParamByName(param_mes).Value:=nov_sostav.combobox1.Text;.kalk_Set.ParamByName(param_god).Value:=strtoint(nov_sostav.combobox2.Text);.kalk_Set.Active:=true;.kalk_Set.Last;Form1.kalk_Set.RecordCount<>0 then
0 then">if MessageDlg(Необходимо будет провести переiет калькуляции. Продолжить?, mtCustom, [mbyes,mbno], 0) = mrYes.sostav_Set.Edit;.ReadOnly:=true;.Visible:=false;.Label3.Caption:=nov_sostav.combobox1.Text;.Label4.Caption:=nov_sostav.combobox2.Text;.Label5.Caption:=nov_sostav.dbLookupcombobox1.Text;.Show;.sostav_Set.FieldByName(mater).ReadOnly:=true;.sostav_Set.FieldByName(ed_izm).ReadOnly:=true;.ReadOnly:=true;;;Tsostav.N9Click(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_sostav.dbLookupcombobox1.KeyValue;.kalk_Set.ParamByName(param_mes).Value:=nov_sostav.combobox1.Text;.kalk_Set.ParamByName