Please, send me your project to support@drive-software.com
Thanks.
My Visual Database → Posts by DriveSoft
Please, send me your project to support@drive-software.com
Thanks.
Thank you for feedback, no need confirmations for delete controls, when i implement Undo (Ctrl+Z)
timlitw
You can only uncheck date field
Form1.dtDateOfBirth.Checked := False;
Here you can find documentation, where available settings for controls
http://myvisualdatabase.com/forum/viewtopic.php?id=395
Обычно форма очищается автоматически, перед тем как будет вызвана для создания новой записи.
Частая ошибка, для создания новой записи, присваивают действие Показать форму вместо Новая запись
у вас должен получится такой код:
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
Form1.Edit1.Enabled := Form1.CheckBox1.Checked;
end;
begin
end.
скорей всего вы удалили в конце begin и end.
они обязательно должны быть.
In current version you can't sort combobox by script, but you can enable Sort in Object inspector, property "Sort"
Hello,
Please, download this example, how to do it:
http://myvisualdatabase.com/forum/misc. … download=1
Thanks.
Можно, используя скрипт, создать событие OnClick от компонента CheckBox, здесь вы можете прочитать, как создавать событие:
http://myvisualdatabase.com/help_ru/scr … rview.html
Пример
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
Form1.Edit1.Enabled := Form1.CheckBox1.Checked;
end;
Необходимо создать в базе данных еще одну таблицу и туда добавлять мастеров, которая будет иметь связь с главной таблицей, в которой содержится информация о ремонте.
Затем например создать отчет на основе SQL запроса (либо вычисляемое поле), который посчитает сумму заказа деленную на количество задействованных мастеров для нужного заказа.
mitrich45
Речь идет о компоненте TableGrid? метод dbUpdate обновляет содержимое компонента, поэтому OnChange обязан сработать.
In beta version 1.44 i added new function in script:
function SaveFileFromDataBase (TableName, FieldName: string; id: integer): string;
Please, download 1.44 version here:
https://www.dropbox.com/s/2phoggh5kfu88 … 4.zip?dl=0
Then you can download example project, how to do it
Using by script, you can activate this option:
Form1.ComboBox1.Style := csDropDown;
carlo_dj
Hello,please send me your project to support@drive-software.com
I'll test it.
The Engineer
Please, send me project to support@drive-software.com
var
s: string;
i: integer;
begin
s := '5';
i := StrToInt(s);
end;
majuten
In 1.44 added event "OnChange" for TableGrid. No any limits for commercial use.
Please, send me all files from project folder to email support@drive-software.com
Thanks.
К сожалению обучающего материала по скриптам и SQL при использовании в My Visual Database у меня нет.
В качестве скриптов используется синтаксис Pascal, который аналогичен в среде программирования Delphi, поэтому можете воспользоваться любым материалом для начинающих изучать Delphi, например этот
http://portal.tpu.ru/SHARED/v/VIC/educa … index.html
в документации есть простой пример, как пользоваться скриптами
http://myvisualdatabase.com/help_ru/scr … rview.html
SQL язык запросов так же является стандартным, подробней о нем можно прочитать здесь
http://www.sql.ru/docs/sql/u_sql/
В целом, чтобы создать базу данных в My Visual Database, вам не нужно знать скрипты или SQL, только в некоторых нестандартных случаях.
jean.brezhonek
It will be difficult for most users.
mitrich45
Уточните, сообщение необходимо при вызове формы для добавления записи? либо при фактическом добавлении в базу данных?
для сообщения при удалении записи, создайте событие OnClick у кнопки, предназначенной для удаления записи, пример:
procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
ShowMessage('Удаление');
end;
Hello,
Thanks for suggestion.
I can include in the future, these events:
OnCellFormating(Sender: TObject; ACol, ARow: Integer; var TextColor: TColor; var FontStyle: TFontStyles; CellState: TCellState);
OnCellColoring(Sender: TObject; ACol, ARow: Integer; var CellColor, GridColor: TColor; CellState: TCellState);
In beta version 1.44
https://www.dropbox.com/s/2phoggh5kfu88 … 4.zip?dl=0
you can use event OnChange for coloring cells, Example:
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[3,i] = 'Yes' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'No' then Form1.TableGrid1.Cell[3,i].Color := clGreen;
end;
end;
Here you can download example project:
http://myvisualdatabase.com/forum/misc. … download=1
Приветствую,
Сделал для вас проект с примером, в котором показывается окно приветствия, которое закрывается автоматически через 5 секунд, так же есть возможность закрыть его кнопкой.
К сожалению в текущей версии это возможность не задействована, но я уже тестировал шифрование непосредственно файла sqlite.db, работает, надеюсь в скором времени реализую.
Это можно сделать при настройке кнопки с действием "Поиск" либо в настройках компонента TableGrid, как показано на рисунке ниже:
Here you can find documentation in French:
http://myvisualdatabase.com/help_fr/
Offline version:
http://myvisualdatabase.com/forum/misc. … download=1
Many thanks to Yann YVINEC.
Profile on forum: http://myvisualdatabase.com/forum/profile.php?id=240
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi