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 200 of 400)
Topics by DriveSoft User defined search
Posts found: 4,976 to 5,000 of 9,999
Igor wrote:Дмитрий , здравствуйте!
Спасибо за ответы на предыдущие вопросы, все прекрасно работает. Но попутно появился еще один вопрос )
Возможно ли реализовать в Grid так называемый плавный скроллинг, т.е. что бы скролл в таблице происходил скажем не только на высоту строки но и возможно меньше ?
К сожалению такой возможности не предусмотрено, а чем вызвана данная необходимость?
Приветствую,
1. К сожалению первую часть вопроса не смог понять.
конвертировать дату можно так
Form1.Edit1.Text := Formatdatetime('DD.MM.YYYY', frm_report.dtp_report.DateTime);
2. Создайте выч. поле вид
которое в последвии выводите в tg_sites_def
memult wrote:Дмитрий, в данной версии программа не запускается.(в новой,где введны графики тоже) В прошлых-все нормально.
Ошибка в приложении.
Пожалуйста описывайте подробней ситуацию, приложите ваш проект, который вызывают данную ошибку.
Приложите пожалуйста тестовый проект, в котором я смог бы реализовать подобный вывод информации.
Я имел ввиду удалить не связь, а просто убрать ссылку на сотрудника, выбрав в ComboBox пустое значение.
sonixax
Unfortunately I don't know which method using ffmpeg for that.
Example, how to connect to MySQL for beta version 2.6
http://myvisualdatabase.com/forum/viewtopic.php?id=2462
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
MySQL: TMyConnection;
begin
MySQL := TMyConnection.Create(Form1);
MySQL.Server := '10.10.10.10'; // ip address of MySQL server
MySQL.Port := 3306;
MySQL.Username := 'username';
MySQL.Password := 'password';
MySQL.Database := 'databasename';
MySQL.LoginPromt := False;
try
MySQL.Connect;
except
ShowMessage('Can''t connect to database.');
end;
if MySQL.Connected then
begin
Form1.TableGrid2.dbMySQLConnection := MySQL;
Form1.TableGrid2.dbSQL:='SELECT id, lastname, firstname FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
Form1.TableGrid2.dbGeneralTable := 'employees';
Form1.TableGrid2.dbListFieldsNames :='delete_col,Фамилия,Имя';
Form1.TableGrid2.dbSQLExecute;
MySQL.Disconnect;
end;
end;
memult
к сожалению по обрывку скрипта не смогу определить причину.
gamalier_ramirez wrote:Dimitry
I currently use the version 1.45, and in a form where I displays a list of records in a TableGrid based on selection using ComboBox, creating a new record invoke a form for data entry, and I want to recover data from the ComboBox to place them in their respective TextBox on the new form, is this possible?
Much I appreciate your help
Hello,
example:
procedure frmDataEntryForm_OnShow (Sender: string; Action: string);
begin
if Action='NewRecord' then frmDataEntryForm.Edit1.Text := Form1.ComboBox1.Text;
end;
Shaggy wrote:И как можно решить эту проблему?
Удалите в таблицах Dolshnost и Zapis ссылку на сотрудника, т.е. в ComboBox выберите пустое значение.
sait0219
Доработал ваш проект, на вкладке Пропуски заносите пропуски, на вкладке Сводная таблица можете смотреть таблицу пропусков, выберите месяц Май.
Вы забыли рассказать, что именно вы делаете, о чем база данных? Какая цель?
Hello,
An example for you:
К сожалению я не имею информации о том, что именно вы делаете и что означают поля 1-7
sonixax wrote:Thanks a lot
Dear dimitri,
I dont want to get values from 3rd party softwares using Command line! I just get values from them directly! CMD was an example!
I want something like EXEC function in PHP, is it possible with MVDB ?
3rd party softwares must have some mechanism to return values outside, MVD can't do nothing if application don't support this.
sonixax wrote:and another question is, I want to have a auto search function, when users type in text field with onchage event submit search button! how can I do it ?
Components like TextBox, Memo, ComboBox have propertis "Increm. Search" for that, more info:
http://myvisualdatabase.com/help_en/com … earch.html
sonixax wrote:and I just need to know how can I change MYSQL database connection informations ?
Thanks a lot and have a lovely day
Example:
Form1.MySQLConnection.Server := '127.0.0.1';
Form1.MySQLConnection.Port := 3306;
Form1.MySQLConnection.Username := 'root';
Form1.MySQLConnection.Password := 'root';
Form1.MySQLConnection.Database := 'mvd';
try
Form1.MySQLConnection.Connect;
except
ShowMessage('Can''t connect to database.');
end;
Приветствую,
1. Попробуйте так
Form1.TableGrid1.Columns[0].Width := Trunc(tabl/100*20);
2.
SELECT
CONCAT( COALESCE(UserOP.Famyli, ''), ' ', COALESCE(UserOP.Name, ''), ' ', COALESCE(UserOP.Otchestvo, '') ),
DolghnostOP.NameDolghnostOP,
DATE_FORMAT(UserOP.DataRoghd,'%d.%m.%Y'),
(CASE WHEN UserOP.Photo_filename is NULL THEN 'Нет' ELSE 'Да' END),
UserOP.id
FROM UserOP
LEFT OUTER JOIN DolghnostOP ON DolghnostOP.id =UserOP.id_DolghnostOP
RZ-007
1. Сделал для вас проект с примером.
2. С данной формулировкой вопроса я не могу посоветовать что то конкретное.
К сожалению в вашем сообщении нет приложенной картинки.
Приветствую,
Посмотрел ваш проект, думаю неверная структура базы данных подтолкнула вас на подобный вопрос, почему бы просто не создать таблицу бд "propusk" и поле обозначающее номер месяца.
Rebrovvv wrote:У меня есть основная база проекта, и есть удаленная база в которой всего одна таблица, нужно, чтобы данные таблицы можно было увидеть в одном Гриде проекта. Совсем ни как?
Добавил такую возможно, скачайте пожалуйста бета версию 2.6
https://www.dropbox.com/s/pebrvqwqcbluy … a.zip?dl=0
Пример:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
MySQL: TMyConnection;
begin
MySQL := TMyConnection.Create(Form1);
MySQL.Options.UseUnicode := True;
MySQL.Server := '10.10.10.10'; // ip address of MySQL server
MySQL.Port := 3306;
MySQL.Username := 'username';
MySQL.Password := 'password';
MySQL.Database := 'databasename';
MySQL.LoginPromt := False;
try
MySQL.Connect;
except
ShowMessage('Can''t connect to database.');
end;
if MySQL.Connected then
begin
Form1.TableGrid2.dbMySQLConnection := MySQL;
Form1.TableGrid2.dbSQL:='SELECT id, lastname, firstname FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
Form1.TableGrid2.dbGeneralTable := 'employees';
Form1.TableGrid2.dbListFieldsNames :='delete_col,Фамилия,Имя';
Form1.TableGrid2.dbSQLExecute;
MySQL.Disconnect;
end;
end;
Да, сотрудника удалить нельзя, т.к. база данных старается поддерживать ссылочную целостность. Это значит, что присутствует ссылка на данного сотрудника в других таблиц, в вашем случае это таблицы Dolshnost и Zapis, т.о. при удалении сотрудника из таблицы Sotrydniki, станет неизвестно, на какого именно сотрудника была ссылка в таблицах Dolshnost и Zapis.
Приветствую,
Как правило удаление не требует каких либо скриптов, достаточно просто кнопки с действием Удалить запись.
Приложите к сообщению пожалуйста ваш проект (zip файл без exe и dll), посмотрю в чем дело.
RZ-007 wrote:Всем привет!!!
1.) как заставить CheckBox запомнить своё значение...???
открыли проект установили значение в CheckBox закрыли проект...
при новом открытии проекта....в CheckBox осталось значение какое было при закрытии...
где вы планируете хранить значение CheckBox? в базе данных или в реестре?
SQLExecute('INSERT INTO BBB (id_AAA, bbb) VALUES ('+Form3.ComboBox1.sqlValue+', '+Form3.Edit1.sqlValue+')');
И еще вопрос. Как заполнить ДатаТаймПикер отображающий время в формате MM:SS SQL запросом:
Параметры.ДатаВремяОбновления1.Time := SQLDateTimeToDateTime( SQLExecute ('SELECT ВремяОбновления1 FROM vr_systempogoda WHERE id=1') );
формат времени задается в настройках компонента, Kind=Time и Format = HH:MM
Все что идет в скрипте после секции
будет проигнорировано.
Также исправил некоторые другие неточности.
Posts found: 4,976 to 5,000 of 9,999