Search options (Page 2 of 2)

привет, попробуйте реализовать через скрипт.

SqlExecute('SELECT SUM(поле в талице  которое нужно суммировать) FROM имя_таблицы WHERE id=' +1(2-3-4 ит.д)  );

Доброго дня,
Без закрытия есть в настройках самой кнопки - Сохранить запись. Нужно убрать галочку - Закрывать форму.
Очищение полей я делаю так -  после нажатия сохранить, добавляю скрипт на нажатие кнопки новая запись. если кнопка не нужно, то можно все в скрипте прописать (какие поля очищать) на процедуру AfterClick

с Ув. Андрей

Дмитрий. доброго времени!
приобрели программу.
подскажите пожалуйста, что не так?:

procedure fMain_Button1_OnClick (Sender: string; var Cancel: boolean);
         
            //1// № вагона
            if arrStr[1] = '' then arrStr[1] := 'NULL';
           
            //2// Станция дислокации
            if arrStr[2] = '' then arrStr[2] := 'NULL';
           
            //3// индекс поезда
            if arrStr[3] = '' then arrStr[3] := 'NULL';
           
            //4// дата дислокации // приводим дату к формату, который необходим для записи в БД
            if arrStr[4]<>'' then // если данные есть
            sDate1 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[4])) + '"'
            else sDate1 := 'NULL'; // иначе значение NULL
           
            //5// операция
            if arrStr[5] = '' then arrStr[5] := 'NULL';
           
            //6// Станция назначения
            if arrStr[6] = '' then arrStr[6] := 'NULL';
           
            //7// код грузополучателя
            if arrStr[7] <> '' then arrStr[7] := ''''+ ReplaceStr(arrStr[7], '''', '''''') + ''''
            else arrStr[7] := 'NULL';

            //8// наименование грузополучателя
            if arrStr[8] <> '' then arrStr[8] := ''''+ ReplaceStr(arrStr[8], '''', '''''') + ''''
            else arrStr[8] := 'NULL';

            //9// станция отправления
            if arrStr[9] = '' then arrStr[9] := 'NULL';
           
            //10// дата отправления // приводим дату к формату, который необходим для записи в БД
            if arrStr[10]<>'' then // если данные есть
            sDate2 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[10])) + '"'
            else sDate2 := 'NULL'; // иначе значение NULL

            //11// груз
            if arrStr[11] = '' then arrStr[11] := 'NULL';
           
            //12// собственник
            if arrStr[12] = '' then arrStr[12] := 'NULL';
           
            //13// род
            if arrStr[13] <> '' then arrStr[13] := ''''+ ReplaceStr(arrStr[13], '''', '''''') + ''''
            else arrStr[13] := 'NULL';
           
            //14// № накладной
            if arrStr[14] = '' then arrStr[14] := 'NULL';
           
            //15// состояние
            if arrStr[15] = '' then arrStr[15] := 'NULL';

            //16// парк
            if arrStr[16] = '' then arrStr[16] := 'NULL';
           
            //17// код неисправности
            arrStr[17] := ReplaceStr(arrStr[17], ',', '.');
            if arrStr[17] = '' then arrStr[17] := 'NULL';
           
            //18// вес груза
            arrStr[18] := ReplaceStr(arrStr[18], ',', '.');
            if arrStr[18] = '' then arrStr[18] := 'NULL';
           
            //19// грузоподъемность вагона
            arrStr[19] := ReplaceStr(arrStr[19], ',', '.');
            if arrStr[19] = '' then arrStr[19] := 'NULL';

    // проверяем, для избежания дубликатов, данная проверка не обязательна, и зависит от вашей ситуации
    //sval := SQLExecute('SELECT id FROM currency WHERE (date = ' + sDate + ') AND (id_valute = ' +  ValuteID + ') AND (value = ' + arrStr[2] + ') ;');
    //if sval = '' then // если в переменной sval - пусто, значит SQL запрос ничего не вернул, и дубликата данных нет
   
    // с помощью SQL запрос вставляем данные в БД
    SQLExecute ('INSERT INTO t_data (num_wag, st_dislok, index_poezda, d_dislok, oper, st_naznach, code_poluchatelya, name_poluchatelya, st-otprav, d_otpravleniya, gruz, sobstven, rod, naklad, sostoyanie, park, neispr_code, ves, gruzopod) VALUES ('+ arrStr[1] +', '+ arrStr[2] +', '+ arrStr[3] +', '+ sDate1 +', '+ arrStr[5] +', '+ arrStr[6] +', '+ arrStr[7] +', '+ arrStr[8] +', '+ arrStr[9] +', '+ sDate2 +', '+ arrStr[11] +', '+ arrStr[12] +', '+ arrStr[13] +', '+ arrStr[14] +', '+ arrStr[15] +', '+ arrStr[16] +', '+ arrStr[17] +', '+ arrStr[18] +', '+ arrStr[19] +');');
   
    // выводим в компонент надписи, какое количество строк с данными обработано
    fMain.Label1.Caption := 'Загружено строк ' + IntToStr(i) + ' из ' + IntToStr(c);
   
    // необходимо, чтобы надпись в Label один обновилась
    Application.ProcessMessages;
     end;
          sl.Free; // уничтожаем объект, после работы с ним
          fMain.TableGrid1.dbUpdate; // заставляем TableGrid обновить данные
     end;
     OpenDialog.Free; // уничтожаем объект, после работы с ним
