Hi Community !

I have trawled this + other SLX Communities but have still not found a definitive answer for changing the cursor on large data-load events.

I am running v7.5.3 LAN clients, am launching a Form from the Toolbar that has a DataGrid control with a 20 second-ish load time.

I want the user to know the system is doing something by way of an HourGlass cursor...

Has anybody achieved this (NOT with Legacy code please..) ?

Thanks in advance,

Mark Richardson

Hi Mark

Unfortunately, as you've found. The animated glyphs and mouse cursor won't change during an event. What you are best to do is this (follow same format as the reporting module).

1) Using code invoke the form "System:SLX Loading Dialog"

2) Then Show this form (it will be non-modal)

3) Do your form (loading the grid). On the last event, close down the original form (it's tagged with 2006).

You can obviously use your own form/graphics etc. If you open SLX Report Manager View and look for cmdGenerateClick you will see all of the above and should be able to follow what it does.

The real question is "can't you optimise the SQL to make the grid load faster" !

Regards
Mike

It is possible, but there is one issue:

  The Cursor is set by Control....

  You can set it on the Form, but as soon as the User hovers onto a separate Tab, or a Control within the Form, the cursor will be set back to the Default Cursor for that control.

  So, in theory you could Create a Script that Cycles through Every Control on your Form (If held within a Main View with Tabs, you would have to go through every Form on your Main View) and then change each Control's cursor property to "crHourGlass"

  e.g. 

' If on a Main View, call this function for all the Forms that are part of the Main View (or that are visible to minimize processing time).

SetHourGlassOnForm frmAccountDetail, true     ' True will set the Hour Glass

SetHourGlassOnForm frmAccountDetail, false    ' False will remove the Hour Glass

Sub SetHourGlassOnForm(form, blHourGlass)

Dim selectedCursor

Dim i

Dim ctrl

  On Error Resume Next

  if blHourGlass Then

     selectedCursor  = crHourGlass

  Else

     selectedCursor  = crDefault

  End If

  form.Cursor = selectedCursor

  Do while i < form.ControlCount

    Set ctrl = form.Controls(i)

    ctrl.Cursor = selectedCursor

    i = i + 1

  Loop

End Sub

Hehe - I like the last solution If you know Sage Line500 and the most efficient way to load a 'last price paid' by customer/product then I would definitely prefer this:

I've resorted to:

SELECT     product, val / quantity AS price, customer, dated, invoice

FROM         scheme.opsahistm AS op WITH (nolock)

WHERE     (invoice =

                          (SELECT     TOP (1) invoice

                            FROM          scheme.opsahistm AS ix WITH (nolock)

                            WHERE      (product = op.product) AND (customer = op.customer)

                            ORDER BY dated DESC)) AND (val <> 0) AND (quantity <> 0) AND (warehouse <> '') AND (invoice NOT LIKE 'OP/C%')

...

Any offers ? (I'm chancing my hand here of course!) 

Otherwise Mike - thanks, i'll check out that Vanilla SLX Report Manager view's btn event...

Have you pushed that through Database Engine Tuning Advisor ? - I suspect it'll make that work a lot quicker (with new plans and indexes). I'm often delighted with how much better it makes my queries

Hi again Mike - Inded I have with no recommendations alas...

Thanks again though for the first pointer - Looking at it now...

Raul - Thanks for the reply. I have seen other posts using the iterate through form controls option but not liking that 'work-around'. Hey - I'm also aware beggars can't be choosers so my have to resort to that too! 

Thanks again,

Mark