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 314 of 400)
Topics by DriveSoft User defined search
Posts found: 7,826 to 7,850 of 9,999
Открытие почтовой программы с адресатом
Скрипт
procedure Form1_Edit1_OnDoubleClick (Sender: string);
begin
OpenFile('mailto:'+Form1.Edit1.Text);
end;
// not necessarily
// just for hight light e-mail address and change cursor to HandPoint
procedure Form1_Edit1_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Pos('@', Form1.Edit1.Text)>0 then
begin
Form1.Edit1.Cursor := crHandPoint;
Form1.Edit1.Font.Style:=fsUnderline;
Form1.Edit1.Font.Color := clHotLight;
end else
begin
Form1.Edit1.Cursor := crDefault;
Form1.Edit1.Font.Style:=0;
Form1.Edit1.Font.Color := clDefault;
end;
end;
Проект с примером:
Создание автоматического нестандартного счетчика, например:
MS-0001
MS-0002
MS-0003
Проект с примером:
Скрипт разукрашивает через одну строчку компонент TableGrid
скрипт:
procedure Form1_GridEmployees_OnChange (Sender: string);
var
iRow ,c: integer;
q, iCol: integer;
begin
c := Form1.GridEmployees.RowCount - 1;
q := Form1.GridEmployees.Columns.Count-1;
for iRow := 0 to c do
for iCol := 0 to q do
begin
if iRow mod 2 = 0 then Form1.GridEmployees.Cell[iCol,iRow].Color := clBtnFace;
end;
end;
begin
end.
Проект с примером:
Пример проекта со связью многие ко многим.
В качестве примера создана база данных авторов и их книг.
У автора может быть много книг, у книги может быть несколько авторов.
Вы можете сделать настройку для вашей программы, чтобы она могла запускаться автоматически при старте Windows.
Проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1
Код скрипта:
procedure Form1_OnShow (Sender: string; Action: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('software\Microsoft\Windows\CurrentVersion\Run',true);
Form1.CheckBox1.Checked := reg.ValueExists('MyProjectMVD');
reg.CloseKey;
reg.Free;
end;
procedure Form1_OnClose (Sender: string; Action: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('software\Microsoft\Windows\CurrentVersion\Run',true);
if Form1.CheckBox1.Checked then
reg.WriteString('MyProjectMVD', '"'+Application.ExeName+'"')
else reg.DeleteValue('MyProjectMVD');
reg.CloseKey;
reg.Free;
end;
begin
end.
Вывод изображения в отчет, при использовании режима LinkFile у компонента DBImage требует небольшого скрипта и вычисляемого поля, т.к. при использования режима LinkFile, файл изображения хранится не в базе данных, а на диске компьютера.
Проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1
Пример проекта, как реализовать запрет редактирования чужих записей, но Администратор имеет право редактировать любые записи и создавать новых пользователей.
http://myvisualdatabase.com/forum/misc. … download=1
Проект с примером, как реализовать связанные списки (например: Страна > Область > Город)
rjkantor
example, how to read status of RadioButton
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
if RadioButton1.Checked then ShowMessage('Checked');
end;
zoomix
для этого можно использовать фигурные скобки { }
{ начало блока комментария
} конец блока комментария
Yes, you can use the TableGrid for results and using it for a search (like ComboBox).
rjkantor
In the current version no easy way to do it.
I guess that the next version will fix it, I'll add new type of field "Currency" with a customizable format.
I sent an example for you to email
I added this feature in the beta version 1.50
https://www.dropbox.com/s/0m799p8qxh5kb … 0.zip?dl=0
Project example:
http://myvisualdatabase.com/forum/misc. … download=1
Script:
procedure Form1_bScript_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.GridEmployees.dbSQL:='SELECT id, lastname, firstname, salary FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
Form1.GridEmployees.dbGeneralTable := 'employees'; // Optional (in the case of complex SQL queries with sub queries, you need to choose the main table of the database, also it need to be able to edit or delete the entry from the table component)
Form1.GridEmployees.dbListFieldsNames :='delete_col,name2,name3,name4'; // If you do not want to see the value of the id in the component table, enter a name for the column delete_col
Form1.GridEmployees.dbSQLExecute;
end;
rjkantor
The current version is not supported to format in TextBox for currency.
derek
Hello,
I made an example for you.
Using the calculate field, you can to format in: £4356.67 from 4356.66845
Using a script, you can to format in: £4,356.67 from 4356.66845
Приветствую )
Необходимо создать событие OnAfterClick для кнопок поиска, код будет такой:
procedure Form1_bSearch_OnAfterClick (Sender: string);
begin
Form1.GridEmployees.SelectedRow:=0; // выбираем первую строчку в гриде
Form1_GridEmployees_OnCellClick('', 0, 0); // вызываем процедуру, в которой грузится картинка
end;
Здравствуйте,
замените строчку в скрипте
Form1.GridEmployees.Cells[3,i] = 'Yes'
на
Form1.GridEmployees.Cells[3,i] = 'Да'
Приветствую,
пришлите пожалуйста ваш проект на support@drive-software.com
у себя к сожалению не удалось добиться такого эффекта, проявляется только в дизайнере, в готовом проекте не наблюдается.
Проект с примером, как сделать дубликат записи, выделив необходимую запись в TableGrid, и как сделать дубликат на форме редактирования записи
http://myvisualdatabase.com/forum/misc. … download=1
Example for you, how to make dublicate or record.
Used Delphi.
MDI (Multiple document interface) interface in not supported.
У компонента TextBox есть свойство Filter, выберите в нем значение %s%
rjkantor
It works by another method.
Can you send me your project to support@drive-software.com
With description, what exaclty you need to do.
Posts found: 7,826 to 7,850 of 9,999