AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: Add Tests for Filesystem module, flush on file write in Filesystem

Browse Source
This commit is contained in:
Jonathan Jenne
2018-11-19 16:29:26 +01:00
parent 83a63ff25d
commit 0f105b6ebf
13 changed files with 621 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
EDMDesigner/FrmMain.vb
View File

@@ -56,18 +56,19 @@ Public Class FrmMain
End Function
Private Sub Init()
_firebird = New Firebird(_logConfig, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
Try
_firebird = New Firebird(_logConfig, My.Settings.fbDatasource, My.Settings.fbDatabaseLocation, My.Settings.fbUser, My.Settings.fbPassword)
If _firebird.ConnectionFailed Then
MsgBox("Database connection failed. Please check the log.", vbCritical)
Exit Sub
End If
' Get info about the logged in user
'CurrentUser = New ClassCurrentUser(DBFirebird)
Dim dt As DataTable = LoadTables()
CreateTableNodesFromDatatable(dt, _firebird.DatabaseName)
Catch ex As Exception
MsgBox(ex.Message)
End Try
' Get info about the logged in user
'CurrentUser = New ClassCurrentUser(DBFirebird)
Dim dt As DataTable = LoadTables()
CreateTableNodesFromDatatable(dt, _firebird.DatabaseName)
End Sub