Search options (Page 58 of 60)

Экспертные системы подобного типа делаются на основе бинарного дерева: пользователю по очереди задаются вопросы, отвечая на которые "да" или "нет" программа перемещается по дереву вариантов. Когда достигнут конечный узел, программа сообщает свое решение. Пользователь либо соглашается, либо отрицает решение системы. В этом случае система предлагает ввести дополнительный вопрос, чтобы добавить ещё одно ветвление в дереве и новый ответ (или два новых ответа).
Для реализации подобной системы понадобится следующая структура дерева вопросов

• ID - идентификатор (создаётся автоматически)

• Node_text - текст вопроса или текст ответа

• ID_positive - идентификатор узла для перехода при положительном ответе

• ID_negative - идентификатор узла для перехода при отрицательном ответе

Сам алгоритм реализуется скриптом, из элементов интерфейса понадобится Label (для отображение текущего вопроса или ответа) и две кнопки (Да/Нет).

Схема структуры предприятия понятна, но непонятно, зачем её реализовывать Чтобы определить, кто кому подчиняется и у кого сколько подчиненных? Тогда - да, это нужно.

Что мы имеет на схеме? Иерархический список должностей, в котором некоторые должности представлены группами (названием отдела), которые не должны выбираться в качестве должности сотрудника а служат только для организации иерархической структуры. На практике это дерево расширяется на уровне отделов конкретными должностями: монтажник, штукатур, менеджер, бухгалтер и т.д. Тогда получаем структуру:

• ID - идентификатор (поле создаётся автоматом)

• Parent_ID - родительский элемент

• Name - название должности или отдела

• isGroup - признак отдела

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

Попробуйте сделать так:

• Разместить PageControl в верхней части формы, уменьшив его размер так, чтобы отображались только закладки.

• Ниже разместить TableGrid

• Добавить скрипт генерации закладок

• Добавить скрипт фильтрации при нажатии на закладку

Вот пример:

 procedure CreateTabMenu;
var
  Menu: TDataSet;
  TabSheet: TTabSheet;
  s: string;
begin
  // типы отчётов
  frmMain.pgcFinStatType.Pages[0].Free;
  s := 'select * from fin_stat_type order by id;';
  SQLQuery(s,Menu);
  while not Menu.Eof do
  begin
    TabSheet := TTabSheet.Create(frmMain);
    TabSheet.Caption :=  Menu.FieldByName('name').asString;
    TabSheet.PageControl := frmMain.pgcFinStatType;
    Menu.next;
  end;
  frmMain_pgcFinStatType_OnChange (frmMain.pgcFinStatType);
end;

Фильтрация данных настроена как функция "[ПОИСК]" в кнопке frmMain.btnFinStatUpd

procedure frmMain_pgcFinStatType_OnChange (Sender: TObject);
begin
  // установить фильтр по типу статистики
  frmMain.cmbFinStatType.dbItemID := frmMain.pgcFinStatType.ActivePageIndex+1;
  frmMain.btnFinStatUpd.Click;
end;

Пример сделан с допущением, что ID в таблице fin_stat_type идут последовательно: 1,2,3..   Если это условие не соблюдается (например, если записи удаляются), то можно записывать ID записи в свойство  TabSheet.tag, а затем передавать его в фильтр.

Предполагаю, что реализованный в MVDB механизм формирования ID записей обеспечивает целостность данных и нормальную работу СУБД, а Ваша прикладная задача, возможно, имеет другое, более безопасное решение.

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

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

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

MessageDlg выдаёт ошибку:

begin
  if MessageDlg('Произвести загрузку из текстовых файлов?',mtWarning,[mbOK,mbCancel],0)=mrOK then
  begin
    ShowMessage('!');
  end;
  ShowMessage('!!!');
end.

Я подключаюсь к БД с помощью скрипта. Однако, не хотелось бы дублировать информацию о структуре базы в скриптах - это действительно неудобно, так как при изменении структуры нужно будет каждый раз править эти самые скрипты.

Либо мне придётся "изобретать велосипед"  - свой скрипт, который из tables.ini будет создавать аналогичную структуру в базе MySQL. Но мне хочется использовать проверенное, рабочее решение.

Этот скрипт создаёт базу в случае её отсутствия. Но мне нужно только определить её наличие или отсутствие. Ушёл читать описание команд SQL для управления БД...

Да, это было бы самым простым (для разработчика прикладной системы) решением  

P.S.
Уважаемые разработчики приложений платформы MyVisualDatabase!
А как вы создаёте дистрибутивы приложений для MySQL?

http://myvisualdatabase.com/forum/viewt … 754#p22754

Пожалуй, добавлю настроек

Мне видится это так: после создания стандартного sqlite.db средствами MyVisual Database его можно переименовать в MyFile.db средствами операционной системы. А затем использовать по мере необходимости.

Подключение:

SQLExecute('ATTACH DATABASE ''d:\testDB.db'' as ''TEST''');

Использование

SELECT TEST.person.firstname, TEST.person.lastname FROM TEST.person

но при этом ваш проект должен использовать SQLite в качестве основной СУБД

Подсмотрено здесь: http://myvisualdatabase.com/forum/viewtopic.php?id=1804

Конечно, возможно   Например, так: