101 lines
4.4 KiB
VB.net
101 lines
4.4 KiB
VB.net
Public Class frmNIMoveRename
|
|
Private Sub TBTC_MOVE_RENAMEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub tsbtnAdd_Click(sender As Object, e As EventArgs) Handles tsbtnAdd.Click
|
|
Try
|
|
Me.MyDataset.TBTC_MOVE_RENAME.CREATED_WHOColumn.DefaultValue = Environment.UserName
|
|
Me.MyDataset.TBTC_MOVE_RENAME.PROFILE_NAMEColumn.DefaultValue = CURRENT_PROFILENAME
|
|
TBTC_MOVE_RENAMEBindingSource.AddNew()
|
|
FOLDER_FOR_INDEXTextBox.Enabled = True
|
|
NAMECONVENTIONTextBox.Enabled = True
|
|
ACTIVECheckBox.Enabled = True
|
|
Button1.Enabled = True
|
|
Button2.Enabled = True
|
|
Catch ex As Exception
|
|
MsgBox("Unexpected error in tsbtnAdd.Click: " & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub frmNIMoveRename_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
LoadData
|
|
End Sub
|
|
Sub LoadData()
|
|
Try
|
|
TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DDECMConString
|
|
Me.TBTC_MOVE_RENAMETableAdapter.Fill(Me.MyDataset.TBTC_MOVE_RENAME, CURRENT_PROFILENAME)
|
|
If Me.MyDataset.TBTC_MOVE_RENAME.Rows.Count = 1 Then
|
|
tsbtnAdd.Enabled = False
|
|
tsbtndelete.Enabled = True
|
|
FOLDER_FOR_INDEXTextBox.Enabled = True
|
|
NAMECONVENTIONTextBox.Enabled = True
|
|
ACTIVECheckBox.Enabled = True
|
|
Button1.Enabled = True
|
|
Button2.Enabled = True
|
|
Else
|
|
tsbtnAdd.Enabled = True
|
|
tsbtndelete.Enabled = False
|
|
FOLDER_FOR_INDEXTextBox.Enabled = False
|
|
NAMECONVENTIONTextBox.Enabled = False
|
|
ACTIVECheckBox.Enabled = False
|
|
Button1.Enabled = False
|
|
Button2.Enabled = False
|
|
End If
|
|
Catch ex As System.Exception
|
|
|
|
MsgBox("Unexpected error in Loading MoveRename: " & vbNewLine & ex.Message & vbNewLine & "ConnectionString: " & My.Settings.DDECMConString, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Private Sub tsbtnsave_Click(sender As Object, e As EventArgs) Handles tsbtnsave.Click
|
|
Try
|
|
Me.TBTC_MOVE_RENAMEBindingSource.EndEdit()
|
|
Me.MyDataset.TBTC_MOVE_RENAME.CHANGED_WHOColumn.DefaultValue = Environment.UserName
|
|
If Not IsNothing(MyDataset.TBTC_MOVE_RENAME.GetChanges) Then
|
|
Me.CHANGED_WHOTextBox.Text = Environment.UserName
|
|
Me.TBTC_MOVE_RENAMEBindingSource.EndEdit()
|
|
TBTC_MOVE_RENAMETableAdapter.Update(MyDataset.TBTC_MOVE_RENAME)
|
|
LoadData()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Unexpected error in Saving MoveRename: " & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
CURRENT_Namekonvention = NAMECONVENTIONTextBox.Text
|
|
DYNAMIC_TYPE = "FILE"
|
|
frmNIMoveRenameNamenkonvention.ShowDialog()
|
|
NAMECONVENTIONTextBox.Text = CURRENT_Namekonvention
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
CURRENT_DYNAMICFOLDER = FOLDER_FOR_INDEXTextBox.Text
|
|
DYNAMIC_TYPE = "FOLDER"
|
|
frmNIMoveRenameNamenkonvention.ShowDialog()
|
|
FOLDER_FOR_INDEXTextBox.Text = CURRENT_DYNAMICFOLDER
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtndelete.Click
|
|
TBTC_MOVE_RENAMETableAdapter.Delete(GUIDTextBox.Text)
|
|
LoadData()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
If FOLDER_FOR_INDEXTextBox.Text <> "" Then
|
|
FolderBrowserDialog1.SelectedPath = FOLDER_FOR_INDEXTextBox.Text.Replace("\\windream\objects", "W:")
|
|
Else
|
|
FolderBrowserDialog1.SelectedPath = "W:"
|
|
End If
|
|
FolderBrowserDialog1.Description = "Select a rootfolder in ECM-path ..."
|
|
|
|
|
|
' wenn im Formular der OK-Button geklickt wurde
|
|
If Me.FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
' den Speicherort der windream-Suche in die TextBox eintragen
|
|
Me.FOLDER_FOR_INDEXTextBox.Text = Me.FolderBrowserDialog1.SelectedPath.Replace("W:", "\\windream\objects")
|
|
End If
|
|
End Sub
|
|
End Class |