1,101

(28 replies, posted in Russian)

Andrei wrote:

Добрый день.
Подскажите как правильно написать в фильтр ComboBox Запрос SQL чтобы в фильтр попали записи по условию id_rab = (1)
ForeingKey для ComboBox print.id_mod_print

procedure frmAddSch_OnMouseEnter (Sender: TObject);
begin
       frmAddSch.ComboBox2.dbFilter := SQLExecute('SELECT id_mod_print FROM print WHERE id_rab = (1)');
       frmAddSch.ComboBox2.dbUpdate;
end;

procedure frmAddSch_OnMouseEnter (Sender: TObject);
begin
       frmAddSch.ComboBox2.dbFilter := SQLExecute('SELECT id_mod_print FROM print WHERE id_rab =1');
       frmAddSch.ComboBox2.dbUpdate;
end;

1,102

(15 replies, posted in General)

AD1408 wrote:

Hi Dmitry,


Any solution?

record_count1 := SQLExecute('SELECT record_count FROM OrgStructure WHERE id='+IntToStr(id1));
        showMessage(record_count1);
        record_count2 := SQLExecute('SELECT record_count FROM OrgStructure WHERE id='+IntToStr(id2));
        showMessage(record_count2);

is empty!


http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5671&download=0

1,103

(6 replies, posted in Script)

Ув. Дмитрий, не моглибы Вы дополнить этот проект

1. создать возможность перемещать панель с едитом по форме
2. при удалении панель сбрасывать или как-то поднимать нижнии понели

1,104

(6 replies, posted in Script)

.

1,105

(6 replies, posted in General)

когда  это происходит?

если это происходит в самой MVDB, я нажимаю сохранить и перезагружаю программу..

1,106

(8 replies, posted in Russian)

аааа.. дошло , это создание переменной в дизайнере отчета

Мне нужен компонент для поиска...
для вывода на печать..

1,107

(8 replies, posted in Russian)

не получается..
frmLogin.frxReport.Variables.Clear;
frmLogin.frxReport.Variables['cbInBakFilter'] :=frmReportShop.cbInBakFilter.dbItemID;

1,108

(8 replies, posted in Russian)

k245 wrote:

как передать компонент поиска скриптом?

Form1.frxReport.Variables.Clear;
// группа параметров
Form1.frxReport.Variables[' ' + 'Seller'] := Null; 
// параметры и значения
Form1.frxReport.Variables['Name'] := ''''+ Results.FieldByName('Name').AsString +''''; 
Form1.frxReport.Variables['AddressLegal'] := ''''+ Results.FieldByName('AddressLegal').AsString +'''';

что за Results?

1,109

(8 replies, posted in Russian)

спасибо!

вот еще вопрос

как передать компонент поиска скриптом?

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5654&download=0

1,110

(6 replies, posted in Russian)

вы пытаетесь дважды подключиться к БД или пытались разными спосабами?
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5652&download=0

1,111

(8 replies, posted in Russian)

не могу понять можно ли так...

У меня есть настроенная кнопка для печати отчета, но я хочу чтобы сам файл отчета выбирался из переменной

Все работает!

с начало поставил Libre Office - ОК

потом добавил Microsoft Excel - ОК (и овтоматом и нет)

потом удалил Microsoft Excel - и снова все ОК
 
 
У меня windows10

1,113

(5 replies, posted in Russian)

derek wrote:

Привет Sibprogsistem,
Это помогает?
С уважением,
Derek

thank derek !
now everything works

(SELECT IFNULL(sum(inkolvo),"0") FROM inProduct WHERE inProduct.id_magazin=magazin.id ) 
 -  
(SELECT IFNULL(sum(outkolvo),"0") FROM outProduct WHERE outProduct.id_magazin=magazin.id)
 

1,114

(5 replies, posted in Russian)

не получается получить в вычисляемом поле остаток товара

