7,426

(9 replies, posted in Russian)

DjSan wrote:

Когда я изменяю структуру БД она обнуляеться как сделать чтобы данные остались если я добавил строку они проста были пустые?

в последних версиях программы эта проблема решена.

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


Проект с примером:

7,428

(9 replies, posted in Russian)

DjSan wrote:

Еще вопрос как обновлять программу чтобы не удалялась база?

База данных не удаляется при обновлении My Visual Database

7,429

(9 replies, posted in Russian)

DjSan wrote:

Подскажите как разграничить права доступа от уровня пользователя на определенные действия я сделал отдельную графу права доступа например 01 админ, 02 директор, 03 Завуч, 04 Учитель, 05 Сотрудники. И после смены статуса запретить изменение (статус может менять ответственное лицо).
Я пишу программу широкого применения чтобы не работать в нескольких, пока начал разрабатывать форму заявки на обслуживание

Здесь можете скачать пример
http://myvisualdatabase.com/forum/viewtopic.php?id=1060


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

7,430

(9 replies, posted in Russian)

DjSan wrote:

1. Если в БД все заходят через логин, можно реализовать кто в сети и вести статистику во сколько вошел и вышел? БД локальная.
2. Можно программу научить отправлять почту. У меня такая задача хочу сделать журнал поручении, так чтобы сотруднику приходило е-майл уведомление что ему добавили задание или выполнили его задание?

Заранее спасибо!

P.S. Я давно не писал программы, сейчас решил снова начать и чувствую себя ЧаЙнИКоМ. Программа супер.

Вопрос по приобретению я видел за 149$ пожизненная я правильно понял что она будут обновляться при выходи новой версии (вручную) даже и через три года, пять лет?


1. Сделал для вас проект с примером
http://myvisualdatabase.com/forum/misc. … download=1



2. В текущей версии такой возможности нет, но планируется. Но есть возможность отправлять SMS


Пожизненная лицензия дает право бесплатно обновлять программу и через 5 лет.

7,431

(2 replies, posted in General)

unfortunately I can't find a free utility for this.

7,432

(4 replies, posted in General)

Please, send me your project to support@drive-software.com
with link on this topic

7,433

(22 replies, posted in Russian)

Здравейте,


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


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;

7,434

(4 replies, posted in SQL queries)

Hello,


Thank you for the idea.
I made some changes, now you can set up footer using settings of TableGrid, then use button "SQL query"


Please, download latest beta version:
https://www.dropbox.com/s/vz1fmz5lrb6fw … 1.zip?dl=0

Здравствуйте,


От вас пришло два письма но без проекта.

7,436

(4 replies, posted in General)

You use SQL for generating the report?
If yes, you should manually format the date, example:

SELECT strftime('%d.%m.%Y', datefield) ...

7,437

(2 replies, posted in General)

I suppose you have main form for login, after login you hide this form, but you should close login form manually using event OnClose from other form.


If you can not fix the problem, please, send me your project to support@drive-software.com

Скорей всего проскакивают пустые данные в отчете, например где то нет цены, а этот столбик в отчете считает сумму.
Можете отправить ваш проект на support@drive-software.com
постараюсь помочь.

rabotanex wrote:

Дмитрий, вот все поправил, добавил чекбокс с данными "дежурства" и сделал формы отчета, они простые, в архиве лежат. Необходимо 2 отчета. Если получиться у вас подсказать как сделать чтобы закрывались окна до главного, если пациент уже есть в базе, буду очень признателен!!


Исправил проверку на дубликат пациента.
С отчетами к сожалению не смогу помочь, их 4 и не совсем простые.

Please download an example here
http://myvisualdatabase.com/forum/misc. … download=1

Сложно дать точный ответ не видя проект.
Пришлите пожалуйста ваш проект на support@drive-software.com

7,442

(5 replies, posted in General)

Please, download your fixed project:

Создание своего пункта меню "О Программе" и окна с информацией.


Проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1



procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
begin
   Form1.mniAbout.OnClick := @MenuClickAbout;
end;


procedure MenuClickAbout (Sender: string); // click in About menu item
begin
     frmAbout.ShowModal;
end;


begin

end.

7,444

(26 replies, posted in Russian)

К сожалению ложное срабатывание не редкое явление, мой аваст ведет себя также, приходится временно отключать, когда добавлю что нибудь еще новое в версию 1.51, файл изменится и скорей всего перестанет ложно срабатывать.

7,445

(5 replies, posted in Russian)

К сожалению ложное срабатывание не редкое явление, мой аваст ведет себя также, приходится временно отключать, когда добавлю что нибудь еще новое в версию 1.51, файл изменится и скорей всего перестанет ложно срабатывать.

7,446

(22 replies, posted in Russian)

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

7,447

(9 replies, posted in General)

nitin.ingale08
An example for you:

7,448

(5 replies, posted in Reports)

ropuxa

Please, send me your project to support@drive-software.com
I'll try to help you.

Не совсем ясно, какие именно компоненты необходимо обновлять в вашем проекте, но думаю что так

procedure Potarifu_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
    CalculateTotal;
    Calculate;
end;

7,450

(9 replies, posted in General)

An example for you.