spCalc_func

Адрес этой странички : http://spcalc.narod.ru/spcalc_func_db.htm
spCalc.exe
Простой программируемый калькулятор.

Интерпретатор скриптов.

ВНИМАНИЕ !
Прежде, чем читать этот документ, крайне рекомендуется детально ознакомиться с документом :
"Библиотека скриптов FastScript 1.4. Руководство разработчика" ( http://spcalc.narod.ru/download/fs14_ru_rtf.zip ).

Примечание.
Для использования процедур и функций этого раздела требуется пакет BDE-5.
BDE-5 можно взять здесь.

Список процедур и функций

Базы Данных

Примечание.
Для использования процедур и функций, «работающих» с базами данных требуется пакет BDE-5.

Прочитать настройки заданного alias (bde-5)
function DB_GetAliasBDE5_Info(AliasName : string;
ListInfo : TStrings) : integer;

Прочитать значение поля fn из таблицы tn базы данных an (alias bde-5) по фильтру sFilter
function DB_GetFieldValue(an,tn,fn,sFilter : string) : string;

Прочитать значения полей fn (через запятую или * для всех) из таблицы tn базы данных an (alias bde-5) по фильтру sFilter в список ListRes, исключая поля fn_none_Load (через запятую)
function DB_GetRecValue(an,tn,fn,sFilter : string;
ListRes : TStrings;
fn_none_Load : string) : integer;

Прочитать из таблицы tn базы данных an (alias bde-5), с учетом фильтра sFilter, результат группировки по полю fn_GroupBy (fn_Count – агрегатная функция), отсортированный по полям sSort в список ListRes
function DB_GroupBy(an,tn,
                      fn_GroupBy, //группировать по полям
                      fn_Count, //агрегатная функция:
                                //COUNT(*),MAX(..) и т.д.
                      sFilter, //фильтр
                      sSort : string; //сортировать по полям
                      ListRes : TStrings) : integer;

Прочитать из таблицы tn базы данных an (alias bde-5), с учетом фильтра sFilter, результат группировки по полю fn_GroupBy (fn_Count – агрегатная функция), отсортированный по полям sSort в список ListRes
function DB_OrderBy(an,tn,
                      fn_Sel, //выбрать поля
                      fn_OrderBy, //сортировать по полям
                      sFilter : string; //фильтр
                      ListRes : TStrings) : integer;

Записать значение sValue поля fn в таблицу tn базы данных an (alias BDE-5) с учетом фильтра sFilter. Для полей типа Строка и Дата значение sValue должно быть окаймлено кавычками (стандарт SQL).Если YesAllTrimValue_Before=TRUE, то перед записью из значения sValue удаляются пробелы слева и справа.
function DB_PutFieldValue(an,tn,
                            fn,
                            sFilter,
                            sValue : string;
                            YesAllTrimValue_Before : boolean) : boolean;

Записать значение sValue поля fn (типа MEMO) в таблицу tn базы данных an (alias BDE-5) с учетом фильтра sFilter.
Если YesAllTrimValue_Before=TRUE, то перед записью из значения sValue удаляются пробелы слева и справа.
function DB_PutMemoFieldValue(an,tn,
                                fn,
                                sFilter,
                                sValue : string;
                                YesAllTrimValue_Before : boolean) : boolean;

Выполнить UPDATE для таблицы tn базы данных an (alias BDE-5) с учетом фильтра sFilter. Значения полей – в списке ListData.
Формат строк ListData : ИмяПоля=ЗначениеПоля
function DB_UpdateRecValue(an,tn,sFilter : string;
ListData : TStrings) : boolean;

Выполнить INSERT для таблицы tn базы данных an (alias BDE-5).
    Значения полей – в списке ListData.
    Формат строк ListData :      ИмяПоля=ЗначениеПоля
function DB_InsertRecValue(an,tn : string;
                             ListData : TStrings) : boolean;

Удалить строки из таблицы tn базы данных an (alias BDE-5) с учетом фильтра sFilter
function DB_DeleteRecords(an,tn,sFilter : string) : boolean;

Получить список полей таблицы tn базы данных an (alias bde-5)
function DB_GetFieldNames(an,tn : string; List : TStrings) : integer;

Открыть набор данных по SQL-запросу SQLtext из базы данных (alias bde-5 an) и прочитать результат в список ListSDFres в формате SDF.
function DB_SQL_Open_to_SDF(an : string; //alias BDE-5
SQLtext, // текст SQL-запроса
ListSDFres : TStrings) : integer;

Сформировать текст PHP-скрипта для набора данных по SQL-запросу SQLtext из базы данных an (alias bde-5) в список ListPHPres.
function DB_SQL_Open_to_PHP(an : string; //alias BDE-5
                              SQLtext, //текст SQL-запроса
                              ListPARAM, // входные параметры (доп. опции)
                                         //может быть NIL
                              ListDisplayFields,//Визуализируемые имена
                                                //полей (из формируемого
                                                //набора данных)
                              ListPHPres : TStrings) : integer;

Открыть набор данных по SQL-запросу SQLtext из базы данных (alias bde-5 an)   и прочитать результат в массив типа varinat.
function DB_SQL_Open_to_Variant(an : string; //alias BDE-5
                    SQLtext : TStrings; //текст SQL-запроса
                    sFN_none_Load : string //список полей через запятую,
                                           //которые не следует выгружать
                                           //в массив (может быть пустым)
                     ) : Variant;
Возвращаемое значение – созданный массив типа variant, заполненный прочитанными данными.
Первая строка – имена полей.

Выполнить SQL-запрос (аналог метода ExecSQL компонента TQuery ).
   function DB_ExecSQL(an : string; //alias BDE-5
                      SQLtext : Tstrings //текст SQL-запроса
                       ) : boolean;

Экспорт результата SQL-запроса в интерактивном режиме.
   function DB_SQL_ExportTo(an : string; //alias BDE-5
                            SQLtext : TStrings, //текст SQL-запроса
                            FileName : string = '' //имя выходного файла
                            ) : boolean;
Вызывается диалог, где можно в интерактивном режиме настроить экспорт информации.
Поддерживаемые форматы :
      XLS, TXT, RTF, HTML, CSV, XML, PDF, DBF

Кол-во строк в открытом наборе данных DS (не реализовано)..
function DB_RecordCount(DS : TDataSet) : integer;

Освободить ресурсы, занимаемые объектом Query
procedure Query_Clear (Query : TQuery);

Вызвать форму для просмотра содержимого TQuery
function Query_View(Head : string; Query : TQuery) : boolean;