ox19.Text <>'')
// and (edit28.Text <>'')
(edit29.Text <>'') and
(edit23.Text <>'')
// and (edit30.Text <>'') and (edit27.Text <>'') begin. Parameters.ParamValues ​​['@ n']: = Edit23.Text;. Parameters.ParamValues ​​['@ lnom']: = dblookupcombobox1.KeyValue;
// ADOStoredProc7. Parameters.ParamValues ​​['@ nomp']: = Edit24.Text;
ADOStoredProc7. Parameters.ParamValues ​​['@ nompo']: = dblookupcombobox19.KeyValue;. Parameters.ParamValues ​​['@ nomm']: = nomer;
ADOStoredProc7. Parameters.ParamValues ​​['@ data']: = datetimepicker2.Date;
// ADOStoredProc7. Parameters.ParamValues ​​['@ cena']: = Edit28.Text;. Parameters.ParamValues ​​['@ kol']: = Edit29.Text;. Parameters.ParamValues ​​['@ art']: = dblookupcombobox21.KeyValue;. ExecProc;. Close;. Open; showmessage ('Неправильний введення');; TForm1.Button8Click (Sender:
// val (dblookupcombobox42.k, x, z1) ;//(z1 = 0)
// dblookupcombobox42.Text <>'') and
(dblookupcombobox42.Text <>'') ']: = dblookupcombobox42.KeyValue;. ExecProc;. Close;. Open; showmessage (' Неправильний введення ');
else showmessage ('Запис вже існує/даний товар відсутній в каталозі');
end; TForm1.FormCreate (Sender:
// form1.Caption: = 'ТОВ' + unit2.Form2.DBLookupComboBox1.Text;
// nomer: = unit2.Form2.DBLookupComboBox1.KeyValue; ADOtable6 dolocate ('nomer_magazina', nomer, []) begin: = False;: = 'nomer_magazina =' + Quotedstr (inttostr (nomer ));: = True;
end
else begin showmessage ('В даному магазині не здійснювалася жодна продаж');
end; ADOtable7 dolocate ('nomer_magazina', nomer, []) begin: = False;: = 'nomer_magazina =' + Quotedstr (inttostr (nomer));: = True;
end
else begin showmessage ('В даному магазині не здійснювався жоден замовлення'); end
end; ADOtable4 do ('nomer_magazina', nomer, []) begin: = False;: = 'nomer_magazina =' + Quotedstr (inttostr (nomer));: = True;
end
else begin showmessage ('В даному магазині немає жодного продавця'); end
end;
// dbgrid1.Visible: = false;
// unit3.Form3.Visible: = true;
// 4.Visible: = false;. Visible: = false;. Visible: = false;
