Хамелеон
Хорошая статья !
а возможно применять стиль не ко всей программе а только для определённых компонентов ?
My Visual Database → Posts by sibprogsistem
Хамелеон
Хорошая статья !
а возможно применять стиль не ко всей программе а только для определённых компонентов ?
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
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.
не, ну колбу-то я нарисовать могу
я не понимаю как закрашивать ее только на определенный процент
integer = целочисленное значение
string = строковое значение
конвертация значения число в строку IntToStr(i) строка в число StrToInt('5')
если переменная содержит число
1. Как правильно записать условие проверки if (SQLExecute('SELECT id FROM FIO where id='+IntToStr(i))) > 0?
2. "'+IntToStr(i)+'"
так как запросы в БД делаются строкой..
сути не понятна, загрузите Ваш проект
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;
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
watch this video example
https://zen.yandex.ru/video/watch/62690 … 6607e9dcc7
connection not established
переносятся по тем же самым параметрам?
sqlexecute('ALTER TABLE b ADD FOREIGN_KEY "id_a" REFERENCES a(ID)');
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;
Спасибо огромное, то что нужно) Можно еще вопрос не по теме? Как Вам 11 винда? стоит ли переходить сейчас, или лучше пока посидеть на вин 10?
Вопрос привычки (меню пуск изменили), иногда могут изображения программ на панели пропадать - сами значки есть но изображения могут пропадать.. А в основном нормальная винда - работает быстро и плавно..
были ошибки при работе с SSD но последние обновления исправили их..
Вопрос в названии. Хочу сделать связь между двумя таблицами, чтобы при нажатии на запись в таблице А, в таблице Б отображалась инфа по выбранной записи.
Всем драсте,
Ребят подскажите как сделать чтоб при первом запуске в БД
if (SQLExecute('SELECT COUNT(id) FROM Имя_БазыДынных')='0') then
SQLExecute('INSERT INTO Имя_БазыДынных(Имя_Поля)VALUES(" Значение ")');
Доброго времени суток!
Есть форма на которой создается TreeView и отбражаются данные. Не могу получить значение из коневого узла.
Заранее всем спасибо!
dbForeignKey - Определяет, к какому внешнему ключу таблицы базы данных принадлежит данный компонент. При необходимости, можно указать имя таблицы.
http://myvisualdatabase.com/doc_ru/script_treeview.html
Для меня это пока недоступный космос ))))
кажется, Вы ругаетесь )))))
please i need help how to do that in MVD
video
https://youtu.be/t9QC42nKOJI
file
можно попробовать на недорогом хостинге https://risp.ru/hosting/one-rubl/
думаете получится связать два продукта только через API? Или как вы представляете архитектуру?
куда оно денется? просто начните...
вот еще есть таже самая СMS, только уже готовая под visualNeo Web, тут она называется NeoCms
https://visualneo.com/download
так что все получиться, нужно только начать..
Приветствую!
Я так понимаю можно использовать данный сервис как вэб бд, а фронт энд написать на MVDB?
ДА
нашел на просторах интернета систему управления контентом
CMS на основе API
Собственно вопрос в названии....Допустим есть база учета отпечатанных книг по нарядам. В ней имеется таблица А (записи выполненных нарядов) у которой есть форма добавления новых записей. В этой форме добавления есть таблица Б (книги, распечатанные по конкретному наряду). Как можно сделать так чтобы в таблице Б отображались книги именно по выбранному наряду из таблицы А?
точно так же как и в любом другом случае, настройте кнопку на действие (поиск)
далее просто подключите к кнопке саму таблицу
Да, можно без рекурсии, циклом
Спасибо а то я уже успел запутаться в этих вычислениях
все почти готово..
хочу еще реализовать возможность перетаскивания блоков, примерный принцип понимаю (проверять положение мышки и использовать parent)
но я не могу понять как реализовать перемещение блоков внутри контейнера (как их переставлять вверх и вниз)
My Visual Database → Posts by sibprogsistem
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi