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 1 of 4)
derek wrote:Привет,
Попробуйте что-нибудь подобное.
Это не совсем то, что мне нужно, но размер файла (в базе данных) отображается автоматически (для уже сохраненных изображений) и отображается после того, как курсор мыши убирается с изображения (для новых изображений, которые еще не сохранены).
С уважением,
Derek.
Спасибо Derek
Очень хороший пример
derek wrote:Привет,
Отобразить размер файла не так-то просто: сначала его добавляют в форму, а ДО того, как он будет фактически сохранен в базе данных.
Разве недостаточно видеть размер файла при его выборе (см. вложение)?
Derek.
Можно тогда добавить изображение в DBImage1 с помощью отдельной кнопки Button2 (с помощью диалогового окна выбора изображения)?
derek wrote:Привет.
Вы можете рассчитать размер существующих изображений следующим образом (размер указан в байтах (для тестирования), поэтому просто разделите на соответствующий коэффициент, чтобы получить результат в килобайтах или мегабайтах).
Derek.
Отлично получилось, а при выборе изображения как можно узнать размер?
Здравствуйте, нужна ваша помощь!
Как отобразить размер выбранного изображения в Form2.Label1 (в мегабайтах), в форме Form2 перед сохранением и при открытии формы уже ранее загруженного изображения
Здравствуйте, помогите исправить ошибку при заполнении Вычисляемого поля.
Необходимо, при отрицательном значении вывести текст или ноль.
Ошибка
select case when value < 0 then 'нет данных' when value > 0 then (tb_forma.stiomost-((DATEDIFF(CURRENT_DATE,forma_user.forma_data)+1)*tb_forma.summa)) end
Здравствуйте, помогите пожалуйста с проектом
Помогите рассчитать количество дней носки одежды и стоимость с помощью вычисляемых полей
Подсчет дней выдает ошибку
DATEDIFF(CURRENT_DATE,out.out_date)
derek wrote:При использовании SQLQuery стандартный вывод осуществляется только в TABLEGRID.
Вы можете использовать скрытый TABLEGRID со столбцом, содержащим идентификатор записи, а затем написать скрипт для извлечения DBIMAGE.
Но это тот же самый скрипт, который вы использовали бы для непосредственного извлечения DBIMAGE, поэтому нет смысла использовать этот подход.
Жаль очень, я думал может как нибудь получиться сделать без таблицы. Спасибо ещё раз за помощь
derek wrote:Привет,
Вот несколько разных способов сделать это (см. приложение).
Я думаю, что лучше использовать выпадающий список (нет проблем с ошибками в написании, заглавными или строчными буквами и т. д.).
Derek.
Подскажите пожалуйста, через SQL запрос можно вывести картинку таким же примером?
derek wrote:Привет,
Вот несколько разных способов сделать это (см. приложение).
Я думаю, что лучше использовать выпадающий список (нет проблем с ошибками в написании, заглавными или строчными буквами и т. д.).
Derek.
Да круто, это то что мне нужно
Благодарю Вас - derek
Подскажите пожалуйста, как загрузить картинку по имени с помощью функции LoadFromDatabase
ОШИБКА
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
id : integer;
begin
id:=StrToInt('Form1.Edit1.Text');
Form1.DBImage1.LoadFromDatabase('tabl', 'logo', id);
end;
k245 wrote:Новичок wrote:Может есть другие варианты как с помощью SQL загрузить изображение из базы данных?!?!
Ваш вариант оптимальный - простой и понятный метод:
Form2.DBImage1.LoadFromDatabase('work', 'img', Form1.TableGrid1.dbItemID);
Ещё есть функция сохранения данных (в том числе - изображений) в файл:
SaveFileFromDataBase - https://myvisualdatabase.com/forum/sear … =287649012
Спасибо за ответ Вам
Подумаю еще, может выход есть другой...
Может есть другие варианты как с помощью SQL загрузить изображение из базы данных?!?!
k245 wrote:Для SQLite:
Form2.Label2.Caption := SQLExecute('SELECT STRFTIME(''%d.%m.%Y'',date_1) FROM work WHERE work.name='''+Form1.Edit1.Text+'''');
https://k245.ru/mvdb/funktsii.html
Спасибо, все получилось.
Во так получилось...
Есть какие нибудь предложения как облегчить код?
Как отобразить дату в Form2.Label2 в формате (30.12.2025)
procedure Form1_Edit1_OnChange (Sender: TObject);
begin
form1.tablegrid1.dbfilter := 'work.name = "' + Form1.Edit1.Text + '"';
Form1.TableGrid1.dbUpdate;
end;
procedure Form2_OnClose (Sender: TObject; Action: string);
begin
Form1.Edit1.Text := '';
updateDataBase('Work');
Form1.Edit1.SetFocus;
Form2.DBImage1.Clear;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
if (Form1.Edit1.Text <> '') then
begin
Form2.Label1.Caption := SQLExecute('SELECT name FROM work WHERE work.name='''+Form1.Edit1.Text+'''');
Form2.Label2.Caption := SQLExecute('SELECT date_1 FROM work WHERE work.name='''+Form1.Edit1.Text+'''');
form1.tablegrid1.selectedrow := 0;
Form2.DBImage1.LoadFromDatabase('work', 'img', Form1.TableGrid1.dbItemID);
Form2.ShowModal;
end
else ShowMessage('Заполните поле');
end;
k245 wrote:Записать можно (https://k245.ru/mvdb/fajlovoe-hranilishhe.html) , а прочитать - низя....
Чтение только скриптовыми командами SaveFileFromDataBase и SaveFileFromDataBaseToStream. Или с помощью компонента, который вы на форме у себя поставили....
Скорее всего не правильно выразился, как показать изображение из базы данных в DBImage1 и как отобразить дату в label2 в формате дата.месяц.год
Здравствуйте, подскажите пожалуйста, как загрузить изображение с помощью SQL запроса из базы данных, как изменить формат даты (23:59:59)
А может вот так подойдет?
Этот пример был у кого-то на форуме.
procedure Form1_Edit1_OnChange (Sender: TObject);
begin
if length(Form1.edit1.text) = 1 then Form1.edit1.text := namecase(Form1.edit1.text);
Form1.edit1.selstart := length(Form1.edit1.text);
end;
Получилось вот такое решение, мне нравится.
Огромное спасибо Kerni 
111 - Администратор
1 - Пользователь 1
2 - Пользователь 2
3 - Пользователь 3
Я вас не заставляю помогать мне
Надеюсь помогут другие
Спасибо большое вам на затраченное время
sparrow wrote:procedure Init;
var
tmpLoginButton: TdbButton;
begin
tmpLoginButton := TdbButton.Create( frmdbCoreLogin );
tmpLoginButton.Parent := frmdbCoreLogin;
tmpLoginButton.Top := frmdbCoreLogin.bLogin.Top;
tmpLoginButton.Left := frmdbCoreLogin.bLogin.Left;
tmpLoginButton.Width := frmdbCoreLogin.bLogin.Width;
tmpLoginButton.Height := frmdbCoreLogin.bLogin.Height;
tmpLoginButton.Caption := 'Entry';
tmpLoginButton.Font := frmdbCoreLogin.bLogin.Font;
tmpLoginButton.Default := True;
tmpLoginButton.OnClick := 'Login_OnClick';
frmdbCoreLogin.bLogin.Visible := False;
end;
это пример как добавить 1 кнопку Ну и значения проставить в правой части где нужно и какие нужно.
Спасибо за подсказку, но у меня не получается, может есть какой-либо пример проекта
sparrow wrote:там есть пример который позволит решить вашу проблему
Я не вижу
Это не решает мою проблему
Здравствуйте!
Подскажите пожалуйста, как добавить новые кнопки на форму авторизации (frmdbCoreLogin)
Первая кнопка при нажатии открывает форму Form1
Вторая кнопка открывает сайт (OpenURL())
Дерек, спасибо огромное за помощь.
Мне понравились изменения в новой версии, мне очень это поможет
derek wrote:Пожалуйста.
Прилагается измененная версия, которая позволяет удалить номер (используйте form1.button11 ('x')), если вы что-то ввели неправильно.
С уважением,
Derek.
Posts found: 1 to 25 of 86