Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Showing a System Toolbar in the application.
Message
De
02/03/2000 10:19:28
 
 
À
02/03/2000 09:59:01
Walter Meester
HoogkarspelPays-Bas
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00340482
Message ID:
00340528
Vues:
21
Also relating to the report designer question:

Another programmer wrote this code:
Which always brings up the report designer tool bar:

PUSH MENU _MSYSMENU

SET SYSMENU TO _MSM_FILE, _MSM_EDIT

ThisForm.CheckResource()

MODIFY REPORT filename

SET STATUS BAR OFF

POP MENU _MSYSMENU


Where: Check resource looks like:

**********************start check resource**********************************************
LOCAL cOAlias, lOk, cCurrentRFile

cOAlias = ALIAS()

cCurrentRFile = SYS(2005)
SET RESOURCE OFF

lOk = .T.
ON ERROR lOk = .F.
USE &cCurrentRFile EXCLUSIVE IN 0
=SetOnError()

IF lOk
SELECT FoxUser
GO TOP
LOCATE FOR TYPE = "PREFW" AND ID = "REPORTTOOLS"
IF FOUND()
REPLACE CKVal WITH 60721, ;
Updated WITH DATE()
ELSE
INSERT INTO FoxUser (Type, Id, Name, Readonly, CKVal, Data, Updated) ;
VALUES ("PREFW", "REPORTTOOLS", "", .F., 60721, "", DATE())
ENDIF
USE IN FOXUSER
ENDIF

SET RESOURCE ON
SET RESOURCE TO &cCurrentRFile

IF NOT EMPTY(cOAlias)
SELECT (cOAlias)
ENDIF

**********************End check resource**********************************************


Question:I need a version for the form designer but can't seem the figure out what to put in this check resource function.

I tried:
IF lOk
SELECT FoxUser
GO TOP
LOCATE FOR TYPE = "PREFW" AND ID = "FORMTOOLS"
IF FOUND()
REPLACE CKVal WITH 30445, ;
Updated WITH DATE()
ELSE
INSERT INTO FoxUser (Type, Id, Name, Readonly, CKVal, Data, Updated) ;
VALUES ("PREFW", "FORMTOOLS", "", .F., 30445, "", DATE())
ENDIF
USE IN FOXUSER
ENDIF

But no luck??!?!?

Any ideas. The biggest question is where is this documented and what should.
ckval be?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform