home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_4_94 / bonus / dmsrc / field.txt < prev    next >
Text File  |  1995-02-26  |  2KB  |  90 lines
  1. Option Explicit
  2.  
  3. Sub Combo1_Click ()
  4.     If combo1.ItemData(combo1.ListIndex) = 4 Then 'Long Int
  5.         cCounter.Visible = True
  6.     Else
  7.         cCounter.Visible = False
  8.     End If
  9.     Select Case combo1.ItemData(combo1.ListIndex)
  10.         Case 10
  11.             label3.ForeColor = 0
  12.             text2.Enabled = True
  13.         Case Else
  14.             label3.ForeColor = QBColor(8)
  15.             text2.Text = ""
  16.             text2.Enabled = False
  17.     End Select
  18.  
  19. End Sub
  20.  
  21. Sub Command1_Click ()
  22.     Dim flag As Integer
  23.  
  24.     flag = True
  25.  
  26.     If text1 = "" Then
  27.         MsgBox "Invalid Field Name", 64, "Data Manager"
  28.         flag = False
  29.         text1.SetFocus
  30.  
  31.     ElseIf combo1.ListIndex = -1 Then
  32.         MsgBox "You must select a valid field type", 64, "Data Manager"
  33.         flag = False
  34.         combo1.SetFocus
  35.  
  36.     ElseIf combo1.ItemData(combo1.ListIndex) = 10 Then
  37.         If Val(text2) < 1 Or Val(text2) > 255 Then
  38.             MsgBox "Field Size (for Text Fields) must be between 1 and 255", 64, "Data Manager"
  39.             text2.SetFocus
  40.             flag = False
  41.         End If
  42.     End If
  43.  
  44.     If flag Then
  45.         Me.ExitCondition = "OK"
  46.         Me.Hide
  47.         Me.FName = text1
  48.         Me.fType = combo1.ItemData(combo1.ListIndex)
  49.         If Me.fType = 10 Then
  50.             Me.FSize = text2
  51.         Else
  52.             Me.FSize = 0
  53.         End If
  54.     End If
  55.  
  56. End Sub
  57.  
  58. Sub Command2_Click ()
  59.     Me.ExitCondition = "Cancel"
  60.     Me.Hide
  61. End Sub
  62.  
  63. Sub Form_Load ()
  64.     combo1.AddItem "Boolean"
  65.     combo1.AddItem "Byte"
  66.     combo1.AddItem "Integer"
  67.     combo1.AddItem "Long Integer"
  68.     combo1.AddItem "Currency"
  69.     combo1.AddItem "Single"
  70.     combo1.AddItem "Double"
  71.     combo1.AddItem "Date/Time"
  72.     combo1.AddItem "Text"
  73.     combo1.AddItem "Binary"
  74.     combo1.AddItem "Memo"
  75.  
  76.     combo1.ItemData(0) = 1
  77.     combo1.ItemData(1) = 2
  78.     combo1.ItemData(2) = 3
  79.     combo1.ItemData(3) = 4
  80.     combo1.ItemData(4) = 5
  81.     combo1.ItemData(5) = 6
  82.     combo1.ItemData(6) = 7
  83.     combo1.ItemData(7) = 8
  84.     combo1.ItemData(8) = 10
  85.     combo1.ItemData(9) = 11
  86.     combo1.ItemData(10) = 12
  87.  
  88. End Sub
  89.  
  90.