Search options (Page 371 of 400)

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

на форме добавления/редактирования записи необходимо расположить компонент Counter, но скрыть его, например поместить за пределами формы, а идентификатор будет формироваться с помощью скрипта в другом компоненте TextBox

используется событие OnShow для формы добавления/редактирования записи

procedure frmEmployee_OnShow (Sender: string; Action: string);
var
   s, s0: string;
   i,c: integer;
begin
     s0 := '';
     s := frmEmployee.EditCounter1.Text;
     c := Length(s);
     c := 6-c; // 6 - qty of zero
     for i := 1 to c do s0 := s0 + '0';
     frmEmployee.edCounter.Text := s0+s;
end;

сделал для вас проект с данной реализацией.

напишите на вкладке Скрипт данный код

begin
     Form1.TableGrid1.InactiveSelectionColor := clRed;
end.

имена компонентов замените на свои, в данном примере цвет выделения будет красным, для выбора другого цвета:

Для того, чтобы указать произвольный цвет, можно воспользоваться шестнадцетиричным числом
пример: Form1.TableGrid1.InactiveSelectionColor := $00DDEEFF;

Список текстовых обозначений цвета:
clBlack Чёрный
clMaroon Тёмно-красный
clGreen Зелёный
clOlive Оливковый
clNavy Тёмно-синий
clPurple Пурпурный
clTeal Стальной
clGray Серый
clSilver Серебряный
clRed Красный
clLime Ярко-зелёный
clYellow Жёлтый
clBlue Синий
clFuchsia Фиолетовый
clAqua Бирюзовый
clWhite Белый

Список системных цветов, определяются настройками стиля Windows:
clActiveBorder
clActiveCaption
clAppWorkSpace
clBackground
clBtnFace
clBtnHighlight
clBtnShadow
clBtnText
clCaptionText
clGradientActiveCaption
clGradientInactiveCaption
clGrayText
clHighlight
clHighlightText
clHotLight
clInactiveBorder
clInactiveCaption
clInactiveCaptionText
clInfoBk
clInfoText
clMenu
clMenuBar
clMenuHighlight
clMenuText
clScrollBar
cl3DDkShadow
cl3DLight
clWindow
clWindowFrame
clWindowText

SELECT
*
FROM person
WHERE
(firstname LIKE '%{edFirstName}%') OR
(lastname LIKE '%{edFirstName}%')  OR
(login LIKE '%{edFirstName}%') OR
([@mail] LIKE '%{edFirstName}%') OR
(record_count LIKE '%{edFirstName}%') 
;

к сожалению не смог проверить, удалил ваш проект, а на файлообменике его уже нет.

Hello,

I can offer only a bit strange solution, example:

SELECT
fieldnumber
FROM tablename
ORDER BY
CAST (trim(substr(replace(fieldnumber, '.', '     '), 1, 3)) AS INTEGER),
CAST (trim(substr(replace(fieldnumber, '.', '     '), 7, 5)) AS INTEGER),
CAST (trim(substr(replace(fieldnumber, '.', '     '), 12)) AS INTEGER);

It's work with values from x.x.x to xxx.xxx.xxx

Dreada
Скачайте пожалуйста еще раз, скорей всего я уже исправил эту ошибку, дайте знать результат
http://myvisualdatabase.com/download/myvisualdb.exe

majuten

Please, download beta version 1.44
https://www.dropbox.com/s/2phoggh5kfu88 … 4.zip?dl=0

for component TableGrid added event OnChange for it.

Please, download example project.

Thank you for the help! Fixed.
You can download again version 1.43
http://myvisualdatabase.com/download/myvisualdb.exe

CrazyWetEr
Когда форма выходит за пределы конструктора, и компоненты смещаются, это баг, которому пока не нашел решения.

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

Спасибо, что нашли ошибку, исправил, пожалуйста скачайте бета версию 1.43 еще раз
https://www.dropbox.com/s/4qdlk4pouldrz … 201.43.zip

Добрый день )

Сама  база  данных  sqlite  поддерживает  механизм предотвращения ввода одинаковых значений,  но  у  меня в программе  она  пока  не  реализована,  поэтому  можете  включить  эту возможность например через SQLite Studio, где необходимо зайти в режим редактирования  структуры  базы  данных  и поставить галочку на против пункта "Уникальность" в нужных полях БД.

К сообщение приложен скриншот как это сделать.
Но в вашем случае данный способ не подойдет, т.к. необходимо организовать ограничение при уникальности одновременно двух полей, как это сделать я пока не знаю.

В вашем случае это придется реализовать с помощью скрипта, создав событие OnClick на кнопке сохранения

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if StrToInt(VarToStr(SQLExecute ('SELECT count(*) from users WHERE firstname="' + Form1.edFirstname.Text + '" AND 'lastname = "' +  Form1.edLastname.Text + '" ))) > 0 then 
  begin
    ShowMessage('Такой пользователь уже есть');
    Cancel := True;
  end;
end;

код писал прямо здесь, не проверял )

Словарь, это такие таблицы, которые обычно заполняются первыми, перед использование базы данных и в дальнейшем не редактируются, например таблицы со Странами, Пол, Статус, Группа

jean.brezhonek

I don't see your joined file )