8,626

(23 replies, posted in Russian)

var
   Timer: TTimer;
   iTimer: integer;
   

procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
var
   MyItem1: TMenuItem;
   MyItem2: TMenuItem;
   MySubItem3: TMenuItem;
begin

   //Form1.mniFile.Visible := False;
   //Form1.mniOptions.Visible := False;
   //Form1.mniAbout.Visible := False;
   //Form1.mniReport.Visible := False;

   MyItem1 := TMenuItem.Create (Form1.MainMenu);
   MyItem1.Caption := 'Item1';
   MyItem1.OnClick := @MenuClick1;

   MyItem2 := TMenuItem.Create (Form1.MainMenu);
   MyItem2.Caption := 'Item2';


   MySubItem3 := TMenuItem.Create (Form1.MainMenu);
   MySubItem3.Caption := 'Submenu';
   MySubItem3.OnClick := @MenuClick3;

   Form1.mniFile.Insert(0, MyItem1);
   Form1.MainMenu.Items.Insert(0, MyItem2);
   MyItem2.Add(MySubItem3);
   
   
   
     Timer := TTimer.Create(nil); // create timer
     Timer.OnTimer := @OnTimer;  // event procedure
     Timer.Interval := 2000; // 5 sec
     Timer.Enabled := True;  // Start timer
     frmSplash.ShowModal; // Show welcome screen   


end;


procedure MenuClick1 (Sender: string);
begin
     ShowMessage('Hello from MyItem1');
end;

procedure MenuClick3 (Sender: string);
begin
     ShowMessage('Hello from subitem');
end;



procedure OnTimer (Sender: TObject);
begin
     iTimer := iTimer + 1;
     frmSplash.Label2.Caption := 'Start after '+IntToStr(5-iTimer)+' seconds or press ''Start'' button.';
     if iTimer > 5 then
     begin
          Timer.Enabled := False;
          frmSplash.Close;
          Timer.Free;
     end;
end;


begin

end.

Приветствую,


Да, с помощью скрипта, можно сделать так, что нажав на одну кнопку, будут также нажаты и другие, для этого создайте событие OnClick для кнопки (как это сделать: http://myvisualdatabase.com/help_ru/scr … view.html)


получится примерно следующее

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Button2.Click;
    Form1.Button3.Click;
end;

8,628

(3 replies, posted in General)

Sorry,
fixed, please, see your e-mail again.

Приветствую,


пока это не поддерживается, но думаю реализовать в будущем будет не сложно, нужно только где то найти сканер smile

8,630

(2 replies, posted in Russian)

Приветствую,


ошибка была в отчете, поправил.


скачайте пожалуйста ваш проект по ссылке
https://www.dropbox.com/s/ffpr8nmtpf6ml … 2.rar?dl=0

8,631

(4 replies, posted in General)

Hello,


In settings of button "Save Record" you should uncheck option "Close the current for after saving",
then create event OnAfterClick:


procedure frmEmployee_Button2_OnAfterClick (Sender: string);
begin
    frmEmployee.edLastName.Clear;
    frmEmployee.edFistName.Clear;
    frmEmployee.dtDateOfBirth.Checked := False;

    Form1.GridEmployees.dbUpdate;
end;   



Also you can download example project:

8,632

(3 replies, posted in General)

Fixed, please, see your e-mail.

8,633

(23 replies, posted in Russian)

Событие OnShow у формы может быть только одно, но в данное событие, между begin и end вы можете писать любой код, в том числе из примера MainMenu и Splash screen одновременно


если не получится, пришлите проект на support@drive-software.com
с описанием, какой код именно необходимо объединить.

8,634

(10 replies, posted in Russian)

zoomix
а как должно выглядеть автоматическое напоминание дней рождений?

Все верно )

delphinsl
Т.е. все ок? или вопрос еще открыт?

8,637

(34 replies, posted in Russian)

zoomix
В текущей версии, изменять структуру без потери данных, можно, только используя стороннюю бесплатную программу SQLite Studio (http://sqlitestudio.pl/), затем необходимо также изменить структуру базы через My Visual Database, при запуске проекта отказаться от пересоздания базы данных, таким образом данные не будут потеряны.


В будущем избавлюсь от этого недостатка.
А связано это с особенностью работы базы данных SQLite, она попросту не поддерживает изменение структуры без пересоздания базы данных.

8,638

(23 replies, posted in Russian)

Valler
в текущей версии нет, но планируется.

8,639

(2 replies, posted in Russian)

Приветствую,


Свернуть в трей в текущей версии не получиться, но прописаться в автозагрузку можно.
Сделал для вас пример:

8,640

(23 replies, posted in Russian)

Valler wrote:

а еще подскажите пожалуйста как реализовать кнопки навигации по гриду, первая, предыдущая, следующая, последняя запись))) очень нужно)))

8,641

(23 replies, posted in Russian)

Valler wrote:

---->> выбрать запись в TableGrid и создать ее дубликат?
именно вот это)))

Сделал для вас проект

8,642

(7 replies, posted in Russian)

texotdel
в форме для второй группы пользователей, в событии OnClose можно закрывать главную форму (Form1.Close;)


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


но в этом случае нужно не забыть закрыть эту форму, когда пользователь закроет свою форму (опять же в событии OnClose закрывать скрытую главную форму Form1.Close;)

8,643

(23 replies, posted in Russian)

Valler
а как именно необходимо это реализовать?


выбрать запись в TableGrid и создать ее дубликат?
либо на форме редактирования записи, сделать кнопку, которая сохранила бы открытую запись как новую?

8,644

(7 replies, posted in Russian)

Приветствую,


а зачем?
можно в событии главной форме OnShow вызывать другую форму например Form2.ShowModal;

delphinsl
Скачайте пожалуйста этот проект в качестве примера.

8,646

(28 replies, posted in Russian)

у объекта TOpenDialog есть свойство InitialDir, которое позволяет задать папку, которая будет открываться по умолчанию

...
 OpenDialog := TOpenDialog.Create(frmChoice);
 OpenDialog.InitialDir := 'd:\CVS'; 
     if OpenDialog.Execute then
     begin
...

Приветствую,


Сканирование к сожалению пока не реализовал, но думаю это будет не сложно сделать.


Изображение можно хранить и ссылками, такая возможность есть у компонента http://myvisualdatabase.com/help_ru/components/dbfile.png и http://myvisualdatabase.com/help_ru/components/dbimage.png


у последнего из них данная возможность появилась только в бета версии 1.47
(https://www.dropbox.com/s/bhwao1izh5q4y … 7.zip?dl=0)


Более подробно об этой возможности можно прочитать здесь:
http://myvisualdatabase.com/help_ru/com … opyto.html

Можно
Скачайте пожалуйста сначала бета версию 1.47, пришлось для этого кое что доработать
https://www.dropbox.com/s/bhwao1izh5q4y … 7.zip?dl=0


Поставьте обратно галочку "закрыть текущую форму после сохранения"
Затем создайте у кнопки сохранения записи событие OnClick, пример:

procedure frmAbonent_bOK_OnClick (Sender: string; var Cancel: boolean);
begin
     frmAbonent.bOK.dbDoCloseForm := False;
     frmAbonent.bOK.dbDontResetID := True;
end;  

8,649

(23 replies, posted in Russian)

Valler
Честно говоря не знаю, думаю лимита нет.

8,650

(34 replies, posted in Russian)

zoomix
Это было бы здорово, но к сожалению на все времени не хватает )
пока занят доработкой самой программы.