Gedemin TLB.IgsQueryList.Add

From Gedemin TLB.pas

 function Add(const QueryName: WideString; MemQuery: WordBool): Integer; safecall;

Unit: Gedemin TLB

Type: function

Visibility: public

Member Of: IgsQueryList

Описание

Добавляет датасет в список запросов, возвращает его индекс в списке (начиная с 0).

MemQuery может иметь значения 0 и 1. Если MemQuery = 0, то данные хранятся в объекте класса TQuery. А значит, если gsQuery создавался как:

 Set q = BaseQueryList.Add("Header", 0)

то он может выполнять SQL-запросы:

 q.SQL = "SELECT * FROM GD_CONTACT"
 q.Open

Если MemQuery = 1, данные хранятся в объекте класса TClientDataSet -- набор данных в оперативной памяти. В него можно добавлять поля и вставлять записи, например:

 set Title = BaseQueryList.Query(BaseQueryList.Add("Title", 1))

 call Title.AddField("DateBegin", "ftDateTime", 0, 0)
 call Title.AddField("DateEnd", "ftDateTime", 0, 0)

 Title.Open
 Title.Edit
 Title.FieldByName("datebegin").AsDateTime = DateBegin
 Title.FieldByName("dateend").AsDateTime = DateEnd
 Title.Post