1 Reply by Владислав Косяков

(27 replies, posted in Russian)

Я лучше подожду smile

Go to forum: Russian

2 Reply by Владислав Косяков

(27 replies, posted in Russian)

А как обстоят дела с однопроектным вариантом?

Go to forum: Russian

3 Reply by Владислав Косяков

(6 replies, posted in Russian)

DriveSoft wrote:

Владислав Косяков

Можно, каждый раз при нажатии кнопки, будет добавляться вкладка.
Предварительно на форму необходимо поместить PageControl1

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   TabSheet: TTabSheet;
begin
     TabSheet := TTabSheet.Create(Form1);
     TabSheet.Caption := 'TabName';
     TabSheet.PageControl := Form1.PageControl1;
end;

Как присвоить Name новой вкладке значение какой-либо переменной, как вставить элементы на созданную вкладку?

Go to forum: Russian

4 Reply by Владислав Косяков

(7 replies, posted in Russian)

Хочу прикрутить историю изменений к своему проекту. Надо чтобы отображалось старое значение и новое. Ну и соответственно кто внес. Подарите пример, пожалуйста.

Go to forum: Russian

5 Reply by Владислав Косяков

(4 replies, posted in Russian)

procedure BD_BtnExit_OnClick (Sender: string; var Cancel: boolean);// Подтверждение выхода
begin
   if MessageDlg('Вы действительно хотите выйти ?', mtConfirmation, mbYes + mbNo,0)=mrYes then
BD.close;
end;

Что-то не работает

Go to forum: Russian

6 Reply by Владислав Косяков

(6 replies, posted in Russian)

Можно ли добавить вкладку в процессе работы с проектом?
PageControl1.TabSheet.Add

Go to forum: Russian

7 Reply by Владислав Косяков

(15 replies, posted in Russian)

