home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 July & August / Pcwk7897.iso / mgxsuite / abc.z / RECORD.BAS < prev    next >
BASIC Source File  |  1996-12-16  |  2KB  |  79 lines
  1. Attribute VB_Name = "RECORD1"
  2. Option Explicit
  3.  
  4. Type RECORD
  5.         Server As String * 50
  6.         Type As String * 50
  7.         User As String * 50
  8.         Computer As String * 50
  9.         UserID As String * 10
  10. End Type
  11.  
  12. Dim NetSource As RECORD
  13. Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
  14.  
  15.  
  16. Function GetCurrRec(ds As Recordset) As String
  17.     
  18.     Dim J As Integer
  19.     Static FieldStr As String
  20.     Static recStr As String
  21.  
  22.  
  23.     recStr = ""
  24.  
  25.     For J = 0 To ds.Fields.Count - 1
  26.         FieldStr = Space(ds.Fields(J).Size)
  27.         
  28.         Select Case ds.Fields(J).Type
  29.         
  30.             Case 1, 2
  31.                 CopyMemory ByVal FieldStr, CInt(ds.Fields(J).Value), ds.Fields(J).Size
  32.  
  33.             Case 3
  34.                 CopyMemory ByVal FieldStr, CInt(ds.Fields(J).Value), ds.Fields(J).Size
  35.  
  36.             Case 4
  37.                 CopyMemory ByVal FieldStr, CLng(ds.Fields(J).Value), ds.Fields(J).Size
  38.  
  39.             Case 5
  40.                 CopyMemory ByVal FieldStr, CCur(ds.Fields(J).Value), ds.Fields(J).Size
  41.             
  42.             Case 6
  43.                 CopyMemory ByVal FieldStr, CSng(ds.Fields(J).Value), ds.Fields(J).Size
  44.             
  45.             Case 7, 8
  46.                 CopyMemory ByVal FieldStr, CDbl(ds.Fields(J).Value), ds.Fields(J).Size
  47.  
  48.             Case 9, 10
  49.                 CopyMemory ByVal FieldStr, ByVal CStr(ds.Fields(J).Value), Len(ds.Fields(J).Value)
  50.  
  51.         End Select
  52.         
  53.         recStr = recStr + FieldStr
  54.  
  55.         Next
  56.        
  57.  
  58.         GetCurrRec = recStr
  59.  
  60. End Function
  61.  
  62. Function GetRecNum(ds As Recordset) As Integer
  63.  
  64.     Static recNumber As Integer
  65.  
  66.     recNumber = 0
  67.         
  68.     Do While Not ds.EOF
  69.     If Not ds.Fields("User").Value = "" Then
  70.        recNumber = recNumber + 1
  71.        ds.MoveNext
  72.     End If
  73.     Loop
  74.  
  75.     GetRecNum = recNumber
  76.        
  77. End Function
  78.  
  79.