нужно от inProduct.inkolvo отнять  outProduct.outkolvo
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5640&download=0

1,115

(1 replies, posted in Russian)

можно-ли распечатать таблицу не пребигая к мастеру отчетов?

1,116

(6 replies, posted in FAQ)

vovka3003 wrote:

подключение с зарание известых ip то и vps не нужен.

Как видите - это не помешало мне "зайти к вам в гости". Вы ж наверное обратили внимание на знакомые буковки..?
Скажу прямо: не надо растопыривать порт 3306 в инет. Это чревато...

эти что-ли

<?php 

//параметры соединения с базой данных
R::setup( 'mysql:host=localhost;dbname=sibprogsistem0_master;charset=utf8',
        '046581659_mas', '1009831995qw' );

session_start();
?>

wink

1,117

(6 replies, posted in FAQ)

vovka3003 wrote:

То есть - вы хотите сказать что у вас порт 3306 растопырен в инет..?
Ну тогда дополню с вашего позволения:
...
dbname: sib***********er
db_login: 04*********as
db_pass: 10**********qw
...

Понимаете о чем я..?

да, понимаю
но если нужно подключение с зарание известых ip то и vps не нужен.

но вроди как ssl должен закрывать это
dbname: sib***********er
db_login: 04*********as
db_pass: 10**********qw
...

1,118

(6 replies, posted in FAQ)

vovka3003 wrote:

Кому-нибудь удавалось уговорить провайдера виртуального хостинга расшарить порт 3306?
Мне нет...

не понял вы про что?
Адрес MySQL-сервера    localhost
Порт    3306

если вы прот внешний доступ к БД
то на jino это делается так..
выбираете VPS заходите в панель управления и в консоле прописываете

iptables -I MYSQL_WHITELIST --src 0.0.0.0/0 -j RETURN
iptables-save > /etc/sysconfig/iptables

теперь доступ открыт для всех IP
я использую Консоль SSH

получаем подключение
server host -Адрес MySQL-сервера   
port-    3306
user -Имя пользователя   
password-пароль
database- имя базы данных

1,119

(5 replies, posted in Russian)

iacovlogica wrote:

Linuxmint + wine полёт нормальный

....встроенное ядро Linux от Microsoft

  сами то поняли что написали ?

это значит, что Microsoft встроить в windows ядро Linux

1,120

(5 replies, posted in Russian)

vovka3003 wrote:
sibprogsistem wrote:

  ШАХ И МАТ  ))

О чем это..?

люди многие годы пытались сделать на оборот )) где-то я даже видел такую Русскую ОС..

1,121

(5 replies, posted in Russian)

а для чего вы преходите на ubuntu
Windows 10 получит встроенное ядро Linux от Microsoft
 
  ШАХ И МАТ  ))

https://3dnews.ru/assets/external/illustrations/2019/05/07/987063/sm.04.750.jpg

k245 wrote:

Редкое сочетание: пират-чайник ))))
        |
        |
Но это легко исправить! Воспользуйтесь летним предложением: купите лицензию и получите базовый курс обучения в подарок:

https://vk.com/createmyvisualdatabaseap … 1642664_54

вот это я понимю, МАРКЕТИНГ !

1,123

(1 replies, posted in Russian)

возможно ли распределить процентами или автоматически по ширине таблицы?

mikhail_a wrote:

В этом случае не надо будет прописывать имя каждого датапикера в коде событий OnChange и на открытие форм не надо вешать обработчик.

может от того,что я ниразу с таким не сталкивался , но я сомниваюсь..

vovka3003 wrote:

Почему такой метод не работает

может глупо, но я думаю, что в вашем случае в процедуре
procedure SetDTMode(Sender:TObject);
вот тут
DT:= TdbDateTimePicker(Sender);
пытается получить толи имя DateTimePicker толи полный адрес

Form1.DateTimePicker[i]

но в Sender находиться ,что-то иное..