66 lines
1.6 KiB
Text
66 lines
1.6 KiB
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Private $sRutine As String
|
||
|
|
Private $bEdit As Boolean = False
|
||
|
|
|
||
|
|
Public Sub _new(Optional Rutine As String)
|
||
|
|
|
||
|
|
If Rutine Then
|
||
|
|
$sRutine = Rutine
|
||
|
|
$bEdit = True
|
||
|
|
Endif
|
||
|
|
txtName.Text = $sRutine
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
|
||
|
|
If $bEdit Then
|
||
|
|
Me.Text = ("Edit Routine")
|
||
|
|
lblTitle.Text = Me.Text
|
||
|
|
txtName.Enabled = False
|
||
|
|
txtParameters.Text = modMain.$Connection.MySQL.Routines.Parameters($sRutine)
|
||
|
|
txtReturns.Text = modMain.$Connection.MySQL.Routines.Returns($sRutine)
|
||
|
|
txtData.Text = modMain.$Connection.MySQL.Routines.Definition($sRutine)
|
||
|
|
Else
|
||
|
|
txtData.Text = "BEGIN\n \nEND"
|
||
|
|
Endif
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnCancel_Click()
|
||
|
|
|
||
|
|
Me.Close()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub tbnOK_Click()
|
||
|
|
|
||
|
|
If $bEdit Then
|
||
|
|
modMain.$Connection.MySQL.Routines.Modify($sRutine, txtData.Text, Split(Trim(txtParameters.Text)), txtReturns.Text)
|
||
|
|
Else
|
||
|
|
modMain.$Connection.MySQL.Routines.Add(txtName.Text, txtData.Text, Split(Trim(txtParameters.Text)), txtReturns.Text)
|
||
|
|
Endif
|
||
|
|
Me.Close()
|
||
|
|
Catch
|
||
|
|
modMain.Error()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnClue_Click()
|
||
|
|
|
||
|
|
If txtName.Text = "FooProcedure" Then
|
||
|
|
txtName.Text = "FooFunction"
|
||
|
|
txtParameters.Text = "Param1 INT,Param2 VARCHAR(200)"
|
||
|
|
txtReturns.Text = "INT"
|
||
|
|
txtData.Text = "BEGIN\n SELECT `User` FROM `mysql`.`user` WHERE `User` = `Param2`;\n"
|
||
|
|
txtData.Text &= " RETURN `Param1`\nEND"
|
||
|
|
Else
|
||
|
|
txtName.Text = "FooProcedure"
|
||
|
|
txtParameters.Text = "Param1 INT,Param2 VARCHAR(200)"
|
||
|
|
txtReturns.Text = ""
|
||
|
|
txtData.Text = "BEGIN\n SELECT `User` FROM `mysql`.`user` WHERE `User` = `Param2`;\nEND"
|
||
|
|
Endif
|
||
|
|
|
||
|
|
End
|