А зачем отдельно Индекс_ключ ? Можно же просто Индекс|Индекс использовать? Он же и так уникальный. Индекс деталей не должен повторяться.Kort писал(а):А зачем отдельно Индекс_ключ ? Можно же просто Индекс|Индекс использовать?
IIF([количество операций]>=N, DBGET(...), null), где N - номер операции.[Объект|Поле объекта]. Можно просто использовать компонент "Поле объекта", а если надо редактировать, то свойство объекта "Вставить значения". Так будет оптимальнее, потому что обращение к полю объекта в выражении это запрос к базе. Если использовать "Вставить значения", то программа делает один запрос сразу для группы полей.Kort писал(а):Минус только в том что нельзя посреди текста вставить, вставляет в конце.
admin писал(а):Kort писал(а):Еще я заметил в ваших формах выражения типа:[Объект|Поле объекта]. Можно просто использовать компонент "Поле объекта", а если надо редактировать, то свойство объекта "Вставить значения". Так будет оптимальнее, потому что обращение к полю объекта в выражении это запрос к базе. Если использовать "Вставить значения", то программа делает один запрос сразу для группы полей.
Если использовать компонент "Поле обьекта" там же можно только вставить значение из поля которое уже есть в форме...а "Обьект" позволяет взять данные с другой таблицы...Или как раз советуете вместо "Поле обьекта" использовать "Обьект" но для его предварительного заполнения использовать "Вставить значение" ??Kort писал(а):В моем случае у меня как уникальное значение идет Индекс детали но оно всегда сопровождаеться наименованием...т.к. по самому индексу никто не поймет что за деталь. Поэтому я "Обьектом" хватаю индекс, а название подхватываю "Полем обьекта" Или хватаю оборудование и "полем обьекта" индекс этого оборудования.
Kort писал(а):P.S. Единственное что возможно хотелось бы чтобы можно было выбрать "наименвоание", а потом "индес"(остались бы только те что подходят по наименование).
Kort писал(а):А вот в форме Детали...вроде тоже форма состоит из дерева+формы с запросом...нотам по правой клавише только есть "Обновить" а перейти, посмотреть и т.п нету
Код: Выделить всё
procedure Click(S:TObject);
var
FN:String;
ID,RN:Integer;
Fm:TdxForm;
G:TdxQueryGrid;
begin
G:=TdxQueryGrid(S);
if g.eof then exit;
RN:=G.RecNo;
FN:=G.Ass['ИмяФормы'];
ID:=G.Asi['ID'];
try
FM:=CreateForm(FN);
FM.OpenRecord(ID);
if Fm.CanEdit<>asLocked then
Fm.Edit;
if FM.EditWindow.ShowModal=mrOK then
begin
FM.Post
ID:=G.RecNo;
G.Refresh;
G.MoveBy(ID-1);
end
else
FM.cancel;
finally
DestroyForm(FM);
end;
end;
procedure OnKey(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=13) or (Key=32) then
Click(Sender);
end;
procedure Form_Create;
begin
dxQueryGrid1.OnDblClick:=@Click;
dxQueryGrid1.OnKeyDown:=@OnKey;
end;
Kort писал(а):Но вот с диаграммой ганта былобы еще лучше
Вернуться в «Помогите собрать базу!»
Сейчас этот форум просматривают: makcim737 и 1 гость