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 251 of 400)
Topics by DriveSoft User defined search
Posts found: 6,251 to 6,275 of 9,999
Роман
Судя по описанию у вас неверная структура БД. Такие сущности как "название магазина" и "товар" должны быть выделены в отдельные таблицы и использоваться как справочники для других таблиц.
Пожалуйста скачайте пожалуйста примеры из этой темы
http://myvisualdatabase.com/forum/viewtopic.php?id=1529
Hello,
It's not support, but it's nice feature for future versions )
Hello,
Maybe you fit one database field and component Memo (on each line to store one keyword) ?
с последним вопросом к сожалению не смогу помочь, для этого мне нужно знать структуру БД и разбираться в ней, но я могу помочь только с конкретными вопросами, реализовать это за вас я к сожалению не смогу.
Роман
1. Создайте у формы событие OnShow, в котором можно с помощью скрипта нажать на кнопку поиска, пример:
procedure Form1_OnShow (Sender: string; Action: string);
begin
Form1.Button1.Click;
end;
2-3. http://myvisualdatabase.com/forum/viewtopic.php?id=1063
Роман wrote:Будем пробывать.....
ещё скромный вопрос, даже ДВА они выложены в рисунке (Рисунок прилагается)
С Уважением и Благодарностью Роман!!!
1. К сожалению в текущей версии нет возможности сделать это корректно, нужно для формы ввести новое событие, типа OnAfterData
2. Создайте событие OnChange для TableGrid
procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.Edit1.Value := Form1.TableGrid1.Columns[5].Footer.FormulaValue;
end;
Hello,
Application.HintHidePause := 15000;
Specifies the time interval to wait before hiding the Help Hint if the mouse has not moved from the control or menu item.
Application.HintPause := 500;
Specifies the time interval that passes before the control's Help Hint appears when the user places the mouse pointer on a control or menu item.
Приветствую,
сделал для вас проект с примером:
imcisco
Please download projects:
https://www.dropbox.com/s/b714c9aoxute8 … s.zip?dl=0
If you have version 2.1, you should have 60 days trial, please check your version.
v_pozidis
Every component have property Anchors which defines the behavior of the component when the window is resized.
попрбоуйте так
procedure Form4_Edit1_OnChange (Sender: string);
begin
if Form4.dbAction = 'NewRecord' then
Form9.Edit2.Text := Form4.Edit1.Text;
end;
Please let me know, which examples you need to open?
I'll try to convert them for old version (if it is possible)
Also you can download latest which have 60 days trial.
Hello,
Yes, script for that:
procedure Form1_GridEmployees_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
Form1.edFirstname.Text := SQLExecute('SELECT firstname FROM employees WHERE id='+ Form1.GridEmployees.sqlValue);
Form1.edLastname.Text := SQLExecute('SELECT lastname FROM employees WHERE id='+ Form1.GridEmployees.sqlValue);
Form1.cbGroup.dbItemID := SQLExecute('SELECT IFNULL(id_groups, -1) FROM employees WHERE id='+ Form1.GridEmployees.sqlValue);
end;
procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
Form1.edFirstname.Text := SQLExecute('SELECT firstname FROM employees WHERE id='+ Form1.GridEmployees.sqlValue);
Form1.edLastname.Text := SQLExecute('SELECT lastname FROM employees WHERE id='+ Form1.GridEmployees.sqlValue);
Form1.cbGroup.dbItemID := SQLExecute('SELECT IFNULL(id_groups, -1) FROM employees WHERE id='+ Form1.GridEmployees.sqlValue);
end;
begin
end.
also you can download project example:
This SDK is not support my version of Delphi, only old version Delphi 7
zoomix wrote:Ок, а как установить фокус ввода в версии 1.46? Простой пример, если не трудно... (думаю многим будет интересно)
Роман
1. Ошибка говорит о том, что в таблице БД Centre нет поля с названием memo
присутствует ли оно?
1
procedure Form1_ComboBox1_OnCloseUp (Sender: string);
begin
if Form1.CheckBox1.Checked then
Form1.Edit1.Text := Form1.ComboBox1.Text;
end;
2.
Form1.Edit1.Text := SQLExecute('SELECT fieldname FROM tablename WHERE id=2');
zoomix wrote:А как со сканером штрих кода работает программа?
драйвер сканера штрих кодов как правило просто эммулирует нажатия клавиш на клавиатуре, т.о. там где установлен фокус ввода, там и будет напечатан номер штрихкода.
replace this code
// create person
frxDBDataset1 := TfrxDBDataset.Create(Form1);
frxDBDataset1.UserName := 'person';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := person;
// create icd10c
frxDBDataset1 := TfrxDBDataset.Create(Form1);
frxDBDataset1.UserName := 'icd10c';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := icd10c;
// create icd9c
frxDBDataset1 := TfrxDBDataset.Create(Form1);
frxDBDataset1.UserName := 'icd9c';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := icd9c;
to
// create person
frxDBDataset1 := TfrxDBDataset.Create(Form1);
frxDBDataset1.UserName := 'person';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := person;
// create icd10c
frxDBDataset2 := TfrxDBDataset.Create(Form1);
frxDBDataset2.UserName := 'icd10c';
frxDBDataset2.CloseDataSource := True;
frxDBDataset2.OpenDataSource := True;
frxDBDataset2.DataSet := icd10c;
// create icd9c
frxDBDataset3 := TfrxDBDataset.Create(Form1);
frxDBDataset3.UserName := 'icd9c';
frxDBDataset3.CloseDataSource := True;
frxDBDataset3.OpenDataSource := True;
frxDBDataset3.DataSet := icd9c;
zoomix wrote:Спасибо за ответ.
А как вообще средствами встроенного языка в версии 1.46 можно опрашивать конкретный USB порт?
Прикладные программы не имеют возможности обращаться непосредственно к USB порту, этим занимается драйвер для конкретно подключенного устройства, и уже драйвер определяет, каким образом пользователям либо другим программам взаимодействовать с этим устройством.
Unfortunately I have no experience with such devices.
I can help you only with specific questions.
Приветствую,
к сожалению нет опыта работы с подобными устройствами.
Please, let me know more info.
Send me test project which crashing on Windows 10 to support@drive-software.com
and let me know steps to raise the crash.
Thanks.
Приветствую,
Вы можете сделать это только через функцию Отчет. (кнопка с действием "Отчет" или "Отчет (SQL)" )
Роман wrote:Благодарствую!!!
ещё вопросик...
кликаем оди раз на сточку в TableGrid1... на этой же форме читаем и редактируем комментарий в мемо1
если можно пример с проектом...
С Уважением и Благодарностью Роман!!!
Проект с примером:
Posts found: 6,251 to 6,275 of 9,999