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 248 of 400)
Topics by DriveSoft User defined search
Posts found: 6,176 to 6,200 of 9,999
I added https support, but to use HTTPS protocol you need to include the libeay32.dll and ssleay32.dll in your application folder or Windows system folder.
here you can download libeay32.dll and ssleay32.dll
https://indy.fulgan.com/SSL/
please download latest beta version
http://myvisualdatabase.com/forum/viewt … ?pid=10497
Hello,
1 - In the current version it's not support.
2 - Usually you should use installer for Windows to install new fonts to user PC.
Instance http://www.jrsoftware.org/isinfo.php
look here section FontInstall
http://www.jrsoftware.org/ishelp/index. … lessection
К сожалению не знаю как это сделать.
попробуйте так:
Form1.MySQLConnection.Disconnect;
motorolla wrote:Дмитрий, а если не сложно, можете показать пример скрипта, в котором бы автоматически создавалась бы новая запись в базе данных с одним и тем же текстом через определенное кол-во дней(например через каждые 7 дней) от начальной даты записи.
создайте например таблицу с именем testtable с полями:
datecreated - Дата
comment - текст
и скрипт:
procedure Form1_OnShow (Sender: string; Action: string);
var
sDate: string;
begin
sDate := SQLExecute('SELECT MAX(datecreated) FROM testtable');
// если нет записей в БД
if sDate='' then SQLExecute('INSERT INTO testtable (datecreated, comment) VALUES(date(''now''), ''sometext'')');
if sDate<>'' then
if (SQLDateTimeToDateTime(sDate)+7) < Now then SQLExecute('INSERT INTO testtable (datecreated, comment) VALUES(date(''now''), ''sometext'')');
end;
Ясно, тогда запрос должен работать.
попробуйте так
Form1.Edit4.Text := SQLExecute('SELECT meseci FROM zakaz WHERE id=(SELECT MAX(id) FROM zakaz)');
motorolla
Пока что не планируется.
в скриптах необходимо использовать другой способ вставки данных из компонентов
'WHERE strftime(''%m.%Y'', '+Form1.DateTimePicker1.sqlValue+') = strftime(''%m.%Y'', TestAlmaty.biletOperator.datatime) ' , Results2);
но я не могу понять, что это
TestAlmaty.biletOperator.datatime
carlo_dj
I did not find any errors in this code.
Приветствую,
ComboBox имеет свойство Filter, в котором вы можете указать условие фильтрации записей, например в таблице проектов есть внешний ключ на таблицу статусов, в таблице статусов есть запись "В работе", которая имеет идентификатор 1 в поле id
тогда в свойстве Filter достаточна будет написать
id_status=1
1.
Form7.Edit6.Value := Abs(Form7.Edit4.Value - Form7.Edit5.Value); // calculate
2. К сожалению не понял вопроса.
Приветствую,
это необходимо сделать с помощью вычисляемого поля, доработал ваш проект
Если для добавления записи вы пользуетесь кнопкой с действием "Сохранить запись" то данные в ComboBox-е должны обновиться автоматически. Чтобы принудительно обновить их, вызовите процедуру UpdateDatabase('otdeleniye');
с помощью вашего способа также можно обновить данные в ComboBox-e, только следует добавить поле id в SQL запрос
Form1.combo.dbsqlexecute('select otdeleniye, id from otdeleniye');
1. Компонент Edit3 это текстовое поле или грид?
судя по названию это текстовое поле, но обращаетесь к нему в коде как к гриду.
2.
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
Form1.GroupBox1.Visible := Form1.CheckBox1.Checked;
end;
Hello,
When you use SQL, you will get raw data from database, so you should formatting this raw data manually, in your case:
printf('%.2lf', fieldname)
but without the thousands.
I can suggest another way, using this script:
procedure Form1_Edit9_OnChange (Sender: string);
var
s: string;
begin
s := '''%'+Form1.Edit9.Text+'%''';
if s <>'' then
Form1.TableGrid1.dbFilter :=
'((cars.regno like '+s+') or'+
'(maker.maker like '+s+') or'+
'(model.model like '+s+') or'+
'(cars.driver like '+s+') or'+
'(cars.colour like '+s+') or'+
'(cars.cc like '+s+') or'+
'(cars.engineno like '+s+') or'+
'(cars.purchaseprice like '+s+') or'+
'(cars.disposalprice like '+s+'))'
else Form1.TableGrid1.dbFilter := '';
Form1.TableGrid1.dbUpdate;
end;
Also fixed project attached.
Thank you for the project!
Form2.CheckBox5.Checked := True else Form2.CheckBox5.Checked:= False;
Rebrovvv
Если вам необходимо, чтобы все три грида увеличивались в размере и не наезжали друг на друга, то это можно сделать только с помощью скрипта, необходимо создать событие OnResize для формы (событие срабатывает при изменении размера формы) и в нем рассчитывать размеры и положение гридов на форме в зависимости от размера окна (Form1.Width и Form1.Height)
для ComboBox
Form2.ComboBox11.dbItemID := SQLExecute ('SELECT IFNULL(id_nik, -1) FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) );
для CheckBox
if SQLExecute ('SELECT Real FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) ) = '1' then
Form2.CheckBox5:= True else Form2.CheckBox5:= False;
не могу точно сказать, в течении недели.
Это можно будет сделать в версии 2.2
procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.TableGrid1.HeaderSize := 100; // высота заголовка
Form1.TableGrid1.Columns[0].Header.Orientation := hoVertical;
end;
Posts found: 6,176 to 6,200 of 9,999