MS_23.11
This commit is contained in:
SchreiberM
parent
25a97a09e2
commit
a7ea2277c5
@ -81,6 +81,8 @@ Public Class ClassInit
|
||||
Throw New Exception("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
|
||||
'Me.Close()
|
||||
Else
|
||||
'Am System anmelden
|
||||
ClassLicence.Refresh_Licence()
|
||||
'Am System anmelden
|
||||
sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
|
||||
sql = sql.Replace("@LogInOut", 1)
|
||||
@ -105,6 +107,21 @@ Public Class ClassInit
|
||||
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'RECORD_ORGANIZER'"
|
||||
Dim anzahl = ClassDatabase.Execute_Scalar(sql)
|
||||
USERS_LOGGED_IN = CInt(anzahl)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
|
||||
'####
|
||||
|
||||
If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then
|
||||
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Record-Organizer!", False)
|
||||
If USER_IS_ADMIN = False Then
|
||||
'Anmeldung wieder herausnehmen
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
ClassLogger.Add(" - Wieder abgemeldet", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
|
||||
End If
|
||||
End If
|
||||
|
||||
@ -158,6 +158,9 @@
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<Private>True</Private>
|
||||
</Reference>
|
||||
<Reference Include="DLLLicenseManager">
|
||||
<HintPath>..\..\..\..\Bibliotheken\DLL\DLLLicenseManager.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Independentsoft.Msg">
|
||||
<HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>
|
||||
</Reference>
|
||||
@ -234,6 +237,7 @@
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="ClassLicence.vb" />
|
||||
<Compile Include="frmAbout.designer.vb">
|
||||
<DependentUpon>frmAbout.vb</DependentUpon>
|
||||
</Compile>
|
||||
@ -315,6 +319,18 @@
|
||||
<Compile Include="frmForm_Constructor_Main.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmLicense.designer.vb">
|
||||
<DependentUpon>frmLicense.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmLicense.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmLicense_Login.Designer.vb">
|
||||
<DependentUpon>frmLicense_Login.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmLicense_Login.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmLogin.Designer.vb">
|
||||
<DependentUpon>frmLogin.vb</DependentUpon>
|
||||
</Compile>
|
||||
@ -560,6 +576,9 @@
|
||||
<EmbeddedResource Include="frmForm_Constructor_Main.resx">
|
||||
<DependentUpon>frmForm_Constructor_Main.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmLicense.resx">
|
||||
<DependentUpon>frmLicense.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmLogin.resx">
|
||||
<DependentUpon>frmLogin.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@ -962,6 +981,7 @@
|
||||
<None Include="Resources\brick.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\key_go1.png" />
|
||||
<None Include="Resources\keinbild.png" />
|
||||
<None Include="Resources\page_white_office1.png" />
|
||||
<None Include="Resources\windream-Logo-transparent.png" />
|
||||
|
||||
@ -39,4 +39,9 @@
|
||||
Public JUMP_RECORD_ID As Integer
|
||||
|
||||
Public TEMP_FILES As List(Of String) = New List(Of String)
|
||||
|
||||
Public LICENSE_EXPIRED As Boolean = False
|
||||
Public LICENSE_COUNT As Integer = 0
|
||||
Public LICENSE_DOSSIER_COUNT As Integer = 0
|
||||
|
||||
End Module
|
||||
|
||||
@ -1020,6 +1020,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property key_go1() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("key_go1", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
||||
@ -136,8 +136,8 @@
|
||||
<data name="DD_Icons-ADDI" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Home_5699_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="brainpool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -187,9 +187,6 @@
|
||||
<data name="userAccounts" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\userAccounts.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="user_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\user_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -229,9 +226,15 @@
|
||||
<data name="table" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="page_excel" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="dtp" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -286,6 +289,9 @@
|
||||
<data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -352,6 +358,9 @@
|
||||
<data name="bug_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\bug_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="page_white_office1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\page_white_office1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="database_gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -382,17 +391,14 @@
|
||||
<data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Task_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Task_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="database_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -406,9 +412,6 @@
|
||||
<data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="brainpool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -430,8 +433,8 @@
|
||||
<data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Table_748" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="Home_5699_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="table_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\table_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -466,11 +469,8 @@
|
||||
<data name="folder_Open_32xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\folder_Open_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="note_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\note_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -481,12 +481,18 @@
|
||||
<data name="page_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Table_748" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Men4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Men4.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="keinbild" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\keinbild.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
@ -526,8 +532,8 @@
|
||||
<data name="138_PushPin_32x42_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\138_PushPin_32x42_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="database_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\database_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@ -544,10 +550,7 @@
|
||||
<data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="page_white_office1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\page_white_office1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="keinbild" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\keinbild.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="key_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\key_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
@ -469,7 +469,7 @@ Partial Class frmForm_Constructor_Main
|
||||
Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
|
||||
Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
|
||||
Me.TabWindream.Name = "TabWindream"
|
||||
Me.TabWindream.Size = New System.Drawing.Size(1060, 312)
|
||||
Me.TabWindream.Size = New System.Drawing.Size(1063, 316)
|
||||
Me.TabWindream.Text = "windream-Dateien"
|
||||
'
|
||||
'AxObjectListControl
|
||||
@ -480,7 +480,7 @@ Partial Class frmForm_Constructor_Main
|
||||
Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
|
||||
Me.AxObjectListControl.Name = "AxObjectListControl"
|
||||
Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
|
||||
Me.AxObjectListControl.Size = New System.Drawing.Size(1060, 287)
|
||||
Me.AxObjectListControl.Size = New System.Drawing.Size(1063, 291)
|
||||
Me.AxObjectListControl.TabIndex = 6
|
||||
Me.AxObjectListControl.TabStop = False
|
||||
'
|
||||
@ -489,7 +489,7 @@ Partial Class frmForm_Constructor_Main
|
||||
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
|
||||
Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStripDokumente.Name = "ToolStripDokumente"
|
||||
Me.ToolStripDokumente.Size = New System.Drawing.Size(1060, 25)
|
||||
Me.ToolStripDokumente.Size = New System.Drawing.Size(1063, 25)
|
||||
Me.ToolStripDokumente.TabIndex = 2
|
||||
Me.ToolStripDokumente.Text = "ToolStrip2"
|
||||
'
|
||||
@ -523,7 +523,7 @@ Partial Class frmForm_Constructor_Main
|
||||
Me.TabFollowUp.Controls.Add(Me.ListViewFollowUp)
|
||||
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
|
||||
Me.TabFollowUp.Name = "TabFollowUp"
|
||||
Me.TabFollowUp.Size = New System.Drawing.Size(1060, 312)
|
||||
Me.TabFollowUp.Size = New System.Drawing.Size(1063, 316)
|
||||
Me.TabFollowUp.Text = "Wiedervorlage"
|
||||
'
|
||||
'grpbxFU_Profile
|
||||
|
||||
87
app/DD-Record-Organiser/frmLicense_Login.Designer.vb
generated
Normal file
87
app/DD-Record-Organiser/frmLicense_Login.Designer.vb
generated
Normal file
@ -0,0 +1,87 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmLicense_Login
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
|
||||
Me.OK_Button = New System.Windows.Forms.Button
|
||||
Me.Cancel_Button = New System.Windows.Forms.Button
|
||||
Me.TableLayoutPanel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TableLayoutPanel1
|
||||
'
|
||||
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.TableLayoutPanel1.ColumnCount = 2
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
|
||||
Me.TableLayoutPanel1.Location = New System.Drawing.Point(277, 274)
|
||||
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
|
||||
Me.TableLayoutPanel1.RowCount = 1
|
||||
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
|
||||
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
|
||||
Me.TableLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'OK_Button
|
||||
'
|
||||
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
|
||||
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
|
||||
Me.OK_Button.Name = "OK_Button"
|
||||
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
|
||||
Me.OK_Button.TabIndex = 0
|
||||
Me.OK_Button.Text = "OK"
|
||||
'
|
||||
'Cancel_Button
|
||||
'
|
||||
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
|
||||
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
|
||||
Me.Cancel_Button.Name = "Cancel_Button"
|
||||
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
|
||||
Me.Cancel_Button.TabIndex = 1
|
||||
Me.Cancel_Button.Text = "Abbrechen"
|
||||
'
|
||||
'frmLicense_Login
|
||||
'
|
||||
Me.AcceptButton = Me.OK_Button
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.CancelButton = Me.Cancel_Button
|
||||
Me.ClientSize = New System.Drawing.Size(435, 315)
|
||||
Me.Controls.Add(Me.TableLayoutPanel1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmLicense_Login"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "frmLicense_Login"
|
||||
Me.TableLayoutPanel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
|
||||
Friend WithEvents OK_Button As System.Windows.Forms.Button
|
||||
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
|
||||
|
||||
End Class
|
||||
15
app/DD-Record-Organiser/frmLicense_Login.vb
Normal file
15
app/DD-Record-Organiser/frmLicense_Login.vb
Normal file
@ -0,0 +1,15 @@
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmLicense_Login
|
||||
|
||||
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
||||
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
|
||||
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
7
app/DD-Record-Organiser/frmMain.Designer.vb
generated
7
app/DD-Record-Organiser/frmMain.Designer.vb
generated
@ -69,6 +69,7 @@ Partial Class frmMain
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components)
|
||||
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
|
||||
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -445,6 +446,10 @@ Partial Class frmMain
|
||||
Me.BarButtonItem11.Name = "BarButtonItem11"
|
||||
Me.BarButtonItem11.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
|
||||
'
|
||||
'TimerClose3Minutes
|
||||
'
|
||||
Me.TimerClose3Minutes.Interval = 180000
|
||||
'
|
||||
'frmMain
|
||||
'
|
||||
Me.Appearance.BackColor = System.Drawing.Color.White
|
||||
@ -458,6 +463,7 @@ Partial Class frmMain
|
||||
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.IsMdiContainer = True
|
||||
Me.KeyPreview = True
|
||||
Me.Name = "frmMain"
|
||||
Me.Ribbon = Me.ribbonMain
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
@ -515,5 +521,6 @@ Partial Class frmMain
|
||||
Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents groupQuickAccessDemo As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer
|
||||
|
||||
End Class
|
||||
|
||||
@ -1687,6 +1687,9 @@
|
||||
<metadata name="DefaultLookAndFeel1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>242, 17</value>
|
||||
</metadata>
|
||||
<metadata name="TimerClose3Minutes.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1365, 17</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA
|
||||
|
||||
@ -349,6 +349,39 @@ Public Class frmMain
|
||||
OpenFormConstructor(Sett_ConstructorStart)
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
'Lizenz abgellaufen, überprüfen ob User Admin ist
|
||||
If LICENSE_COUNT < USERS_LOGGED_IN Then
|
||||
If USER_IS_ADMIN = True Then
|
||||
ClassLogger.Add(">> User is Admin - Timer will be started", False)
|
||||
'If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
|
||||
'Else
|
||||
' MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
|
||||
'End If
|
||||
|
||||
'Timer starten
|
||||
If TimerClose3Minutes.Enabled = False Then
|
||||
TimerClose3Minutes.Start()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
|
||||
' If CURRENT_USER_IS_ADMIN = True Then
|
||||
' ClassLogger.Add(">> User is Admin - Timer will be started", False)
|
||||
' If USER_LANGUAGE = "de-DE" Then
|
||||
' MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
|
||||
' Else
|
||||
' MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
|
||||
' End If
|
||||
|
||||
' 'Timer starten
|
||||
' If TimerClose3Minutes.Enabled = False Then
|
||||
' TimerClose3Minutes.Start()
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Workflow_Taskmanagement_Click(sender As Object, e As EventArgs) Handles NotifyIcon1.Click
|
||||
@ -467,4 +500,28 @@ Public Class frmMain
|
||||
Private Sub BarButtonItem17_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem17.ItemClick
|
||||
OpenTemplatemanagement()
|
||||
End Sub
|
||||
|
||||
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
|
||||
If LICENSE_EXPIRED = True Or LICENSE_COUNT < USERS_LOGGED_IN Then
|
||||
'If USER_LANGUAGE = "de-DE" Then
|
||||
' MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
|
||||
'Else
|
||||
MsgBox("Global Indexer will now be closed, cause no new license was updated!", MsgBoxStyle.Information)
|
||||
'End If
|
||||
Me.Close()
|
||||
Else
|
||||
TimerClose3Minutes.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
|
||||
Select Case e.KeyCode
|
||||
Case Keys.F12
|
||||
Try
|
||||
frmLicense.ShowDialog()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user