You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
230 lines
12 KiB
230 lines
12 KiB
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 |