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 138 of 400)
Topics by DriveSoft User defined search
Posts found: 3,426 to 3,450 of 9,999
Hello.
When you use reserved word 'delete_col', column will be deleted, thus you can't read value of this column.
But you can make SQL query to get this value from database.
procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
var
sValue: string;
begin
sValue := SQLExecute('SELECT auto FROM artist_asset WHERE id='+Form1.TableGrid1.sqlValue);
end;
another way, hide a colum using script, in this way you still can read a value from hided the column.
procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.TableGrid1.Columns[2].Visible := False;
end;
procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
var
sValue: string;
begin
sValue := Form1.TableGrid1.Cells[2,ARow];
end;
In the new version 3.4b, now all the fields in the report designer also contain the name of the table.
before
now
just rename fields in your report, or place it again.
Здравствуйте.
На работоспособность не влияет.
kovalenko
Для этого необходимо создать новую глобальную переменную, например isAdmin: boolean;
Затем в процедуре procedure frmLogin_bLogin_OnClick присваивать этой переменной результат SQL запроса, который проверит, является ли текущий пользователь администратором.
Можете приложить ваш проект, постараюсь помочь.
Check it out
SELECT
artist.id as "id",
artist.artist_name
FROM
artist
INNER JOIN tmp_table ON artist.id = tmp_table.id1
UNION
SELECT
artist.id as "id",
artist.artist_name
FROM
artist
INNER JOIN artist_asset ON artist_asset.id_artist = artist.id
WHERE artist_asset.id_asset = {edAID}
К сожалению редактор скриптов имеет один недостаток, разметка блоков начинает тормозить, если в нем много скриптов, поэтому после некоторого количества скриптов, данные блоки автоматически отключаются.
Hello.
The ComboBox have a property Additional > FirstEmptyItem, set its value to False.
Необходимо создать событие OnClick для каждой кнопки, которая открывает форму, которая может быть заблокирована, т.о. вместо ошибки вы можете написать свое сообщение.
Hello.
It's not supported in the current version. Unfortunately I can't to know right now how difficult it is to realize this.
kovalenko
К сожалению именно заменить сообщение не получиться, т.к. это ошибка, когда вы пытаетесь открыть форму, если для этой формы установлено свойство Enabled = False
вместо этого вы можете делать проверку данного свойство перед попыткой открытия формы, создав событие OnClick например для кнопки создания записи
procedure Form1_ButtonForNewRecord_OnClick (Sender: string; var Cancel: boolean);
begin
if not Form2.Enabled then
begin
ShowMessage('Доступ закрыт.');
Cancel := True;
end;
end;
larek.klaks
Приложите пожалуйста ваш проект (zip файл без exe и dll)
Здравствуйте.
Да, у SQLite есть такая особенность, решить ее можно, умножив поле на 1.0, т.е. вместо a/b записать так
Hello.
Just place the Image component to a panel.
majuten
Hello.
Map is a Form. Just create a new form with name "Map"
Пожалуйста приложите ваш проект, с описанием, по какому критерию необходимо ограничивать доступ к форме и к какой форме?
3. Spin boxes / buttons on time component doesn't work for me. What am I missing?
First you should select what you want change, hours, minutes or seconds.
Здравствуйте.
1. У компонент TextBox есть свойство Filter, установите его значение %s%
2. Зайдите в настройку компонента TableGrid, где есть пункт 3. Фильтр, там вы можете написать условие для фильтрации, например у вас идентификатор записи со значение Да равно 1, тогда условие будет таким
вместо id_returned подставьте имя внешнего ключа, который используется в вашем проекте
1. You can copy to clipboard text of cell if you hold Ctrl button and click on cell.
2. I think you do something wrong, why you want to do?
3. Please describe in more details, what exactly don't work?
AD1408
Unfortunately I can't understand what exactly you want to do. Why you use onCellClick event?
domebil wrote:If I create a new project I do not have these problems?
It depends how exactly you do it. I think you need fix the current project, not create a new.
In this old project there is one mistake.
I have added new field bills.cost and place component edCost (you can hide it) on form frmService.
Also I have added a script:
procedure frmService_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
frmService.edCost.Value := SQLExecute('SELECT cost FROM services WHERE id='+frmService.TableGrid1.sqlValue);
end;
Attached project:
nikolai_nn wrote:здравейте,възможно ли е в Report целите числа да си се показват като цели (15) ,а десетичните числа да се показват с три знака след десетичната запетая (15,400).Благодаря
Да, в отчетах также имеются скрипты. Для компонента, в котором отображается данное значение, создайте событие OnAfterData, пример
procedure ReportemployeessalaryOnAfterData(Sender: TfrxComponent);
begin
if Frac(Reportemployeessalary.Value)=0 then
begin
Reportemployeessalary.Text := FloatToStr(Reportemployeessalary.Value);
end;
end;
Hello.
Please attach your project. I will test it.
Posts found: 3,426 to 3,450 of 9,999