Search options (Page 366 of 400)

Приветствую,

это возможно сделать только с использованием скриптов и языка запросов SQL.
Как я понимаю, цвет должен говорить о неком статусе записи, поэтому можно сделать так:

1. В таблице базы данных завести поле, в котором будет хранится статус записи.

2. При нажатии по кнопке, выполнять функцию SQLExecute, которая с помощью SQL запроса изменит статус выбранной записи, затем вызвать метод компонента TableGrid.dbUpdate, чтобы сработало событие OnChange

3. Воспользоваться событием OnChange, в которой написать код, который раскрасит строки с необходимым статусом.
http://myvisualdatabase.com/forum/viewtopic.php?id=451

neitrino
пришлите пожалуйста ваш проект на support@drive-software.com
со ссылкой на эту тему, постараюсь помочь.

2) Для этого необходимо воспользоваться скриптом, создал у компонента Label событие OnClick
(как создать событие, можно прочитать тут http://myvisualdatabase.com/help_ru/scr … view.html)

ссылка на форму

procedure Form1_Label1_OnClick (Sender: string);
begin
     Form2.ShowModal;
end;

ссылка в интернет

procedure Form1_Label1_OnClick (Sender: string);
begin
     OpenURL('http://google.com');
end;

All you need, this, for get id from TableGrid:

FillAContainer.TableGrid1.dbItemID;

dbItemID
Returns the value -1 if the entry in the table is not selected.

Example:

ShowMessage ('ID record:' + IntToStr (Form1.TableGrid1.dbItemID)); // Get selected record id 
Form1.TableGrid1.dbItemID: = 5; // Highlight row in the table, which is a record with ID 5

Hello,

You can do it in the beta version 1.44
https://www.dropbox.com/s/2phoggh5kfu88 … 4.zip?dl=0

Project example
http://myvisualdatabase.com/forum/misc. … download=1

code:

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i,c: integer;
begin
    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do
    begin
         if Form1.TableGrid1.Cells[3,i] = 'Fantasy' then Form1.TableGrid1.Cell[3,i].Color := clBlue;
         if Form1.TableGrid1.Cells[3,i] = 'Thrillers' then Form1.TableGrid1.Cell[3,i].Color := clRed;
    end;
end;

Пришлите пожалуйста проект  на support@drive-software.com
постараюсь разобраться.

savage
при синтаксической ошибки, курсор автоматически встает на ее место.
на счет этого правда был баг, скачайте снова бета версию 1.44, поправил )

попробуйте так

// показать в комбобоксе последний введенный тип задачи
procedure NewTask_ButTypeEd_OnAfterClick (Sender: string);
begin
  if NewTask.Visible then NewTask.ComboBox_Type.dbItemID := Last_Insert_id('TaskType');
  NewTask.ComboBox_Type.DoOnChange;
end;

Here you can find Beginner SQL Tutorial
http://www.w3schools.com/sql/sql_intro.asp
http://beginner-sql-tutorial.com/sql.htm

Видимо  у  вас  версия с ошибкой, которую я исправил без уведомления о выходе  новой  версии,  пожалуйста скачайте последнюю версию My visual Database, запустите проект и ошибка исчезнет
http://myvisualdatabase.com/download/myvisualdb.exe

Связано с наличием лишнего внешнего ключа id_Appcontractor в таблице Application
ключи id_Appnomenklature и id_consumption так же думаю являются лишними.

Unfortunately I do not know how to configure this.

May be will be better use TableGrid instead ComboBox, if you are using TableGrid you can use function Find (Ctrl+F)
Also you can use TextBox, button search and property Increm. Search of TableGrid for filtering record in TableGrid.

More info about property Increm. Search
https://translate.googleusercontent.com … p4hGUvVCSA

Приветствую,

1. создайте глобальную переменную
var
   idUser: integer;

2. в коде, где выполняется условие, в случае успешной авторизации, запомните id пользователя
idUser := FormLogin.ComboBoxLogin.dbItemID;

3. В событии формы OnShow для создания/редактирования записи напишите следующий код, который при создании новой записи, автоматически выберет в ComboBox текущего пользователя
procedure Form2_OnShow (Sender: string; Action: string);
begin
   if Action = 'NewRecord' then Form2.cbUser.dbItemID := idUser;
end;

4. Желательно компонент Form2.cbUser сделать заблокированным, чтобы пользователь сам не мог менять в нем значение
Form2.cbUser.Enabled := False;