: = 'select * from prodannoe where (DATAPRODAJI>'' '+ Edit2.Text +') and (DATAPRODAJI <'' '+ Edit3.Text +') 'RadioGroup1.ItemIndex = 2 then.Lines [0]: =' select * from prodannoe where ( DATAPRODAJI> ='' '+ '01.'
+ Edit4.Text + ')' + 'and (DATAPRODAJI <=''' + '31. '
+ Edit4.Text + ')';. SQL: = Memo1.Lines;. Open;; TForm1.RadioGroup2Click (Sender: TObject);. Enabled: = false; Edit6.Enabled: = false ; Edit7.Enabled: = false;. Enabled: = false; RadioGroup2.ItemIndex of
: Edit5.Enabled: = True;
: Edit6.Enabled: = True;
: Edit7.Enabled: = True;
: Edit8.Enabled: = True;;; TForm1.Button13Click (Sender: TObject);. Close; RadioGroup2.ItemIndex = 0 then.Lines [0]: = 'select * from nali4ie where NAIMENOVANIE ='' '+ Edit5.TextRadioGroup2.ItemIndex = 1 then.Lines [0]: =' select * from nali4ie where ID ='' '+ Edit6.TextRadioGroup2.ItemIndex = 2 then.Lines [0]: =' select * from nali4ie where CENA> ='' '+ Edit7.TextRadioGroup2.ItemIndex = 3 then.Lines [0]: =' select * from nali4ie where RAZMER ='' '+ Edit8.Text;. SQL: = Memo1.Lines;. Open;; TForm1.RadioGroup3Click (Sender: TObject);. Enabled: = False; Edit10.Enabled: = False; Edit11.Enabled: = False;. Enabled: = False; RadioGroup3.ItemIndex of
: Edit9.Enabled: = True;
: begin.Enabled: = True;. Enabled: = True;;
: Edit12.Enabled: = True;;; TForm1.Button14Click (Sender: TObject);. Close; RadioGroup3.ItemIndex = 0 then.Lines [0]: = 'select * from DOGOVOR where DATADOGOVORA ='' '+ Edit9.TextRadioGroup3.ItemIndex = 1 then.Lines [0]: =' select * from DOGOVOR where (DATADOGOVORA>'' '+ Edit10.Text +') and (DATADOGOVORA <'' '+ Edit11.Text + ')' RadioGroup3.ItemIndex = 2 then.Lines [0]: = 'select * from DOGOVOR where (DATADOGOVORA> =''' + '01. '
+ Edit12.Text + ')' + 'and (DATADOGOVORA <=''' + '30. '
+ Edit12.Text + ')';. SQL: = Memo1.Lines;. Open;; TForm1.Button19Click (Sender: TObject);. Enabled: = true;. Close;. Lines [ 0]: = 'select * from postavwik where id_otdel = 1';. SQL: = Memo1.Lines;. Open;; TForm1.Button20Click (Sender: TObject);. Enabled: = true;. Close;. Lines [0] : = 'select * from postavwik where id_otdel = 2';. SQL: = Memo1.Lines;. Open;; TForm1.Button21Click (Sender: TObject);. Enabled: = true;. Close;. Lines [0]: = 'select * from postavwik where id_otdel = 3';. SQL: = Memo1.Lines;. Open;; TForm1.Button18Click (Sender: TObject);. Enabled: = true;. Close;. Lines [0]: = 'select * from postavwik ';. SQL: = Memo1.Lines;....