Initial
This commit is contained in:
230
EDOKA/Systemadministration/Diverses/FrmBarcodeDefinition.vb
Normal file
230
EDOKA/Systemadministration/Diverses/FrmBarcodeDefinition.vb
Normal file
@@ -0,0 +1,230 @@
|
||||
Imports System.Data.Sql
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class FrmBarcodeDefinition
|
||||
|
||||
Dim m_officevorlagenr As Integer
|
||||
Property Office_Voralgenr As Integer
|
||||
Get
|
||||
Return m_officevorlagenr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_officevorlagenr = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim BarcodeType As Integer = 0
|
||||
Dim DatamatrixContent As String
|
||||
Dim DatamatrixDelimiter As String
|
||||
Dim datamatrixformat As Integer = 0
|
||||
Dim datamatrixbeschriftung As String
|
||||
Dim vorlagenfeldregeln As New DataTable
|
||||
Dim DatamatrixFontname As String
|
||||
Dim Datamatrixfontsize As String
|
||||
Dim BarcodeKantenlaenge As String
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(ByVal officevorlagenr As Integer)
|
||||
Me.InitializeComponent()
|
||||
Me.Office_Voralgenr = officevorlagenr
|
||||
End Sub
|
||||
|
||||
Private Sub FrmBarcodeDefinition_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Get_BarcodeData()
|
||||
If Me.BarcodeType = 0 Then
|
||||
Me.ComboBox1.SelectedIndex = 0
|
||||
Me.TextBox1.Text = ""
|
||||
Me.TextBox1.Enabled = False
|
||||
Me.TextBox2.Text = "&Dokumentid"
|
||||
Me.TextBox2.Enabled = False
|
||||
Me.TextBox3.Text = ""
|
||||
Me.TextBox4.Text = ""
|
||||
Me.TextBox3.Enabled = False
|
||||
Me.ComboBox2.Enabled = False
|
||||
Me.ComboBox3.Enabled = False
|
||||
Me.txtFontname.Enabled = False
|
||||
Else
|
||||
Me.ComboBox1.SelectedIndex = 1
|
||||
Me.TextBox1.Text = Me.DatamatrixDelimiter
|
||||
Me.TextBox1.Enabled = True
|
||||
Me.TextBox2.Text = DatamatrixContent
|
||||
Me.TextBox2.Enabled = True
|
||||
Me.TextBox3.Enabled = True
|
||||
Me.TextBox3.Text = Me.datamatrixbeschriftung
|
||||
Me.ComboBox2.SelectedIndex = Me.datamatrixformat
|
||||
Me.ComboBox2.Enabled = True
|
||||
Me.ComboBox3.Enabled = True
|
||||
Me.txtFontname.Enabled = True
|
||||
Me.txtFontname.Text = Me.DatamatrixFontname
|
||||
Me.ComboBox3.Text = Me.Datamatrixfontsize
|
||||
Me.TextBox4.Text = Me.BarcodeKantenlaenge
|
||||
End If
|
||||
vorlagenfeldregeln = get_vorlagenfeldregeln()
|
||||
ListView1.Columns.Clear()
|
||||
ListView1.Columns.Add("Bezeichnung", 100)
|
||||
ListView1.Columns.Add("Datenherkunft", 100)
|
||||
ListView1.Columns.Add("Userinterface", 50)
|
||||
Dim tmpstr(2) As String
|
||||
|
||||
For Each r As DataRow In vorlagenfeldregeln.Rows
|
||||
tmpstr(0) = r.Item("Bezeichnung")
|
||||
tmpstr(1) = r.Item("Datenherkunft")
|
||||
tmpstr(2) = r.Item("UserInterface")
|
||||
Dim TempNode = New ListViewItem(tmpstr)
|
||||
ListView1.Items.Add(TempNode)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Get_BarcodeData()
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.sp_get_barcodedefinition"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@officevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Office_Voralgenr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Barcodetype", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixContent", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixDelimiter", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixformat", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixbeschriftung", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixfontname", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixfontsize", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixkantenlaenge", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
|
||||
conn.OpenConnection()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Me.BarcodeType = scmCmdToExecute.Parameters("@barcodetype").Value.ToString
|
||||
Me.DatamatrixContent = scmCmdToExecute.Parameters("@datamatrixcontent").Value.ToString
|
||||
Me.DatamatrixDelimiter = scmCmdToExecute.Parameters("@datamatrixdelimiter").Value.ToString
|
||||
Me.datamatrixformat = scmCmdToExecute.Parameters("@datamatrixformat").Value.ToString
|
||||
Me.datamatrixbeschriftung = scmCmdToExecute.Parameters("@datamatrixbeschriftung").Value.ToString
|
||||
Me.DatamatrixFontname = scmCmdToExecute.Parameters("@datamatrixfontname").Value.ToString
|
||||
Me.Datamatrixfontsize = scmCmdToExecute.Parameters("@datamatrixfontsize").Value.ToString
|
||||
Me.BarcodeKantenlaenge = scmCmdToExecute.Parameters("@datamatrixkantenlaenge").Value.ToString
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception(".sp_get_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
conn.CloseConnection(True)
|
||||
scmCmdToExecute.Dispose()
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Function get_vorlagenfeldregeln() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim da As New SqlDataAdapter(scmCmdToExecute)
|
||||
Dim dt As New DataTable
|
||||
scmCmdToExecute.CommandText = "dbo.sp_get_vorlagenfledregel"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
conn.OpenConnection()
|
||||
da.Fill(dt)
|
||||
Return dt
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception(".sp_get_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
conn.CloseConnection(True)
|
||||
scmCmdToExecute.Dispose()
|
||||
da.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(sender As Object, e As ToolBarButtonClickEventArgs)
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
||||
If Me.ComboBox1.SelectedIndex = 0 Then
|
||||
Me.TextBox1.Text = ""
|
||||
Me.TextBox1.Enabled = False
|
||||
Me.TextBox2.Text = "Dokumentid"
|
||||
Me.TextBox2.Enabled = False
|
||||
Me.PictureBox1.Visible = True
|
||||
Me.PictureBox2.Visible = False
|
||||
Me.TextBox2.Enabled = False
|
||||
Me.TextBox3.Text = ""
|
||||
Me.TextBox3.Enabled = False
|
||||
Me.ComboBox2.Enabled = False
|
||||
Me.txtFontname.Enabled = False
|
||||
Me.ComboBox3.Enabled = False
|
||||
Else
|
||||
If Me.TextBox1.Text = "" Then Me.TextBox1.Text = ";"
|
||||
Me.TextBox1.Text = Me.DatamatrixDelimiter
|
||||
Me.TextBox1.Enabled = True
|
||||
Me.TextBox2.Text = DatamatrixContent
|
||||
Me.TextBox2.Enabled = True
|
||||
Me.PictureBox1.Visible = False
|
||||
Me.PictureBox2.Visible = True
|
||||
Me.TextBox3.Enabled = True
|
||||
Me.ComboBox2.SelectedIndex = Me.datamatrixformat
|
||||
Me.ComboBox2.Enabled = True
|
||||
Me.txtFontname.Enabled = True
|
||||
Me.ComboBox3.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
|
||||
If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
|
||||
Me.TextBox2.Text = Me.TextBox2.Text + "&" + Me.ListBox1.SelectedItem
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
|
||||
Dim tmpstr(2) As String
|
||||
tmpstr(0) = ListView1.SelectedItems(0).SubItems(0).Text
|
||||
tmpstr(1) = ListView1.SelectedItems(0).SubItems(1).Text()
|
||||
tmpstr(2) = ListView1.SelectedItems(0).SubItems(2).Text()
|
||||
If tmpstr(2) = "True" Then
|
||||
If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
|
||||
Me.TextBox2.Text = Me.TextBox2.Text + tmpstr(1) & "_UI"
|
||||
|
||||
Else
|
||||
If Me.TextBox2.Text <> "" Then Me.TextBox2.Text = Me.TextBox2.Text + Me.TextBox1.Text
|
||||
Me.TextBox2.Text = Me.TextBox2.Text + tmpstr(1)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.sp_save_barcodedefinition"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@officevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Office_Voralgenr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Barcodetype", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox1.SelectedIndex))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixContent", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox2.Text))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixDelimiter", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox1.Text))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixformat", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox2.SelectedIndex))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datamatrixbeschriftung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox3.Text))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixFontName", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtFontname.Text))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@DatamatrixFontSize", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ComboBox3.Text))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@datamatrixkantenlaenge", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.TextBox4.Text))
|
||||
conn.OpenConnection()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
Throw New Exception("sp_save_barcodedefinitioN::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
conn.CloseConnection(True)
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user