Thank you derek but all i wanted is the text only but not the cell..
Thanks!
Unfortunately there is no a way to do this, you may only change a background color of Footer.
My Visual Database → Posts by DriveSoft
Thank you derek but all i wanted is the text only but not the cell..
Thanks!
Unfortunately there is no a way to do this, you may only change a background color of Footer.
Каждый пункт должен быть создан, можете использовать одну и туже переменную для пункта меню, пример
mnSpace:=TMenuItem.Create (frmIndex);
mnSpace.Caption:='-';
вставка
mnSpace:=TMenuItem.Create (frmIndex);
mnSpace.Caption:='-';
вставка
mnSpace:=TMenuItem.Create (frmIndex);
mnSpace.Caption:='-';
вставка
А возможен ли поиск из одного Edit-a по нескольким полям?
Это возможно с использованием кнопки с действием "SQL запрос", пример sql запроса
SELECT
employees.lastname,
employees.firstname,
employees.id
FROM
employees
WHERE
(CASE WHEN '{Edit1}' = '' THEN 1=1 ELSE employees.lastname LIKE '{Edit1}' END) OR
(CASE WHEN '{Edit1}' = '' THEN 1=1 ELSE employees.firstname LIKE '{Edit1}' END)
Пишу такой скрипт:
procedure NewDog_CheckBox4_OnClick (Sender: string);
begin
if newdog.CheckBox4.Checked=false then newdog.TableGrid2.allowedit:=false //изменение таблицы
else newdog.TableGrid2.allowedit:=true; //изменение таблицы
end;хочу чтобы при активном чекбоксе в таблице можно было редактировать данные, получается чтобы свойство таблицы активировать необходимо закрыть окно и снова открыть. Как сделать чтобы свойство активировалось без закрытия окна. Стандартно сразу включать это свойство не хочется. Нужно именно из этого окна его активировать. Спасибо.
попробуйте так
procedure NewDog_CheckBox4_OnClick (Sender: string);
begin
newdog.TableGrid2.allowedit := newdog.CheckBox4.Checked;
newdog.TableGrid2.dbUpdate;
end;
andrey.yugay
if frmContracts.TableGrid1.Cells[7,1] = ' ' then frmContracts.TableGrid1.Cell[7,1].Color := clWhite
скорей всего в этой строке вместо 1 должно быть i
Hello.
You can attach other sqlite database file:
SQLExecute('ATTACH DATABASE ''testDB.db'' as ''TEST''');
using only by script:
SELECT TEST.person.firstname, TEST.person.lastname FROM TEST.person
попробуйте так
procedure OnRecieveComData(Sender: TObject; Data: string);
var
arrValues: array of string;
begin
arrValues := SplitString(Data, ',');
if Length(arrValues)=4 then
begin
if arrValues[0]='ST' then Form1.Edit1.Text := arrValues[2] +' '+ arrValues[3];
end;
end;
Покажите пожалуйста, что именно передают весы через COM порт.
это не совсем то. Оно скрывает колонки, а мне нужно фильтрация внутри таблицы по данным.
т.е.
Chekbox2.checked = true then
Контрагент (Edit1) при вводе данных, сразу фильтровал в таблице (TableGrid1);
Checkbox2. cheked = false then
Показать все записи;Можете подсказать как это реализовать? И как можно будет реализовать по фильту по дате
с Ув. Андрей
Возможно не совсем понял, но чтобы показать все записи, можно просто нажать кнопку Поиск при пустом Edit1, т.е. если нет критериев для поиска.
Может быть добавить в меню "Файл" пункт "Последние (или недавние) проекты", подобно тому, как в MS Office? что бы отображались проектов 5-10 (а лучше сделать это количество настраиваемым самим пользователем). Не знаю как другие при обучении, а я постоянно скачу между Examles, своими учебными проектами и проектами, скачанными с форума, что бы посмотреть какие-то мелочи. Ну и как бы что бы было полноценное переключение между проектами в рамках одного запущенного экземпляра MVDB. Конечно, не факт, что такое всем нужно, просто мои мысли.
Спасибо.
попробуйте так
sMessage := SQLExecute('SELECT message FROM reminder WHERE DATE(`datetime`) = CURDATE()');
Дмитрий, подскажите пожалуйста.
Есть два текстбокса Код станции и Наименование станции.
Есть отдельная таблица (№, Наименование станции, Код станции)
Можно ли реализовать поиск по вводу кода станции (в текстбоксе)? - результат наименование станции (в текстбокс)?
пример:
procedure Form1_edKodStation_OnChange (Sender: string);
begin
Form1.edNameStation.Text := SQLExecute('SELECT nameStation FROM tablename WHERE KodStation = '+Form1.edKodStancii.sqlValue );
end;
Странно, но в версии 3.4 не работает, а вот в 3.5 все хорошо. Есть еще один нюанс. Как теперь сделать чтобы в списке фаилов который появляется в гриде каждой из закладок можно было деать изменения. Тоесть можно было удалят и добавлять фаилы?
Добавил такую возможность в ваш проект
mcsimm
Здравствуйте.
Примерно в ноябре.
Те, кто приобрел версию в августе и позже, получат бесплатные обновления до версии 4.99
Пока не известно, что будет нового из серьезного.
Please download beta version
https://www.dropbox.com/s/4rfukqr2r1awq … b.zip?dl=0
Вопрос вот в чем - возможно ли реализовать фильтрацию через чекбокс, т.е
можно так
procedure frmContracts_TableGrid1_OnChange (Sender: string);
begin
frmContracts.TableGrid1.Columns[3].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[4].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[5].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[6].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[7].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[8].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[9].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[10].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[11].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[12].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[13].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[14].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[15].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[16].Visible := not frmContracts.CheckBox1.Checked;
frmContracts.TableGrid1.Columns[17].Visible := not frmContracts.CheckBox1.Checked;
end;
еще вопрос... на 4 вкладке, добавил стандартные выгрузки в excel и фильтр по заводам, есть ли возможность собирать данные с 3 таблиц в одну, если можно пример.
в этом случае придеться использовать кнопку с действием "SQL запрос"
необходимо составить SQL запрос используя команду UNION ALL, чтобы собрать данные из нескольких таблиц, но количество столбцов указанных в SQL запросе должно быть одинаковым для каждой таблицы: пример
SELECT textr FROM tabone
UNION ALL
SELECT textl FROM tabtwo
UNIAL ALL
SELECT textl FROM tabthree
подробней http://info-comp.ru/obucheniest/340-sql … n-all.html
также вам пригодится этот пример, как реализовать фильтрацию в SQL запросе
http://myvisualdatabase.com/forum/misc. … download=1
Можете подсказать , что не так:
procedure frmContracts_TableGrid1_OnChange (Sender: string);
свойство Cells возвращает текст,
попробуйте получать значение ячейки так
frmContracts.TableGrid1.Cell[7,0].AsInteger
Please download latest beta version 3.6b, I made some changes:
https://www.dropbox.com/s/4rfukqr2r1awq … b.zip?dl=0
Unfortunately I can't understand your question.
Hi,
It was my first attempt. Works like a charm for unicode files but does'nt decode UTF8 files properly..."Qui veut vraiment résoudre la crise nord-coréenne ?"
instead of
"Qui veut vraiment résoudre la crise nord-coréenne ?"Regards,
jihem
please make test project to reproduce this problem.
Hello.
There is no function with these possibilities.
Этот код вызывает бесконечный цикл, т.к. при изменении состояния компонента срабатывает событие OnClick, попробуйте так
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
if Form1.CheckBox1.State = cbChecked then Form1.CheckBox2.State := cbUnchecked else Form1.CheckBox2.State := cbChecked;
end;
procedure Form1_CheckBox2_OnClick (Sender: string);
begin
if Form1.CheckBox2.State = cbChecked then Form1.CheckBox1.State := cbUnchecked else Form1.CheckBox1.State := cbChecked;
end;
Пожалуйста указывайте конкретно, имя формы и компоненты, где именно необходим поиск с использованием чексбокс.
v_pozidis
Yes, but I can't recommend it with using SQLite, but usually it works.
Also you can disable to change columns size
procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.TableGrid1.Columns[0].Width := 120;
Form1.TableGrid1.Columns[0].Options := Form1.TableGrid1.Columns[0].Options + coFixedSize;
end;
Check it out
function LoadFromFileUTF8 (FileName: string):string;
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile(FileName);
result := sl.Text;
sl.Free;
end;
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi