tact.Active:=True ;;;
//poiskTForm1.edt4Change (Sender: TObject); _ help1, cont_help2: string;_help1:=laquo;%raquo;+unit1.Form1.edt4.Text+laquo;%raquo;;_help2:=QuotedStr(cont_help1);unit2.DataModule2.qryContact do; .Clear; .Add ( select * from cont where id_poku like + cont_help2) ;;;; TForm1.edt5Change (Sender: TObject); _ help3, cont_help4: string;_help3:=laquo;%raquo;+unit1.Form1.edt5.Text+laquo;%raquo;;_help4:=QuotedStr(cont_help3);unit2.DataModule2.qryContact do; .Clear; .Add ( select * from cont where id_post like + cont_help4) ;;;; TForm1.edt6Change (Sender: TObject); _ help5, cont_help6: string;_help5:=laquo;%raquo;+unit1.Form1.edt6.Text+laquo;%raquo;;_help6:=QuotedStr(cont_help5);unit2.DataModule2.qryContact do; .Clear; .Add ( select * from cont where id_tovara like + cont_help6) ;;;;
//sortirovkaTForm1.DBCheckBoxEh5Click (Sender: TObject); unit1.Form1.DBCheckBoxEh5.Checked=True thenunit2.DataModule2.qryContact do; .Clear; .Add ( select * from cont order by id_tovara raquo ;) ;;;;; TForm1.DBCheckBoxEh6Click (Sender: TObject); unit1.Form1.DBCheckBoxEh6.Checked=True thenunit2.DataModule2.qryContact do; .Clear; .Add ( select * from cont order by kolich ); ;;;;
//Dogovori_kon
Sklad_nach
//create_newTForm1.btn5Click (Sender: TObject); _ idp, sk_tname, sk_ediz, sk_kol, sk_pb, sk_ps: string;_idp:=QuotedStr(unit1.Form1.DBEditEh1.Text);_tname:=QuotedStr(unit1.Form1.DBEditEh2.Text);_ediz:=QuotedStr(unit1.Form1.DBEditEh3.Text);_kol:=QuotedStr(unit1.Form1.edt1.Text);_pb:=QuotedStr(unit1.Form1.edt2.Text);_ps:=QuotedStr(unit1.Form1.edt3.Text);Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec new_skldraquo;+sk_idp+laquo;,raquo;+sk_tname+laquo;,raquo;+sk_ediz+laquo;,raquo;+sk_kol+laquo;,raquo;+sk_pb+laquo;,raquo;+sk_ps);;.DataModule2.qrySklad.Active:=False;.DataModule2.qrySklad.Active:=True;;;
//delenieTForm1.btn8Click (Sender: TObject); _ id: string; _id:=QuotedStr (unit1.Form1.DBComboBoxEh7.Text); Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec delete_skld + skld_id) ;;. DataModule2.qrySklad.Active:=False;.DataModule2.qrySklad.Active:=True ;;;
//poiskTForm1.edt14Change (Sender: TObject); _ help3, sk_help4: string;_help3:=laquo;%raquo;+unit1.Form1.edt14.Text+laquo;%raquo;;_help4:=QuotedStr(sk_help3);unit2.DataModule2.qrySklad do; .Clear; .Add ( select * from skld where id_post like + sk_help4) ;;;; TForm1.edt15Change (Sender: TObject); _ help5, sk_help6: string;_help5:=laquo;%raquo;+unit1.Form1.edt15.Text+laquo;%raquo;;_help6:=QuotedStr(sk_help5);unit2.DataModule2.qrySklad do; .Clear; .Add ( select * from skld where tovar_name like + sk_help6) ;;;;
//sortirovkaTForm1.DBCheckBoxEh7Click (Sender: TObject); unit1.Form1.DBCheckBoxEh7.Checked=True thenunit2.DataModule2.qrySklad do; .Clear; .Add ( select * from skld order by tovar_name raquo ;) ;;;;; TForm1.DBCheckBoxEh8Click (Sender: TObject); unit1.Form1.DBCheckBoxEh8.Checked=True thenunit2.DataModule2.qrySklad do; .Clear; .Add ( select * from skld order by kolichestvo ); ;;;;
//Sklad_kon.
