Open Multiple *.adb files

[carterweslock]

HI:

Background:
I have 3 seperate Alpha Projects. Their related to a single department but each proforms a seperate function.

project1.adb { New Business }
project2.adb { Registration }
project3.adb { Commissions }

Question:

Is there a way to set up a menu that would allow switching back and forth between projects? I do not need to run 2 at the same time (would be nice) but, just need to be able to switch from one to other w/out restarting Alpha.

Any suggestions? Comments?

Thanks in advance for your help


Carter

[Tom Henkel]

RE: Open Multiple *.adb files

Carter,

We run our entire agency(many different departments, related/unrelateed information) from one main menu database. This menu system allows us to "call" appropriate databases on a button push. We capture soecific user information at usersign-in, and "pass" that information to the succeeding databases.

Basically, what you need to do is use the A5.load function. This function loads another database, closes the current database, but doesn't cloase Alpha5.

This is the code under one button on our "Main Menu"

'Date Created: 27-Nov-2002 11:53:40 AM
'Last Updated: 10-Nov-2003 10:06:18 AM
'Created By : Tom Henkel
'Updated By : Tom Henkel

dim aa as p
aa = addin.variables()
dim filename as C
dim filename1 as C
'FUNCTION "SETUP" INITIALIZES THE VARIABLES TO BE
SENT TO THE CALLED APPLICATION.
' THE CHARACTER PARAMETER IS THE NAME OF THE
' CALLED APPLICATION AND IS WHAT IS
' PLACED INTO THE AA.BCBSS.WHERETO SUPER-
' GLOBAL VARIABLE

'test to see if the user has rights to get here

if exist(access,aa.bcbss.path+"\supply\allow.dbf","access")
PleaseWait(.T.,"Loading Supply Room Menu...")
setup("Supply Room","Main_Menu")
callsub("supply\stockroom")
traceln("what = "+aa.bcbss.subapp)
'Open database:
:A5.load(aa.bcbss.subapp)
else
ui_msg_box(aa.bcbss.agency+" - Security","You do
NOT have Permission to go Here!")
end
end if


The "PleaseWait" function puts up a message box telling the user that we haven't gone away. The "setup" function loads up some variables so that I know where I am going and where I came from. "Callsub" checks to see if my "called" application is shadowed, and creates the proper path for the :A5.load.

"PleaseWait" is our modified version of Jerry Brightbill's function from the code Archive. "Setup" and "callsub" are functions I created to make my life easier.
They are fairly specific to our use, but I will gladly send them to you if you think you need them.

Tom

[forskare]

RE: Open Multiple *.adb files

Carter,

What do you mean by "3 seperate Alpha Projects"? Are you talking about 3 separate A5 applications/databases?

If so, you can have as many A5 apps open as your computer will allow. Action scripting contains a script for opening 'outside applications'. I would think this is would work.

kenn

[Peter.Greulich]

RE: Open Multiple *.adb files

You can have three separate instances of A5 running, one for each adb if you want. From the contolpanel, select "tools" from the menu and then "create shortcut". Do it for each adb.

[carterweslock]

RE: Open Multiple *.adb files

Hello All:

Thanks for the help. Had to put on a different hat for a little while and am now getting back to the project. THANKS for the ideas I'll try them and post results soon.

Answers: Yes it's several applicataions, each with it's own tables, reports, scripts ect.

I know that we can have multipul copies running at the same time. The issue is with the users. The keyboard to human interface keeps acting up.

[carterweslock]

RE: Open Multiple *.adb files

Tom:

It looks great. Just what I want to do. Yes I'd love the scripts & functions.

Carter