>//edit.Visible:=True;DBEditEh2.Visible:=True;DBEditEh3.Visible:=True;.Visible:=True;edt2.Visible:=True;edt3.Visible:=True;;;
//_____ Pokupateli_nach
//create newTForm1.btn1Click (Sender: TObject); _ name, poku_adres, poku_phone: string;_name:=QuotedStr(unit1.Form1.DBEditEh1.Text);_adres:=QuotedStr(unit1.Form1.DBEditEh2.Text);_phone:=QuotedStr(unit1.Form1.DBEditEh3.Text);Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec new_pok + poku_name + , + poku_adres + , + poku_phone) ;;. DataModule2.qryPokup.Active:=False;.DataModule2.qryPokup. Active:=True ;;;
//deleteTForm1.btn2Click (Sender: TObject); _ poku: string; _poku:=QuotedStr (unit1.Form1.DBComboBoxEh1.Text); Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec delete_pok + id_poku) ;;. DataModule2.qryPokup.Active:=False;.DataModule2.qryPokup.Active:=True ;;;
//sortirovkaTForm1.DBCheckBoxEh1Click (Sender: TObject); unit1.Form1.DBCheckBoxEh1.Checked=True thenunit2.DataModule2.qryPokup do; .Clear; .Add ( select * from poku order by name raquo ;) ;;;;; TForm1.DBCheckBoxEh2Click (Sender: TObject); unit1.Form1.DBCheckBoxEh2.Checked=True thenunit2.DataModule2.qryPokup do; .Clear; .Add ( select * from poku order by adres ); ;;;;
//poiskTForm1.edt8Change (Sender: TObject); _ help1, poku_help2: string;_help1:=laquo;%raquo;+unit1.Form1.edt8.Text+laquo;%raquo;;_help2:=QuotedStr(poku_help1);unit2.DataModule2.qryPokup do; .Clear; .Add ( select * from poku where name like + poku_help2) ;;;; TForm1.edt9Change (Sender: TObject); _ help3, poku_help4: string;_help3:=laquo;%raquo;+unit1.Form1.edt9.Text+laquo;%raquo;;_help4:=QuotedStr(poku_help3);unit2.DataModule2.qryPokup do; .Clear; .Add ( select * from poku where adres like + poku_help4) ;;;; TForm1.edt10Change (Sender: TObject); _ help5, poku_help6: string;_help5:=laquo;%raquo;+unit1.Form1.edt10.Text+laquo;%raquo;;_help6:=QuotedStr(poku_help5);unit2.DataModule2.qryPokup do; .Clear; .Add ( select * from poku where phone like + poku_help6) ;;;;
//Pokupateli_kon
//Postavshiki_nach
//create newTForm1.btn3Click (Sender: TObject); _ name, post_adres, post_phone: string;_name:=QuotedStr(unit1.Form1.DBEditEh1.Text);_adres:=QuotedStr(unit1.Form1.DBEditEh2.Text);_phone:=QuotedStr(unit1.Form1.DBEditEh3.Text);Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec new_post +post_name+laquo;,raquo;+post_adres+laquo;,raquo;+post_phone);;.DataModule2.qryPostav.Active:=False;.DataModule2.qryPostav.Active:=True;;;
//deleteTForm1.btn6Click (Sender: TObject); _ id: string; _id:=QuotedStr (unit1.Form1.DBComboBoxEh3.Text); Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec delete_post + post_id) ;;. DataModule2.qryPostav.Active:=False;.DataModule2.qryPostav.Active:=True ;;;
//poiskTForm1.edt11Change (Sender: TObject); _ help1, post_help2: string;_help1:=laquo;%raquo;+unit1.Form1.edt11.Text+laquo;%raquo;;_help2:=QuotedStr(post_help1);unit2.DataModule2.qryPostav do; .Clear; .Add ( select * from post where name like + post_help2) ;;;; TForm1.edt12Change (Sender: TObject); _ help3, post_help4: string;_help3:=laquo;%raquo;+unit1.Form1.edt12.Text+laquo;%raquo;;_help4:=QuotedStr(post_help3);unit2.DataModule2.qryPostav do; .Clear; .Add ( select * from post where adres like + post_help4) ;;;; TForm1.edt13Change (Sender: TObject); _ help5, post_help6: string;_help5:=laquo;%raquo;+unit1.Form1.edt13.Text+laquo;%raquo;;_help6:=QuotedStr(post_help5);unit2.DataModule2.qryPostav do; .Clear; .Add ( select * from post where phone like + post_help6) ;;;;
//sortirovkaTForm1.DBCheckBoxEh3Click (Sender: TObject); unit1.Form1.DBCheckBoxEh3.Checked=True thenunit2.DataModule2.qryPostav do; .Clear; .Add ( select * from post order by name raquo ;) ;;;;; TForm1.DBCheckBoxEh4Click (Sender: TObject); unit1.Form1.DBCheckBoxEh4.Checked=True thenunit2.DataModule2.qryPostav do; .Clear; .Add ( select * from post order by adres ); ;;;;
//Postavshiki_kon
//Dogovori_nach
//create_newTForm1.btn4Click (Sender: TObject); _ idt, cont_kol, cont_idps, cont_idpk: string;_idt:=QuotedStr(unit1.Form1.DBEditEh1.Text);_kol:=QuotedStr(unit1.Form1.DBEditEh2.Text);_idps:=QuotedStr(unit1.Form1.DBEditEh3.Text);_idpk:=QuotedStr(unit1.Form1.edt1.Text);Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec new_cont raquo;+cont_idt+laquo;,raquo;+cont_kol+laquo;,raquo;+cont_idps+laquo;,raquo;+cont_idpk);;.DataModule2.qryContact.Active:=False;.DataModule2.qryContact.Active:=True;;;
//deleteTForm1.btn7Click (Sender: TObject); _ id: string; _id:=QuotedStr (unit1.Form1.DBComboBoxEh5.Text); Unit2.DataModule2.qryHelp do; .Clear; .Add ( exec delete_cont + cont_id) ;;. DataModule2.qryContact.Active:=False;.DataModule2.qryCon...
