ADOQueryNakl.Active:=False;
ADOQueryNakl.SQL.Clear;
ADOQueryNakl.SQL.Add('Execute Nakl_insert '''+Edit4.Text+''','''+Edit1.Text+''', ');
ADOQueryNakl.SQL.Add(''''+Edit2.Text+''','''+Edit3 .Text+''',');
ADOQueryNakl.SQL.Add(''''+DBLookupListBox5.Selecte dItem+''','''+DBLookupComboBox1.Text+''','''+Label 3.Caption+'''');
ADOQueryNakl.SQL.Add('Execute tovar '''+DBLookupListBox5.SelectedItem+''' ');
FormDel.A.Active:=False;
Form6.tn.Active:=False;
Form3.ADOTable1.Active:=False;
try
ADOQueryNakl.Active:=True;
except
прикольная тема
|