readme.txt

script language

Wrapper class for using DbIsam with Delphi WebScript.
By Wilbert van Leijen ([e-mail])

For more information on DbIsam, visit ElevateSoft's website: www.elevatesoft.com

For a working demo, see: www.ksu.nl/Scripts/swissteam.dws
(The script's source code is included.)

The following classes are exported from this unit:

  TDBIsamQuery = class
    constructor Create(Databasename, SQL : String);
    procedure First;
    procedure Next;
    procedure Prior;
    procedure Last;
    procedure Append;
    procedure Insert;
    procedure Edit;
    procedure Delete;
    procedure Cancel;
    procedure Post;
    function BOF : Boolean;
    function EOF : Boolean;
    function FieldByName(Name : String) : Variant;
    procedure Store(FieldName : String; Value : Variant);
    function AsString(FieldName : String) : String;
    function AsFloat(FieldName : String) : Float;
    function AsInteger(FieldName : String) : Integer;
    function AsBoolean(FieldName : String) : Boolean;
    function AsDateTime(FieldName : String) : DateTime;
    class procedure Execute(Alias : String; SQL : String);
    function Locate(KeyFields : String; KeyValues : Variant) : Boolean;
    function IsEmpty : Boolean;
    function RecNo : Integer;
    function RecordCount : Integer;
  end;
  
  TDBIsamTable = class
    constructor Create(Databasename, TableName : String);
    procedure First;
    procedure Next;
    procedure Last;
    procedure Prior;
    procedure Append;
    procedure Insert;
    procedure Edit;
    procedure Delete;
    procedure Cancel;
    procedure Post;
    function BOF : Boolean;
    function EOF : Boolean;
    function Locate(KeyFields : String; KeyValues : Variant) : Boolean;
    function FieldByName(Name : String) : Variant;
    procedure Store(FieldName : String; Value : Variant);
    function AsString(FieldName : String) : String;
    function AsFloat(FieldName : String) : Float;
    function AsInteger(FieldName : String) : Integer;
    function AsBoolean(FieldName : String) : Boolean;
    function AsDateTime(FieldName : String) : DateTime;
    function IsEmpty : Boolean;
    property IndexName : String;
    property Filter : String;
    function RecNo : Integer;
    function RecordCount : Integer;
  end;