sergikmelnik
Спасибо за помощь )


Действительно забыл кое что исправить, скачайте еще раз версию 2.031, перезалил

Nervis
Пример

CASE 
   WHEN number_of_plats = 1  THEN 'Один'
   WHEN number_of_plats = 2  THEN 'Пара'
   ELSE 'Много'
END

sergikmelnik
Ваш проект сделан версией 2.03, пожалуйста скачайте, установите и запустите проект используя версию 2.031

Пришлите пожалуйста ваш проект на support@drive-software.com
посмотрю в чем дело.

sergikmelnik
Моя ошибка, система проверяет наличие всех необходимых полей на сервере, но не учел что вычисляемые поля не хранятся на сервере.


Скачайте пожалуйста  исправленную версию 2.031
http://myvisualdatabase.com/forum/viewt … 9718#p9718

yanikmi
Я могу ответить только на конкретные вопросы, к сожалению ваши вопросы скорей являются заданием для исполнения.


установить значение на основе в id в ComboBox можно так

Form1.ComboBox1.dbItemID := ваш id;

получить данные из таблицы можно с помощью функции SQLExecute

6,432

(10 replies, posted in General)

I improved your example, added stars to grid

6,433

(3 replies, posted in Russian)

Приветствую,


К сожалению пока такой возможности нет, но в будущем думаю реализую.

sergikmelnik
Отправьте пожалуйста ваш проект на support@drive-software.com
посмотрю в чем дело.

Пожалуйста скачайте последнюю версию здесь
http://myvisualdatabase.com/forum/viewtopic.php?id=1728


немного доработал механизм поиска, теперь должен работать поиск запчастей и через кнопку Поиск.

Как правило кнопка с действием Поиск не может автоматически связать три таблицы (только две) чтобы искать в них, обычно проблему можно решить вычисляемым полем либо реализовать поиск с помощью SQL запроса.


Пожалуйста приложите к сообщению ваш проект (zip файл без exe и dll)
с описанием названий полей, по которым необходимо произвести поиск.

6,437

(20 replies, posted in Russian)

    Form1.TableGrid1.Columns[1].SortKind := skDescending; // skAscending
    Form1.TableGrid1.Columns[1].Sorted := True;

skAscending - по возрастанию
skDescending - по уменьшению

6,438

(5 replies, posted in General)

1.
Changed lines:

s := VarToStr( SQLExecute('SELECT read FROM users WHERE (login = ''' + sUser + ''');') );
to
s := VarToStr( SQLExecute('SELECT `read` FROM users WHERE (login = ''' + sUser + ''');') );


s := VarToStr( SQLExecute('SELECT write FROM users WHERE (login = ''' + sUser + ''');') );
to
s := VarToStr( SQLExecute('SELECT `write` FROM users WHERE (login = ''' + sUser + ''');') );


SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES (''admin'', ''21232F297A57A5A743894A0E4A801FC3'', 1, 1, 1, 1, 1);');
to
SQLExecute('INSERT INTO users (login, password, `read`, `write`, remove, search, administrator) VALUES (''admin'', ''21232F297A57A5A743894A0E4A801FC3'', 1, 1, 1, 1, 1);');


because "read" and "write" are reserved words for MySQL.



2. It's planned.

в моем примере нет таймера.

6,440

(10 replies, posted in FAQ)

I tested the example using gmail for sending email, check your login/password and smtp server.

6,441

(5 replies, posted in General)

I made small change for MySQL

6,442

(8 replies, posted in Script)

Please send me project with this error to support@drive-software.com

6,443

(10 replies, posted in General)

You can adapt this example for your purpose.
http://myvisualdatabase.com/forum/misc. … download=1

6,444

(10 replies, posted in FAQ)

How to send report document to E-mail


script:

procedure Form1_bReport_OnAfterClick (Sender: string);
var
    sFile: string;
begin
    Form1.bReport.Enabled := False;
    Form1.bReport.Caption := 'Please wait...';

    sFile := Form1.frxPDFExport1.FileName;

    if FileExists(sFile) then
        if SendMail('smtp.gmail.com', 'yourmail@gmail.com', 'password', 465, 'Your name', 'recipient@yahoo.com', 'Subject', 'Message', sFile) then
            ShowMessage('Message sent');

    Form1.bReport.Enabled := True;
    Form1.bReport.Caption := 'Send PDF to e-mail ';
end;

begin
    Form1.frxPDFExport1.OpenAfterExport := False;  
end.



Download project:

An example for you:
http://myvisualdatabase.com/forum/viewt … 9900#p9900

6,446

(8 replies, posted in Script)

tcoton
I made some changes, please download latest alpha version:
http://myvisualdatabase.com/forum/viewt … 9720#p9720

6,447

(2 replies, posted in General)

It's not possible in the current version, I can suggest for you an example, how to save and restore position/size of forms
http://myvisualdatabase.com/forum/misc. … download=1

Данная проблема не связана с памятью, сделал для вас пример более быстрого импорта, данные вставляются порциями.
Количество строк в порции определяется этой строкой
if qLine > 200 then // amount of lines for insert


уменьшите значение (200) если в вашем случае будет возникать ошибка.


Проект с примером:

Milla.Makova wrote:

Здравствуйте.
Подскажите, как можно сделать черезстрочное раскрашивание таблицы. Например, чтобы окрашивались только четные строки или нечетные. Необходимо для читабельности таблицы.

Здравствуйте, здесь можете найти пример
http://myvisualdatabase.com/forum/viewtopic.php?id=1087

Leonid
Скачайте пожалуйста версию 2.03, исправил эту ошибку. Спасибо
http://myvisualdatabase.com/download/my … b2.03a.exe