Search options (Page 191 of 400)

Немного дополнил книгу.

Pr0shka
Извиняюсь за задержку с ответом, пропустил вашу тему.

В вашем проекте на форме "ВыдачаИгрыMY" нет необходимости в ComboBox-e "Пользователь:", внешниему ключу Vydacha.id_Polzovateli автоматически присвоится значение пользователя, которое определено на форме "ИнфоПользователя".

Также на форме "ИнфоПользователя" в настройках у компонента TableGrid2 (Игры взятые пользователем в прокат) необходимо снять галочку "Включить автовыполнение запроса", т.о. в данном компоненте будут показаны игры взятые на прокат данным пользователем.

По поводу реферальной системе не подскажу, не сталкивался.

Посмотрите пожалуйста данный пример
http://myvisualdatabase.com/forum/viewtopic.php?id=1664

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

Hello,

An example:

// how to read
procedure Form1_OnShow (Sender: string; Action: string);
var
   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_READ;  // KEY_ALL_ACCESS    req. administrator's rights
     reg.RootKey := HKEY_LOCAL_MACHINE;

     if reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', false) then
     begin
         if reg.ValueExists('ProcessorNameString') then Form1.Edit1.Text := reg.ReadString('ProcessorNameString');
     end
         else ShowMessage('Can''t open the key.');

     reg.CloseKey;                     
     reg.Free;
end;


// how to write
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_WRITE;
     reg.RootKey := HKEY_LOCAL_MACHINE;
     if reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', false) then
     begin
         reg.WriteString('ProcessorNameString', Form1.Edit1.Text);
     end
         else ShowMessage('Can''t open the key to write data.');

     reg.CloseKey;
     reg.Free;
end;

Here you can find more info, where in the Windows registry placed info about PC
http://www.liutilities.com/products/reg … aks/10019/

To write data to the HKEY_LOCAL_MACHINE section you must run project with administrator rights.

It's not supported in the current version but planned.

dhs.king
Пожалуйста, не размещайте на одной и той же форме таблицу для показа всех записей и компоненты для создания записей, на сколько я помню это не работает в старых версиях, только в новых.

Используйте вместо этого две формы, первая, на которая расположена таблица с кнопкой поиск, и кнопками Создать запись, редактировать, удалить и вторая форма, для создания/редактирования записи.

Посмотрите пожалуйста данные видео уроки, по созданию простейших приложений
http://drive-software.com/myvisualdatabase_ru.html

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

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

Thanks for the bug report.

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

приложите пожалуйста ваш проект (zip файл без exe и dll), посмотрю в чем дело. Как правило это ошибка возникает, когда вы пытаетесь показать на экран форму, которая уже на показана.

vir2alex
В фильтре используется синтаксис SQL, в принципе это условие просто подставляется в секцию WHERE, когда система формирует SQL запрос для грида.

знак неравенства <>, но его нельзя применять при условиях связанных со значением NULL, поэтому либо IS NULL либо IS NOT NULL

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

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

скорей всего ошибка не в данном скрипте, а в каком то другом, приложите пожалуйста ваш проект и описание действий, приводящих к ошибке.