luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[EXAMPLES]

Browse source 
* BUG: Fixed the Form.Refresh error.


git-svn-id: svn://localhost/gambas/trunk@5659 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
David Villalobos Cambronero 2013-05-15 20:22:06 +00:00
parent 913840b5b7
commit 5ebd7539da
2 changed files with 11 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
examples/examples/Database/MySQLExample/.src/FConnect.class
View file

@ -42,6 +42,5 @@ Public Sub Form_Close()
If txtServer.Text Then Settings["/Conecction/Host"] = txtServer.Text
If txtUser.Text Then Settings["/Conecction/User"] = txtUser.Text
If txtPort.Text Then Settings["/Conecction/Port"] = txtPort.Text
If Error Then Message.Error(Error.Text)
End

40
examples/examples/Database/MySQLExample/.src/FTables.class
View file

@ -92,10 +92,6 @@ End
Public Procedure SearchInfo() 'Search for the info in the database
Dim iCounter As Integer
Dim iCounter2 As Integer
Dim iPos As Integer = -1
Inc Application.Busy
tvwTables.Clear()
tvwTables.Rows.Count = 0
@ -700,7 +696,7 @@ Public Sub tvwTables_Save(Row As Integer, Column As Integer, Value As String)
modMain.$Connection.MySQL.Table.ModifyColumn(tvwTables[Row, 0].Text, "CHARACTER SET",, tvwTables[Row, 3].Text & " COLLATE " & Value)
Default
End Select
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Catch
modMain.Error()
@ -813,7 +809,7 @@ Public Sub tvwFields_Save(Row As Integer, Column As Integer, Value As String)
modMain.$Connection.MySQL.Table.ModifyColumn(tvwTables[tvwTables.Row, 0].Text, "MODIFY", tvwFields[Row, 1].Text, sDefinition)
Default
End Select
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Catch
modMain.Error()
@ -911,21 +907,21 @@ Public Sub Action_Activate(Name As String) As Boolean
Case "NewItem" 'tbtNew, F2
If tbtLock.Value Then Return
NewItem()
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Case "EditItem" 'tbtNew, Ctrl + E
If tbtLock.Value Then Return
EditItem()
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Case "DeleteItem" 'tbtDelete, Del
If tbtLock.Value Then Return
DeleteItem()
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Case "Refresh" 'F5, tbtRefresh
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Case "NewDatabase" 'tbtNewDatabase
modMain.$hFNewDatabase = New FNewDatabase
modMain.$hFNewDatabase.ShowModal()
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Form_Open()
Case "DeleteDatabase" 'tbtDeleteDatabase
If Message.Question(Subst(("Do you realy want to delete the database: <b>&1</b>?"), modMain.$Connection.Name), ("&Yes"), ("&No")) = 1 Then
@ -933,7 +929,7 @@ Public Sub Action_Activate(Name As String) As Boolean
modMain.$Connection.MySQL.Use("mysql")
Form_Open()
Endif
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
Case "Lock"
tbtDeleteDatabase.Enabled = Not tbtDeleteDatabase.Enabled
tbtNewDatabase.Enabled = Not tbtNewDatabase.Enabled
@ -986,7 +982,7 @@ Public Procedure NewItem()
modMain.$hFNewEvent.ShowModal()
Default
End Select
Refresh(tvwTables.Row, tabData.Index)
RefreshData(tvwTables.Row, tabData.Index)
End
@ -1039,7 +1035,7 @@ Public Procedure DeleteItem()
End
Public Procedure Refresh(Table As Integer, Tab As Integer)
Public Procedure RefreshData(Table As Integer, Tab As Integer)
textResult.Clear()
SearchInfo()
@ -1051,20 +1047,6 @@ Public Procedure Refresh(Table As Integer, Tab As Integer)
End
Private Function StripWhite(Text As String) As String
Dim asText As New String[]
Dim sWord As String
Dim sNewText As String
asText = Split(Text, " ")
For Each sWord In asText
If sWord <> "" Then sNewText &= sWord & " "
Next
Return Left(sNewText, -1)
End
Public Procedure SetEditor()
textResult.SetStyle()
@ -1107,7 +1089,7 @@ Public Sub tvwIndexes_DblClick()
modMain.Error()
End
'***************************** End of Procedures for indexes ******************
'***************************** End of Procedures for indexes *************************
'**************************** Procedures for sorting info ********************
Public Sub tvwFields_ColumnClick(Column As Integer)