26 Reply by kovalenko

(25 replies, posted in Russian)

Всем прувет! А кто подскажет, есть ли возможность поиска в TreeView? Стандартные методы что-то не работают.

Go to forum: Russian

27 Reply by kovalenko

(25 replies, posted in Russian)

mapcreatormail wrote:
kovalenko wrote:

А где финал 4,3?

DriveSoft wrote:

Версия 4.3
качать: http://myvisualdatabase.com/download/myvisualdb.exe

Спасибо, то, что надо. Я думал верхняя ссылка на ранее выложенную Beta, а вот с главной страницы качается 4.2....

Go to forum: Russian

28 Reply by kovalenko

(25 replies, posted in Russian)

DriveSoft wrote:

- Новый диалог для компонента TreeView, позволяет выбрать несколько полей.
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=4123&download=0


- Свойство "Form", позволяет создавать и редактировать записи с использованием формы.



-

Здравствуйте. Скачиваю, начинается установка версии 4,2????!!!
А где финал 4,3?

Go to forum: Russian

29 Topic by kovalenko

(1 replies, posted in Russian)

Есть скрипт для вывода выбранных строк в отчёт.

procedure frmDeviceBase_bSQLReport_OnClick (Sender: TObject; var Cancel: boolean);
var
    i,c: integer;
    s: string;
begin                                                                  
    s := '';
    frmDeviceBase.bSQLReport.dbSQL := 'SELECT clientName, numberRMA, serialdevice, serialcomponent, DeviceFullName FROM devicebase';
    c := frmDeviceBase.GridDevice.RowCount-1;

    for i := 0 to c do
    begin
        if frmDeviceBase.GridDevice.Selected[i] then s := s + 'devicebase.id='+IntToStr(frmDeviceBase.GridDevice.dbIndexToID(i)) + ' OR ';
    end;

    if s <> '' then
    begin
        SetLength(s, Length(s)-4);
        frmDeviceBase.bSQLReport.dbSQL := frmDeviceBase.bSQLReport.dbSQL + ' WHERE ' + s;
    end;
end;

и всё вроде нормально, только вот мне в этот отчёт надо впихнуть данные "CompanyNameLite" из связанной таблицы "CompanyInformation", Может кто подскажет?
Заранее благодарю!

Go to forum: Russian

30 Reply by kovalenko

(26 replies, posted in Russian)

DriveSoft wrote:

Можете просто удалить пользователя.

ЭЭЭЭ мне надо как админу отключить его временно от базы, удалить его совсем? это жёстко. Или что вы имели ввиду?

Go to forum: Russian

31 Reply by kovalenko

(26 replies, posted in Russian)

DriveSoft wrote:

Что вы понимаете под отключать? Запретить писать? читать? или все вместе?

Нет, иметь возможность выбрать пользователя и отключить "выкинуть" его из базы/программы (пригодиться в случае срочного обновления).

Go to forum: Russian

32 Topic by kovalenko

(1 replies, posted in Russian)

Дмитрий здравствуйте.  Добавление/перемещение/ удаление сделал без sql запросов, а вот закладка события для TreeView не работает ( OnClick, OnChange и др). Можно ли как-то их реализовать для TreeView?

Go to forum: Russian

33 Reply by kovalenko

(26 replies, posted in Russian)

DriveSoft wrote:

Есть отдельный пример, как реализовать список, кто онлайн.
http://myvisualdatabase.com/forum/misc. … download=1

Дмитрий а можно вопросик в догонку вашего примера. Можно пользователю (админу) отключать выбранных активных пользователей? Я понимаю, что если человек работает а его "шарахнули" енто не совсем зер гут, но пример самой возможности можно?

Go to forum: Russian

34 Reply by kovalenko

(26 replies, posted in Russian)

DriveSoft wrote:

Есть отдельный пример, как реализовать список, кто онлайн.
http://myvisualdatabase.com/forum/misc. … download=1

Спасибо!!! Прикрутил))))

Go to forum: Russian

35 Reply by kovalenko

(26 replies, posted in Russian)

iacovlogica wrote:

Как то так ...

А можно обратиться ещё с просьбой (вкусняшкой)))) а можно как-то в последний ваш вариант чата всунуть индикатор тех, кто сейчас подключен? Знать, кому можно писать в чате а кому если только по почте? И как я понимаю если убрать Timer.Free; то получающий при входу в программу получит уведомление о том, что ему есть сообщение?

Go to forum: Russian

36 Reply by kovalenko

(26 replies, posted in Russian)

iacovlogica wrote:

