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 187 of 400)
Topics by DriveSoft User defined search
Posts found: 4,651 to 4,675 of 9,999
Hello,
Unfortunately TClickatellCom not support additional properties.
Clickatell also have HTTP api, example
https://www.clickatell.com/developers/a … -http-api/
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
s := HTTPEncode('Your message');
HTTPGet('https://api.clickatell.com/http/sendmsg?user=xxxxx&password=xxxxx&api_id=xxxxx&to=xxxxx&text=xxxxx'+s);
end;
zoomix wrote:Спасибо, Дмитрий! Но этот автовыход, только для неактивного юзера, если же юзер активен в программе (даже перемещения мышью по формам), то его не выбрасывает. Верно?
В данном примере активностью пользователя считается создание, редактирование, поиск и удаление записей, если их не будет зафиксировано, то через установленное время программа закрывается.
Вам необходимо чтобы движения мышью по формам тоже считалось активностью?
stas.kodpi wrote:та кнопка поиск да, делает свое дело, но во-первых , подсвечивает очень тускло искомое слово.
Не совсем понимаю, о каком тусклом подсвечивании идет речь? Никакого подсвечивания в программе не предусмотрено.
stas.kodpi wrote: во-вторых, хотелось бы самому создавать такие поиски, ( и не только под одному слову) и, по возможности, безо всякого sql.
такое возможно?
с ув.
В программе поиск возможен либо с помощью действия "Поиск"
Либо с использованием SQL запроса, подробней об этом можно прочитать в документации
http://myvisualdatabase.com/help_ru/com … n_sql.html
lhimes
I can't check your database without more details about your project, thus to find all database mistakes and correct it need at least 2-3 hours. I just can't spend more that 15-20 min to solve one question on forum.
Hello,
An example, how to save file to disk
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
s := SaveFileFromDataBase('tablename', 'fieldname', Form1.TableGrid1.dbItemID); // save file to disk and get filename in system temp folder
OpenFile(s); // open file
CopyFile(s, 'd:\'+ExtractFileName(s)); // copy the file to disk d:\
end;
gieri wrote:Hello Dmitry,
found out that the TabelGrid1 also lost its column order when I type something into the search. Suddenly all Columns are shown.
Cheers
gieri
Order of column adjustment in the settings of button with action "Search"
gieri
Please download latest beta version 2.7 here:
https://www.dropbox.com/s/582unbatehan1 … a.zip?dl=0
Then check out attached project:
mr_d wrote:Here it is (attached) without your new "display" field attribute.
instead word "link" you should write the fieldname ('Currently At Link' in your case), but I think this script is not support spaces in the field names. You should remove all spaces from field names of your database.
Игоревич wrote:можно его вам выслать на почтовый ящик
да, на support@drive-software.com
zoomix
Доработал проект.
В данной переменной
const
TimeOut = 10; // mins before auto exit
можете установить желаемое количество минут перед авто выходом
Игоревич wrote:Подскажите пож. как сделать, если пользователь открывает запись главной таблицы которую он не может редактировать она была не активной. Текстовое поле
Многострочное поле Выпадающий список фото файл
Приложите пожалуйста ваш проект.
madbit71 wrote:Hi , how can i insert some data to ms word? Do you've an example pls? Tks.
Hello,
An example for you
http://myvisualdatabase.com/forum/misc. … download=1
stas.kodpi wrote:я так полагаю, что без sql тут никак не обойтись?
того поиска, что встроен маловато для нужд(((
К сожалению из вашего описания не могу понять, какой именно поиск вам необходим, ведь кнопка с действием Поиск делает именно то, о чем вы говорите.
simon100500
Странно, должно позволять изменять, режим только для чтения гарантирует что шаблон не будет изменен если вдруг пользователь решит сохранить файл ворда с таким же именем.
Пожалуйста дайте знать, какая версия ворда установлена на вашем ПК?
Please attach your index.html file.
Hello,
You can directly edit file index.html
Example you have field with name "link"
1. Open file index.html in any text editor
2. Find this code
link: {
title: 'Link',
create: true,
edit: true,
list: true,
width: '20%'},
3. Change it like this
link: {
title: 'Link',
create: true,
edit: true,
list: true,
width: '20%',
display:
function (data) {
return '<a href=\"http://'+data.record.link+'\">' + data.record.link + '</a>';
}},
Приветствую,
Вам необходимо сделать поиск именно с помощью SQL запроса?
Если нет, то достаточно использовать кнопку с действием "Поиск"
Рекомендую посмотреть видео урок по созданию простейшей БД, в ней рассмотена настройка кнопки Поиск
https://www.youtube.com/watch?v=-kKAgCgyRtY
Чтобы проект заработал для MySQL, достаточно исправить вычисляемое поле calc_ostatok в таблице product
(SELECT SUM(IFNULL(sklad.amount, 0)) FROM sklad WHERE sklad.id_product=product.id)
Либо можете скачать исправленный проект для MySQL
http://myvisualdatabase.com/forum/misc. … download=1
Приветствую,
в скрипте замените ValidInt на ValidFloat
StrToInt на StrToFloat
IntToStr на FloatToStr
Игоревич
Замените пожалуйста данный участок кода
if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True else FormGlavn.bUsers.Visible:=False;
if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True else FormGlavn.Button5.Visible:=False;
if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True else FormGlavn.Button1.Visible:=False;
if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True else FormGlavn.Button4.Visible:=False;
if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True else FormGlavn.Button6.Visible:=False;
if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True else FormGlavn.bDelete.Visible:=False;
на
if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True;
FormGlavn.bUsers.Visible:=isAdmin;
FormGlavn.Button5.Visible:=isAdmin;
FormGlavn.Button1.Visible:=isAdmin;
FormGlavn.Button4.Visible:=isAdmin;
FormGlavn.Button6.Visible:=isAdmin;
FormGlavn.bDelete.Visible:=isAdmin;
FormGlavn.mniOptions.Visible := isAdmin;
meideprac-x wrote:DriveSoft wrote:meideprac-x
Please attach your project, I'll try to help you.
Hi Dimitry!
- It should be very simple but I can not resolve a syntax error when I save a record within script (than you can see it works perfectly within an action "save record").
- How could I pass var "words" to the report SQL without using a table ??
- In the script you wrote to pass numbers to words, it would be possible that when the cents were 0, it dont write "zero cents" ??
Thanks!
Javi
1.
In this code you shold replace Form1.import_w.Text to Form1.import_w.sqlValue
SQLExecute ('INSERT INTO base (nom, import_v, import_w) Values ('+Form1.nom.sqlValue+','+Form1.import_v.sqlValue+','+Form1.import_w.Text+')');
2. It's no need, you should use this script in the report.
3. Fixed.
Fixed project attached.
Unfortunately solar calendar is not supported.
Unfortunately it's not possible in the current version to use the Google Calendar.
Also you can't use DropBox or Google Drive for multiusers, it's may cause errors and damage data.
Игоревич wrote:Подскажите пож как срыть меню (Инструменты) в программе, чтобы они видны были только администратору. Заранее спс за ответ.
Как скрыть меню, можно посмотреть здесь
http://myvisualdatabase.com/forum/viewtopic.php?id=1091
Но чтобы дать конкретный скрипт для вашего случая, необходимо видеть скрипт проекта.
Posts found: 4,651 to 4,675 of 9,999