home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / pxcreate / pxcreate.frm (.txt) < prev    next >
Visual Basic Form  |  1995-02-27  |  5KB  |  129 lines
  1. Form1
  2. PX  Create
  3. Form1%
  4. ResLabel
  5. PXTblCreate Result
  6. ReturnCode
  7. Command1
  8. Generate Test File
  9. GetRaten
  10. nZone
  11. TestStrings
  12. lpStrs
  13. Command1_Click
  14.     AnsiUpper
  15. lpString
  16. PxFields
  17. str1c
  18. str2l
  19. str3u
  20. str49
  21. SpyCls~
  22. Command2_Click
  23. Aarray
  24. PxField
  25. str7!
  26. str10
  27. str11
  28. str12n
  29. str13
  30. str14
  31. str15
  32. str16T
  33. str17
  34. PxTypes9
  35. PXTblCreate
  36. lpName
  37.     NumFields
  38. Types
  39. FLD21
  40. FLD3)
  41. TYP0a
  42. TYP4y
  43. PxType
  44. Text1
  45.     TableName
  46.     PXWinInit
  47. AppName
  48. PxShare
  49. PXExit
  50. ReturnCode
  51. Form_Click
  52. engine
  53. windows
  54. programmers
  55.     reference
  56. Paradox
  57. problem
  58. creating
  59. table
  60.  This code is provided "AS IS" into the public domain.
  61.  I needed to use The paradox engine with VB and this is my solution to
  62.  the problem of creating a table with the paradox engine and VB. I put
  63.  this together very quickly and did not have much time testing. There maye
  64.  be BUGS in this code that I have not found!
  65.  It is your responsibility to determine if it is suitible for your purposes.
  66.  Jim Nechu
  67.  OutRider Systems (Producers of Custom Controls for Visual Basic)r
  68.  Voice: 713-521-0486
  69.  Fax: 713-523-0386
  70.  SEE: The programmers reference for Paradox for windows for.
  71.  complete descriptions of all Paradox functions available.
  72.  The following two functions are needed anytime you use the Paradox engine .
  73.  for windows.g
  74. pxengwin.dlln
  75. pxengwin.dll
  76.  This is the Paradox engine function that creates a data file. Two of it's
  77.  arguments are pointers to arrays of pointers to strings. Since VB doesn't
  78.  provide for arrays of pointers to strings we will have to improvise. Seet
  79.  the next declare statement.
  80. pxengwin.dll
  81.  This is a standard windows API call. We use it because it returns the far
  82.  address of it's string argument.a
  83.  We are going to lie to VB and tell VB that it is returning a long. Thea
  84.  reason for this is that we need to store this value in one of the elementse
  85.  of an array of longs. A long is the same size as a far address. We are then
  86.  going to pass the PXTblCreate function a pointer to an array of longs
  87.  instead of a pointer to an array of pointers to strings. If the elementss
  88.  of the array of longs are actually addresses of strings then it's address
  89.  is actually a pointer to an array of pointers to strings.
  90.  The following arrays will hold the pointers to strings. To see how they are
  91.  used see the code attached to the Command1 button..
  92. Command1_Click
  93.  This code is provided "AS IS" into the public domain. a
  94.  I needed to use The paradox engine with VB and this is my solution to
  95.  the problem of creating a table with the paradox engine and VB. I put
  96.  this together very quickly and did not have much time testing. There mayy
  97.  be BUGS in this code that I have not found! m
  98.  It is your responsibility to determine if it is suitible for your purposes.
  99.  Jim Nechh
  100.  OutRider Systems (Producers of Custom Controls for Visual Basic)r
  101.  Voice: 713-521-0486
  102.  Fax: 713-523-0386
  103.  See the declarations for this module for more detailed information on
  104.  The various DLL calls and their arguments..
  105. Numeric Field
  106.  First field name
  107. Alpha Field
  108.  Second field name
  109. Date Field
  110.  Ditto
  111. Currency Field
  112.  Ditto
  113. Short Field
  114.  Ditto o
  115.  Assign the addresses of the strings that define the field names
  116.  to the elements of the fields array.t
  117.  First field typed
  118.  Second field type
  119.  Ditto n
  120.  Assign the addresses of the strings that define the field types toe
  121.  the elements of the Types array.n
  122. table
  123.  This is the name of the table to create
  124. TESTSTR
  125.  Initialize paradox for windowsr
  126.  Make the call to create the table
  127.  Exit paradox for windows
  128.  Save the return code and display it
  129.