Search options (Page 356 of 400)

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

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

скачайте пожалуйста последнюю версию (1.45), она совместима с вашей версией проекта
http://myvisualdatabase.com/download/myvisualdb.exe

После чего, скачайте другой пример реализации присваивание цвета
http://myvisualdatabase.com/forum/misc. … download=1

также можете посмотреть эту тему
http://myvisualdatabase.com/forum/viewtopic.php?id=451

у вас скорей всего неверно были созданы события для кнопок OnClick, должно быть так

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin

end;

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

К сожалению столбцы не могут устанавливать ширину автоматически по содержимым записям.

Могу рекомендовать вам  настроить свойство Anchors у компонента Грида, чтобы он увеличивался при увеличении размера окна, для этого в свойстве Anchors установите галочки в Left, Top, Right, Bottom

также это свойство необходимо настроить у нижних кнопок, чтобы кнопки прижимались к нижнему краю автоматически, установите галочки в Left и Bottom, и снимите их у Right и Top

через инспектор объекта, у чекбокса установите свойство AllowGrayed в True
и DefaultState в Grayed

Можно с помощью скрипта, примерно такого содержания

procedure KESH_Button8_OnClick (Sender: string; var Cancel: boolean);
begin
     KESH.Edit5.Clear;
     KESH.ComboBox1.dbItemID := -1;
     KESH.DateTimePicker3.Checked := False;
     KESH.CheckBox1.State := cbGrayed;
     KESH.Button11.Click;
end;

Спасибо, в этом нет необходимости )

Это можно сделать без скрипта.
В примере используется свойство Increm. Search компонента GridAbonent

Скачайте проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1

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

Такой возможности не реализовал, не предполагал, что понадобится кому то заполнять грид скриптом )

ваш цикл заполнения грида будет корректно работать, только в случае когда id записи соответствует его порядковому номеру, после удаления и создания новых записей, будет работать неверно. В целом пока нет возможности у скрипта поочередно перебрать все записи из базы данных, зная их количество.

идентификатор записи хранится в поле с именем id в каждой таблице, т.е. SELECT id FROM ....

В гриде идентификатор записи находится в последнем столбце, но он скрыт от пользователя, таким вот образом:
TableGrid1.Columns[здесь номер последней колонки].Visible := False;

А для чего вам понадобилось заполнять грид с помощью скрипта? )

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

1. Изменил скрипт, чтобы точка и запятая принималась корректно, в новых версиях исправлю это, чтобы не возникало подобных проблем )

2. Сделал,
поиск по подразделению работает, или я не верно понял?

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

необходимо сделать проверку скриптом, создав событие OnClick на кнопке, сохранения записи

procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);
var
   q: integer;
   NewID: string;
begin
     // check only for new record.
     if frmEmployee.dbAction <> 'NewRecord' then Exit;

     q := SQLExecute ('SELECT count(id) FROM employees WHERE record_count = ' + frmEmployee.EditCounter1.Text); // check dublicate record_count
     if q > 0 then // if dublicate exists
     begin
          // calculate new record_count number
          NewID := SQLExecute ('SELECT MAX(record_count) FROM employees');
          ShowMessage('Attention, counter number has been changed.');
          frmEmployee.EditCounter1.Text := IntToStr( StrToInt(NewID) + 1) ;
          Cancel := True;
     end;
end;

также можете скачать проект с примером реализации

I made project example for you.

In current version, you can do it using by script

For Text fields:

Form1.Edit1.Alignment := taRightJustify;

for Grid:
You should create event OnChange, for example you have 4 columns

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.TableGrid1.Columns[0].Alignment := taRightJustify;
Form1.TableGrid1.Columns[1].Alignment := taRightJustify;
Form1.TableGrid1.Columns[2].Alignment := taRightJustify;
Form1.TableGrid1.Columns[3].Alignment := taRightJustify;
end;

Теперь вижу )

дело в том, что установлен увеличенный размер шрифта (Control Panel > Display)
с этим ничего не поделаешь, необходимо просто увеличить размер компонентов.