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.
8,626 2014-11-17 18:22:40
Re: Подскажите пожалуйста (23 replies, posted in Russian)
8,627 2014-11-17 17:01:28
Re: Несколько Action для одной кнопки (2 replies, posted in Russian)
Приветствую,
Да, с помощью скрипта, можно сделать так, что нажав на одну кнопку, будут также нажаты и другие, для этого создайте событие 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 2014-11-17 13:47:23
Re: show error in Search (3 replies, posted in General)
Sorry,
fixed, please, see your e-mail again.
8,629 2014-11-17 11:05:38
Re: Получение изображения со сканера (3 replies, posted in Russian)
Приветствую,
пока это не поддерживается, но думаю реализовать в будущем будет не сложно, нужно только где то найти сканер
8,630 2014-11-17 10:44:46
Re: Отчет по интервалу. (2 replies, posted in Russian)
Приветствую,
ошибка была в отчете, поправил.
скачайте пожалуйста ваш проект по ссылке
https://www.dropbox.com/s/ffpr8nmtpf6ml … 2.rar?dl=0
8,631 2014-11-17 10:30:34
Re: Restart the form after click on save (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 2014-11-17 10:23:32
Re: show error in Search (3 replies, posted in General)
Fixed, please, see your e-mail.
8,633 2014-11-17 01:06:20
Re: Подскажите пожалуйста (23 replies, posted in Russian)
Событие OnShow у формы может быть только одно, но в данное событие, между begin и end вы можете писать любой код, в том числе из примера MainMenu и Splash screen одновременно
если не получится, пришлите проект на support@drive-software.com
с описанием, какой код именно необходимо объединить.
8,634 2014-11-17 00:53:16
Re: Вопросик (10 replies, posted in Russian)
zoomix
а как должно выглядеть автоматическое напоминание дней рождений?
8,635 2014-11-17 00:51:19
Re: Объединение значений нескольких переменных для записи в БД (2 replies, posted in Russian)
Все верно )
8,636 2014-11-17 00:50:40
Re: Журнал учета работы (т.н. логи) (26 replies, posted in Russian)
delphinsl
Т.е. все ок? или вопрос еще открыт?
8,637 2014-11-17 00:48:17
Re: Напоминалка (34 replies, posted in Russian)
zoomix
В текущей версии, изменять структуру без потери данных, можно, только используя стороннюю бесплатную программу SQLite Studio (http://sqlitestudio.pl/), затем необходимо также изменить структуру базы через My Visual Database, при запуске проекта отказаться от пересоздания базы данных, таким образом данные не будут потеряны.
В будущем избавлюсь от этого недостатка.
А связано это с особенностью работы базы данных SQLite, она попросту не поддерживает изменение структуры без пересоздания базы данных.
8,638 2014-11-16 22:29:09
Re: Подскажите пожалуйста (23 replies, posted in Russian)
Valler
в текущей версии нет, но планируется.
8,639 2014-11-16 20:47:32
Re: Запуск в трее (2 replies, posted in Russian)
Приветствую,
Свернуть в трей в текущей версии не получиться, но прописаться в автозагрузку можно.
Сделал для вас пример:
8,640 2014-11-16 13:00:44
Re: Подскажите пожалуйста (23 replies, posted in Russian)
а еще подскажите пожалуйста как реализовать кнопки навигации по гриду, первая, предыдущая, следующая, последняя запись))) очень нужно)))
8,641 2014-11-16 12:54:52
Re: Подскажите пожалуйста (23 replies, posted in Russian)
---->> выбрать запись в TableGrid и создать ее дубликат?
именно вот это)))
Сделал для вас проект
8,642 2014-11-15 21:24:38
Re: Главная форма (7 replies, posted in Russian)
texotdel
в форме для второй группы пользователей, в событии OnClose можно закрывать главную форму (Form1.Close;)
либо сделать главной формой, на которой пользователи могут нажать кнопку, чтобы перейти на форму для первой группы пользователей, либо ввести пароль, для доступа второй группы пользователей, после чего скрывать главную форму (Form1.Hide;)
но в этом случае нужно не забыть закрыть эту форму, когда пользователь закроет свою форму (опять же в событии OnClose закрывать скрытую главную форму Form1.Close;)
8,643 2014-11-15 21:03:36
Re: Подскажите пожалуйста (23 replies, posted in Russian)
Valler
а как именно необходимо это реализовать?
выбрать запись в TableGrid и создать ее дубликат?
либо на форме редактирования записи, сделать кнопку, которая сохранила бы открытую запись как новую?
8,644 2014-11-15 20:59:43
Re: Главная форма (7 replies, posted in Russian)
Приветствую,
а зачем?
можно в событии главной форме OnShow вызывать другую форму например Form2.ShowModal;
8,645 2014-11-15 16:37:48
Re: Обработка выхода по крестику (6 replies, posted in Russian)
delphinsl
Скачайте пожалуйста этот проект в качестве примера.
8,646 2014-11-15 16:13:29
Re: Импорт из csv (28 replies, posted in Russian)
у объекта TOpenDialog есть свойство InitialDir, которое позволяет задать папку, которая будет открываться по умолчанию
...
OpenDialog := TOpenDialog.Create(frmChoice);
OpenDialog.InitialDir := 'd:\CVS';
if OpenDialog.Execute then
begin
...
8,647 2014-11-15 12:43:41
Re: Сканирование и изображения через ссылки. (ВОПРОС) (1 replies, posted in Russian)
Приветствую,
Сканирование к сожалению пока не реализовал, но думаю это будет не сложно сделать.
Изображение можно хранить и ссылками, такая возможность есть у компонента и
у последнего из них данная возможность появилась только в бета версии 1.47
(https://www.dropbox.com/s/bhwao1izh5q4y … 7.zip?dl=0)
Более подробно об этой возможности можно прочитать здесь:
http://myvisualdatabase.com/help_ru/com … opyto.html
8,648 2014-11-15 11:00:54
Re: промежуточное сохранение записи (4 replies, posted in Russian)
Можно
Скачайте пожалуйста сначала бета версию 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 2014-11-14 20:57:23
Re: Подскажите пожалуйста (23 replies, posted in Russian)
Valler
Честно говоря не знаю, думаю лимита нет.
8,650 2014-11-14 20:24:38
Re: Напоминалка (34 replies, posted in Russian)
zoomix
Это было бы здорово, но к сожалению на все времени не хватает )
пока занят доработкой самой программы.