USE [stalentzx]
GO
/****** Object: Trigger [dbo].[GZ_HISTORY_INSERT] Script Date: 2019/12/24 13:11:40 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER TRIGGER [dbo].[GZ_HISTORY_INSERT]
ON [dbo].[ySysColumns]
AFTER INSERT--,DELETE,UPDATE
AS
BEGIN
DECLARE @TABLENAME VARCHAR(50)
DECLARE @COLNAME VARCHAR(50)
DECLARE @COLORDER INT
DECLARE @COLTYPE VARCHAR(50)
DECLARE @TABLE_SQL VARCHAR(MAX)
DECLARE @COL_STR VARCHAR(MAX)
SELECT @TABLENAME = TABLENAME , @COLNAME = COLNAME FROM INSERTED
IF @TABLENAME LIKE 'GZ_PATSETDATA%' AND
ISNUMERIC(RIGHT(@TABLENAME , 4)) = 1
BEGIN
SELECT * INTO #YSYSCOLUMNS FROM YSYSCOLUMNS WHERE TABLENAME = @TABLENAME
IF EXISTS(SELECT 1 FROM YSYSCOLUMNS
WHERE TABLENAME = 'C2' + RIGHT(@TABLENAME , 4)
)
BEGIN
SET @COL_STR = ''
SELECT @COL_STR = @COL_STR + ',' + COLNAME + ' ' +
(CASE WHEN COLTYPE IN ('VARCHAR','CHAR')
THEN COLTYPE + '(' + CONVERT(VARCHAR(4000) , ColWidth) + ')'
WHEN COLTYPE IN ('DECIMAL' , 'NUMERIC')
THEN ColType + '(' + CONVERT(VARCHAR(4000) , ColWidth) + ',' +
CONVERT(VARCHAR(4000) , ColPrecision) + ')'
ELSE COLTYPE
END) +
(CASE WHEN ISNULL(YSYSCOLUMNS.ColDefault , '') <> ''
THEN (CASE WHEN CHARINDEX(',' , ColDefault) > 0
THEN ' Default ' +
SUBSTRING(ColDefault , 1 , CHARINDEX(',' , ColDefault) - 1)
ELSE ' Default ' + ColDefault
END)
ELSE ''
END)
FROM YSYSCOLUMNS
WHERE TABLENAME='GZ_PATSETDATA' + RIGHT(@TABLENAME , 4) AND
COLNAME = @COLNAME AND
COLNAME NOT IN(SELECT COLNAME FROM YSYSCOLUMNS
WHERE TABLENAME = 'C2' + RIGHT(@TABLENAME,4) AND
COLNAME = @COLNAME
)
SELECT @TABLE_SQL = 'ALTER TABLE C2' + RIGHT(@TABLENAME,4) + ' ADD ' +
SUBSTRING(@COL_STR , 2 , 40000) + ';'
EXEC (@TABLE_SQL)
INSERT INTO YSYSCOLUMNS(TableName , ColName , ColOrder , ColType , ColWidth ,
ColPrecision , ColNull , ColDefault , DisplayLabel , DisplayWidth ,
DisplayFormat , EditFormat , ColVarify , VarifyMsg , ColVisible ,
ColProperty , ColGroup , enus , zhtw , OtherLanguage ,
RelationRule , colgroupOther)
SELECT 'C2' + RIGHT(@TABLENAME , 4) , ColName , ColOrder , ColType , ColWidth ,
ColPrecision , ColNull , ColDefault , DisplayLabel , DisplayWidth ,
DisplayFormat , EditFormat , ColVarify , VarifyMsg , ColVisible ,
ColProperty , ColGroup , enus , zhtw , OtherLanguage ,
RelationRule , colgroupOther
FROM INSERTED
WHERE COLNAME NOT IN(SELECT COLNAME FROM YSYSCOLUMNS
WHERE TABLENAME = 'C2' + RIGHT(@TABLENAME,4) AND
COLNAME = @COLNAME
)
END
ELSE
BEGIN
-----------------------------------创建历史记录物理表---------------------------------
SET @COL_STR = ''
SELECT @COL_STR = @COL_STR + ',' + ColName + ' ' +
(CASE WHEN COLTYPE IN ('VARCHAR','CHAR')
THEN COLTYPE + '(' + CONVERT(VARCHAR(4000) , ColWidth) + ')'
WHEN COLTYPE IN ('DECIMAL' , 'NUMERIC')
THEN ColType + '(' + CONVERT(VARCHAR(4000) , ColWidth) + ',' +
CONVERT(VARCHAR(4000) , ColPrecision) + ')'
ELSE COLTYPE
END) +
(CASE WHEN ISNULL(YSYSCOLUMNS.ColDefault , '') <> ''
THEN (CASE WHEN CHARINDEX(',' , ColDefault) > 0
THEN ' Default ' +
SUBSTRING(ColDefault , 1 , CHARINDEX(',' , ColDefault) - 1)
ELSE ' Default ' + ColDefault
END)
ELSE ''
END)
FROM YSYSCOLUMNS
WHERE TABLENAME='GZ_PATSETDATA' + RIGHT(@TABLENAME,4)
SELECT @TABLE_SQL = 'CREATE TABLE C2' + RIGHT(@TABLENAME,4) +
' (' + SUBSTRING(@COL_STR , 2 , 40000) + ');'
EXEC (@TABLE_SQL)
------ Since any pay table entry corresponding to the history field description information does not exist, so the need to create a corresponding table describes the history of
the SELECT * the INTO #YSYSTABLES the FROM YSYSTABLES
the WHERE the TABLENAME = 'GZ_PATSETDATA' + RIGHT (the TABLENAME @,. 4)
the INSERT the INTO ySysTables (the TableName, TableTypeID, the TableOrder, TableLabel, ACessable,
ACessModule, TableVisible, PRESERE, ISUSERDISPLAY, TEAMVISIBLE, the ModuleID)
the SELECT 'C2' + RIGHT (@ the TABLENAME,. 4),. 7, the TableOrder, TableLabel + '_ H', '111 ',
' 010000000000000000000000000000 ',' 1 ', 0, 1, 1,' 01 '
the FROM #YSYSTABLES
------ establish salary information corresponding entry field history table describes
INSERT INTO YSYSCOLUMNS (TableName, ColName, ColOrder, ColType , ColWidth,
ColPrecision, ColNull, ColDefault, DisplayLabel, DisplayWidth,
DisplayFormat, EditFormat, ColVarify,VarifyMsg , ColVisible ,
ColProperty , ColGroup , enus , zhtw , OtherLanguage ,
RelationRule , colgroupOther)
SELECT 'C2' + RIGHT(@TABLENAME , 4) , ColName , ColOrder , ColType , ColWidth ,
ColPrecision , ColNull , ColDefault , DisplayLabel , DisplayWidth ,
DisplayFormat , EditFormat , ColVarify , VarifyMsg , ColVisible ,
ColProperty , ColGroup , enus , zhtw , OtherLanguage ,
RelationRule , colgroupOther
FROM #YSYSCOLUMNS
END
END
END