1

(5 replies, posted in Russian)

Эх, сложно. По ходу не пан... Но всё равно спасибо за ответы.

2

(5 replies, posted in Russian)

Дратуйти,


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

Или может кто то сможет объяснить как добавить текстовый файл вот с такими данными

Time    Character    Item Type    Quantity    Item Group    
2020.11.17 16:50    Name1    <localized hint="Item5">Item5*</localized>    997    <localized hint="Group5">Group5*</localized>    
2020.11.17 16:39    Name1    <localized hint="Item5">Item5*</localized>    40    <localized hint="Group5">Group5*</localized>    
2020.11.17 16:49    Name2    <localized hint="Item8">Item8*</localized>    1050    <localized hint="Group8">Group8*</localized>    
2020.11.17 16:49    Name1    <localized hint="Item8">Item8*</localized>    593    <localized hint="Group8">Group8*</localized>    
2020.11.17 16:49    Name1    <localized hint="Item6">Item6*</localized>    1565    <localized hint="Group6">Group6*</localized>    
2020.11.17 16:47    Name3    <localized hint="Item6">Item6*</localized>    236    <localized hint="Group6">Group6*</localized>    
2020.11.17 16:49    Name3    <localized hint="Item9">Item9*</localized>    1641    <localized hint="Group9">Group9*</localized>    
2020.11.17 16:50    Name3    <localized hint="Item9">Item9*</localized>    1421    <localized hint="Group9">Group9*</localized>        
2020.11.17 15:35    Name1    <localized hint="Item3">Item3*</localized>    6323    <localized hint="Group3">Group3*</localized>    
2020.11.17 16:27    Name2    <localized hint="Item1">Item1*</localized>    70867    <localized hint="Group1">Group1*</localized>    
2020.11.17 16:25    Name1    <localized hint="Item3">Item3*</localized>    27840    <localized hint="Group3">Group3*</localized>    
2020.11.17 15:00    Name1    <localized hint="Item1">Item1*</localized>    3435    <localized hint="Group1">Group1*</localized>    
2020.11.17 14:56    Name4    <localized hint="Item4">Item4*</localized>    3354    <localized hint="Group4">Group4*</localized>    
2020.11.17 16:27    Name1    <localized hint="Item3">Item3*</localized>    42644    <localized hint="Group3">Group3*</localized>    
2020.11.17 14:56    Name4    <localized hint="Item4">Item4*</localized>    11305    <localized hint="Group4">Group4*</localized>    
2020.11.17 16:25    Name1    <localized hint="Item4">Item4*</localized>    31069    <localized hint="Group4">Group4*</localized>    
2020.11.17 16:27    Name4    <localized hint="Item4">Item4*</localized>    26199    <localized hint="Group4">Group4*</localized>

в БД в таком виде?

Time    Character    Item Type    Quantity
2020.11.17 16:50    Name1    Item5    997    
2020.11.17 16:39    Name1    Item5    40
2020.11.17 16:49    Name2    Item8    1050
2020.11.17 16:49    Name1    Item8    593
2020.11.17 16:49    Name1    Item6    1565
2020.11.17 16:47    Name3    Item6    236
2020.11.17 16:49    Name3    Item9    1641
2020.11.17 16:50    Name3    Item9    1421
2020.11.17 15:35    Name1    Item3    6323
2020.11.17 16:27    Name2    Item1    70867
2020.11.17 16:25    Name1    Item3    27840
2020.11.17 15:00    Name1    Item1    3435
2020.11.17 14:56    Name4    Item4    3354
2020.11.17 16:27    Name1    Item3    42644
2020.11.17 14:56    Name4    Item4    11305
2020.11.17 16:25    Name1    Item4    31069
2020.11.17 16:27    Name4    Item4    26199

Заранее благодарю!

DriveSoft wrote:

У вас SQL запрос состоит из двух запросов, которые объединяются с помощью UNION ALL, но оператор WHERE присутствует только у первого запроса, в итоге получаете не фильтрованные данные от второго запроса, попробуйте так

SELECT
strftime('%d.%m.%Y', einnahmen.datum),  
'+'||einnahmen.summe

FROM
einnahmen

WHERE                          
einnahmen.datum >= {dtFrom} AND einnahmen.datum <= {dtTo}   

UNION ALL   
        
SELECT                                 
strftime('%d.%m.%Y', ausgaben.datum), 
'-'||ausgaben.summe                         

