sergikmelnik
Спасибо за помощь )
Действительно забыл кое что исправить, скачайте еще раз версию 2.031, перезалил
My Visual Database → Posts by DriveSoft
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
I improved your example, added stars to grid
Приветствую,
К сожалению пока такой возможности нет, но в будущем думаю реализую.
sergikmelnik
Отправьте пожалуйста ваш проект на support@drive-software.com
посмотрю в чем дело.
Пожалуйста скачайте последнюю версию здесь
http://myvisualdatabase.com/forum/viewtopic.php?id=1728
немного доработал механизм поиска, теперь должен работать поиск запчастей и через кнопку Поиск.
Как правило кнопка с действием Поиск не может автоматически связать три таблицы (только две) чтобы искать в них, обычно проблему можно решить вычисляемым полем либо реализовать поиск с помощью SQL запроса.
Пожалуйста приложите к сообщению ваш проект (zip файл без exe и dll)
с описанием названий полей, по которым необходимо произвести поиск.
Form1.TableGrid1.Columns[1].SortKind := skDescending; // skAscending
Form1.TableGrid1.Columns[1].Sorted := True;
skAscending - по возрастанию
skDescending - по уменьшению
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.
в моем примере нет таймера.
I tested the example using gmail for sending email, check your login/password and smtp server.
I made small change for MySQL
Please send me project with this error to support@drive-software.com
You can adapt this example for your purpose.
http://myvisualdatabase.com/forum/misc. … download=1
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
tcoton
I made some changes, please download latest alpha version:
http://myvisualdatabase.com/forum/viewt … 9720#p9720
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) если в вашем случае будет возникать ошибка.
Проект с примером:
Здравствуйте.
Подскажите, как можно сделать черезстрочное раскрашивание таблицы. Например, чтобы окрашивались только четные строки или нечетные. Необходимо для читабельности таблицы.
Здравствуйте, здесь можете найти пример
http://myvisualdatabase.com/forum/viewtopic.php?id=1087
Leonid
Скачайте пожалуйста версию 2.03, исправил эту ошибку. Спасибо
http://myvisualdatabase.com/download/my … b2.03a.exe
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi