# Gambas Form File 2.0

{ Form Form
  MoveScaled(43.4286,25.1429,63,65)
  Text = ("Database example")
  Icon = Picture["database.png"]
  Border = Window.Fixed
  { Frame1 Frame
    MoveScaled(1,1,61,28)
    Text = ("Connection")
    { Label5 Label
      MoveScaled(2,11,14,3)
      Text = ("Database")
    }
    { Label1 Label
      MoveScaled(2,3,15,3)
      Text = ("Type")
    }
    { Label2 Label
      MoveScaled(2,7,15,3)
      Text = ("Host")
    }
    { Label3 Label
      MoveScaled(2,15,14,3)
      Text = ("User")
    }
    { Label4 Label
      MoveScaled(2,19,14,3)
      Text = ("Password")
    }
    { btnConnect Button
      MoveScaled(46,3,13,3)
      Text = ("Connect")
    }
    { cmbType ComboBox
      MoveScaled(18,3,24,3)
      Text = (" ")
      List = [("mysql"), ("postgresql"), ("sqlite3"), ("odbc"), ("firebird")]
    }
    { txtHost TextBox
      MoveScaled(18,7,24,3)
      Text = ("")
    }
    { txtName TextBox
      MoveScaled(18,11,24,3)
      Text = ("test")
    }
    { txtUser TextBox
      MoveScaled(18,15,24,3)
      Text = ("")
      MaxLength = 16
    }
    { txtPassword TextBox
      MoveScaled(18,19,24,3)
      Text = ("")
      Password = True
    }
    { chkCreate CheckBox
      MoveScaled(2,23,39,3)
      Text = ("Create database if it does not exist")
    }
    { chkDebug CheckBox
      MoveScaled(46,7,13,3)
      Text = ("Debug")
    }
  }
  { frmDatabase Frame
    MoveScaled(1,30,61,13)
    Enabled = False
    Text = ("Tables 'test' && 'color'")
    { btnCreate Button
      MoveScaled(2,4,12,3)
      Text = ("Create")
    }
    { btnDelete Button
      MoveScaled(2,8,12,3)
      Text = ("Delete")
    }
    { btnFill Button
      MoveScaled(18,4,16,3)
      Text = ("&Fill with")
    }
    { txtCount SpinBox
      MoveScaled(18,8,11,3)
      MinValue = 10
      MaxValue = 100000
      Step = 1000
      Value = 10000
    }
    { btnTest Button
      MoveScaled(41,4,18,7)
      Text = ("Bound controls\nexample...")
    }
    { Label6 Label
      MoveScaled(30,8,10,3)
      Text = ("Records")
    }
  }
  { frmRequest Frame
    MoveScaled(1,44,61,20)
    Enabled = False
    Text = ("SQL request")
    { btnRun Button
      MoveScaled(50,3,9,3)
      Text = ("Run...")
      Default = True
    }
    { txtRequest TextArea
      MoveScaled(2,3,46,15)
      Text = ("")
      Wrap = True
    }
  }
}
