home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.3 / Program / database.eto < prev    next >
Text File  |  1996-07-08  |  4KB  |  187 lines
  1. Begin Code
  2.   ModuleManager.PublishObjectDLL("evdb.dll")
  3. End Code
  4.  
  5. Type Database From Database
  6. End Type
  7.  
  8. Type ODBC From ODBC
  9. End Type
  10.  
  11. Type Dynaset From Dynaset
  12.  
  13.   ' METHODS for object: Dynaset
  14.   Function DetailedEdit() as long
  15.     DataConConfigureWizard.Edit(Me)
  16.     DetailedEdit = True
  17.   End Function
  18.  
  19. End Type
  20.  
  21. Type RecordSet From RecordSet
  22.  
  23.   ' METHODS for object: RecordSet
  24.   Function DetailedEdit() as long
  25.     DataConConfigureWizard.Edit(Me)
  26.     DetailedEdit = True
  27.   End Function
  28.  
  29. End Type
  30.  
  31. Type DelimitedAscii From DelimitedAscii
  32. End Type
  33.  
  34. Type Message From Message
  35. End Type
  36.  
  37. Type Text From Text
  38. End Type
  39.  
  40. Type FixedAscii From FixedAscii
  41. End Type
  42.  
  43. Type DatabaseLabel From Label
  44.   Dim Specialize As String
  45. End Type
  46.  
  47. Type DatabaseReadWriteField From TextBox
  48.   Dim IndexPosition as Integer
  49.   Property Label Get getLabel As Object
  50.  
  51.   ' METHODS for object: DatabaseReadWriteField
  52.   Function getLabel As Object
  53.     Dim o as Object
  54.     If Parent Then 
  55.       o = FindEmbed(Parent, "DBLbl" & Right$(Name, Len(Name) - 4))
  56.       getLabel = IIf(o, o, Nothing)
  57.     Else 
  58.       getLabel = Nothing
  59.     End If
  60.   End Function
  61.  
  62. End Type
  63.  
  64.  
  65. Type DatabaseReadOnlyField From TextBox
  66.   Dim IndexPosition as Integer
  67.   Property Label Get getLabel As Object
  68.  
  69.   ' METHODS for object: DatabaseReadOnlyField
  70.   Function getLabel As Object
  71.     Dim o as Object
  72.     If Parent Then 
  73.       o = FindEmbed(Parent, "DBLbl" & Right$(Name, Len(Name) - 4))
  74.       getLabel = IIf(o, o, Nothing)
  75.     Else 
  76.       getLabel = Nothing
  77.     End If
  78.   End Function
  79.  
  80. End Type
  81.  
  82. Begin Code
  83. ' Reconstruction commands for object: Database
  84. '
  85.   With Database
  86.   End With  'Database
  87. ' Reconstruction commands for object: ODBC
  88. '
  89.   With ODBC
  90.     .QueryTimeout := 60
  91.     .Connect := ""
  92.     .ReadOnly := False
  93.     .DataSourceIndex := 0
  94.     .DriverIndex := 0
  95.     .FieldDelimiter := ""
  96.     .FieldIndex := 0
  97.     .TableIndex := 0
  98.     .LogFile := ""
  99.     .AutoUpdate := False
  100.     .IsolationLevel := "None"
  101.   End With  'ODBC
  102. ' Reconstruction commands for object: Dynaset
  103. '
  104.   With Dynaset
  105.     .DatabaseType := "None"
  106.   End With  'Dynaset
  107. ' Reconstruction commands for object: RecordSet
  108. '
  109.   With RecordSet
  110.     .DatabaseType := "None"
  111.   End With  'RecordSet
  112.  
  113. ' Reconstruction commands for object: DelimitedAscii
  114. '
  115.   With DelimitedAscii
  116.     .RowDelimiterExpr := "^M^J"
  117.     .FieldDelimiterExpr := ";"
  118.     .RowDelimiter := "^M^J"
  119.     .FieldDelimiter := ";"
  120.     .Connect := ""
  121.     .FirstLineAsFieldNames := True
  122.   End With  'DelimitedAscii
  123. ' Reconstruction commands for object: Message
  124. '
  125.   With Message
  126.     .Subject := ""
  127.     .MessageText := ""
  128.     .RecipientIndex := 0
  129.     .Recipient := ""
  130.     .RecipientAddress := ""
  131.     .RecipientClass := "To"
  132.     .FileName := ""
  133.     .FilePath := ""
  134.     .FileIndex := 0
  135.     .FilePosition := 0
  136.     .FileFlags := "None"
  137.     .MessageType := ""
  138.     .MessageThread := ""
  139.     .MessageIdentifier := ""
  140.     .MessageFlags := "None"
  141.   End With  'Message
  142. ' Reconstruction commands for object: Text
  143. '
  144.   With Text
  145.     .FileName := ""
  146.     .FileName := ""
  147.     .ParagraphDelimiterExpr := "^M^J"
  148.     .WordDelimiterExpr := "[ ^I^M^J]"
  149.     .ParagraphDelimiter := "^M^J"
  150.     .WordDelimiter := " "
  151.   End With  'Text
  152. ' Reconstruction commands for object: FixedAscii
  153. '
  154.   With FixedAscii
  155.     .Connect := ""
  156.     .FieldWidthList := "10, 10, 10, 10"
  157.     .FieldWidth := 10
  158.     .FieldCount := 4
  159.     .FieldIndex := 0
  160.     .FirstLineAsFieldNames := True
  161.   End With  'FixedAscii
  162.  
  163. ' Reconstruction commands for object: DatabaseLabel
  164. '
  165.   With DatabaseLabel
  166.     .Move(0, 0, 0, 0)
  167.     .Alignment := "Right"
  168.   End With  'DatabaseLabel
  169.  
  170. ' Reconstruction commands for object: DatabaseReadWriteField
  171. '
  172.   With DatabaseReadWriteField
  173.     .Move(0, 0, 0, 0)
  174.   End With  'DatabaseReadWriteField
  175.  
  176. ' Reconstruction commands for object: DatabaseReadOnlyField
  177. '
  178.   With DatabaseReadOnlyField
  179.     .BackColor := 16777215
  180.     .Move(0, 0, 0, 0)
  181.     .ReadOnly := True
  182.   End With  'DatabaseReadOnlyField
  183.  
  184.  
  185.  
  186. End Code
  187.