да по поводу
Timer := TTimer.Create(Form1);
....на пример  у Вас есть машина (программа) и понадобились вам туда часы . У Вас так же есть 3Д принтер (конструктор) .
Вы выбираете в 3Д принтере чертеж часов ( TTimer )  и даёте команду напечатать часы по имеющимся чертежам ( .Create ) и поместить эти часы на переднюю панель ( Form1 ) .
Если не поместить часы в машину то их в машине не будет ))) .
Так как часы невидны  снаружи машины то их можно поместить и в другое место например в бардачек ( Chat ), они и там прекрасно будут тикать .

....сильно не пинайте как смог так и объяснил big_smile

))) Спасибо!

Go to forum: Russian

37 Reply by kovalenko

(26 replies, posted in Russian)

iacovlogica wrote:

Оно так ,по идее, и работает , так как висит это дело на таймере .
Попробуйте .

Тогда вопрос (только вникаю))) 

Timer := TTimer.Create(Form1);
     Timer.Interval := 5000;
     Timer.Enabled := True;
     Timer.OnTimer := @OnTimer;

 
Здесь Timer := TTimer.Create(Form1) указывается форма где находиться данный скрипт, или где находиться чат?
Можете скинуть прямо сюда (если не сложно) текст скрипта, с учётом что Form1 это общая стартовая(главная) форма, а сам чат находиться на форме frmChat?

Go to forum: Russian

38 Reply by kovalenko

(26 replies, posted in Russian)

kovalenko wrote:
iacovlogica wrote:

Можно и так wink

Спасибо! И если можно последняя просьба/пример. Если чат находиться не на главной форме Form1, а на какой нибудь frmChat. Как при наличии главной Form1 (и многих других) сделать так, что бы оповещение о получении приходило и при нахождении в других формах (форма frmChat не открыта)?

А то сидит Вася работает (вносит данные какие нибудь в базу), ему пишет Петя и пока Вася не откроет чат (или его об этом не попросит Петя), Вася будет как-то не в курсе что ему кто-то что-то пишет)))

Go to forum: Russian

39 Reply by kovalenko

(26 replies, posted in Russian)

iacovlogica wrote:

Можно и так wink

Спасибо! И если можно последняя просьба/пример. Если чат находиться не на главной форме Form1, а на какой нибудь frmChat. Как при наличии главной Form1 (и многих других) сделать так, что бы оповещение о получении приходило и при нахождении в других формах (форма frmChat не открыта)?

Go to forum: Russian

40 Reply by kovalenko

(26 replies, posted in Russian)

iacovlogica wrote:

если просто сообщение показать , то добавил строки  5,40,56,57
....на данный костяк "Чата" можно навесить все на что только фантазии хватит вплоть до айфоноподобного вида со смайликами ))). (канвас Вам в помощь, ну и наличие времени )

Спасибо за пример, только есть парочка НО... Сообщение появляется и у получающего и у отправляющего, зачем отправляющему-вопрос. И вариант уведомления актуален не столько когда чат открыт(окно с чатом) а когда окно чата закрыто! Когда окно активно и так всё видно. Тут возможно даже более интересен вариант не появления текста, а некий динь-динь при приходе сообщения, и этот звуковой сигнал получающий слышит находясь в любом окне приложения.

Go to forum: Russian

41 Reply by kovalenko

(26 replies, posted in Russian)

DriveSoft wrote:

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

Дмитрий спасибо за интересное добавление. А есть вариант уведомления получателя?

Go to forum: Russian

42 Reply by kovalenko

(6 replies, posted in Russian)

ravshanmirzoyev wrote:

Всем привет.
На форме есть TableGrid1 и TableGrid2. В первой таблице есть список сотрудников. Надо чтобы при двойном нажатии на сотрудника, он также отобразился в TableGrid2.  Суть в том что из например 100 сотрудников мне надо выбрать 5 или 10 сотрудников и отправить их в Excel. Т.е. TableGrid2 не имеет связи ни с какой таблицей базы данных. Помогите с решением.

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

Go to forum: Russian

43 Reply by kovalenko

(3 replies, posted in Russian)

DriveSoft wrote:

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/jwwq7vbjl33os … 2.zip?dl=0


Создав событие OnShow для главной формы, примените функцию SetWindowLong для каждой формы, кроме главной, пример:

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    SetWindowLong(Form2.Handle, GWL_EXSTYLE, GetWindowLong(Form2.Handle, GWL_EXSTYLE) xor WS_EX_APPWINDOW);
    SetWindowLong(Form3.Handle, GWL_EXSTYLE, GetWindowLong(Form3.Handle, GWL_EXSTYLE) xor WS_EX_APPWINDOW);
end;

Дмитрий есть два вопроса. Первый, при использовании вашего скрипта появляется ещё одно не активное окно, что это (скрин прилагаю)?
И второй вопрос, а есть вариант скрипта, что-бы по нажатию кнопки все формы (активная и все что ниже) сворачивались?

