shu/EDKB08_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial

Browse Source
This commit is contained in:
Stefan Hutter
2022-12-27 08:48:16 +01:00
commit cd4d5f55f1
143 changed files with 26392 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
edkb08/Datenbank/db_connection.vb Normal file
View File

@@ -0,0 +1,43 @@
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Namespace edokadb
Public Class DB_Connection
Shared Sub New()
'Edoka
oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "edokaconn.cfg")
sConnectionString_edoka = oread.ReadLine
'sConnectionString_edoka = Crypto.DecryptText(sConnectionString, "HutterundMueller")
'sConnectionString_edoka = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString_edoka = sConnectionString_edoka
oread.Close()
'Journale
oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "journaleconn.cfg")
sConnectionString_journale = oread.ReadLine
'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString_journale = sConnectionString_journale
oread.Close()
'Journale für Mailversand
oread = System.IO.File.OpenText(DivFnkt.ApplicationPath + "journaleconn_Mail.cfg")
sConnectionString_journale_mail = oread.ReadLine
'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString_journale_mail = sConnectionString_journale_Mail
oread.Close()
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
Globals.conn_journale.sConnectionString = sConnectionString_journale
Globals.conn_journale_Mail.sConnectionString = sConnectionString_journale_Mail
End Sub
End Class
End Namespace