k245 wrote:

Хамелеон

Хорошая статья !
а возможно применять стиль не ко всей программе а только для определённых компонентов ?

2

(11 replies, posted in General)

if (prises.tablegrid1.SelectedRow) then
   SQLExecute('UPDATE Prises SET "'+TdbCheckBox(Sender).dbField+'"="'+TdbCheckBox(Sender).sqlValue+'"WHERE id='+prises.tablegrid1.sqlvalue);



  for i := 0 to Prises.ComponentCount-1 do
    if (TdbCheckBox(Prises.Components[i]) is TdbCheckBox) then
      TdbCheckBox(Prises.Components[i]).Checked := StrToBool(SQLExecute('SELECT IFNULL("'+TdbCheckBox(Prises.Components[i]).dbField+'",0) FROM Prises WHERE id='+prises.tablegrid1.sqlvalue));

Parent по чему-то не сработал сделал через is

3

(8 replies, posted in General)

k245 wrote:

You can draw graphical primitives on the shape canvas or panel. But hardly anyone will provide you with ready-made scripts for drawing diagrams.


Specifically, in your example, I would use the TShape and TLabel components.

не, ну колбу-то я нарисовать могу
я не понимаю как закрашивать ее только на определенный процент
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=8638&download=0

integer = целочисленное значение
string = строковое значение 
конвертация значения число в строку IntToStr(i)  строка в число StrToInt('5')

если переменная содержит число

1. Как правильно записать условие проверки if (SQLExecute('SELECT id FROM FIO where id='+IntToStr(i))) > 0?
2. "'+IntToStr(i)+'"
так как запросы в БД делаются строкой..
   
сути не понятна, загрузите Ваш проект

5

(11 replies, posted in General)

procedure Prises_OnShow (Sender: TObject; Action: string);
begin
  Prises.Edit4.Tag := -1;
end;

procedure Prises_bPrev_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if ( Prises.Edit4.Tag > 0 ) then
  begin
    Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag-1;
    Prises.Edit4.Tag := Prises.Edit4.Tag-1;
    Prises.bEdit.Click;
    Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag;
  end;
  dooleanEnabledButton
end;

procedure Prises_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
  Prises.Edit4.Tag := Prises.TableGrid1.SelectedRow;
  dooleanEnabledButton;
end;

procedure Prises_bNext_OnClick (Sender: TObject; var Cancel: boolean);
begin
  if ( Prises.bNext.Tag < Prises.TableGrid1.RowCount ) then
  begin
    Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag+1;
    Prises.Edit4.Tag := Prises.Edit4.Tag+1;
    Prises.bEdit.Click;
    Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag;
  end;
  dooleanEnabledButton
end;

procedure dooleanEnabledButton;
begin
  if (Prises.Edit4.Tag+1 < Prises.TableGrid1.RowCount) then Prises.bNext.Enabled := True else Prises.bNext.Enabled := False;
  if (Prises.Edit4.Tag+1 > 1) then Prises.bPrev.Enabled := True else Prises.bPrev.Enabled := False;
end;

проверил через FormatDataTime значения 00:00 не выводится
используйте текстовое поле

procedure form2_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  SQLExecute('Insert INTO events(event,started,finished,elapsedmins)VALUES'+
  '("'+Form2.Edit1.Text+'","'+ FormatDateTime('HH:MM',Form2.DateTimePicker1.DateTime) +'"'+
  ',"'+FormatDateTime('HH:MM',Form2.DateTimePicker2.DateTime)+'","'+FormatDateTime('HH:MM',Form2.DateTimePicker3.DateTime) +'")');
  UpdateDataBase('events');
end;

7

(3 replies, posted in General)

unforgettable wrote:

When I want to add a field in table I get the message " database is locked" How can I solve this problem? and it happens?

attach your project

8

(10 replies, posted in General)

watch this video example
https://zen.yandex.ru/video/watch/62690 … 6607e9dcc7

9

(10 replies, posted in General)

connection not established
   
   
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=8602&amp;download=0

10

(2 replies, posted in General)

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=8599&amp;download=0

11

(33 replies, posted in General)

переносятся по тем же самым параметрам?

12

(2 replies, posted in General)

sqlexecute('ALTER TABLE b ADD FOREIGN_KEY "id_a" REFERENCES a(ID)'); 

13

(8 replies, posted in Russian)

+++++

14

(5 replies, posted in General)

FMR wrote:

Hi,

