Demonstration - Superdata III

var

sResultMsg: string;

rsClient, rsExitCodes, rsPaymentMethods: variant;

// attempt to login and get client data

InstantiateBusinessObject(kboUser)

try

Screen.Cursor := crHourglass;

sResultMsg := kboUser.BusinessObject.Login(sUserIDP, sPasswordP, rsClient, rsExitCodes, rsPaymentMethods, giSecurityLevel, gsImportPath, gsFTPServer, giFTPPort, gsFTPUserID, gsFTPPassword);

finally

UnInstantiateBusinessObject(kboUser);

Screen.Cursor := crDefault;

end; { try..finally..}

// assign recordsets

kdsClient.ADORecordset := GetRecordsetFromVariant(rsClient);

kdsExitCodes.ADORecordset := GetRecordsetFromVariant(rsExitCodes);

kdsPaymentMethods.ADORecordset := GetRecordsetFromVariant(rsPaymentMethods);

Previous slide

Back to first slide

View graphic version