Готов приобрести лицензию на 1 проект. (http://myvisualdatabase.com/forum/viewt … 3393#p3393)

Go to forum: Russian

8 Reply by Владислав Косяков

(41 replies, posted in Russian)

Atempbox прав во всём. Отдать кучу денег за программу, которая себя не окупит никак нет никакого желания, да и рисовать ещё что либо я вряд ли стану (мне бы это закончить).
За "однозадачный" редактор отдать 20 умерших енотов не жалко, но условии, что он будет пожизненный и откроет другие проекты хотя бы для чтения.

Go to forum: Russian

9 Reply by Владислав Косяков

(237 replies, posted in Russian)

Предложение по форуму. Может стоит в шапке форума разместить пополняемую ветку образцов реализации различных примеров (готовых мини-решений), типа вход по паролю и т.д.

Go to forum: Russian

10 Reply by Владислав Косяков

(396 replies, posted in Russian)

Разделение прав пользователей. Администратор - полный доступ к базе, пользователь добавление/изменение. А еще лучше настраиваемые права пользователя.

Go to forum: Russian

11 Reply by Владислав Косяков

(13 replies, posted in Russian)

Таблица заполняется результатом SQL?

Go to forum: Russian

12 Reply by Владислав Косяков

(9 replies, posted in Russian)

Я скинул проект на почту

Go to forum: Russian

13 Reply by Владислав Косяков

(13 replies, posted in Russian)

У кнопки есть "Свойства" и "События". На вкладке "События" есть поле OnClick. Справа от него пишешь имя скрипта, который должен запускаться по нажатию кнопки. Например Form2_Button1_OnClick. Далее на вкладке редактора "Scripts" пишешь сам скрипт, который должен называться так же, как в поле OnClick вкладки "События".

Go to forum: Russian

14 Reply by Владислав Косяков

(9 replies, posted in Russian)

Передача зависимостей связанных списков ComboBox через скрипт не реализована.
http://myvisualdatabase.com/forum/viewt … d=905#p905

Go to forum: Russian

15 Reply by Владислав Косяков

(8 replies, posted in Russian)

Спасибо!

Go to forum: Russian

16 Reply by Владислав Косяков

(8 replies, posted in Russian)

Что-то не идет, при запуске проекта ругается на несовместимый тип, видны скрытые вкладки.
При нажатии на кнопку возникает критическая ошибка.

procedure OborudAdd_ButtonAddDoc_OnClick (Sender: string; var Cancel: boolean);
var
   id: integer;
begin
     id := OborudAddDoc.OborudAddDocTab.dbItemID;
     SQLexecute('UPDATE Oborud SET id_DocS = '+ BD.TabDoc.dbItemID +' WHERE id = ' + IntToStr(id) );
     OborudAddDoc.ButtonCancel.Click;
end;

Если закомментировать строку SQLexecute... то проект запускается штатно. Видимо там ошибка...
И вопрос вдогонку

OborudAddDoc.закрыть

Как это правильно написать?

Go to forum: Russian

17 Reply by Владислав Косяков

(396 replies, posted in Russian)

Пошаговое исполнение скриптов
Автоматическую раскраску через одну строк таблицы, например в бледно-желтый. Очень удобно, когда много строк.
Предлагаю ввести репутацию на форуме, кнопки под сообщениями, типа "полезно" и "бесполезно". Как-то так.

Go to forum: Russian

18 Reply by Владислав Косяков

(14 replies, posted in Russian)

Не надо писать именно Tablename.fieldname1. Там надо писать имя таблицы базы данных (из первой вкладки самой программы) и имя поля из этой таблицы в формате "Tablename.fieldname1="

Go to forum: Russian

19 Reply by Владислав Косяков

(33 replies, posted in Russian)

Класс!!!

Go to forum: Russian

20 Reply by Владислав Косяков

(8 replies, posted in Russian)

Спасибо!
На такое трудно не обратить внимание "Курсор не вернулся из запроса"... Не хватает "Kernel panic"... smile
А как на счет обратной процедуры?

id := OborudAddDoc.OborudAddDocTab.dbItemID;
SQLexecute('UPDATE Oborud SET id_DocS = (текущая строка таблицы TabDoc);

Go to forum: Russian

21 Reply by Владислав Косяков

(33 replies, posted in Russian)

Владислав Косяков wrote:

Она у меня последняя

Строка в таблице "Оборудование, всего" получается последней. Может со скриптом что не так:

SELECT
"Оборудование, всего",
Count(Oborud.id),
-1 as "id"
FROM Oborud
UNION

SELECT
StatusObS.statusob,
Count(Oborud.id),
StatusObS.id
FROM Oborud
LEFT OUTER JOIN StatusObS ON Oborud.id_StatusObS = StatusObS.id
GROUP BY StatusObS.statusob

Go to forum: Russian

22 Reply by Владислав Косяков

(8 replies, posted in Russian)

ID записи отловил, спасибо. Но я хочу при помощи скрипта удалить значение поля в таблице базы данных.
Пример:
Таблица БД Oborud. В ней ссылка id_DocS. Содержимое DocS отображается в таблице TabDoc. В таблице TabDocOborud отображается список оборудования (результат запроса), при нажатии на запись из таблицы TabDoc. Как должен выглядеть скрипт, чтобы при нажатии на кнопку, запись поля id_DocS из таблицы базы данных Oborud удалялась.
Помогите, пожалуйста!

Go to forum: Russian

23 Reply by Владислав Косяков

(396 replies, posted in Russian)

Возможность сортировки не только по полям, введенным через TextBox, а через Combo, Date. Я, может, хочу сортировать записи в гриде по введенной дате.
Кнопку отмены в конструкторе.
Процесс открывания проекта. Сейчас надо открыть конструктор, открыть проект. Я предлагаю открывать проект по такому же принципу, как офис открывает свои документы, т.е щелкнул по .VDB и открылся  с загруженным проектом.

Go to forum: Russian

24 Topic by Владислав Косяков

(8 replies, posted in Russian)

Как при помощи скрипта получить ID записи таблицы базы данных по выбранной в гриде строке. Как вставить/удалить его в другую таблицу БД?

Go to forum: Russian

25 Reply by Владислав Косяков

(31 replies, posted in Russian)

Я опять не совсем точно выразил мысль, хотя Ваше обновление часть того, что я хотел. Поясню на примере своей БД. В справочниках меняю какое-нибудь значение, сохраняю. В гриде отображается старое значение. Двойной щелчок по записи, выводится форма изменения записи, в комбо уже стоит новое значение (раньше надо было нажимать на комбо, чтобы выбрать его), далее нажимаю сохранить и только после этого в гриде отображается достоверная информация. Один справочник  значение из другого справочника через комбо. Мне кажется, что комбо как-то не полностью передает значение, в одну сторону, что ли. С такой же проблемой я столкнулся и в другом месте, когда пытался через скрипты продублировать значение одного комбо на другое.
Могу скинуть проект, если надо.

Go to forum: Russian