Программное средство, которое обеспечивает учет спецодежды в Молодечненских электрических сетях
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
k.BitBtn3.Visible:=false;_kalk.GroupBox3.Visible:=false;;TForm1.N21Click(Sender: TObject);_kalk.GroupBox3.Visible:=false;_kalk.bitbtn1.Visible:=false;_kalk.BitBtn2.Visible:=false;_kalk.BitBtn3.Visible:=true;_kalk.Show;;TForm1.N19Click(Sender: TObject);_sostav.BitBtn3.Visible:=true;_sostav.BitBtn2.Visible:=false;_sostav.BitBtn1.Visible:=false;_sostav.Show;;TForm1.N20Click(Sender: TObject);_norm_rasc.BitBtn1.Visible:=false;_norm_rasc.BitBtn2.Visible:=false;_norm_rasc.BitBtn3.Visible:=true;_norm_rasc.Show;;TForm1.N7Click(Sender: TObject);MessageDlg(Выйти из программы?, mtCustom, [mbyes,mbno], 0) = mrYes;;TForm1.N23Click(Sender: TObject);_prog.Show;;TForm1.N24Click(Sender: TObject);.Show;;TForm1.sostav_SetsumChange(Sender: TField);: 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;;.edit1.Text:=floattostr(x);;TForm1.norm_rasc_SetNORMAChange(Sender: TField);: integer;: double;:=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;.norm_rasc_Set.Next;;_rasc.edit1.Text:=floattostr(x);;TForm1.norm_rasc_SetRASCENKAChange(Sender: TField);: integer;: double;:=0;.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;;_rasc.edit2.Text:=floattostr(y);;TForm1.N17Click(Sender: TObject);.Show;;TForm1.sostav_SetSTOIMChange(Sender: TField);: 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;;.edit1.Text:=floattostr(x);;TForm1.sostav_SetNORMAChange(Sender: TField);: 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;;.edit1.Text:=floattostr(x);;.Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Menus, StdCtrls, DB, Buttons;_izm = class(TForm): TDBGrid;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TBitBtn;: TEdit;: TBitBtn;N11Click(Sender: TObject);N12Click(Sender: TObject);BitBtn5Click(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);N10Click(Sender: TObject);N9Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);Edit1Change(Sender: TObject);FormActivate(Sender: TObject);N8Click(Sender: TObject);BitBtn6Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_izm: Ted_izm;Unit1;
{$R *.dfm}Ted_izm.N11Click(Sender: TObject);.Visible:=true;.Visible:=false;.Ed_Set.Insert;;Ted_izm.N12Click(Sender: TObject);.Visible:=true;.Visible:=false;.Ed_Set.Edit;;Ted_izm.BitBtn5Click(Sender: TObject);.Ed_Set.Post;.Visible:=true;.Visible:=true;.Text:=;.Visible:=false;.Caption:=;;Ted_izm.BitBtn1Click(Sender: TObject);.Ed_Set.First;;Ted_izm.BitBtn2Click(Sender: TObject);.Ed_Set.Prior;;Ted_izm.BitBtn3Click(Sender: TObject);.Ed_Set.Next;;Ted_izm.BitBtn4Click(Sender: TObject);.Ed_Set.Last;;Ted_izm.N10Click(Sender: TObject);_izm.Close;;Ted_izm.N9Click(Sender: TObject);:integer;:integer;:=0;.Ed_Set.Last;.Ed_Set.First;i:=0 to Form1.Ed_Set.RecordCount-1 do:=k+1;.Ed_Set.Next;
end;(Количество записей в справочнике: +IntToStr(k));
end;Ted_izm.N5Click(Sender: TObject);.Ed_Set.Active:=false;.Ed_Set.SelectSQL.Clear;.Ed_Set.SelectSQL.Add(select * from ed_izm order by ed_izm ASC);.Ed_Set.Active:=true;;Ted_izm.N6Click(Sender: TObject);.Ed_Set.Active:=false;.Ed_Set.SelectSQL.Clear;.Ed_Set.SelectSQL.Add(select * from ed_izm order by ed_izm DESC);.Ed_Set.Active:=true;;Ted_izm.Edit1Change(Sender: TObject);.Ed_Set.Locate(ed_izm,Edit1.Text,[loCaseInsensitive, loPartialKey]);;Ted_izm.FormActivate(Sender: TObject);.Visible:=false;;Ted_izm.N8Click(Sender: TObject);.Visible:=true;.Visible:=false;
groupbox1.Caption:=Введите название единицы измерения:;
end;Ted_izm.BitBtn6Click(Sender: TObject);.Visible:=true;.Visible:=true;.Text:=;.Visible:=false;.Caption:=;;.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, Menus;= class(TForm): TDBGrid;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TBitBtn;: TEdit;: TBitBtn;: TMenuItem;: TMenuItem;N6Click(Sender: TObject);N5Click(Sender: TObject);FormActivate(Sender: TObject);N7Click(Sender: TObject);N8Click(Sender: TObject);BitBtn6Click(Sender: TObject);BitBtn5Click(Sender: TObject);N13Click(Sender: TObject);N15Click(Sender: TObject);N17Click(Sender: TObject);N14Click(Sender: TObject);N16Click(Sender: TObject);N18Click(Sender: TObject);N19Click(Sender: TObject);N20Click(Sender: TObject);N21Click(Sender: TObject);Edit1Change(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);N23Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: Tizd;: string; Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}Tizd.N6Click(Sender: TObject);.Close;;Tizd.N5Click(Sender: TObject);:integer;:integer;:=0;.Izd_Set.Last;.Izd_Set.First;i:=0 to Form1.Izd_Set.RecordCount-1 do:=k+1;.Izd_Set.Next;
end;(Количество записей в справочнике: +IntToStr(k));
end;Tizd.FormActivate(Sender: TObject);.Visible:=false;;Tizd.N7Click(Sender: TObject);.Visible:=true;.Izd_Set.Insert;;Tizd.N8Click(Sender: TObject);.Visible:=true;.Izd_Set.Edit;;Tizd.BitBtn6Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=true;.Text:=;.Caption:=;;Tizd.BitBtn5Click(Sender: TObject);.Izd_Set.Post;.Visible:=false;;Tizd.N13Click(Sender: TObject);.Izd_Set.Active:=false;.Izd_Set.SelectSQL.Clear;.Izd_Set.SelectSQL.Add(select * from got_izd order by kod_obozn ASC);.Izd_Set.Active:=true;;Tizd.N15Click(Sender: TObject);.Izd_Set.Active:=false;.Izd_Set.SelectSQL.Clear;.Izd_Set.SelectSQL.Add(select * from got_izd order by izd ASC);.Izd_Set.Active:=true;;Tizd.N17Click(Sender: TObject);.Izd_Set.Active:=false;.Izd_Set.SelectSQL.Clear;.Izd_Set.SelectSQL.Add(select * from got_izd order by proekt ASC);.Izd_Set.Active:=true;;Tizd.N14Click(Sender: TObject);.Izd_Set.Active:=false;.Izd_Set.SelectSQL.Clear;.Izd_Set.SelectSQL.Add(select * from got_izd order by kod_obozn DESC);.Izd_Set.Active:=true;;Tizd.N16Click(Sender: TObject);.Izd_Set.Active:=false;.Izd_Set.SelectSQL.Clear;.Izd_Set.SelectSQL.Add(select * from got_izd order by izd DESC);.Izd_Set.Active:=true;;Tizd.N18Click(Sender: TObject);.Izd_Set.Active:=false;.Izd_Set.SelectSQL.Clear;.Izd_Set.SelectSQL.Add(select * from got_izd order by proekt DESC);.Izd_Set.Active:=true;;Tizd.N19Click(Sender: TObject);:=kod_obozn;.Visible:=true;.Caption:=Введите код изделия:;.Visible:=true;.Visible:=false;;Tizd.N20Click(Sender: TObject);:=izd;.Visible:=true;
groupbox1.Caption:=Введите название изделия:;
edit1.Visible:=true;.Visible:=false;;Tizd.N21Click(Sender: TObject);:=proekt;.Visible:=true;
groupbox1.Caption:=Введите проект изделия:;
edit1.Visible:=true;.Visible:=false;;Tizd.Edit1Change(Sender: TObject);.Izd_Set.Locate(shablon,Edit1.Text,[loCaseInsensitive, loPartialKey]);;Tizd.BitBtn1Click(Sender: TObject);.Izd_Set.First;;Tizd.BitBtn2Click(Sender: TObject);.Izd_Set.Prior;;Tizd.BitBtn3Click(Sender: TObject);.Izd_Set.Next;;Tizd.BitBtn4Click(Sender: TObject);.Izd_Set.Last;;Tizd.N23Click(Sender: TObject);_izd.QuickRep1.Preview;;.Unit4;, 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;N2Click(Sender: TObject);N3Click(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);BitBtn5Click(Sender: TObject);BitBtn6Click(Sender: TObject);N11Click(Sender: TObject);N12Click(Sender: TObject);N13Click(Sender: TObject);Edit1Change(Sender: TObject);N15Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: Trabot;Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit2, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}Trabot.N2Click(Sender: TObject);:integer;:integer;:=0;.Rabot_Set.Last;.Rabot_Set.First;i:=0 to Form1.Rabot_Set.RecordCount-1 do:=k+1;.Rabot_Set.Next;
end;(Количество записей в справочнике: +IntToStr(k));
end;Trabot.N3Click(Sender: TObject);.Close;;Trabot.BitBtn1Click(Sender: TObject);.Rabot_Set.First;;Trabot.Bit
Copyright © 2008-2014 geum.ru рубрикатор по предметам рубрикатор по типам работ пользовательское соглашение