SQL Server 2000 - Поочерёдное создание таблиц

CREATE TABLE Roles (
    roles_id        BIGINT NOT NULL IDENTITY(1,1),
    roles_user_id   SMALLINT NOT NULL,
    roles_role_id   SMALLINT NOT NULL,
    
    PRIMARY KEY (roles_id),
    UNIQUE (roles_user_id, roles_role_id),
    FOREIGN KEY (roles_role_id)     REFERENCES Role (role_id),
    FOREIGN KEY (roles_user_id)     REFERENCES MKUser (mkuser_id)
);
 
CREATE TABLE MKUser (
    mkuser_id         SMALLINT NOT NULL IDENTITY(1,1),
    mkuser_name       VARCHAR(70) NOT NULL,
    user_roles      INTEGER NOT NULL DEFAULT 0,
    
    PRIMARY KEY (mkuser_id),
    FOREIGN KEY (user_roles)        REFERENCES Roles (roles_id)
);

IF OBJECT_ID('MKUser') IS NOT NULL
BEGIN
    DROP TABLE MKUser
    PRINT '<<< DROPPED TABLE MKUser >>>'
END
go
IF OBJECT_ID('Roles') IS NOT NULL
BEGIN
    DROP TABLE Roles
    PRINT '<<< DROPPED TABLE Roles >>>'
END
go
/* 
 * TABLE: MKUser 
 */
 
CREATE TABLE MKUser(
    MKUSER_ID      smallint       IDENTITY(1,1),
    mkuser_name    varchar(70)    NOT NULL,
    user_roles     int            DEFAULT 0 NOT NULL,
    CONSTRAINT PKMKUser PRIMARY KEY NONCLUSTERED (MKUSER_ID)
) 
go
 
IF OBJECT_ID('MKUser') IS NOT NULL
    PRINT '<<< CREATED TABLE MKUser >>>'
ELSE
    PRINT '<<< FAILED CREATING TABLE MKUser >>>'
go
 
/* 
 * TABLE: Roles 
 */
 
CREATE TABLE Roles(
    ROLES_ID         char(10)    NOT NULL,
    roles_user_id    smallint    NOT NULL,
    roles_role_id    smallint    NOT NULL,
    CONSTRAINT PKRoles PRIMARY KEY NONCLUSTERED (ROLES_ID)
) 
go
 
IF OBJECT_ID('Roles') IS NOT NULL
    PRINT '<<< CREATED TABLE Roles >>>'
ELSE
    PRINT '<<< FAILED CREATING TABLE Roles >>>'
go
 
/* 
 * PROCEDURE: MKUserInsProc 
 */
 
IF OBJECT_ID('MKUserInsProc') IS NOT NULL
BEGIN
    DROP PROCEDURE MKUserInsProc
    PRINT '<<< DROPPED PROCEDURE MKUserInsProc >>>'
END
go
 
CREATE PROCEDURE MKUserInsProc
(
    @mkuser_name     varchar(70),
    @user_roles      int)
AS
BEGIN
    BEGIN TRAN
 
    INSERT INTO MKUser(mkuser_name,
                       user_roles)
    VALUES(@mkuser_name,
           @user_roles)
 
    IF (@@error!=0)
    BEGIN
        RAISERROR  20000 'MKUserInsProc: Cannot insert because primary key value not found in MKUser '
        ROLLBACK TRAN
        RETURN(1)
    
    END
 
    COMMIT TRAN
 
END
go
IF OBJECT_ID('MKUserInsProc') IS NOT NULL
    PRINT '<<< CREATED PROCEDURE MKUserInsProc >>>'
ELSE
    PRINT '<<< FAILED CREATING PROCEDURE MKUserInsProc >>>'
go
 
/* 
 * PROCEDURE: MKUserUpdProc 
 */
 
IF OBJECT_ID('MKUserUpdProc') IS NOT NULL
BEGIN
    DROP PROCEDURE MKUserUpdProc
    PRINT '<<< DROPPED PROCEDURE MKUserUpdProc >>>'
END
go
 
CREATE PROCEDURE MKUserUpdProc
(
    @MKUSER_ID       smallint,
    @mkuser_name     varchar(70),
    @user_roles      int)
AS
BEGIN
    BEGIN TRAN
 
    UPDATE MKUser
       SET mkuser_name      = @mkuser_name,
           user_roles       = @user_roles
     WHERE MKUSER_ID = @MKUSER_ID
 
    IF (@@error!=0)
    BEGIN
        RAISERROR  20001 'MKUserUpdProc: Cannot update  in MKUser '
        ROLLBACK TRAN
        RETURN(1)
    
    END
 
    COMMIT TRAN
 
    RETURN(0)
END
go
IF OBJECT_ID('MKUserUpdProc') IS NOT NULL
    PRINT '<<< CREATED PROCEDURE MKUserUpdProc >>>'
ELSE
    PRINT '<<< FAILED CREATING PROCEDURE MKUserUpdProc >>>'
go
 
/* 
 * PROCEDURE: MKUserDelProc 
 */
 
IF OBJECT_ID('MKUserDelProc') IS NOT NULL
BEGIN
    DROP PROCEDURE MKUserDelProc
    PRINT '<<< DROPPED PROCEDURE MKUserDelProc >>>'
END
go
 
CREATE PROCEDURE MKUserDelProc
(
    @MKUSER_ID       smallint)
AS
BEGIN
    BEGIN TRAN
 
    DELETE
      FROM MKUser
     WHERE MKUSER_ID = @MKUSER_ID
 
    IF (@@error!=0)
    BEGIN
        RAISERROR  20002 'MKUserDelProc: Cannot delete because foreign keys still exist in MK   BR>
CREATE PROCEDURE RolesSelProc
(
    @ROLES_ID          char(10))
AS
BEGIN
    SELECT ROLES_ID,
           roles_user_id,
           roles_role_id
      FROM Roles
     WHERE ROLES_ID = @ROLES_ID
 
    RETURN(0)
END
go
IF OBJECT_ID('RolesSelProc') IS NOT NULL
    PRINT '<<< CREATED PROCEDURE RolesSelProc >>>'
ELSE
    PRINT '<<< FAILED CREATING PROCEDURE RolesSelProc >>>'
go