Search options (Page 2 of 3)

paste this script separately or in Form1 ? I just have a connection to the 1 database..

procedure Form1_OnShow (Sender: string; Action: string);
var
   //////////////////////////////////////////////////////////////////////////////////////////////////Создаем переменые для меню
   //////////////////////////////////////////////////////////////////////////////////////////////////Создаем переменые меню
   MyItem1: TMenuItem;//Файл
   MyItem2: TMenuItem;//О программе
   MySubItem3: TMenuItem;//Файл - закрыть
   ok: boolean;
   var  vreminder: string; vapps : integer;

   ////////////////////////////////////////////////////////////////////////////////////////////////////
begin
     frmWait.Show;
     Application.ProcessMessages;
     {$MySQL disable_connectdialog}
     Form1.MySQLConnection.Server := '10.24.221.20';
     Form1.MySQLConnection.Port := 3306;
     Form1.MySQLConnection.Username := 'BASE';
     Form1.MySQLConnection.Password := '123123';
     Form1.MySQLConnection.Database := 'newbase';
       try
       // попытка 1...
    Form1.MySQLConnection.Connect;
    ok:=true;
  except
      end;
  if not ok then                                           
    begin                                               
      Form1.MySQLConnection.Server := '192.168.1.85';
      Form1.MySQLConnection.Port := 3306;
      Form1.MySQLConnection.Username := 'BASE';
      Form1.MySQLConnection.Password := '123123';
      Form1.MySQLConnection.Database := 'newbase';
      try
            // попытка 2...
        Form1.MySQLConnection.Connect;
        ok:=true;
        except
        end;
    end;
       if ok then
    begin
    UpdateDatabase('');
    end else
    begin
     frmWait.Close;
     ShowMessage('Проверте подключение к базе данных');
     Form1.Close;
end;
     if Form1.MySQLConnection.Connected then
     UpdateDatabase('');

frmOrder.cbClient.dbItemID := Form1.gridOrdered.dbItemID; - в событии открытия формы frmOrder - происходит следующее при нажатии с Form1 в таблице показать запись в combobox frmOrder - вылезает другое ID не то которое было выбрано в таблице... в чем проблема подскажите

Please help me, I just need from the form: employees - I select names through the search - then they go as a new record in OrderT - then we create a new record in the OrderProduct form and on this form, when saving with a button without a script, id_employees are NOT saved (this field is located in the table Orderproduct

Table - Employees
Table - OrderT
Table - OrderProduct

Hello
I have a new entry on the form, open it and save it to the database with a script, and the next time you go to view or change the entry, then when you try to click on this script, a repeated entry is added. How to avoid it?
Here is the button script:
procedure frmOrderProduct_Button6_OnClick(Sender: TObject; var Cancel: boolean);
var
s:string
maxID:string;
maxID2:string;
maxID3:string;
maxID4:string;
begin
      // Pass from product combobox to another combobox

        begin
      //Save the value in the additional table with the button
      maxID := SQLExecute('SELECT MAX(id) FROM ORDERT');
      maxID2 := SQLExecute('SELECT id_employees FROM ORDERT WHERE id= '+maxID+'');
      maxID4 := SQLExecute('SELECT MAX(id) FROM Product');
      SQLExecute('INSERT INTO orderproduct (Quantity, QuantityFact, Cost, summa, kolminus, ID_ORDERT, id_employees,id_product) VALUES('+frmOrderProduct.edQuantity.Text+','+frmOrderProduct.Edit1.Text+','+frmOrderProduct.edCost.Text+ ','+frmOrderProduct.edTotal.Text+','+frmOrderProduct.kolminus.Text+','+maxID+','+maxID2+','+frmOrderProduct.cbProduct.sqlValue+')');
      UpdateDatabase('orderproduct');
      frmOrderProduct.Button6.dbDontResetID := False;
      end;

    begin
    frmOrder.bSearchGridOrdered.Click;
    end;
end;

Hello everyone, how can I find out in the computational field that checkbox = Null?
(select count(*) from table where checkbox = -1) ?

А есть такой вариант как то сделать когда добавляешь например заказ - и указываешь сумму то автоматически на этот заказ создается как бы лицевой счет с этой суммой и когда ты будешь добавлять по этому заказу продукты - то он будет уменьшаться и когда дойдет до 0 сообщение или если не дошел до 0 то тоже сообщение есть пример? Помогите пожалуйста..

Смотрите что получилось я добавил вычислительные поля...
Вот как сделать так чтоб если строка G и строка H соответствовали 10 то сообщение готово если больше 10 в H то ошибка ?

спасибо Как всегда работает )