JJ für MS 09.11

app/DD-Record-Organiser/frmConstructorDesigner.vb

@@ -1,4 +1,7 @@
-Public Class frmConstructorDesigner
+Imports DevExpress.XtraGrid.Views.Tile
+Imports DevExpress.XtraEditors
+
+Public Class frmConstructorDesigner
     Dim SELECTED_ENTITY_ID As Integer
     Dim SELECTED_CONSTRUCTOR_DETAIL_ID As Integer
     Dim formloaded As Boolean = False
@@ -61,8 +64,8 @@
         End Try
         Select Case XtraTabControl2.SelectedTabPageIndex
             Case 0
+                Me.btnSetHeadline.Visible = False
                 Load_QuickDisplay()
-                
             Case 2
                 RecordSearch_Config()
         End Select
@@ -79,11 +82,25 @@
             listBoxControls.DisplayMember = DT.Columns(1).ColumnName
             listBoxControls.ValueMember = DT.Columns(0).ColumnName
 
-            Dim DT2 = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID, "LOAD QUICKDISPLAY")
+            Dim DT2 = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID <> 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " ORDER BY T.SEQUENCE", "LOAD QUICKDISPLAY")
             ListBoxConfiguredDisplay.DataSource = DT2
             ListBoxConfiguredDisplay.DisplayMember = DT2.Columns(1).ColumnName
             ListBoxConfiguredDisplay.ValueMember = DT2.Columns(0).ColumnName
 
+            Dim DT3 As DataTable = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 AND T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID, "LOAD QUICKDISPLAY PICTURE")
+            If DT3.Rows.Count = 1 Then
+                Me.txtQuickViewPicture.Text = DT3.Rows(0).Item(1)
+                Me.txtQuickViewPicture.Tag = DT3.Rows(0).Item(0)
+            Else
+                Me.txtQuickViewPicture.Text = "NOT CONFIGURED"
+                Me.txtQuickViewPicture.Tag = Nothing
+            End If
+            Try
+                Me.TBTEMP_QUICKDISPLAYTableAdapter.Connection.ConnectionString = MyConnectionString
+                Me.TBTEMP_QUICKDISPLAYTableAdapter.Fill(Me.DD_DMSDataSet.TBTEMP_QUICKDISPLAY, SELECTED_CONSTRUCTOR_DETAIL_ID)
+            Catch ex As System.Exception
+                MsgBox("Error in Load_Preview_QuickDisplay:" & vbNewLine & ex.Message)
+            End Try
         Catch ex As Exception
             MsgBox("Error Load_QuickDisplay:" & vbNewLine & ex.Message)
         End Try
@@ -232,6 +249,7 @@
                 Me.tslblSaveDetail.Visible = False
                 Load_Detail(construct_id)
                 lblSave1.Visible = False
