Hemangi


Hi All,

I have created Package using installshield wizard, but the only first login window of my project appears after just one sec screen remains and then disappears, i have used prg as my main file in project in which i have define menu, however my exe woks fine . what should i do.

Regards

Hemangi





Re: Urgent - Need Help In VFP 8 Deployment

LeoLems


Hi,

You forgot to put a READ EVENTS... in your main.prg

Greetz, Leo







Re: Urgent - Need Help In VFP 8 Deployment

Hemangi

my prg doesnt show any output when i put read events in start of prg.

is there any condition put read events how to use read events and what circumstances







Re: Urgent - Need Help In VFP 8 Deployment

LeoLems

Hi Hemangi,

If you use modeless forms, you have to put a read events in your main program..

Like :

do form forms\Myform

read events

wait window "Events cleared" timeout 8

The program "stops" to process your form and your input.

if you put a button on the form with in the click "Clear events" then you will see the wait window..

greetz, Leo






Re: Urgent - Need Help In VFP 8 Deployment

Hemangi

Hi Greetz,

Thanks for showing me way, however i have main prg file in which i have define menu and no " do form " is called i have simple display menus and in that i called forms. so where should i include read events in main prg so that as per my exe my deploy project also run fine,

Regard

Hemangi






Re: Urgent - Need Help In VFP 8 Deployment

LeoLems

Make a main.prg...

Make it your main

Code Block

ACTIVATE MENU MyMenu

do form forms\Myform with varx

read events

greetz...






Re: Urgent - Need Help In VFP 8 Deployment

Hemangi

Hi greetz

i tried using read events after do form but still my exe dissappear after it ask for login name & password it doesn't show menu,

1) do i need to call read event every time i called do form

2) do i need to call read events after call to procedure like do myproc

3) is it compulsary to issue clear events only in that form

i am attaching my main file for you kind check pls suggest me something !

***this is my main prg**

DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )

PROCEDURE choice
PARAMETERS mprompt, mpopup
*WAIT WINDOW 'You chose ' + mprompt + ' from popup ' + mpopup NOWAIT
retval=0
DO case
CASE mprompt="PARTS"
DO FORM frmmast to retval
READ EVENTS
CASE mprompt="EXIT"
SET SYSMENU TO DEFAULT
CLEAR EVENTS
ENDCASE
SET SYSMENU TO DEFAULT
RETURN






Re: Urgent - Need Help In VFP 8 Deployment

LeoLems

Hi there,

Here some codechanges... and tips..

greetings, LEO

Code Block

PROCEDURE choice
PARAMETERS mprompt, mpopup

*WAIT WINDOW 'You chose ' + mprompt + ' from popup ' + mpopup NOWAIT
retval=0
DO case
CASE mprompt="PARTS"
DO FORM frmmast to retval
READ EVENTS
CASE mprompt="EXIT"
SET SYSMENU TO DEFAULT
CLEAR EVENTS
ENDCASE

RETURN

*!****************************

*!* MAIN Program starts here

*!****************************

*!* Maybe start your modal login screen....

*!* Make more general settings...

*!* Or start modeless forms here

DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )

*!* See the help file look for "define popup" and see the example

*!* Activate popup custpop

READ EVENTS

*!*****************************************************

*!* MAIN Program ends here (after a clear events)

*!*****************************************************

SET SYSMENU TO DEFAULT
QUIT






Re: Urgent - Need Help In VFP 8 Deployment

Hemangi

Hey,


Thanks for your help, but i havent use any login screen its all through code "menu.prg" which is my main file in project, pls see where i have given read events is right or need to do any changes

I f you dont mind i have one request , can you have provide me your msn or yahoo chat id

and i have used sysmenu so no need to acti popu custpop

here is my whole menu.prg file which is my main file in project


PUBLIC llev,retval
llev=0
retval=0
*** Name this program MENU.PRG ***

SET SYSMENU SAVE
SET SYSMENU TO

SELECT 0
USE SYS(5)+CURDIR()+"\LOGIN" SHARED
SET ORDER TO NAME


DEFINE WINDOW tmp FROM 00,00 TO 20,50 FLOAT FONT 'BOOK ANTIQUA',12 COLOR SCHEME 11 TITLE 'LOGIN'
ACTIVATE WINDOW tmp
MOVE WINDOW tmp CENTER
STORE SPACE(15) TO m.userid,m.pass
@2,2 say "Enter User Name" get m.userid
@4,2 say "Enter Password " get m.pass
READ
DEACTIVATE WINDOW tmp
RELEASE WINDOWS tmp

SELECT login
IF SEEK(ALLTRIM(m.userid))
IF ALLTRIM(m.pass)==ALLTRIM(login.password)
llev=login.level
ELSE
llev=0
=MESSAGEBOX("login Un-successfull")
ENDIF
endif

IF llev<>0
READ EVENTS
DEFINE PAD custpad OF _MSYSMENU PROMPT '\<Masters' COLOR SCHEME 3 ;
KEY ALT+M, ''
ON PAD custpad OF _msysmenu ACTIVATE POPUP custpop
DEFINE PAD repopad OF _MSYSMENU PROMPT '\<Reports' COLOR SCHEME 3 ;
KEY ALT+R, ''
ON PAD repopad OF _msysmenu ACTIVATE POPUP repopop


DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )

DEFINE POPUP repopop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF repopop PROMPT '\<All details' ;
KEY ALT+V, ''
ON SELECTION POPUP repopop;
DO choice1 WITH PROMPT( ), POPUP( ),BAR()

ELSE
WAIT WINDOW "Your are not Authorised User"
ENDIF


PROCEDURE choice
PARAMETERS mprompt, mpopup
WAIT WINDOW 'You chose ' + mprompt + ' from popup ' + mpopup NOWAIT
retval=0
DO case
CASE mprompt="PARTS"
DO FORM frmmast to retval
READ EVENTS
CASE mprompt="EXIT"
SET SYSMENU TO DEFAULT
CLEAR EVENTS
ENDCASE
SET SYSMENU TO DEFAULT
RETURN

PROCEDURE choice1
PARAMETERS mprompt,mpopup,mbar
DO case
CASE mbar=1

DO excelrepo
endcase

RETURN






Re: Urgent - Need Help In VFP 8 Deployment

Hemangi

Hi Greetz,

when i put read evnets here my program get hang no output and VFP get hangs

DEFINE POPUP custpop MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF custpop PROMPT 'P\<ARTS' ;
KEY CTRL+P, '^P' SKIP FOR llev<>1
DEFINE BAR 7 OF custpop PROMPT 'EX\<IT' ;
KEY CTRL+X, '^X'
ON SELECTION POPUP custpop DO choice in menu;
WITH PROMPT( ), POPUP( )

*!* See the help file look for "define popup" and see the example

*!* Activate popup custpop

READ EVENTS

Regards

Hemangi