fmain.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 97 行

# Gambas Form File 1.0

{ FMain Form
  Move(269,125,506,483)
  Text = ("Database example")
  Icon = Picture["database.png"]
  Border = Window.Fixed
  { Frame1 Frame
    Move(8,8,488,224)
    Text = ("Connection")
    { Label5 Label
      Move(16,88,112,24)
      Text = ("Database")
    }
    { Label1 Label
      Move(16,24,120,24)
      Text = ("Type")
    }
    { Label2 Label
      Move(16,56,120,24)
      Text = ("Host")
    }
    { Label3 Label
      Move(16,120,112,24)
      Text = ("User")
    }
    { Label4 Label
      Move(16,152,112,24)
      Text = ("Password")
    }
    { btnConnect Button
      Move(368,24,104,24)
      Text = ("Connect")
    }
    { cmbType ComboBox
      Move(144,24,192,24)
      Text = (" ")
      List = ("postgresql\nmysql\nsqlite")
    }
    { txtHost TextBox
      Move(144,56,192,24)
      Text = ("")
    }
    { txtName TextBox
      Move(144,88,192,24)
      Text = ("test")
    }
    { txtUser TextBox
      Move(144,120,192,24)
      Text = ("")
      MaxLength = 16
    }
    { txtPassword TextBox
      Move(144,152,192,24)
      Text = ("")
      Password = True
    }
    { chkCreate CheckBox
      Move(16,192,312,16)
      Text = ("Create database if it does not exist")
      Value = True
    }
  }
  { frmDatabase Frame
    Move(8,240,488,64)
    Enabled = False
    Text = ("Database")
    { btnCreate Button
      Move(16,24,136,24)
      Text = ("Create table 'test'")
    }
    { btnDelete Button
      Move(160,24,136,24)
      Text = ("Delete table 'test'")
    }
    { btnFill Button
      Move(336,24,136,24)
      Text = ("Fill Table 'test'")
    }
  }
  { frmRequest Frame
    Move(8,312,488,160)
    Enabled = False
    Text = ("SQL request")
    { btnRun Button
      Move(400,24,72,24)
      Text = ("Run...")
      Default = True
    }
    { txtRequest TextArea
      Move(16,24,368,120)
      Text = ("")
      Wrap = True
    }
  }
}