+
             End If
         Catch ex As Exception
             MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -361,7 +379,7 @@
         Catch ex As Exception
             MsgBox("Error in Checked Change WD-Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-       
+
     End Sub
 
     Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
@@ -386,4 +404,122 @@
             MsgBox("Error in Adding Control to Quick-Display: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    Private Sub btndeleteControl_Click(sender As Object, e As EventArgs) Handles btndeleteControl.Click
+        Try
+            Dim i = ListBoxConfiguredDisplay.SelectedValue
+            If Not IsNothing(i) Then
+                Dim delete = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY  WHERE GUID = " & i
+                If ClassDatabase.Execute_non_Query(delete, True) Then
+                    Load_QuickDisplay()
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Deleting Control from Quick-Display: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub ListBoxConfiguredDisplay_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxConfiguredDisplay.SelectedIndexChanged
+        lblChangeHeadline.Visible = False
+        If ListBoxConfiguredDisplay.SelectedIndex <> -1 Then
+            Try
+                Dim txt As String = ListBoxConfiguredDisplay.Text
+                Me.btnSetHeadline.Text = "Set '" & txt & "'" & vbNewLine & "as Headline"
+                Me.btnSetHeadline.Visible = True
+            Catch ex As Exception
+
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub btnSetHeadline_Click(sender As Object, e As EventArgs) Handles btnSetHeadline.Click
+        Dim upd = "UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1, CHANGED_WHO = '" & Environment.UserName & "' WHERE GUID = " & ListBoxConfiguredDisplay.SelectedValue
+        If ClassDatabase.Execute_non_Query(upd, True) Then
+            lblChangeHeadline.Visible = True
+        End If
+    End Sub
+
+    Private Sub btnSetQuickViewPicture_Click(sender As Object, e As EventArgs) Handles btnSetQuickViewPicture.Click
+        Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)"
+        If ClassDatabase.Execute_non_Query(DEL, True) Then
+            Try
+                Dim i = listBoxControls.SelectedValue
+                If Not IsNothing(i) Then
+                    Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",'" & Environment.UserName & "')"
+                    If ClassDatabase.Execute_non_Query(insert, True) Then
+                        Load_QuickDisplay()
+                        lblQuickViewAdded.Visible = True
+                    Else
+                        lblQuickViewAdded.Visible = False
+                    End If
+                End If
+            Catch ex As Exception
+                MsgBox("Error in Adding Control to Quick-Display: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                lblQuickViewAdded.Visible = False
+            End Try
+        End If
+    End Sub
+
+    Private Sub listBoxControls_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listBoxControls.SelectedIndexChanged
+        If listBoxControls.SelectedIndex <> -1 Then
+            Try
+                Dim i = listBoxControls.SelectedValue
+                If i.ToString.Contains("DataRowV") Then Exit Sub
+                If Not IsNothing(i) Then
+                    Dim count = ClassDatabase.Execute_Scalar("SELECT COUNT(T1.GUID) FROM TBPMO_CONTROL T1 WHERE T1.CONTROL_TYPE_ID = 6 and T1.GUID = " & i, True)
+                    If count = 1 Then
+                        Me.btnSetQuickViewPicture.Visible = True
+                    Else
+                        Me.btnSetQuickViewPicture.Visible = False
+                    End If
+                End If
+                lblQuickViewAdded.Visible = False
+            Catch ex As Exception
+                MsgBox("Error in CHECK CONTROL IS PICTURE: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                Me.btnSetQuickViewPicture.Visible = False
+            End Try
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim DEL As String = "DELETE FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & " AND CONTROL_ID in (SELECT GUID FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 6)"
+        If ClassDatabase.Execute_non_Query(DEL, True) Then
+            Load_QuickDisplay()
+        End If
+    End Sub
+    Sub CreateTile()
+        GridControl1.DataSource = CreateTable(1)
+        TileView1.OptionsTiles.Orientation = Orientation.Horizontal
+
+        TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon
+        TileView1.AppearanceItem.Hovered.ForeColor = Color.Red
+
+        TileView1.ColumnSet.BackgroundImageColumn = TileView1.Columns("Image")
+        TileView1.OptionsTiles.ItemBackgroundImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
+        TileView1.OptionsTiles.ItemBackgroundImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
+        TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns("Date"), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(150, 100)})
+        Try
+            TryCast(TileView1.TileTemplate(0), TileViewItemElement).Column = TileView1.Columns("Name")
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+    Private Function CreateTable(ByVal rowCount As Integer) As DataTable
+        Dim tbl As New DataTable()
+        tbl.Columns.Add("Name", GetType(String))
+        tbl.Columns.Add("ID", GetType(Integer))
+        tbl.Columns.Add("Image", GetType(Image))
+        tbl.Columns.Add("Date", GetType(Date))
+        For i As Integer = 0 To rowCount - 1
+            tbl.Rows.Add(New Object() {String.Format("Name{0}", i), i, ImageCollection1.Images(i Mod 4), Date.Now.AddDays(i - 3)})
+        Next i
+        Return tbl
+    End Function
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        CreateTile()
+    End Sub
 End Class