Topic: date

здравейте,възможно ли е в определена таблиц ,формата на датата да бъде "април,2015"  а не както е сега 1,04,2015 .благодаря

Re: date

Здравейте,


Это можно сделать с помощью данного вычисляемого поля

(case strftime('%m', date(datefield)) when '01' then 'Январь' when '02' then 'Февраль' when '03' then 'Март' when '04' then 'Апрель' when '05' then 'Май' when '06' then 'Июнь' when '07' then 'Июль' when '08' then 'Август' when '09' then 'Сентябрь' when '10' then 'Октябрь' when '11' then 'Ноябрь' when '12' then 'Декабрь' else '' end) || ' ' || strftime('%Y', date(datefield))
Dmitry.

Re: date

Здравей,не знам как да направя така,че когато отворя проекта си,Form1 да се отваря в големия си размер.Благодаря

Re: date

У формы установите свойство Sizeable=True
затем каждый компонент имеет свойство Anchors, с помощью которого вы можете настроить поведение компонента при изменении размера формы.

Dmitry.

Re: date

Здравейте,опитвам се да направя така,че когато добавям нов запис към клиент във frmZakaz ,в поле "Старо" да стои последния запис от "Ново".Така както в момента съм направил скрипта,стои винаги само наи първия запис,а не последния

Post's attachments

Attachment icon Клиенти.rar 311.21 kb, 495 downloads since 2015-04-14 

Re: date

Здравейте,


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


procedure frmZakaz_OnShow (Sender: string; Action: string);
begin

     frmZakaz.edAbonati.Text := SQLExecute('SELECT abonati FROM application WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
     frmZakaz.edPriceabonati.Text := SQLExecute( 'SELECT priceabonati FROM parts');
     frmZakaz.edCost.Text := SQLExecute( 'SELECT price FROM parts');
     CalculateTotal2;

    if frmApplication.edClient.Text = '' then frmZakaz.edDnevna1.Text := '0';

    if Action='NewRecord' then
    begin
        frmZakaz.edDnevna1.Text := SQLExecute('SELECT dnevna2 FROM zakaz WHERE zakaz.id_application='+IntToStr(Form1.TableGrid1.dbItemID) +' ORDER BY dnevna2 DESC LIMIT 1');
    end;
end;
Dmitry.

Re: date

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

Re: date

здравейте,Може ли  при New record в дадена форма да се забрани повече от един запис?

Re: date

Можно

procedure Form1_ButtonNewRecord_OnClick (Sender: string; var Cancel: boolean);
begin
    if SQLExecute ('SELECT COUNT(*) FROM tablename') > 0 then 
    begin
       ShowMessage('Разрешена только одна запись.');
       Cancel := True;
    end;
end;
Dmitry.

Re: date

здравейте,не мога да се справя със следния проблем:
след като кликна на бутон  "Search" след това по какъв начин,може да се върне таблицата както е била преди натискането на този  бутон?

Post's attachments

Attachment icon Employees TableGrid and memo.rar 293.77 kb, 508 downloads since 2015-05-07 

Re: date

nikolai_nn wrote:

здравейте,не мога да се справя със следния проблем:
след като кликна на бутон  "Search" след това по какъв начин,може да се върне таблицата както е била преди натискането на този  бутон?

добавил для этого кнопку Search2

Post's attachments

Attachment icon Employees TableGrid and memo2.zip 5.22 kb, 491 downloads since 2015-05-08 

Dmitry.

12 (edited by nikolai_nn 2015-05-08 19:41:53)

Re: date

здравейте,отново имам проблем. Възможно ли е когато избера нов месец  (Form1.ComboBox2) за които нямам въведени данни  (например Април) и натисна бутона за търсене "Буттон3" ,да не се изчиства таблицата,а да останат всички данни но с нулеви стоиности (месец,киловати,старо,ново и т.н.)

Post's attachments

Attachment icon Клиенти.rar 310.03 kb, 493 downloads since 2015-05-08 

Re: date

nikolai_nn
К сожалению так не получится.

Dmitry.

Re: date

здравейте,възможно ли е когато редактирам запис в таблицата,след редакцията ,да бъде маркиран (оцветен)

Re: date

nikolai_nn
Можно, отправьте пожалуйста ваш проект на support@drive-software.com
постараюсь помочь.

Dmitry.

Re: date

благодаря,когато редакттирам запис искам в Form1. TableGrid 1 ,след редакцията записа да бъде оцветен,за да знам  на кои хора съм редактирал данните

Post's attachments

Attachment icon Клиенти.rar 319.89 kb, 498 downloads since 2015-05-11 

Re: date

nikolai_nn wrote:

благодаря,когато редакттирам запис искам в Form1. TableGrid 1 ,след редакцията записа да бъде оцветен,за да знам  на кои хора съм редактирал данните

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

Post's attachments

Attachment icon Клиенти2.zip 43.23 kb, 466 downloads since 2015-05-12 

Dmitry.

Re: date

благодаря Дмитрий,но по този начин имената остават за винаги оцветени,има ли начин, (ComboBox_On Cange или ButtonX.Click) при което маркираните записи да се размаркират

Re: date

nikolai_nn wrote:

благодаря Дмитрий,но по този начин имената остават за винаги оцветени,има ли начин, (ComboBox_On Cange или ButtonX.Click) при което маркираните записи да се размаркират

Добавил кнопку Reset для этого

Post's attachments

Attachment icon Клиенти3.zip 43.4 kb, 504 downloads since 2015-05-13 

Dmitry.

Re: date

Благодаря Дмитрий,Перфектно

Re: date

Здравейте,подскажете ми моля,какво трябва да направя.Когато  Form1 >Справки>Данни от електромери за всички месеци>отчет.
В отчета как могада подредя месеците ..януари,февруари,март....... защото сега разместени.Благодаря

Post's attachments

Attachment icon Клиенти3.rar 335.8 kb, 457 downloads since 2015-06-09 

Re: date

nikolai_nn wrote:

Здравейте,подскажете ми моля,какво трябва да направя.Когато  Form1 >Справки>Данни от електромери за всички месеци>отчет.
В отчета как могада подредя месеците ..януари,февруари,март....... защото сега разместени.Благодаря


Готово, отключил сортировку в отчетах, и сделал сортировку в SQL запросе отчета.


В поле zakaz.meseci вы храните текстовое название месяца, что неверно, лучше если бы вы сделали выбор месяца с помощью ComboBox, тем более у вас уже есть для этого внешний ключ zakaz.id_meseci, но почему то он не используется, тогда было бы достаточно сделать сортировку в SQL запросе по данному внешнему ключу.

Post's attachments

Attachment icon Клиенти3_fixed.zip 54.17 kb, 498 downloads since 2015-06-10 

Dmitry.

Re: date

Много,много благодаря ,всичко е ОК