46 lines
695 B
Text
46 lines
695 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Private $bEdit As Boolean = False
|
||
|
|
|
||
|
|
Public Sub _new(Optional View As String)
|
||
|
|
|
||
|
|
If View Then
|
||
|
|
txtName.Text = View
|
||
|
|
$bEdit = True
|
||
|
|
txtData.Text = modMain.$Connection.MySQL.View.Definition(txtName.Text) & "\n"
|
||
|
|
Endif
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
|
||
|
|
If $bEdit Then
|
||
|
|
Me.Text = ("Edit View")
|
||
|
|
lblTitle.Text = Me.Text
|
||
|
|
txtName.Enabled = False
|
||
|
|
Endif
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnCancel_Click()
|
||
|
|
|
||
|
|
Me.Close()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub tbnOK_Click()
|
||
|
|
|
||
|
|
modMain.$Connection.MySQL.View.Add(txtName.Text, txtData.Text, $bEdit)
|
||
|
|
Me.Close()
|
||
|
|
Catch
|
||
|
|
modMain.Error()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnClue_Click()
|
||
|
|
|
||
|
|
txtName.Text = "FooView"
|
||
|
|
txtData.Text = "SELECT * FROM `mysql`.`user`"
|
||
|
|
|
||
|
|
End
|