home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 4.ddi / DATABOX.FR_ / DATABOX.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  4.9 KB  |  197 lines
  1. VERSION 2.00
  2. Begin Form fDataBox 
  3.    BackColor       =   &H00C0C0C0&
  4.    ClientHeight    =   2790
  5.    ClientLeft      =   4185
  6.    ClientTop       =   2715
  7.    ClientWidth     =   3645
  8.    Height          =   3195
  9.    Left            =   4125
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2790
  14.    ScaleWidth      =   3645
  15.    Top             =   2370
  16.    Width           =   3765
  17.    Begin ListBox cData 
  18.       BackColor       =   &H00FFFFFF&
  19.       Height          =   2370
  20.       Left            =   50
  21.       TabIndex        =   0
  22.       Tag             =   "OL"
  23.       Top             =   50
  24.       Width           =   3495
  25.    End
  26. Option Explicit
  27. Sub cData_DblClick ()
  28.   On Error GoTo SetErr
  29.   Dim nv As String, prop As String
  30.   Dim fds As dynaset
  31.   Dim ind As Index
  32.   Dim fld As field
  33.   Dim tbl As Table
  34.   If cData = "" Then Exit Sub
  35.   prop = Mid(cData, 1, InStr(cData, " =") - 1)
  36.   nv = InputBox("Enter New Value for " + prop)
  37.   If nv = "" Then Exit Sub
  38.   Select Case tag
  39.     Case "DB"
  40.       Select Case cData.ListIndex
  41.         Case 0
  42.           gCurrentDB.Name = nv
  43.         Case 1
  44.           gCurrentDB.Connect = nv
  45.         Case 2
  46.           gCurrentDB.CollatingOrder = nv
  47.         Case 3
  48.           gCurrentDB.Updatable = nv
  49.         Case 4
  50.           gCurrentDB.Transactions = nv
  51.         Case 5
  52.           gCurrentDB.QueryTimeout = nv
  53.       End Select
  54.     Case "TBD"
  55.       Select Case cData.ListIndex
  56.         Case 1
  57.           gCurrentDB.TableDefs(fTables.cTableList).Name = nv
  58.         Case 2
  59.           gCurrentDB.TableDefs(fTables.cTableList).DateCreated = nv
  60.         Case 3
  61.           gCurrentDB.TableDefs(fTables.cTableList).LastUpdated = nv
  62.         Case 4
  63.           gCurrentDB.TableDefs(fTables.cTableList).Updatable = nv
  64.         Case 5
  65.           gCurrentDB.TableDefs(fTables.cTableList).Connect = nv
  66.         Case 6
  67.           gCurrentDB.TableDefs(fTables.cTableList).SourceTableName = nv
  68.         Case 7
  69.           gCurrentDB.TableDefs(fTables.cTableList).Attributes = nv
  70.       End Select
  71.     Case "QD"
  72.       Select Case cData.ListIndex
  73.         Case 1
  74.           gCurrentQueryDef.Name = nv
  75.         Case 2
  76.           gCurrentQueryDef.SQL = nv
  77.       End Select
  78.     Case "DS"
  79.       Set fds = gCurrentDS
  80.       Select Case cData.ListIndex
  81.         Case 0
  82.           fds.Name = nv
  83.         Case 1
  84.           fds.BOF = nv
  85.         Case 2
  86.           fds.Bookmark = nv
  87.         Case 3
  88.           fds.Bookmarkable = nv
  89.         Case 4
  90.           fds.EOF = nv
  91.         Case 5
  92.           fds.Filter = nv
  93.         Case 6
  94.           fds.LastModified = nv
  95.         Case 7
  96.           fds.LockEdits = nv
  97.         Case 8
  98.           fds.NoMatch = nv
  99.         Case 9
  100.           fds.Sort = nv
  101.         Case 10
  102.           fds.Transactions = nv
  103.         Case 11
  104.           fds.RecordCount = nv
  105.         Case 12
  106.           fds.Updatable = nv
  107.       End Select
  108.     Case "TBL"
  109.       Set tbl = gCurrentTbl
  110.       Select Case cData.ListIndex
  111.         Case 0
  112.           tbl.Name = nv
  113.         Case 1
  114.           tbl.BOF = nv
  115.         Case 2
  116.           tbl.Bookmark = nv
  117.         Case 3
  118.           tbl.Bookmarkable = nv
  119.         Case 4
  120.           tbl.DateCreated = nv
  121.         Case 5
  122.           tbl.EOF = nv
  123.         Case 6
  124.           tbl.Index = nv
  125.         Case 7
  126.           tbl.LastModified = nv
  127.         Case 8
  128.           tbl.LastUpdated = nv
  129.         Case 9
  130.           tbl.LockEdits = nv
  131.         Case 10
  132.           tbl.NoMatch = nv
  133.         Case 11
  134.           tbl.Transactions = nv
  135.         Case 12
  136.           tbl.RecordCount = nv
  137.         Case 13
  138.           tbl.Updatable = nv
  139.       End Select
  140.     Case "FLD"
  141.       Set fld = gCurrentField
  142.       Select Case cData.ListIndex
  143.         Case 0
  144.           fld.Name = nv
  145.         Case 1
  146.           fld.Type = nv
  147.         Case 2
  148.           fld.Size = nv
  149.         Case 3
  150.           fld.SourceField = nv
  151.         Case 4
  152.           fld.SourceTable = nv
  153.         Case 5
  154.           fld.CollatingOrder = nv
  155.         Case 6
  156.           fld.Attributes = nv
  157.         Case 7
  158.           fld.OrdinalPosition = nv
  159.       End Select
  160.     Case "IND"
  161.       Set ind = gCurrentIndex
  162.       Select Case cData.ListIndex
  163.         Case 0
  164.           ind.Name = nv
  165.         Case 1
  166.           ind.Fields = nv
  167.         Case 2
  168.           ind.Unique = nv
  169.         Case 3
  170.           ind.Primary = nv
  171.       End Select
  172.   End Select
  173.   GoTo SetEnd
  174. SetErr:
  175.   ShowError
  176.   Resume SetEnd
  177. SetEnd:
  178. End Sub
  179. Sub cData_KeyPress (KeyAscii As Integer)
  180.   If KeyAscii = 27 Then Unload Me
  181. End Sub
  182. Sub Form_Load ()
  183.   Height = 3000
  184.   Width = 3000
  185.   Left = (Screen.Width - Width) / 2
  186.   Top = (Screen.Height - Height) / 2
  187. End Sub
  188. Sub Form_Paint ()
  189.   Outlines Me
  190. End Sub
  191. Sub Form_Resize ()
  192.   On Error Resume Next
  193.   'resize the list box
  194.   cData.Width = Me.Width - 240
  195.   cData.Height = Me.Height - 500
  196. End Sub
  197.