jj: profile groups & bug fixes

This commit is contained in:
Jonathan Jenne 2018-06-08 12:44:14 +02:00
parent 1df1db7ca1
commit 911a017dd9
6 changed files with 2211 additions and 2483 deletions

File diff suppressed because it is too large Load Diff

View File

@ -889,10 +889,10 @@ WHERE (GUID = @ID)</CommandText>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPROFILE_USERTableAdapter" GeneratorDataComponentClassName="TBPROFILE_USERTableAdapter" Name="TBPROFILE_USER" UserDataComponentName="TBPROFILE_USERTableAdapter">
<MainSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT TBPM_PROFILE_USER.GUID, TBDD_USER.PRENAME, TBDD_USER.NAME, TBDD_USER.USERNAME, TBPM_PROFILE_USER.ADDED_WHO, TBPM_PROFILE_USER.ADDED_WHEN
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT TBDD_USER.GUID, TBDD_USER.PRENAME, TBDD_USER.NAME, TBDD_USER.USERNAME, TBPM_PROFILE_USER.ADDED_WHO, TBPM_PROFILE_USER.ADDED_WHEN, TBDD_USER.EMAIL
FROM TBPM_PROFILE_USER INNER JOIN
TBDD_USER ON TBPM_PROFILE_USER.USER_ID = TBDD_USER.GUID
WHERE (TBPM_PROFILE_USER.PROFIL_ID = @profil_id)</CommandText>
@ -910,26 +910,28 @@ WHERE (TBPM_PROFILE_USER.PROFIL_ID = @profil_id)</CommandText>
<Mapping SourceColumn="USERNAME" DataSetColumn="USERNAME" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="EMAIL" DataSetColumn="EMAIL" />
</Mappings>
<Sources>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdDelete" Modifier="Public" Name="cmdDelete" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdDelete">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdDelete" Modifier="Public" Name="CmdDelete" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy1" UserSourceName="CmdDelete">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBPM_PROFILE_USER
WHERE (GUID = @ID)</CommandText>
WHERE (PROFIL_ID = @PROFILE_ID) AND (USER_ID = @USER_ID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="ID" ColumnName="GUID" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="USER_ID" ColumnName="USER_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdDelete_ProfilID" Modifier="Public" Name="CmdDelete_ProfilID" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy1" UserSourceName="CmdDelete_ProfilID">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdDeleteAllForProfile" Modifier="Public" Name="cmdDeleteAllForProfile" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdDeleteAllForProfile">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBPM_PROFILE_USER
WHERE (PROFIL_ID = @PROFIL_ID)</CommandText>
WHERE (PROFIL_ID = @PROFILE_ID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
@ -1996,6 +1998,71 @@ WHERE (T.MODULE_ID =
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPROFILE_GROUPTableAdapter" GeneratorDataComponentClassName="TBPROFILE_GROUPTableAdapter" Name="TBPROFILE_GROUP" UserDataComponentName="TBPROFILE_GROUPTableAdapter">
<MainSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_GROUPS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT T1.GUID, T1.NAME, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN
FROM TBPM_PROFILE_GROUP AS T INNER JOIN
TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID
WHERE (T.PROFIL_ID = @profil_id)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="profil_id" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_GROUP" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@profil_id" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="NAME" DataSetColumn="NAME" />
<Mapping SourceColumn="ACTIVE" DataSetColumn="ACTIVE" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdDelete" Modifier="Public" Name="CmdDelete" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="CmdDelete">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBPM_PROFILE_GROUP
WHERE (PROFIL_ID = @PROFIL_ID AND GROUP_ID = @GROUP_ID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_GROUP" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GROUP_ID" ColumnName="GROUP_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_GROUP" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdDeleteAllForProfile" Modifier="Public" Name="CmdDeleteAllForProfile" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy2" UserSourceName="CmdDeleteAllForProfile">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM TBPM_PROFILE_GROUP WHERE PROFIL_ID = @PROFILE_ID</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFILE_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_GROUP" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdInsert" Modifier="Public" Name="CmdInsert" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy1" UserSourceName="CmdInsert">
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPM_PROFILE_GROUP
(PROFIL_ID, GROUP_ID, ADDED_WHO)
VALUES (@PROFIL_ID,@GROUP_ID,@WHO)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_GROUP" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="GROUP_ID" ColumnName="GROUP_ID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_GROUP" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE_GROUP" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
</DbSource>
</Sources>
</TableAdapter>
</Tables>
<Sources />
</DataSource>
@ -2548,6 +2615,13 @@ WHERE (T.MODULE_ID =
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="EMAIL" msprop:Generator_ColumnVarNameInTable="columnEMAIL" msprop:Generator_ColumnPropNameInRow="EMAIL" msprop:Generator_ColumnPropNameInTable="EMAILColumn" msprop:Generator_UserColumnName="EMAIL" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
@ -3009,6 +3083,44 @@ WHERE (T.MODULE_ID =
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPROFILE_GROUP" msprop:Generator_TableClassName="TBPROFILE_GROUPDataTable" msprop:Generator_TableVarName="tableTBPROFILE_GROUP" msprop:Generator_RowChangedName="TBPROFILE_GROUPRowChanged" msprop:Generator_TablePropName="TBPROFILE_GROUP" msprop:Generator_RowDeletingName="TBPROFILE_GROUPRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_GROUPRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_GROUPRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_GROUPRowDeleted" msprop:Generator_RowClassName="TBPROFILE_GROUPRow" msprop:Generator_UserTableName="TBPROFILE_GROUP" msprop:Generator_RowEvArgName="TBPROFILE_GROUPRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="NAME" msprop:Generator_ColumnVarNameInTable="columnNAME" msprop:Generator_ColumnPropNameInRow="NAME" msprop:Generator_ColumnPropNameInTable="NAMEColumn" msprop:Generator_UserColumnName="NAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" />
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
@ -3084,6 +3196,10 @@ WHERE (T.MODULE_ID =
<xs:selector xpath=".//mstns:TBDD_GROUPS" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBPROFILE_GROUP_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBPROFILE_GROUP" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</xs:element>
<xs:annotation>
<xs:appinfo>

View File

@ -4,28 +4,29 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-27" ViewPortY="45" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-27" ViewPortY="-110" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="13" X="1578" Y="-67" Height="383" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWPM_PROFILE_USER" ZOrder="21" X="1467" Y="331" Height="325" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="22" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="3" X="207" Y="-100" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPM_TYPE" ZOrder="2" X="17" Y="113" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="12" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
<Shape ID="DesignTable:VWPM_CONTROL_INDEX" ZOrder="5" X="1187" Y="316" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="10" X="410" Y="114" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
<Shape ID="DesignTable:TBPROFILE_USER" ZOrder="4" X="610" Y="-58" Height="186" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="61" />
<Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="14" X="1212" Y="-64" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_FILES_USER_NOT_INDEXED" ZOrder="6" X="851" Y="-49" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="9" X="215" Y="319" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="17" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="7" X="595" Y="421" Height="476" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="8" X="861" Y="110" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="18" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
<Shape ID="DesignTable:TBDD_GROUPS" ZOrder="1" X="64" Y="535" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="14" X="1578" Y="-67" Height="383" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWPM_PROFILE_USER" ZOrder="22" X="1467" Y="331" Height="325" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="23" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="7" X="207" Y="-100" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPM_TYPE" ZOrder="6" X="17" Y="113" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="13" X="443" Y="-87" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
<Shape ID="DesignTable:VWPM_CONTROL_INDEX" ZOrder="8" X="1187" Y="316" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="11" X="410" Y="114" Height="186" Width="178" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="80" />
<Shape ID="DesignTable:TBPROFILE_USER" ZOrder="1" X="509" Y="-80" Height="267" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="15" X="1212" Y="-64" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_FILES_USER_NOT_INDEXED" ZOrder="9" X="851" Y="-49" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="10" X="215" Y="319" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="18" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="3" X="595" Y="421" Height="476" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="4" X="861" Y="110" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_GROUPS" ZOrder="5" X="36" Y="431" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="2" X="806" Y="-85" Height="286" Width="277" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="19" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="20" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="21" LineWidth="11">
<RoutePoints>
<Point>
<X>461</X>
@ -37,7 +38,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="19" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="20" LineWidth="11">
<RoutePoints>
<Point>
<X>175</X>
@ -53,7 +54,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="16" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="17" LineWidth="11">
<RoutePoints>
<Point>
<X>515</X>
@ -65,7 +66,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="15" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="16" LineWidth="11">
<RoutePoints>
<Point>
<X>844</X>
@ -81,7 +82,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL" ZOrder="11" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL" ZOrder="12" LineWidth="11">
<RoutePoints>
<Point>
<X>141</X>

View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmProfileDesigner
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@ -20,7 +20,7 @@ Partial Class frmProfileDesigner
'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()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GUIDLabel As System.Windows.Forms.Label
@ -49,56 +49,39 @@ Partial Class frmProfileDesigner
Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label
Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label
Dim SQL_VIEWLabel As System.Windows.Forms.Label
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer()
Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl()
Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPRENAME1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME3 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colUSERNAME1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHO1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.gridAvailableUsers = New DevExpress.XtraGrid.GridControl()
Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.viewAvailableUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME2 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colEMAIL = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label19 = New System.Windows.Forms.Label()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.gridAssignedGroups = New DevExpress.XtraGrid.GridControl()
Me.TBPROFILE_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.viewAssignedGroups = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME5 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colCOMMENT1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label22 = New System.Windows.Forms.Label()
Me.gridAvailableGroups = New DevExpress.XtraGrid.GridControl()
Me.TBDD_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.viewAvailableGroups = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn10 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn11 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn12 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn13 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn14 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn15 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME4 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colCOMMENT = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Label23 = New System.Windows.Forms.Label()
Me.btnUserManager = New System.Windows.Forms.Button()
@ -250,7 +233,7 @@ Partial Class frmProfileDesigner
Me.SplitContainerProfilzuordnung = New System.Windows.Forms.SplitContainer()
Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl()
Me.viewAvailableProfiles = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Label21 = New System.Windows.Forms.Label()
Me.TabControl3 = New System.Windows.Forms.TabControl()
@ -303,7 +286,7 @@ Partial Class frmProfileDesigner
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tstrpinfo = New System.Windows.Forms.ToolStripStatusLabel()
Me.TBPROFILE_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter()
Me.TBPM_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
Me.TBDD_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.TBPM_ERROR_LOGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_ERROR_LOGTableAdapter()
@ -312,6 +295,9 @@ Partial Class frmProfileDesigner
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.TBDD_GROUPSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter()
Me.TBPROFILE_GROUPTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter()
Me.colEMAIL1 = New DevExpress.XtraGrid.Columns.GridColumn()
GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label()
DESCRIPTIONLabel = New System.Windows.Forms.Label()
@ -355,9 +341,11 @@ Partial Class frmProfileDesigner
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPROFILE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -461,7 +449,7 @@ Partial Class frmProfileDesigner
'
'viewAssignedUsers
'
Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colPRENAME1, Me.colNAME3, Me.colUSERNAME1, Me.colADDED_WHO1, Me.colADDED_WHEN1})
Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME1, Me.colNAME3, Me.colUSERNAME1, Me.colEMAIL1})
Me.viewAssignedUsers.GridControl = Me.gridAssignedUsers
Me.viewAssignedUsers.Name = "viewAssignedUsers"
Me.viewAssignedUsers.OptionsBehavior.Editable = False
@ -469,41 +457,23 @@ Partial Class frmProfileDesigner
Me.viewAssignedUsers.OptionsView.ShowAutoFilterRow = True
Me.viewAssignedUsers.OptionsView.ShowGroupPanel = False
'
'colGUID2
'
Me.colGUID2.FieldName = "GUID"
Me.colGUID2.Name = "colGUID2"
resources.ApplyResources(Me.colGUID2, "colGUID2")
'
'colPRENAME1
'
resources.ApplyResources(Me.colPRENAME1, "colPRENAME1")
Me.colPRENAME1.FieldName = "PRENAME"
Me.colPRENAME1.Name = "colPRENAME1"
resources.ApplyResources(Me.colPRENAME1, "colPRENAME1")
'
'colNAME3
'
resources.ApplyResources(Me.colNAME3, "colNAME3")
Me.colNAME3.FieldName = "NAME"
Me.colNAME3.Name = "colNAME3"
resources.ApplyResources(Me.colNAME3, "colNAME3")
'
'colUSERNAME1
'
resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1")
Me.colUSERNAME1.FieldName = "USERNAME"
Me.colUSERNAME1.Name = "colUSERNAME1"
resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1")
'
'colADDED_WHO1
'
Me.colADDED_WHO1.FieldName = "ADDED_WHO"
Me.colADDED_WHO1.Name = "colADDED_WHO1"
resources.ApplyResources(Me.colADDED_WHO1, "colADDED_WHO1")
'
'colADDED_WHEN1
'
Me.colADDED_WHEN1.FieldName = "ADDED_WHEN"
Me.colADDED_WHEN1.Name = "colADDED_WHEN1"
resources.ApplyResources(Me.colADDED_WHEN1, "colADDED_WHEN1")
'
'Panel1
'
@ -532,7 +502,7 @@ Partial Class frmProfileDesigner
'
'viewAvailableUsers
'
Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colPRENAME, Me.colNAME2, Me.colUSERNAME, Me.colEMAIL, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN})
Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME, Me.colNAME2, Me.colUSERNAME, Me.colEMAIL})
Me.viewAvailableUsers.GridControl = Me.gridAvailableUsers
Me.viewAvailableUsers.Name = "viewAvailableUsers"
Me.viewAvailableUsers.OptionsBehavior.Editable = False
@ -540,59 +510,29 @@ Partial Class frmProfileDesigner
Me.viewAvailableUsers.OptionsView.ShowAutoFilterRow = True
Me.viewAvailableUsers.OptionsView.ShowGroupPanel = False
'
'colGUID1
'
Me.colGUID1.FieldName = "GUID"
Me.colGUID1.Name = "colGUID1"
resources.ApplyResources(Me.colGUID1, "colGUID1")
'
'colPRENAME
'
resources.ApplyResources(Me.colPRENAME, "colPRENAME")
Me.colPRENAME.FieldName = "PRENAME"
Me.colPRENAME.Name = "colPRENAME"
resources.ApplyResources(Me.colPRENAME, "colPRENAME")
'
'colNAME2
'
resources.ApplyResources(Me.colNAME2, "colNAME2")
Me.colNAME2.FieldName = "NAME"
Me.colNAME2.Name = "colNAME2"
resources.ApplyResources(Me.colNAME2, "colNAME2")
'
'colUSERNAME
'
resources.ApplyResources(Me.colUSERNAME, "colUSERNAME")
Me.colUSERNAME.FieldName = "USERNAME"
Me.colUSERNAME.Name = "colUSERNAME"
resources.ApplyResources(Me.colUSERNAME, "colUSERNAME")
'
'colEMAIL
'
resources.ApplyResources(Me.colEMAIL, "colEMAIL")
Me.colEMAIL.FieldName = "EMAIL"
Me.colEMAIL.Name = "colEMAIL"
resources.ApplyResources(Me.colEMAIL, "colEMAIL")
'
'colADDED_WHO
'
Me.colADDED_WHO.FieldName = "ADDED_WHO"
Me.colADDED_WHO.Name = "colADDED_WHO"
resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO")
'
'colADDED_WHEN
'
Me.colADDED_WHEN.FieldName = "ADDED_WHEN"
Me.colADDED_WHEN.Name = "colADDED_WHEN"
resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN")
'
'colCHANGED_WHO
'
Me.colCHANGED_WHO.FieldName = "CHANGED_WHO"
Me.colCHANGED_WHO.Name = "colCHANGED_WHO"
resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO")
'
'colCHANGED_WHEN
'
Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN"
Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN"
resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN")
'
'Panel2
'
@ -625,15 +565,20 @@ Partial Class frmProfileDesigner
'gridAssignedGroups
'
Me.gridAssignedGroups.AllowDrop = True
Me.gridAssignedGroups.DataSource = Me.TBPROFILE_USERBindingSource
Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource
resources.ApplyResources(Me.gridAssignedGroups, "gridAssignedGroups")
Me.gridAssignedGroups.MainView = Me.viewAssignedGroups
Me.gridAssignedGroups.Name = "gridAssignedGroups"
Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups})
'
'TBPROFILE_GROUPBindingSource
'
Me.TBPROFILE_GROUPBindingSource.DataMember = "TBPROFILE_GROUP"
Me.TBPROFILE_GROUPBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'viewAssignedGroups
'
Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6})
Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME5, Me.colCOMMENT1})
Me.viewAssignedGroups.GridControl = Me.gridAssignedGroups
Me.viewAssignedGroups.Name = "viewAssignedGroups"
Me.viewAssignedGroups.OptionsBehavior.Editable = False
@ -641,41 +586,17 @@ Partial Class frmProfileDesigner
Me.viewAssignedGroups.OptionsView.ShowAutoFilterRow = True
Me.viewAssignedGroups.OptionsView.ShowGroupPanel = False
'
'GridColumn1
'colNAME5
'
Me.GridColumn1.FieldName = "GUID"
Me.GridColumn1.Name = "GridColumn1"
resources.ApplyResources(Me.GridColumn1, "GridColumn1")
resources.ApplyResources(Me.colNAME5, "colNAME5")
Me.colNAME5.FieldName = "NAME"
Me.colNAME5.Name = "colNAME5"
'
'GridColumn2
'colCOMMENT1
'
Me.GridColumn2.FieldName = "PRENAME"
Me.GridColumn2.Name = "GridColumn2"
resources.ApplyResources(Me.GridColumn2, "GridColumn2")
'
'GridColumn3
'
Me.GridColumn3.FieldName = "NAME"
Me.GridColumn3.Name = "GridColumn3"
resources.ApplyResources(Me.GridColumn3, "GridColumn3")
'
'GridColumn4
'
Me.GridColumn4.FieldName = "USERNAME"
Me.GridColumn4.Name = "GridColumn4"
resources.ApplyResources(Me.GridColumn4, "GridColumn4")
'
'GridColumn5
'
Me.GridColumn5.FieldName = "ADDED_WHO"
Me.GridColumn5.Name = "GridColumn5"
resources.ApplyResources(Me.GridColumn5, "GridColumn5")
'
'GridColumn6
'
Me.GridColumn6.FieldName = "ADDED_WHEN"
Me.GridColumn6.Name = "GridColumn6"
resources.ApplyResources(Me.GridColumn6, "GridColumn6")
resources.ApplyResources(Me.colCOMMENT1, "colCOMMENT1")
Me.colCOMMENT1.FieldName = "COMMENT"
Me.colCOMMENT1.Name = "colCOMMENT1"
'
'Panel3
'
@ -691,14 +612,20 @@ Partial Class frmProfileDesigner
'gridAvailableGroups
'
Me.gridAvailableGroups.AllowDrop = True
Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource
resources.ApplyResources(Me.gridAvailableGroups, "gridAvailableGroups")
Me.gridAvailableGroups.MainView = Me.viewAvailableGroups
Me.gridAvailableGroups.Name = "gridAvailableGroups"
Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups})
'
'TBDD_GROUPSBindingSource
'
Me.TBDD_GROUPSBindingSource.DataMember = "TBDD_GROUPS"
Me.TBDD_GROUPSBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'viewAvailableGroups
'
Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn7, Me.GridColumn8, Me.GridColumn9, Me.GridColumn10, Me.GridColumn11, Me.GridColumn12, Me.GridColumn13, Me.GridColumn14, Me.GridColumn15})
Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME4, Me.colCOMMENT})
Me.viewAvailableGroups.GridControl = Me.gridAvailableGroups
Me.viewAvailableGroups.Name = "viewAvailableGroups"
Me.viewAvailableGroups.OptionsBehavior.Editable = False
@ -706,59 +633,17 @@ Partial Class frmProfileDesigner
Me.viewAvailableGroups.OptionsView.ShowAutoFilterRow = True
Me.viewAvailableGroups.OptionsView.ShowGroupPanel = False
'
'GridColumn7
'colNAME4
'
Me.GridColumn7.FieldName = "GUID"
Me.GridColumn7.Name = "GridColumn7"
resources.ApplyResources(Me.GridColumn7, "GridColumn7")
resources.ApplyResources(Me.colNAME4, "colNAME4")
Me.colNAME4.FieldName = "NAME"
Me.colNAME4.Name = "colNAME4"
'
'GridColumn8
'colCOMMENT
'
Me.GridColumn8.FieldName = "PRENAME"
Me.GridColumn8.Name = "GridColumn8"
resources.ApplyResources(Me.GridColumn8, "GridColumn8")
'
'GridColumn9
'
Me.GridColumn9.FieldName = "NAME"
Me.GridColumn9.Name = "GridColumn9"
resources.ApplyResources(Me.GridColumn9, "GridColumn9")
'
'GridColumn10
'
Me.GridColumn10.FieldName = "USERNAME"
Me.GridColumn10.Name = "GridColumn10"
resources.ApplyResources(Me.GridColumn10, "GridColumn10")
'
'GridColumn11
'
Me.GridColumn11.FieldName = "EMAIL"
Me.GridColumn11.Name = "GridColumn11"
resources.ApplyResources(Me.GridColumn11, "GridColumn11")
'
'GridColumn12
'
Me.GridColumn12.FieldName = "ADDED_WHO"
Me.GridColumn12.Name = "GridColumn12"
resources.ApplyResources(Me.GridColumn12, "GridColumn12")
'
'GridColumn13
'
Me.GridColumn13.FieldName = "ADDED_WHEN"
Me.GridColumn13.Name = "GridColumn13"
resources.ApplyResources(Me.GridColumn13, "GridColumn13")
'
'GridColumn14
'
Me.GridColumn14.FieldName = "CHANGED_WHO"
Me.GridColumn14.Name = "GridColumn14"
resources.ApplyResources(Me.GridColumn14, "GridColumn14")
'
'GridColumn15
'
Me.GridColumn15.FieldName = "CHANGED_WHEN"
Me.GridColumn15.Name = "GridColumn15"
resources.ApplyResources(Me.GridColumn15, "GridColumn15")
resources.ApplyResources(Me.colCOMMENT, "colCOMMENT")
Me.colCOMMENT.FieldName = "COMMENT"
Me.colCOMMENT.Name = "colCOMMENT"
'
'Panel4
'
@ -1942,7 +1827,7 @@ Partial Class frmProfileDesigner
'
'viewAvailableProfiles
'
Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME1})
Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1, Me.colDESCRIPTION})
Me.viewAvailableProfiles.GridControl = Me.gridAvailableProfiles
Me.viewAvailableProfiles.Name = "viewAvailableProfiles"
Me.viewAvailableProfiles.OptionsBehavior.Editable = False
@ -1951,17 +1836,17 @@ Partial Class frmProfileDesigner
Me.viewAvailableProfiles.OptionsView.ShowAutoFilterRow = True
Me.viewAvailableProfiles.OptionsView.ShowGroupPanel = False
'
'colGUID
'colDESCRIPTION
'
Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID"
resources.ApplyResources(Me.colGUID, "colGUID")
resources.ApplyResources(Me.colDESCRIPTION, "colDESCRIPTION")
Me.colDESCRIPTION.FieldName = "DESCRIPTION"
Me.colDESCRIPTION.Name = "colDESCRIPTION"
'
'colNAME1
'
resources.ApplyResources(Me.colNAME1, "colNAME1")
Me.colNAME1.FieldName = "NAME"
Me.colNAME1.Name = "colNAME1"
resources.ApplyResources(Me.colNAME1, "colNAME1")
'
'Label21
'
@ -2187,8 +2072,8 @@ Partial Class frmProfileDesigner
'TBPM_ERROR_LOGDataGridView
'
Me.TBPM_ERROR_LOGDataGridView.AllowUserToAddRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan
Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.TBPM_ERROR_LOGDataGridView.AutoGenerateColumns = False
Me.TBPM_ERROR_LOGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.TBPM_ERROR_LOGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn17, Me.DataGridViewTextBoxColumn22, Me.DataGridViewTextBoxColumn23, Me.DataGridViewTextBoxColumn24, Me.DataGridViewTextBoxColumn25})
@ -2328,9 +2213,9 @@ Partial Class frmProfileDesigner
'
Me.TBPROFILE_USERTableAdapter.ClearBeforeFill = True
'
'TBPM_USERTableAdapter
'TBDD_USERTableAdapter
'
Me.TBPM_USERTableAdapter.ClearBeforeFill = True
Me.TBDD_USERTableAdapter.ClearBeforeFill = True
'
'TBPM_KONFIGURATIONTableAdapter
'
@ -2367,6 +2252,20 @@ Partial Class frmProfileDesigner
'
Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True
'
'TBDD_GROUPSTableAdapter
'
Me.TBDD_GROUPSTableAdapter.ClearBeforeFill = True
'
'TBPROFILE_GROUPTableAdapter
'
Me.TBPROFILE_GROUPTableAdapter.ClearBeforeFill = True
'
'colEMAIL1
'
resources.ApplyResources(Me.colEMAIL1, "colEMAIL1")
Me.colEMAIL1.FieldName = "EMAIL"
Me.colEMAIL1.Name = "colEMAIL1"
'
'frmProfileDesigner
'
resources.ApplyResources(Me, "$this")
@ -2392,9 +2291,11 @@ Partial Class frmProfileDesigner
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPROFILE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -2532,7 +2433,7 @@ Partial Class frmProfileDesigner
Friend WithEvents TBPROFILE_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPROFILE_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter
Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
Friend WithEvents TBDD_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents btnlicensemanager_open As System.Windows.Forms.Button
Friend WithEvents grpbxEmail As System.Windows.Forms.GroupBox
@ -2685,27 +2586,19 @@ Partial Class frmProfileDesigner
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents gridAvailableProfiles As DevExpress.XtraGrid.GridControl
Friend WithEvents viewAvailableProfiles As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents gridAssignedUsers As DevExpress.XtraGrid.GridControl
Friend WithEvents viewAssignedUsers As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colPRENAME1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colNAME3 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colUSERNAME1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colADDED_WHO1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colADDED_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents gridAvailableUsers As DevExpress.XtraGrid.GridControl
Friend WithEvents viewAvailableUsers As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colPRENAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colNAME2 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colEMAIL As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents Panel1 As Panel
Friend WithEvents btnUserManager As Button
Friend WithEvents Label20 As Label
@ -2718,25 +2611,19 @@ Partial Class frmProfileDesigner
Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents gridAssignedGroups As DevExpress.XtraGrid.GridControl
Friend WithEvents viewAssignedGroups As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents Panel3 As Panel
Friend WithEvents Label22 As Label
Friend WithEvents gridAvailableGroups As DevExpress.XtraGrid.GridControl
Friend WithEvents viewAvailableGroups As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn8 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn9 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn10 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn11 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn12 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn13 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn14 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn15 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents Panel4 As Panel
Friend WithEvents Label23 As Label
Friend WithEvents TBDD_GROUPSBindingSource As BindingSource
Friend WithEvents TBDD_GROUPSTableAdapter As DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter
Friend WithEvents colNAME4 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colCOMMENT As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents TBPROFILE_GROUPBindingSource As BindingSource
Friend WithEvents TBPROFILE_GROUPTableAdapter As DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter
Friend WithEvents colNAME5 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colCOMMENT1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colEMAIL1 As DevExpress.XtraGrid.Columns.GridColumn
End Class