Go to forum: Russian

44 Reply by kovalenko

(3 replies, posted in Russian)

blackpearl8534 wrote:

how can we copy , delete , replace an exe or another file using my visual database .

This is the answer to my question???

Go to forum: Russian

45 Topic by kovalenko

(3 replies, posted in Russian)

Всем добрый день. Возник вопрос, где-то решение встречал, но где-сейчас ужо не вспомню, а по сему уповаю на вас. Суть в чём, есть грид куда выводятся данные из конкретной таблицы (пусть номер 1), в этот-же грид в крайний правый столбец (пусть номер 5) выводятся данные ещё с одной таблицы (2), таблицы 1 и 2 не имеют прямой связи (ну так уж случилось))).  Та квот вопрос, часть строк в 5 столбце имеют заполнение, часть нет, как мне вывести в грид все строки, которые не имеют заполнения в 5 столбце? Вроде как можно через sql запрос, может кто подскажет!?  Связывать таблицы 1 и 2 не хотца.

Go to forum: Russian

46 Reply by kovalenko

(8 replies, posted in Russian)

pt.82 wrote:

да это понятно что в Options надо выбрать multiselect, но тут похоже надо скрипт еще какойто потомучто ctrl зажимаю выбираю и печатает 1 заявление той записи которой тыкнул последнюю

Или такой вариант
А вот если надо распечатать несколько договоров (правда не мой случай), то опять-же, это в настройках FastReport, почитайте доки по нему (сам точно не помню как именно это делать, но в документах встречалось).

Go to forum: Russian

47 Reply by kovalenko

(8 replies, posted in Russian)

pt.82 wrote:

да это понятно что в Options надо выбрать multiselect, но тут похоже надо скрипт еще какойто потомучто ctrl зажимаю выбираю и печатает 1 заявление той записи которой тыкнул последнюю

Тут скорее настройки формы в FastReport. У меня есть договор и при мультиселект печатает тоже только активную строку. Сделайте в фасте таблицу (как вариант).

Go to forum: Russian

48 Reply by kovalenko

(8 replies, posted in Russian)

pt.82 wrote:

Добрый день!
помогите, натолкните, в как сделать есть TableGrid, есть шаблон сделанный в FastReport, есть кнопка отчет которая при выборе записи в TableGrid печатает заявление на сотрудника, как сделать чтобы использовать goMultiselect для TableGrid, выбрав записи удерживая Ctrl сформировать сразу нескольким сотрудникам такое заявление

Выбрать в настройках грида режим MultiSelec в закладке Options.

Go to forum: Russian

49 Reply by kovalenko

(8 replies, posted in Russian)

kovalenko wrote:
DriveSoft wrote:

Приложите пожалуйста ваш проект, посмотрю в чем дело.

Дмитрий здравствуйте. Отправил свой проект вам на почту, доступ admin / 1.
Суть какая. У меня создаётся заказ. Потом в таблице "заказы" я при выборе заказа в гриде распечатываю бланк приёма в ремонт или какой другой бланк. Что хотелось бы, хочется создать отдельную форму с данными по компании (поля с наименованием, телефоном, режимом работы, почтой и т.д и т.п) и что бы эти данные вставлялись в шапку печатной формы (или иметь возможность вставлять в печ.форму отдельные/выборочные данные из формы данных о компании, телефон или мыло или ещё что). Соответственно если данные в форме по компании меняются, меняются и данные в шапке печатной формы. В идеале иметь возможность вставлять все данные из формы о компании, или выборочные в любые печ. формы (т.е с любой формы базы).
Заранее благодарен.

Всё, отбой. Реально ОТТУПИЛСЯ. Дмитрий спасибо за ваше внимание вопрос закрыт!!!

Go to forum: Russian

50 Reply by kovalenko

(8 replies, posted in Russian)

DriveSoft wrote:

Приложите пожалуйста ваш проект, посмотрю в чем дело.

Дмитрий здравствуйте. Отправил свой проект вам на почту, доступ admin / 1.
Суть какая. У меня создаётся заказ. Потом в таблице "заказы" я при выборе заказа в гриде распечатываю бланк приёма в ремонт или какой другой бланк. Что хотелось бы, хочется создать отдельную форму с данными по компании (поля с наименованием, телефоном, режимом работы, почтой и т.д и т.п) и что бы эти данные вставлялись в шапку печатной формы (или иметь возможность вставлять в печ.форму отдельные/выборочные данные из формы данных о компании, телефон или мыло или ещё что). Соответственно если данные в форме по компании меняются, меняются и данные в шапке печатной формы. В идеале иметь возможность вставлять все данные из формы о компании, или выборочные в любые печ. формы (т.е с любой формы базы).
Заранее благодарен.

Go to forum: Russian