Search options (Page 289 of 400)

spectre
Приложите пожалуйста последнюю версию вашего проекта, и укажите имена компонентов и формы, где это необходимо.

попробуйте так

SELECT
Visits.id as 'id',
strftime('%d.%m.%Y', Visits.dataPis),
Objekts.NameOb,
strftime('%d.%m.%Y', Tu.DataTu),
VidTu.Vid

FROM
Visits

LEFT OUTER JOIN visits_objects ON visits_objects.id_Visits=Visits.id
LEFT OUTER JOIN Objekts ON Objekts.id=visits_objects.id_Objekts
LEFT OUTER JOIN Tu ON Objekts.id=Tu.id_Objekts
LEFT OUTER JOIN VidTu ON VidTu.id=Tu.id_VidTu


WHERE
((Visits.dataPis >= {DateZ1} AND Visits.dataPis <= {DateZ2}) OR ({DateZ2} is null))
AND (case when '{Edit5}'='' then 1=1 else Objekts.NameOb  LIKE '%{Edit5}%' end)
AND ((Tu.DataTu >= {DateTu1} AND Tu.DataTu <= {DateTu2}) OR ({DateTu2} is null))

таблица БД data_rvk имеет внешний ключ id_comanda, но ни на форме fAddComanda и fAddDataOmvk не организована связь между таблицами comanda и data_rvk (либо я не нашел)

необходимо, на форме fAddComanda расположить грид, который будет отображать связанные данные из таблицы data_rvk
также кнопки для добавления данных в data_rvk

либо на форме fAddDataOmvk расположить ComboBox, в котором вы будете выбирать запись из таблицы comanda

второй вопрос не решить, пока не решен первый.

tcoton
In the current version is not possible to avoid reading the data using external tools.

I made example for you, how to encrypt text in database using key (password).
But you can't using search function.

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

вы удалили из скрипта обязательный блок

begin

end.

который должен быть расположен в самом низу скрипта.

Приложите пожалуйста снова ваш проект, и расскажите подробней, что именно и где не работает (названия форм и компонентов).

Готово, также на форме order вы можете добавить чеки.

Hello,

Latest free version is 1.44
https://www.dropbox.com/s/en8u9gs6qy34b … 4.exe?dl=0

забыл экранировать кавычку кавычкой )
исправленный вариант

procedure ddVizits_OnShow (Sender: string; Action: string);
var
    idClient: string;
begin
    if AddCl.Visible then
        frmAddVisitObject.ComboBox1.dbSQLExecute('SELECT objects.nameOb || '' '' || objects.UI, objects.id FROM objects LEFT OUTER JOIN clients ON clients.id=objects.id_clients WHERE clients.id='+ IntToStr( AddCl.bSaveClient.dbGeneralTableId ) )
    else begin
        idClient := SQLExecute('SELECT id_clients FROM visits WHERE id='+IntToStr(ddVizits.bSave.dbGeneralTableId));
        frmAddVisitObject.ComboBox1.dbSQLExecute('SELECT objects.nameOb || '' '' || objects.UI, objects.id FROM objects WHERE id_clients='+idClient  );
    end;
end;

Fixed code for report:

procedure Reporttoprice7OnAfterData(Sender: TfrxComponent);
begin
       //ShowMessage(TfrxMemoView(Sender).Value);                                       
       if TfrxMemoView(Sender).Value = 0 then TfrxMemoView(Sender).Visible := False; 
end;

procedure ReporttopricetotalOnAfterData(Sender: TfrxComponent);
begin
       //ShowMessage(TfrxMemoView(Sender).Value);                                       
       if (TfrxMemoView(Sender).Value = '') or (TfrxMemoView(Sender).Value = '0')  then TfrxMemoView(Sender).Visible := False; 
end;   

begin

end.