Delphi使用TADOQuery时，Guid外键字段的困扰

 在使用Guid字段时，如果不小心设置有默认值，将使数据更新产生很大的问题，

EXEC sp_addtype N'u_id', N'uniqueidentifier', N'null'
EXEC sp_bindefault N'[dbo].[Default_ID]', N'[u_id]'

create table 教师(
  教师GUID u_id not null,
  编号 varchar(10),
  姓名 varchar(10)
)
go
ALTER TABLE [dbo].[教师] ADD
     PRIMARY KEY  NONCLUSTERED
    (
        [教师GUID]
    )  ON [PRIMARY]
GO

create table 班级(
   班级GUID u_id not null,
   编号 varchar(10),
   班主任GUID u_id
)
go
ALTER TABLE [dbo].[班级] ADD
     PRIMARY KEY  NONCLUSTERED
    (
        [班级GUID]
    )  ON [PRIMARY]
GO
--建立外键连接
ALTER TABLE [dbo].[班级] ADD
     FOREIGN KEY
    (
        [教师GUID]
    ) REFERENCES [dbo].[教师] (
        [教师GUID]
    )

如果在表中维护[班级]数据，使用TADOQuery的进行更新时，将出现主键不匹配的错误：
var
   adoTeacher, adoClass:   TADOQuery;
begin
   打开adoTeacher数据.....
   打开adoClass数据.....
   adoClass.append;
   adoClass.fieldbyname('班主任GUID').asstring=adoTeacher.FieldByName('教师GUID').AsString;
   adoClass.Post;
   adoClass.UpdatePatch;   //这时将提示外键错误！！！！

象这种情况偶没有办法解决，不知道有谁会去解决呢？我试过用SQL字符串进行操作的方式可以解决这个问题，
没办法，只好这样了。