FROM
ausgaben
             
WHERE                          
ausgaben.datum >= {dtFrom} AND ausgaben.datum <= {dtTo}              
             
ORDER BY strftime('%d.%m.%Y', einnahmen.datum) DESC     
   

Спасибо! Это как раз то что нужно! )

Что то то пошло не так, то ли это в новой версии так, толи я в прошлый раз пропустил. Программа перестала выдавать выборку по дате. Вот,  на гифке все проблемы. (((

5

(33 replies, posted in Russian)

DriveSoft wrote:
easyterm wrote:

Там, это, курсор пропадает если в форме больше чем 3-4 "Searchable" ComboBox-а. hmm

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

Нашёл. )) Я вам на мыло отправил видео и архив.

6

(33 replies, posted in Russian)

DriveSoft wrote:
easyterm wrote:

Там, это, курсор пропадает если в форме больше чем 3-4 "Searchable" ComboBox-а. hmm

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

Странно, с утра на 3х компьютерах проверял, курсор пропадал. А сейчас всё в порядке. Прошу прощения, у меня что-то пошло не так.

DriveSoft wrote:

Закрыть не получиться, это противочерит принципу модальных окон. Но можно скрыть и затем когда вызываемая форма закроется, закрыть и форму с которой вызвали. необходимо использовать два события для кнопки с действие ShowRecord

procedure frmWo_Button9_OnClick (Sender: TObject; var Cancel: boolean);
begin
    frmWo.Visible := False;
end;

procedure frmWo_Button9_OnAfterClick (Sender: TObject);
begin
    frmWo.Close;
end;

А как можно закрыть активное окно по средствам onClick?

8

(33 replies, posted in Russian)

Там, это, курсор пропадает если в форме больше чем 3-4 "Searchable" ComboBox-а. hmm

Как я понял, тут без onClick Event-а не как. Но вот что нужно добавить в окно скрипта дабы сработал close the current form и при этом открылось новое окно мне не понятно. (((

Посоветуйте плез )) что нужно ввести

procedure frmWo_Button9_OnClick (Sender: TObject; var Cancel: boolean);
begin
тут, что бы закрыть "frmWo" и при этом открыть "Show record"
end;

Заранее огромнейшее спасибо!

maksimzakharov wrote:

4 Мб, он говорит большой файл, сервер отклонил загрузку.

Извлеките файл "ПланыРСО-А.exe" из архива.

DriveSoft wrote:
easyterm wrote:

Но тут странная штука получается. )
На гифке видно.

Уберите из скрипта строку

Form1.tgEinAus.Options := Form1.tgEinAus.Options + goFooter;

Чтобы появился футер, установите галочку в свойствах tgEinAus

Additional > Options > goFooter

Спасибо!


Я обновил прикрепленный файл...

Но тут странная штука получается. )
На гифке видно.

jonibek wrote:

Уважаемый easyterm!
Можете выложить свой проект для примера?

Что то вроде этого.

DriveSoft wrote:

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

procedure frmReport_tgBericht_OnChange (Sender: string);
begin
    frmReport.tgBericht.Options := frmReport.tgBericht.Options + goFooter;
    TNxNumberColumn(frmReport.tgBericht.Columns[1]).TextAfter := ' €';
    frmReport.tgBericht.Columns[1].Footer.FormulaKind := fkSum;
    frmReport.tgBericht.CalculateFooter;
    frmReport.tgBericht.Columns[1].Footer.Caption := FormatFloat('0.#0', frmReport.tgBericht.Columns[1].Footer.FormulaValue);
end;

Заработало! Спасибо огромное!

DriveSoft wrote:

easyterm
Приложите пожалуйста ваш проект.

Выслал на мыло. Pass:12345
Там в Form1 Кнопка "Bericht" и далее frmReport и кнопка "Zeigen" всё находится. )


Но я пока убрал 

'+'||

Было так

SELECT
strftime('%d.%m.%Y', workorder.adatum),  
'+'||workorder.azahlungen||' €'

FROM
workorder

WHERE
workorder.adatum >= {dtFrom} AND workorder.adatum <= {dtTo}
   
UNION ALL 
        
SELECT                                 
strftime('%d.%m.%Y', ausgaben.ausdatum), 
'-'||ausgaben.aussumme||' €'

FROM
ausgaben

ORDER BY strftime('%d.%m.%Y', workorder.adatum) DESC 

