Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 130 of 400)
Topics by DriveSoft User defined search
Posts found: 3,226 to 3,250 of 9,999
mikhail_a wrote:Да, вопрос актуален. Также, он касается и вывода чисел "деньги" в таблице. Однако, пока Вы были в отпуске у меня закончился триальный период. Можно как-то дней на 10 еще продлить пробный период? Пока еще не все моменты ясны, чтобы понять, подойдет ли это ПО для наших задач. Кстати, есть ли возможность получать письма по протоколу POP3? Отправка писем понятна, а вот получение - проблема. Очень нужна такая возможность, даже если много кода написать придется.
Формат поля "Деньги" задается в настройках поля БД.
Видимо просьба про пробный период уже не актуальна, т.к. вы приобрели лицензию.
В ближайшее время (в течении недели) попробую реализовать возможность получения писем по протоколу POP3
mikhail_a wrote:Каким образом в Combobox сделать так, чтобы числа (Деньги) отображались с разделением разрядов (пробел) и с двумя знаками после запятой? Например, число 92234.10 отображается как "92234.1", а надо "92 234.10"
Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/f3j4kfpnttm1o … b.zip?dl=0
Исправил, теперь денежный формат автоматически присваивается в ComboBox
poruch_gd.TableGrid1.dbFilter:= '(porych_gd.na_kontrole=1) AND (porych_gd.podrazp_isp LIKE "'+poruch_gd.Edit4.Text+'%")';
Здравствуйте.
Пока такой возможности нет, но попробую реализовать это в ближайшую неделю.
TroNadoR
Да, можете просто доплатить разницу, просто свяжитесь со мной, я вам отправлю необходимую ссылку для этого.
пример для локальной проверки
CONST
CURRENT_VERSION = 3; // текущая версия 3
procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
s := OpenTextFile('//192.168.0.1/SharedFolder/version.txt'); // узнаем номер актуальной версии
if ValidInt(s) then
begin
if CURRENT_VERSION < StrToInt(s) then // если текущая версия меньше актуальной
begin
ShowMessage('Ваша версия программы устарела, будет открыта web страница, где вы можете скачать последнюю версию.');
OpenURL('http://mysite/download.html');
end;
end;
end;
function OpenTextFile(FileName: string): string;
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile(FileName);
Result := sl.Text;
Result := ReplaceStr(Result, #13#10, '');
sl.Free;
end;
если что то не работает, пожалуйста описывайте подробней, что именно не получается.
В настройках кнопки с действием отчет вы можете выбрать несколько связанных таблиц, данные таблицы свяжутся автоматически, но в некоторых случаях все же необходим скрипт, если вам необходим отчет, как в данном примере:
http://myvisualdatabase.com/forum/viewtopic.php?id=1665
You should use script for that instead increm.search, example:
procedure Form1_Edit1_OnChange (Sender: string);
begin
Form1.ButtonSearch1.Click;
Form1.ButtonSearch2.Click;
end;
Вставка значений в SQL запрос осуществляется через компоненты, например вы можете разместить на форме компонент Edit1 и подставить его в SQL запрос. Затем скриптом присваивать компоненту Edit1 желаемое значение, сам компонент можно при этом скрыть с формы.
...
WHERE porych_gd.otv_isp = "{Edit1}"
...
Также возможно формировать SQL запрос для данной кнопки с помощью скрипта, используя свойство Form1.Button1.dbSQL
пример
Form1.Button1.dbSQL := 'SELECT * FROM porych_gd WHERE porych_gd.otv_isp="'+sUser+'"';
TroNadoR
Скачайте пожалуйста последнюю бета версию 3.5, теперь должно работать и с MultiSelect
https://www.dropbox.com/s/f3j4kfpnttm1o … b.zip?dl=0
6katran6 wrote:вот этот Но обычно проверку на наличие новой версии делается через Интернет.
пример
CONST
CURRENT_VERSION = 3; // текущая версия 3
procedure Form1_OnShow (Sender: string; Action: string);
var
s: string;
begin
s := HTTPGet('http://mysite/version.txt'); // узнаем номер актуальной версии
if ValidInt(s) then
begin
if CURRENT_VERSION < StrToInt(s) then // если текущая версия меньше актуальной
begin
ShowMessage('Ваша версия программы устарела, будет открыта web страница, где вы можете скачать последнюю версию.');
OpenURL('http://mysite/download.html');
end;
end;
end;
Pr0shka wrote:Интересует именно вышенаписанное мной, чтобы в будущем прикрутить пользовательский интерфейс, и чтобы пользователт мог логиниться и просматривать определенные данные
Также в программе предусмотрена возможность создания простого web интерфейса для доступа к данным, которые находятся в MySQL БД
Здравствуйте.
Вам необходимо выгрузить данных из текущей базы данных (sqlite.db) в CSV формат, для этого можете использовать бесплатную программу SQLite Studio
затем в настройках программы My Visual Database вам необходимо переключиться на использование MySQL, после чего с помощью phpMyAdmin загрузить данные в MySQL базу данных из файлов CSV
Evgeniy D wrote:А если TableGrid отсортирован при помощи dbfilter, то как можно в отчет вывести только те записи которые в настоящий момент видны в TableGrid?
Скачайте пожалуйста последнюю бета версию 3.5
https://www.dropbox.com/s/f3j4kfpnttm1o … b.zip?dl=0
Добавил такую возможность.
Если вы используете кнопку с действием Отчет, теперь ей тоже можете присвоить свойство dbFilter, пример
procedure Form1_ButtonReport_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.ButtonReport.dbFilter := Form1.TableGrid1.dbFilter;
end;
mathmathou
I think there is no limit for icons.
You should use function SQLExecute to add/update/delete data in a database.
Example, how to add record to database
var
s: string;
begin
s := '"'+Form1.Memo1.Text+'"';
SQLExecute('INSERT INTO tablename (fieldname) VALUES('+s+')');
Also you can attach your project, I'll try to help you.
domebil wrote:I need a script for the CheckBox component that allows me to automatically save it to the closing of the forum.
See photos
Check it out
Hello.
Please check out this topic
http://myvisualdatabase.com/forum/viewtopic.php?id=2167
Other question:
Is it possible now to click on the column heads and sort the list? Regrettably until now, sorting is possible but after a few seconds the sort criteria gets lost
Try to set property KeepUserSort = True of TableGrid
Данное событие предназначено для перехвата ошибок связанных с исполнением SQL запросом. События для ошибок связанных с подключением к серверу пока не предусмотрено.
Unfortunately I can't understand what exactly you want to do, please describe step by step.
Igor wrote:Дмитрий, для какой версии программы данный скрипт ? На версии 3.4 не работает. Всплывает ошибка про неопределенный тип
Скачайте пожалуйста бета версию 3.5
https://www.dropbox.com/s/f3j4kfpnttm1o … b.zip?dl=0
6katran6 wrote:пример можно у меня не получается ?
Я описал два примера, какой именно сценарий необходим?
Posts found: 3,226 to 3,250 of 9,999