[Gambas-user] give gDBM a little bit more usability

[Charlie Reinl]

Salut Benoit,

made some little changes to gDBM to give FRequest a bit more usability.
It is nothing magic, only show the Tables and fields of the DB , where the SQL 
request was choosen. And set a 'Select * from <table>' when table in 
tables-combo is changed. If in field-combo somethings changed the field-name 
is set to the selection string.

For sqlite a 'Open DB would be nice', because it is not an engine who knows 
where the DB-files are.

Amicalment
Charlie

-------------- next part --------------
A non-text attachment was scrubbed...
Name: FRequest.class
Type: application/x-java
Size: 6546 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20041126/4c35d881/attachment.bin>
-------------- next part --------------
# Gambas Form File 1.0

{ FRequest Form
  Move(162,118,622,536)
  Text = ("")
  Icon = Picture["img/16/sql.png"]
  Arrangement = Arrange.Vertical
  { Panel1 Panel
    Move(0,0,304,32)
    Arrangement = Arrange.Horizontal
    Spacing = 4
    Padding = 4
    Border = Border.Raised
    { PictureBox1 PictureBox
      Move(8,8,16,16)
      Picture = Picture["img/16/sql.png"]
      Alignment = Align.Center
    }
    { lblTitle Label
      Move(40,0,200,24)
      Expand = True
      Text = ("")
    }
    { btnClose ToolButton
      Move(272,8,20,20)
      Text = ("")
      Picture = Picture["img/16/close.png"]
    }
  }
  { splRequest VSplit
    Move(8,40,592,472)
    Expand = True
    { VBox1 VBox
      Move(32,24,512,192)
      { HPanel1 HPanel
        Move(48,16,448,24)
        { btnRun ToolButton
          Move(0,0,24,24)
          ToolTip = ("Run")
          Text = ("")
          Picture = Picture["img/16/right-b.png"]
        }
        { btnNew ToolButton
          Move(24,0,24,24)
          ToolTip = ("New request")
          Text = ("")
          Picture = Picture["img/16/delete.png"]
        }
        { btnLoad ToolButton
          Move(48,0,24,24)
          ToolTip = ("Load request")
          Text = ("")
          Picture = Picture["img/16/open-file.png"]
        }
        { btnSave ToolButton
          Move(72,0,24,24)
          ToolTip = ("Save request")
          Text = ("")
          Picture = Picture["img/16/save.png"]
        }
        { btnFind ToolButton
          Move(96,0,24,24)
          Visible = False
          ToolTip = ("Find")
          Text = ("")
          Picture = Picture["img/16/find.png"]
        }
        { cbxTables ComboBox
          Move(128,0,136,8)
          Text = (" ")
        }
        { cbxFields ComboBox
          Move(280,0,136,8)
          Text = (" ")
        }
      }
      { txtRequest TextArea
        Move(32,48,336,112)
        Expand = True
        Text = ("")
        Wrap = True
      }
    }
    { panRequest Panel
      Move(16,232,536,224)
      Arrangement = Arrange.Fill
      { Panel3 Panel
        Move(24,8,400,176)
        Arrangement = Arrange.Fill
        Padding = 8
        { lblRequest Label
          Move(0,0,336,112)
          Text = ("")
          Alignment = Align.TopNormal
        }
      }
      { panData VBox
        Move(16,40,480,168)
        Visible = False
        { HBox1 HBox
          Move(120,16,304,24)
          { btnSaveData ToolButton
            Move(0,0,24,24)
            ToolTip = ("Export data")
            Text = ("")
            Picture = Picture["img/16/save.png"]
          }
          { btnCopyData ToolButton
            Move(24,0,24,24)
            ToolTip = ("Copy data in clipboard")
            Text = ("")
            Picture = Picture["img/16/copy.png"]
          }
          { lblCount Label
            Move(64,0,208,24)
            Expand = True
            Text = ("")
            Alignment = Align.Right
          }
          { Panel2 Panel
            Move(280,0,8,24)
          }
        }
        { tbvData TableView
          Move(96,56,216,96)
          Font = Font["8"]
          Expand = True
          Mode = TableView.Multi
        }
      }
    }
  }
}