Can display the result of search as selected item on ComboBox instead TableGrid ?

And Can I create customized list of ComboBox without needs to link in DataBase ?

procedure Form1_ComboBox1_OnDropDown (Sender: TObject);
var
i :integer;
list :TStringList;
begin
  Form1.ComboBox1.Clear;

  list:=TStringList.Create;
  if ( Form1.Edit1.Text = '' ) then list.Text:=SQLexecute('SELECT group_concat(id, char(13) || char(10)) FROM a ') else
    list.Text:=SQLexecute('SELECT group_concat(id, char(13) || char(10)) FROM a WHERE aa LIKE "'+'%'+Form1.Edit1.Text+'%'+'"');

  for i := 0 to list.Count-1 do
    Form1.ComboBox1.Items.Add(SQLExecute('SELECT aa FROM a WHERE id='+list[i])) ;

  list.Free;
end;

15

(3 replies, posted in Russian)

Alexandr wrote:

Спасибо огромное, то что нужно) Можно еще вопрос не по теме? Как Вам 11 винда? стоит ли переходить сейчас, или лучше пока посидеть на вин 10?

Вопрос привычки (меню пуск изменили), иногда могут изображения программ на панели пропадать - сами значки есть но изображения могут пропадать.. А в основном нормальная винда - работает быстро и плавно..
были ошибки при работе с SSD но последние обновления исправили их..

16

(3 replies, posted in Russian)

Alexandr wrote:

Вопрос в названии. Хочу сделать связь между двумя таблицами, чтобы при нажатии на запись в таблице А, в таблице Б отображалась инфа по выбранной записи.

Видео https://zen.yandex.ru/video/watch/62647 … 322168?t=3

17

(9 replies, posted in Russian)

Patriot10200 wrote:

Всем драсте,
Ребят подскажите как сделать чтоб при первом запуске в БД

if (SQLExecute('SELECT COUNT(id) FROM Имя_БазыДынных')='0') then
         SQLExecute('INSERT INTO Имя_БазыДынных(Имя_Поля)VALUES(" Значение ")');

18

(3 replies, posted in General)

Ronin751 wrote:

Доброго времени суток!
Есть форма на которой создается TreeView и отбражаются данные. Не могу получить значение из коневого узла.
Заранее всем спасибо!

dbForeignKey - Определяет, к какому внешнему ключу таблицы базы данных принадлежит данный компонент. При необходимости, можно указать имя таблицы.
   
http://myvisualdatabase.com/doc_ru/script_treeview.html

k245 wrote:

Для меня это пока недоступный космос ))))

кажется, Вы ругаетесь )))))

20

(7 replies, posted in General)

negadi37 wrote:

please i need help how to do that in MVD

   
 
video
https://youtu.be/t9QC42nKOJI
   
file

m128mx wrote:

можно попробовать на недорогом хостинге https://risp.ru/hosting/one-rubl/
думаете получится связать два продукта только через API? Или как вы представляете архитектуру?

куда оно денется? просто начните...
вот еще есть таже самая СMS, только уже готовая под visualNeo Web, тут она называется NeoCms
https://visualneo.com/download

так что все получиться, нужно только начать..

m128mx wrote:

Приветствую!
Я так понимаю можно использовать данный сервис как вэб бд, а фронт энд написать на MVDB?

ДА

нашел на просторах интернета систему управления контентом
CMS на основе API

https://getcockpit.com/

Alexandr wrote:

Собственно вопрос в названии....Допустим есть база учета отпечатанных книг по нарядам. В ней имеется таблица А (записи выполненных нарядов) у которой есть форма добавления новых записей. В этой форме добавления есть таблица Б (книги, распечатанные по конкретному наряду). Как можно сделать так чтобы в таблице Б отображались книги именно по выбранному наряду из таблицы А?

точно так  же  как и в любом другом случае, настройте кнопку на действие (поиск)
далее просто подключите к кнопке саму таблицу

25

(5 replies, posted in Russian)

k245 wrote:

Да, можно без рекурсии, циклом

Спасибо а то я уже успел запутаться в этих вычислениях
все почти готово..
хочу еще реализовать возможность перетаскивания блоков, примерный принцип понимаю (проверять положение мышки и использовать  parent)
но я не могу понять как реализовать перемещение блоков внутри контейнера (как их переставлять вверх и вниз)
http://pavlenkovv.ru/wp-content/uploads/2022/04/pret.png