File diff suppressed because it is too large Load Diff

View File

@ -32,19 +32,24 @@ Public Class frmProfileDesigner
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_TYPETableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_USERTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
TBPROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString
TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION)
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Refresh_Profildaten()
Dim dragDropManager = New ClassDragDrop()
dragDropManager.AddGridView(viewAssignedUsers)
dragDropManager.AddGridView(viewAvailableUsers)
dragDropManager.AddGridView(viewAvailableGroups)
dragDropManager.AddGridView(viewAssignedGroups)
Catch ex As Exception
MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
@ -108,12 +113,13 @@ Public Class frmProfileDesigner
End Sub
Sub Refresh_Profildaten()
Try
Me.TBPM_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE)
Me.TBPM_TYPETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_TYPE)
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE)
TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE)
TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION)
'Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
TBPM_USERTableAdapter.FillByProfileId_NotAssigned(Me.DD_DMSLiteDataSet.TBDD_USER, PROFILGUIDTextBox.Text)
'TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, PROFILGUIDTextBox.Text)
'TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, PROFILGUIDTextBox.Text)
If tabctrl_Profilkonfig.SelectedIndex = 1 Then
CURRENT_OBJECTTYPE = cmbObjekttypen.Text
@ -253,16 +259,15 @@ Public Class frmProfileDesigner
Private Sub ADDED_WHOLabel_Click(sender As System.Object, e As System.EventArgs)
End Sub
Sub FillProfile_User(ID As Integer)
Sub FillProfile_User(profileId As Integer)
Try
Dim profileId As Integer = GetCurrentProfileId()
If Not IsNothing(profileId) Then
TBPROFILE_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPROFILE_USER, ID)
TBPM_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId)
TBPROFILE_USERTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_USER, profileId)
TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId)
TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId)
TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId)
End If
Catch ex As System.Exception
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der User zu Profil:")
End Try
@ -315,7 +320,7 @@ Public Class frmProfileDesigner
Dim userId As Integer = data.Split("|")(0)
Dim profileId = GetCurrentProfileId()
TBPROFILE_USERTableAdapter.cmdDelete(userId)
TBPROFILE_USERTableAdapter.CmdDelete(profileId, userId)
FillProfile_User(profileId)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen eines Users:")
@ -325,9 +330,11 @@ Public Class frmProfileDesigner
Private Sub gridAssignedGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedGroups.DragDrop
Try
Dim data As String = e.Data.GetData(DataFormats.Text)
Dim userId As Integer = data.Split("|")(0)
Dim groupId As Integer = data.Split("|")(0)
Dim profileId = GetCurrentProfileId()
TBPROFILE_GROUPTableAdapter.CmdInsert(profileId, groupId, Environment.UserName)
' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, Environment.UserName)
FillProfile_User(profileId)
Catch ex As Exception
@ -338,9 +345,11 @@ Public Class frmProfileDesigner
Private Sub gridAvailableGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableGroups.DragDrop
Try
Dim data As String = e.Data.GetData(DataFormats.Text)
Dim userId As Integer = data.Split("|")(0)
Dim groupId As Integer = data.Split("|")(0)
Dim profileId = GetCurrentProfileId()
TBPROFILE_GROUPTableAdapter.CmdDelete(profileId, groupId)
'TBPROFILE_USERTableAdapter.cmdDelete(userId)
FillProfile_User(profileId)
Catch ex As Exception
@ -348,16 +357,16 @@ Public Class frmProfileDesigner
End Try
End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As System.Object, e As System.EventArgs)
If viewAssignedUsers.GetSelectedRows().Length > 0 Then
For Each rowHandle In viewAssignedUsers.GetSelectedRows()
Dim rowView As DataRowView = viewAssignedUsers.GetRow(rowHandle)
Dim userId As Integer = rowView.Item("GUID")
'Private Sub BindingNavigatorDeleteItem_Click(sender As System.Object, e As System.EventArgs)
' If viewAssignedUsers.GetSelectedRows().Length > 0 Then
' For Each rowHandle In viewAssignedUsers.GetSelectedRows()
' Dim rowView As DataRowView = viewAssignedUsers.GetRow(rowHandle)
' Dim userId As Integer = rowView.Item("GUID")
TBPROFILE_USERTableAdapter.cmdDelete(userId)
Next
End If
End Sub
' TBPROFILE_USERTableAdapter.cmdDelete(userId)
' Next
' End If
'End Sub
Private Sub btnlicensemanager_open_Click(sender As System.Object, e As System.EventArgs) Handles btnlicensemanager_open.Click
frmLicense.ShowDialog()
@ -405,6 +414,8 @@ Public Class frmProfileDesigner
Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 1
FillProfile_User(PROFILGUIDTextBox.Text)
Case 3
Refresh_log()
End Select
@ -635,15 +646,16 @@ Public Class frmProfileDesigner
' wenn Speichern ja
If result = MsgBoxResult.Yes Then
Try
Dim ID = PROFILGUIDTextBox.Text
Dim del As String = "delete from TBPM_CONTROL_TABLE where CONTROL_ID in (SELECT GUID FROM TBPM_PROFILE_CONTROLS where PROFIL_ID = " & ID & ")"
Dim profileID = PROFILGUIDTextBox.Text
Dim del As String = "delete from TBPM_CONTROL_TABLE where CONTROL_ID in (SELECT GUID FROM TBPM_PROFILE_CONTROLS where PROFIL_ID = " & profileID & ")"
ClassDatabase.Execute_non_Query(del)
TBPM_ERROR_LOGTableAdapter.DeletePROFIL(ID)
TBPM_PROFILE_FILESTableAdapter.cmdDeleteProfilData(ID)
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete_ProfilID(ID)
TBPM_PROFILE_CONTROLSTableAdapter.cmdDeleteProfil(ID)
TBPROFILE_USERTableAdapter.CmdDelete_ProfilID(ID)
TBPM_PROFILETableAdapter.cmdDelete(ID)
TBPM_ERROR_LOGTableAdapter.DeletePROFIL(profileID)
TBPM_PROFILE_FILESTableAdapter.cmdDeleteProfilData(profileID)
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete_ProfilID(profileID)
TBPM_PROFILE_CONTROLSTableAdapter.cmdDeleteProfil(profileID)
TBPROFILE_USERTableAdapter.cmdDeleteAllForProfile(profileID)
TBPROFILE_GROUPTableAdapter.CmdDeleteAllForProfile(profileID)
TBPM_PROFILETableAdapter.cmdDelete(profileID)
MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
Refresh_Profildaten()
Catch ex As Exception
@ -756,7 +768,7 @@ Public Class frmProfileDesigner
End Sub
Sub Load_User()
Try
Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
Catch ex As Exception
MsgBox("Fehler bei LoadUsers: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
End Try
@ -901,6 +913,4 @@ Public Class frmProfileDesigner
Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click
End Sub
End Class