end;

Данные не грузятся, вообще ничего не происходит - кроме обновления таблицы(

с Ув. Андрей

Дмитри, доброго времени суток,
сделал с этого проекта...
загвоздка вот в чем

есть связи с таблицами, как мне их прописать в коде?
пример

'BEGIN '+
    '    INSERT INTO logs(w_date, plant, operation, username, id_rec, date, agent, st, stcode)  VALUES (datetime(''now'', ''localtime''), ''SHC'', ''DELETE RECORD'', '+sUserName+', NEW.id, NEW.shc_data, NEW.shc_agent, NEW.id_st, NEW.id_st)

NEW.id_st ссылается на другую таблицу... если я оставляю так, то в логах появится только номер записи... как мне предопределить, что там на основании ID выберется другое значение, к примеру, stname (наименование станции)

еще один вопрос... не пойму где причина. есть комбобокс (связи настроены) все нормально. лишнего кода нет. на кнопку сохранить настроенно действие, что бы комбобокс4 участвовал в сохранении записи, но при нажатии сохранить, не добавляет запись.. в чем может быть проблема?

код только такой
procedure frmContracts_ComboBox4_OnChange (Sender: string; Action: string);
begin
    if   frmContracts.ComboBox4.text ='' then
         frmContracts.Edit14.text := ''
    else frmContracts.Edit14.text := SQLExecute('SELECT stname FROM st WHERE stCode = '+frmContracts.ComboBox4.text );
end;

прошу помочь

с Ув. Андрей

Дмитрий, доброго.
Да, получилось. но немного доработал, спасибо огромное.

в принципе этот проект содержит в себе многие функции, которые есть на сайте - авторизация, формулы, sql запросы, (отчеты тут не нужны, есть отчетная ввкладка), связи, иморт, выгрузка в excel, если вдруг кому будет нужен , могу скинуть.

в планах внедрить бэкап, т.к. информации много, и нужно будет "на всякий случай"
пока не дошел до этого... польз-и тестируют. как дадут добро можно под шумок внедрить

на счет закупок, выслал нашим специалистам

с Ув. Андрей

может в моем коде что то вам поможет

select
id,
strftime('%d.%m.%Y',shc_data) as shc_data, 
shc_agent,
(SELECT IFNULL(st.stname, '') FROM st WHERE st.id=id_st),
(SELECT IFNULL(st.stcode,'') FROM st WHERE st.id=id_st), 
(SELECT cemtype.cemtypeName FROM cemtype WHERE cemtype.id=id_cemtype),
(SELECT pack.pacName FROM pack WHERE pack.id=id_pack),
shc_tonn,
shc_cost,
shc_total,
shc_contact,
shc_fact1,
shc_fact2,
shc_fact3,
shc_fact4,
shc_sap,             
shc_broker,
shc_add,
(case when shc_an = 1 then 'Да' else 'Нет' end)
                           
from shc_data   
WHERE ( Date(shc_data) >= Date({A1}) )  AND  ( Date(shc_data) <= Date({A2}) ) 

UNION ALL

select
id,
strftime('%d.%m.%Y',kaspi_data) as kaspi_data, 
kaspi_agent,
(SELECT IFNULL(st.stname, '') FROM st WHERE st.id=id_st),
(SELECT IFNULL(st.stcode,'') FROM st WHERE st.id=id_st), 
(SELECT cemtype_kaspi.cemtypeName_kapsi FROM cemtype_kaspi WHERE cemtype_kaspi.id=id_cemtype_kaspi),
(SELECT pack.pacName FROM pack WHERE pack.id=id_pack),
kaspi_tonn,
kaspi_cost,
kaspi_total,
kaspi_contract,
kaspi_fact1,
kaspi_fact2,
kaspi_fact3,
kaspi_fact4,
kaspi_sap,             
kaspi_broker,
kaspi_add,
(case when kaspi_an = 1 then 'Да' else 'Нет' end)
                         
from kaspi_data 
WHERE ( Date(kaspi_data) >= Date({A1}) )  AND  ( Date(kaspi_data) <= Date({A2}) )

UNION ALL

select
id,
strftime('%d.%m.%Y',bcc_data) as bcc_data, 
bcc_agent,
(SELECT IFNULL(st.stname, '') FROM st WHERE st.id=id_st),
(SELECT IFNULL(st.stcode,'') FROM st WHERE st.id=id_st), 
(SELECT cemtypebcc.cemtypeName_bcc FROM cemtypebcc WHERE cemtypebcc.id=id_cemtypebcc),
(SELECT pack.pacName FROM pack WHERE pack.id=id_pack),
bcc_tonn,
bcc_cost,
bcc_total,
bcc_contract,
bcc_fact1,
bcc_fact2,
bcc_fact3,
bcc_fact4,
bcc_sap,             
bcc_broker,
bcc_add,
(case when bcc_an = 1 then 'Да' else 'Нет' end)
                           
from bcc_data
WHERE ( Date(bcc_data) >= Date({A1}) )  AND  ( Date(bcc_data) <= Date({A2}) )

Дмитри. вы Бог!)
спасибо огромное, а то уже глаза в кучу

