Topic: Предупреждение перед сохранением если отрицательное!
Уважаемые пользователи кто -нибудь знает как можно реализовать скрипт на кнопку с сохранением если:
На кнопку идет скрипт сохранение в Table1 :
procedure frmOrderProduct_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
s: string;
maxID:string;
maxID2:string;
maxID3:string;
maxID4:string;
sBirthDate: string;
begin
//Передаем с combobox продукта на другой combobox
if (frmOrderProduct.ComboBox1.dbItemID = -1) and (frmOrderProduct.ComboBox1.Text <> '') then
begin
if 6 = MessageDlg(' Добавить продукт на ' + frmOrderProduct.Edit2.Text, mtConfirmation, mbYes + mbNo, 0) then
begin
//Сохраняем кнопкой значение в дополнительной таблице
if frmOrderProduct.DateTimePicker1.Checked then
sBirthDate := '"' + FormatDateTime('yyyy-MM-DD 00:00:00.000', frmOrderProduct.DateTimePicker1.Date) + '"'
else sBirthDate := 'NULL';
maxID := SQLExecute('SELECT MAX(id) FROM ORDERT');
maxID2 := SQLExecute('SELECT id_employees FROM ORDERT WHERE id= "'+maxID+'"');
maxID3 := SQLExecute('SELECT id_product FROM ORDERPRODUCT WHERE id='+frmOrderProduct.cbProduct.sqlValue);
maxID4 := SQLExecute('SELECT name FROM KolTovar WHERE id='+frmOrderProduct.KolTovar.sqlValue);
SQLExecute('INSERT INTO bsm_off (Dates, INN, ID_ORDERT, id_employees, id_product, id_Koltovar, productnamedop) VALUES ('+sBirthDate+', "'+frmOrderProduct.KolTovar.Text+'", "'+maxID+'","'+maxID2+'","'+maxID3+'","'+maxID4+'","'+frmOrderProduct.ComboBox1.Text+'")');
UpdateDatabase('bsm_off');
frmOrderProduct.Combobox1.dbItemID := Last_Insert_id;
end;
end;
Суть такая: есть Edit ( INN ) - общее количество например 10
И есть combobox frmOrderProduct.KolTovar.sqlValue в котором ты указываешь значение например 1
После значение 1 сохраняться в базу даных
А можно сделать так чтобы если 11 раз ты через combobox добавшь строку то скрипт не даст это сделать ?