51 Reply by chartcatuser

(12 replies, posted in Russian)

Andrei wrote:

Все равно не понятна задача.
Посмотрите данный вариант.

procedure frm_Button1_OnClick (Sender: TObject; var Cancel: boolean);
 begin  
      if ((frm.ComboBox1.dbItemID  = 1) and (frm.edit1.Text <> '10'))  then
    begin
        ShowMessage('Не правильно заполнено поле Edit');
        frm.edit1.SetFocus;
        Cancel := True;
        exit;
    end;
end;

Есть edit - в нем напрмиер 10
Есть combobox в нем ты указываешь значение 1 при котором кнопка скриптом сохраняет значение comboboxa -1
И вот вопрос заключается в том как не ошибиться нечайно 11 раз или 9 не сохранить запись так как в edit стоит 10

Go to forum: Russian

52 Reply by chartcatuser

(12 replies, posted in Russian)

k245 wrote:

Нифига не понял. Хер с ними, с запятыми, но смысл же должен быть в предложениях? Попробуйте в англоязычной ветке написать, может там вас лучше поймут....


Суть в том что на форме есть edit - он принимает цифру например 10
И есть combobox - ты выбираешь количество на определенную дату и кнопкой сохраняешь значение conbobox
Есть ли вариант чтобы если ты 10 раз в комбо бокс выбрал по 1 и сохранил то все ОК  если 9 или 11 то ошибку выдаст?

Go to forum: Russian

53 Reply by chartcatuser

(12 replies, posted in Russian)

Тоесть по сути сделать счетчик если количество в Edit превысит больше чем ты нажал на кнопку сохранить -- то ошибка и наоборот если меньше 10 тоже уведомление ....Все испробовал помогите пожалуйста

Go to forum: Russian

54 Topic by chartcatuser

(12 replies, posted in Russian)

Уважаемые пользователи кто -нибудь знает как можно реализовать скрипт на кнопку с сохранением если:
На кнопку идет скрипт сохранение в 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 добавшь строку то скрипт не даст это сделать ?

Go to forum: Russian

55 Reply by chartcatuser

(3 replies, posted in General)

А возможно в таблице нажатием на checkbox присвоить выделеной строке 0 или 1 ?

Go to forum: General

56 Reply by chartcatuser

(7 replies, posted in Russian)

Derek спасибо за внимание, я в этот же день сам разобрался с этим вопросом. Возник другой.
Есть таблица 1 и таблица 2 
В форме 1 показываються записи 1 и 2 таблицы
В форме 2 делаю запись через скрипт во вторую таблицу
И проблема в том что в форме 1 когда нажимаешь на запись в таблице 1 она не отображает дочерние записи во 2 таблице
может скриптом ?

Go to forum: Russian

57 Topic by chartcatuser

(7 replies, posted in Russian)

Всем привет.  Есть 2 таблицы:
Table1
Table2

В Table1 - мне нужен id этой таблицы
В Table2 - мне нужен поле идентификатора Table1 (id_table1)
таблицы связаны

Проблема состоит в том чтобы отобрать SQL запросом только те записи которые имеют значения: Table1 - id   и   Table2 - id_table1
Но чтобы другие записи не запрашивались кроме тех у которых совпадают два поля   id и id_table1
Помогите пожалуйста

Go to forum: Russian

58 Topic by chartcatuser

(0 replies, posted in General)

I ask for help there is one Order table in which orders are created and there is another Order2 table in which I record dates using the calendar with a double click. You can add another table in the same form so that when you click on the calendar 2 times, an entry in the order2 table immediately appears. Maybe an Sql query or something else. I just have all the entries displayed sad(

procedure frmOrderProduct_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
maxID:string;
ID2:string;
sBirthDate: string;
begin
      //combobox
      if (frmOrderProduct.ComboBox1.dbItemID = -1) and (frmOrderProduct.ComboBox1.Text <> '') then
    begin
        if 6 = MessageDlg(' Добавить продукт на  '  +  frmOrderProduct.Edit2.Text, mtConfirmation, mbYes + mbNo, 0) then
        begin
      //Save
       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');
      SQLExecute('INSERT INTO Order2 (Dates, INN, ID_ORDERT,productnamedop) VALUES ('+sBirthDate+', "'+frmOrderProduct.KolTovar.Text+'", "'+maxID+'", "'+frmOrderProduct.ComboBox1.Text+'")');
      frmOrder.TableGrid1.dbUpdate;
      UpdateDatabase('bsm_off');
      frmOrderProduct.ComboBox1.dbItemID := Last_Insert_id;
        end;
     end;
end;

Go to forum: General