Дмитрий, доброго,
да. так и сделал. добавил к нужным полям поиск кнопку (на контрагент добавил инкрементный поиск), так удобнее, хоть и немного затратнее по времени. просчет идет медленно.

Дмитрий, подскажите пожалуйста.
Есть два текстбокса Код станции и Наименование станции.
Есть отдельная таблица (№, Наименование станции, Код станции)
Можно ли реализовать поиск по вводу кода станции (в текстбоксе)? - результат наименование станции (в текстбокс)?

Сорри. frmContracts - TableGrid1, *2,*3...  соответсвенно в 3 вкладках.
Можете подсказать , что не так:
procedure frmContracts_TableGrid1_OnChange (Sender: string);
    var
        i,c: integer;
    begin
        frmContracts.TableGrid1.BeginUpdate;
        c := frmContracts.TableGrid1.RowCount - 1;
        for i := 0 to c do
    begin
       if (frmContracts.TableGrid1.Cells[7,i]) = (frmContracts.TableGrid1.Cells[11,i]) then frmContracts.TableGrid1.Cell[11,i].Color := clLime;
       if (frmContracts.TableGrid1.Cells[7,i]) < (frmContracts.TableGrid1.Cells[11,i]) then frmContracts.TableGrid1.Cell[11,i].Color := clYellow;
       if (frmContracts.TableGrid1.Cells[7,i]) > (frmContracts.TableGrid1.Cells[11,i]) then frmContracts.TableGrid1.Cell[11,i].Color := clRed;
    end;
        frmContracts.TableGrid1.EndUpdate;
end;

последнее условие не срабатывает.

с ув. Андрей