[RBG7-L] - Re: Two data bases - One form menu

[MikeB]

I haven't worked anything up for this scenario, but R:Scripter would allow you
to Instantiate a Delphi Form from whole cloth and use that for your transition
from one DB to Another...

For Example the Following creates a form with a Listbox, a Label and a
pushbutton and a couple of event procedures:

program MyProgram;
var
   Form:TForm;
   Label1:TLabel;
   Button1:TButton;
   ListBox1:TListBox;


procedure ClickOnList(Sender: TObject);
begin
ShowMessage('List clicked !');
end;

procedure FormOnButton(Sender: TObject);
begin
Label1.Caption:='Form clicked !';
end;

procedure ClicOnButton(Sender: TObject);
begin
Label1.Caption:='Button clicked !';
end;

begin
Form:=TForm.Create(Self);
Form.Position:=poScreenCenter;
Form.BorderStyle:=bsDialog;
Form.Caption:='Test';

Label1:=TLabel.Create(Form);
Label1.Caption:='Hello world !';
Label1.Top:=10;
Label1.Left:=20;

ListBox1:=TListBox.Create(Form);
ListBox1.Left:=10;
ListBox1.Top:=80;
ListBox1.Width:=120;
ListBox1.Height:=100;
ListBox1.OnClick:[EMAIL PROTECTED];

Button1:=TButton.Create(Form);
Button1.Caption:='Push me';
Button1.Top:=30;
Button1.Left:=20;
Button1.OnClick:[EMAIL PROTECTED];

Form.OnClick:[EMAIL PROTECTED];
Form.InsertControl(ListBox1);
Form.InsertControl(Label1);
Form.InsertControl(Button1);

Form.Show;
ListBox1.Items.Add('Mike');
end.



----- Original Message ----- 
From: <[EMAIL PROTECTED]>
To: "RBG7-L Mailing List" <rbg7-l@rbase.com>
Sent: Friday, February 18, 2005 10:41 AM
Subject: [RBG7-L] - Re: Two data bases - One form menu


> I apologize for rehashing a previous subject.
>
> I have an application that is form menu driven.  I now have a
> small app that must be located in a separate database.  I want
> to put a menu option on my main form to switch to the new data
> base, run an application then return to the main menu.
>
> However, the Disconnect command is illegal with in EEPs.
> I know this was addressed earlier, but I am afraid I deleted that
> particular thread.  Since I know it was addressed, I thought
> instead of spending a lot of time re-inventing the wheel I would
> ask the list. What was the resolution?
>
> Thanks,
> -Bob