Dec 222017
 
Visual Basic source code that uses the Paradox engine.
File VBPXENG.ZIP from The Programmer’s Corner in
Category BASIC Language
Visual Basic source code that uses the Paradox engine.
File Name File Size Zip Size Zip Type
CHECKOUT.FRM 3921 1897 deflated
CUSTEDIT.FRM 6102 2860 deflated
CUSTOMER.DB 4096 432 deflated
CUSTOMER.PX 4096 106 deflated
ITEM.DB 4096 313 deflated
ITEM.PX 4096 101 deflated
ITEMEDIT.FRM 5943 2778 deflated
PXMODULE.BAS 14023 3129 deflated
RETURN.FRM 2873 1473 deflated
TPCREAD.ME 199 165 deflated
VVABOUT.FRM 853 562 deflated
VVDBMOD.BAS 7877 1788 deflated
VVDBMOD2.BAS 5580 1361 deflated
VVDEMO.MAK 217 131 deflated
VVDEMO.TXT 4852 2202 deflated
VVGLBL.BAS 2108 811 deflated
VVSTART.FRM 5084 1746 deflated

Download File VBPXENG.ZIP Here

Contents of the VVDEMO.TXT file


Visual Basic / Paradox Engine Demo

Written by Steve Jackson
9152 Brabham Drive
Huntington Beach, CA 92646

Source code free to all.

Comments, questions are welcome. If you know of any
ways I can earn a little extra income to purchase a
faster computer (and with more memory of course) that
would be welcome too.

======================================================
A Visual Basic application called "Visual Video" that
uses Paradox Engine for database access. It is NOT
meant to be a viable video tape rental system - just a
little sample of calling the Paradox Engine DLL from
Windows VB. No exe file is included to keep zip file
small. Also, the DLL files are not included.
======================================================

Assumptions:
You have a working knowledge of Paradox Engine
You have the Paradox Engine DLL - PXENGWIN.DLL
You have Visual Basic and its DLL

Suggestion:
Load this in a separate directory.
Put this name in db_dir in GLOBAL.BAS
(so the app will know where tables are)

Files included:
VVDEMO.MAK Project make file
PXMODULE.BAS Engine DLL definitions
and calls to engine functions
VVDBMOD.BAS Customer database routines
VVDBMOD2.BAS Item database routines
VVGLBL.BAS Global defines -
but no engine stuff
*.FRM Various forms
*.DB and *.PX Customer and Item databases
VVDEMO.TXT This file


BACKGROUND

The Paradox Engine comes with a DLL library with all the
engine functions except for PxNetInit() which is handled
a little differently in Windows. Visual Basic can use
most of these easily (more on this in a moment) by
defining them as DLL declarations. The important thing
is to define the C argument types in equivalent Visual
Basic types, and it is VERY important to use ByVal
properly to define variables passed by reference. Also,
strings passed to functions for update should be
defined as fixed length (see PxGetAlpha). C does not
understand VB's variable length strings and will
promptly crash your app if you get it wrong.

Most of the engine functions return an int as an error
code, and this works quite well in VB. I called a
generic error routine after most calls that traps show-
stopper errors from normal expected errors like not-
found, etc. At least one of the functions returns a
pointer to a string - PxErrMsg, and I have not yet
worked out how to use that in VB so for right now my
error routine just shows the error number. Some sharp
programmer could probably get some windows memory and
grab a pointer to it, but those kind of API calls are
beyond the scope of this little tutorial.

STRUCTURE OF VVDEMO

I tried to put all the Paradox Engine declarations in
one BAS file to isolate it from the rest of the app. I
also have one BAS file for each database with various
functions for Startup, Get, Add, Update, Delete, etc.
etc. This results in a two layer approach: The form
objects call the generic functions in VVDBMODx.BAS which
in turn call the Paradox specific functions in
PXMODULE.BAS. The reason for this is to make it easier
to change the Paradox specific routines without affecting
the application, and to keep your global file from
getting cluttered up. You may love it or hate it, but
at least I had a reason for it!

By the way, if you create module files as plain ASCII
before editing them in VB, they will remain ASCII files
that you can use with your favorite editor. If you
start a new module file in VB, it saves it in a weird
tokenized form. (After all, it is basic you know)

NETWORK INIT

In the dos version, you can initialize to whatever kind
of network you want with PxNetInit. In windows, you
must always init with PxWinInit, and it picks up the
desired network from settings in WIN.INI. I came up
with a way to change this at run time in a C program
like this: I put up a dialog box with different network
choices. When the user clicks OK, I wrote to WIN.INI
with the WriteProfileString() API call to change the
settings, stopped the engine with PxExit(), and restarted
with PxWinInit(). This picked up the network change (or
userid or net drive) without stopping the app. I have
not tried it yet in VB, but it worked fine in C.

FINAL WORDS

Thanks to my friend John Jaster who gave me most (but
not all) of the Paradox DLL declarations. I added some,
and corrected a few. They are still not complete, but I
leave that to the next person in this chain. Or if
anyone reading this wants me to finish it up, let me
know, and I'll find the time!










 December 22, 2017  Add comments

Leave a Reply