[Gambas-user] new changes on my FRequest for gdm

[Charlie Reinl]

Salut,

for simple SQL-Requests which use WHERE and ORDER BY , now an loaded or 
written String can be returned to the Build Tab.

As I use the last changes in MySQL from Gerrard, I attached only 
FRequest.class and  FRequest.form.

I made changes on other classes, but I let the original _NEW outcomment in the 
classe. You have to make changes, to make it run.

Just make a copy of gdm from 
'<your_path_to_your_gambas_version>/app/gambas-database-manager'
and copy the two files into that copy.
Have a look on the beginning of  FRequest.class about the _NEW and make the 
changes.

Amicalement
Charlie

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

{ FRequest Form
  Move(31,72,638,392)
  Text = ("")
  Icon = Picture["img/16/sql.png"]
  { mnu1 Menu
    Text = ("nothing1")
    Visible = False
    { mnuDEL Menu
      Text = ("delete")
      Picture = Picture["img/16/delete.png"]
    }
  }
  { mnu2 Menu
    Text = ("nothing2")
    Visible = False
    { mnuADD Menu
      Text = ("add")
      Picture = Picture["img/16/copy.png"]
    }
  }
  { btnRun Button
    Move(0,0,24,24)
    ToolTip = ("Run")
    Text = ("")
    Picture = Picture["img/16/right-b.png"]
    Border = False
  }
  { btnFind Button
    Move(96,0,24,24)
    Visible = False
    ToolTip = ("Find")
    Text = ("")
    Picture = Picture["img/16/find.png"]
    Border = False
  }
  { btnNew Button
    Move(24,0,24,24)
    ToolTip = ("New request")
    Text = ("")
    Picture = Picture["img/16/new.png"]
    Border = False
  }
  { btnLoad Button
    Move(48,0,24,24)
    ToolTip = ("New request")
    Text = ("")
    Picture = Picture["img/16/open-file.png"]
    Border = False
  }
  { btnSave Button
    Move(72,0,24,24)
    ToolTip = ("New request")
    Text = ("")
    Picture = Picture["img/16/save.png"]
    Border = False
  }
  { TabStrip1 TabStrip
    Move(0,24,360,360)
    Count = 3
    Index = 0
    Text = ("&Build")
    { reqSplitter Splitter
      Move(8,8,328,288)
      Orientation = Splitter.Vertical
      { Frame1 Frame
        Move(8,16,312,96)
        Background = &HFFFFFF&
        Text = ("")
      }
      { Frame2 Frame
        Move(8,152,312,112)
        Background = &HFAFAFA&
        Text = ("")
        { cbxInput ComboBox
          Move(24,32,96,24)
          Visible = False
          Text = (" ")
        }
        { txtInput TextBox
          Move(184,40,72,16)
          Visible = False
          Text = ("TextBox1")
        }
      }
    }
    Index = 1
    Text = ("&SQL")
    { txtRequest TextArea
      Move(0,8,344,136)
      ToolTip = ("the request in this area will be executed")
      Text = ("")
      Wrap = True
    }
    { Button1 Button
      Move(0,152,72,16)
      Text = ("&get")
      Picture = Picture["img/16/down.png"]
    }
    { Button2 Button
      Move(80,152,72,16)
      Text = ("&set")
      Picture = Picture["img/16/up.png"]
    }
    { lbxRequestTest ListBox
      Move(0,176,336,144)
      ToolTip = ("this is your history, you can copy a line back up to the request area")
      Mode = ListBox.Extended
    }
    { Button3 Button
      Move(256,152,96,16)
      Text = ("clear history")
      Picture = Picture["img/16/delete.png"]
    }
    Index = 2
    Text = ("&Execute")
    { tbvData TableView
      Move(0,0,312,264)
      Mode = TableView.Single
    }
    Index = 0
  }
  { LabelWarn Label
    Move(288,0,352,24)
    Visible = False
    Foreground = &H120BD7&
    Text = ("")
  }
  { cbxTables ComboBox
    Move(216,0,160,16)
    Text = (" ")
  }
  { labTables Label
    Move(168,0,48,24)
    Text = ("Tables")
  }
}