edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mailsender, Startopt

Browse Source
This commit is contained in:
d.breimaier
2024-11-21 10:29:21 +01:00
parent 391839c081
commit 91979cf239
8 changed files with 1518 additions and 671 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
UID/frmMain.vb
View File

@@ -215,7 +215,7 @@ Public Class frmMain
button_Click(sender)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub btnDatenarchiv_Click(sender As Object, e As EventArgs) Handles btnDatenarchiv.Click
clrPnlMain()
Dim usrCntl As New usrCntlDatenarchiv("tblPartnersystem_Paramter", "FMZOLL")
pnlMain.Controls.Add(usrCntl)
@@ -223,8 +223,16 @@ Public Class frmMain
button_Click(sender)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAPIZugang.Click
Dim f = New frmAPIZugaenge("tblRESTAuthentication", "ADMIN")
f.Show()
End Sub
Private Sub btnMailroutine_Click(sender As Object, e As EventArgs) Handles btnMailroutine.Click
clrPnlMain()
Dim usrCntl As New usrCntlDatenarchiv("tblMailsender", "ADMIN")
pnlMain.Controls.Add(usrCntl)
usrCntl.Dock = DockStyle.Fill
button_Click(sender)
End Sub
End Class