Я как всегда делаю что то не так? )

procedure frmReport_tgBericht_OnChange (Sender: string);
begin
    frmReport.tgBericht.Columns[1].Footer.FormulaKind := fkSum;
    frmReport.tgBericht.CalculateFooter;
    frmReport.tgBericht.Columns[1].Footer.Caption := FormatFloat('0.#0', frmReport.tgBericht.Columns[1].Footer.FormulaValue);
end;


begin
     frmReport.tgBericht.Options := frmReport.tgBericht.Options + goFooter;
end.

Попытка ссумировть в Footer таблици провалилась. Видны только нули. (

Но потом я понял что мне мешают

 '+'|| 

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

 '+'|| 

остались на месте?

DriveSoft wrote:

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

SELECT
strftime('%d.%m.%Y', workorder.adatum),  
'+'||workorder.azahlungen

FROM
workorder

WHERE
workorder.adatum >= {dtFrom} AND workorder.adatum <= {dtTo}
   
UNION ALL 
        
SELECT                                 
strftime('%d.%m.%Y', ausgaben.ausdatum), 
'-'||ausgaben.aussumme                          

FROM
ausgaben

ORDER BY strftime('%d.%m.%Y', workorder.adatum) DESC 

Ура! Заработало! Спасибо огромное!!! )

SELECT
strftime('%d.%m.%Y', workorder.adatum),  
'+'||workorder.azahlungen

FROM
workorder
   
UNION ALL 
        
SELECT                                 
strftime('%d.%m.%Y', ausgaben.ausdatum), 
'-'||ausgaben.aussumme                          

FROM
ausgaben

ORDER BY strftime('%d.%m.%Y', workorder.adatum) DESC 

А как можно вот это внедрить?

WHERE
workorder.adatum >= {dtFrom} AND workorder.adatum <= {dtTo}; 

Я надеялся что так будет работать, но меня послали. )

SELECT
strftime('%d.%m.%Y', workorder.adatum),  
'+'||workorder.azahlungen

FROM
workorder
   
UNION ALL 
        
SELECT                                 
strftime('%d.%m.%Y', ausgaben.ausdatum), 
'-'||ausgaben.aussumme                          

FROM
ausgaben

WHERE
workorder.adatum >= {dtFrom} AND workorder.adatum <= {dtTo}; 

ORDER BY strftime('%d.%m.%Y', workorder.adatum) DESC 

Что я делаю не так?

DriveSoft wrote:

Можно, поместите на форму кнопку с действием "SQL запрос"

SELECT
strftime('%d.%m.%Y', einnahmen.datum),  
einnahmen.summe
FROM einnahmen

UNION ALL

SELECT   
strftime('%d.%m.%Y', ausgaben.datum), 
ausgaben.summe   
FROM ausgaben  

Спасибо! )

Как можно из двух независимых БД Таблиц вывести данные в 1 TableGrid?

DriveSoft wrote:

easyterm
Отправил.

Я получил! Всё круто! )

DriveSoft wrote:
Jorge wrote:

Спасибо, теперь все в порядке.
А скидок на новые версии нет никаких для тех, у кого старая лицензия?
Интересует с минорными обновлениями и с пожизненной лицензией.

Скидки есть, отправил вам информацию на e-mail.

Я тоже готов с удовольствием получить информацию на e-mail. ))

DriveSoft wrote:

Данный поиск вы можете реализовать без использования SQL запроса, просто используйте кнопку с действием "Поиск"

Нашёл, разобрался! )))
http://myvisualdatabase.com/forum/viewtopic.php?id=3338
Спасибо!

DriveSoft wrote:

Данный поиск вы можете реализовать без использования SQL запроса, просто используйте кнопку с действием "Поиск"

Два дня ломал голову! А всё как всегда просто! ) Спасибо вам огромное!

Кнопка с действием "Поиск" работает в версии 2.8 или только в 3.0? Я попробывал, но что то пошло как всегда не так. ) Но это не так важно. )
Спасибо вам!

Дело такое, есть кнопка с [SQL QUERY]

SELECT

workorder.adatum, workorder.azahlungen

FROM workorder

WHERE

adatum >= {dtFrom} AND adatum <= {dtTo};

Всё работает, но дату в таблице кажет "2017-04-21 00:00:00.000"
Как можно изменить запрос чтобы дата в таблице отображалась в превычном формате "21.04.2017"?
Что то у меня совсем не получается. (((