在此先谢谢网上的一位忘记了网名的朋友提供的思路，
使用霹雳系统musf 结婚、多仓库正常可用的修改方法.
--1.--删除 ExtChrData 表后运行创建
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ExtChrData]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[ExtChrData]
GO
CREATE TABLE [dbo].[ExtChrData] (
[AccountID] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[Name] [varchar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[FQBZ] [int] NOT NULL ,
[FQCount] [int] NOT NULL ,
[FQName] [varchar] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[Lores] [int] NOT NULL ,
[LastLores] [int] NULL ,
[Stat] [int] NULL ,
[HYCharStat] [int] NULL
) ON [PRIMARY]
GO
--2.--删除ExtIdData后运行创建ExtIdData表
if exists (select * frm dbo.sysobjects where id = object_id(N'[dbo].[ExtIdData]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[ExtIdData]
GO
CREATE TABLE [dbo].[ExtIdData] (
[ID] [int] IDENTITY (1, 1) NOT NULL ,
[AccountID] [varcar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[CountTime] [int] NOT NULL ,
[LastLogin] [datetime] NOT NULL ,
[LastCount] [int] NOT NULL ,
[HaveCents] [int] NOT NULL ,
[HYIDStat] [int] NULL
) ON [PRIMARY]
GO
--3.修改储存过程　MyGSFun_GetExtChrData
--使用霹雳系统的结婚多库储存过程表MyGSFun_GetExtChrData
CREATE proc MyGSFun_GetExtChrData
@AccountID varchar(10),
@Name varchar(10)
as
set nocount on
SELECT ExtChrData.*,WEB_ZS.ZSCS as ZSCount,ExtIdData.HaveCents as Cents
,ExtIdData.HYIdStat as HYIdStat
from ExtChrData
left join WEB_ZS on (ExtChrData.Name=WEB_ZS.NAME)
left join ExtIdData on (ExtIdData.AccountID=@AccountID)
where ExtChrData.AccountID=@accountid and ExtChrData.Name=@name
set nocount off
--4.--修改储存过程 MyGSFun_SetExtChrData

CREATE proc MyGSFun_SetExtChrData
@AccountID varchar(10),
@Name varchar(10),
@FQBZ int,
@FQCount int,
@FQNme varchar(10),
@Lores int,
@RTN varchar(100) OUTPUT
as
set nocount on
declare @ec int
,@ll int
,@jf int
,@jfbl int
set @jfbl=2 --设置积分兑换比例 1/X
set @ec=0
begin tran
select @ll=LastLores from extchrdata where accountid=@accountid and name=@name
--转换为积分
if @ll is null
set @jf=cast(@Lores/@jfbl as int)
else
set @jf=cast((@Lores-@ll)/@jfbl as int)
update ExtIdData set HaveCents=HaveCents+@jf where AccountID=@AccountID
--set @ec = @ec | @@error --不管积分更新是否成功都应更新角色数据
if @ll is not null begin
update extchrdata set FQName=@FQName,FQBZ=@FQBZ,FQCount=@FQCount
,Lores=@lores,LastLores=LastLores+@jf*@jfbl
where accountid=@accounid and name=@name
set @ec = @ec | @@error
end else begin
insert into extchrdata (AccountID,Name,FQBZ,FQCount,FQName,Lores,LastLores)
values (@AccountID,@ame,@FQBZ,@FQCount,@FQName,@Lores,@jf*@jfbl)
set @ec = @ec | @@error
end
if @ec = 0 begin
commit tran
set @RTN='OK'
end else begin
rollback tran
set @RTN='Update ExthrData Error !'
end
set nocount off

GO

--5..--修改储存过程 MyGSFun_SetExtChrData1

create proc MyGSFun_SetExtChrData1
@AccountID varchar(10),
@Name varchar(10),
@FQBZ int,
@FQCount int,
@FQName varchar(10),
@Lores int
as
set nocount on
dclare @ec int
,@ll int
,@jf int
,@jfbl int
,@RTN varchar(100)
set @jfbl=2 --设置积分兑换比例 1/X
set @ec=0
begin tran
select @ll=LastLores frm extchrdata where accountid=@accountid and name=@name
--转换为积分
if @ll is null
set @jf=cast(@Lores/@jfbl as int)
else
set @jf=cast((@Lores-@ll)/@jfbl as int)
update ExtIdData set HaveCents=HaveCents+@jf where AccountID=@AccountID
--set @ec = @ec | @@error --不管积分更新是否成功都应更新角色数据
if @ll is not null begin
update extchrdata set FQName=@FQName,FQBZ=@FQBZ,FQCount=@FQCount
,Lores=@lores,LastLores=LastLores+@jf*@jfbl
where accountid=@accountid and name=@name
set @ec = @ec | @@error
end else begin
insert into extchrdata (AccountID,Name,FQBZ,FQCount,FQName,Lores,LastLores)
values (@AccountID,@FQCount,@FQName,@Lores,@jf*@jfbl)
set @ec = @ec | @@error
end
if @ec = 0 begin
commit tran
set @RTN='OK'
end else begin
rollback tran
set @RN='Update ExtChrData Error !'
end
select @RTN RTN
set nocount off

GO

原本第四项不用做的,为免失误一起修改了.
修改后结婚可用商店名称显示夫妻关系,下线后上线正常显示,并提示夫妻在线.
多仓库:如果仓库显示为空,可用 /仓库 0 切换回主仓库.提供两个仓库够用了吧.~~by 天涯浪人2005-1-16
注意:ExtChrData表
[LastLores] [int] NULL ,
[Stat] [int] NULL ,
[HYCharStat] [int] NULL
的字段可为空,不然LOG提示出错. 注意,这个修改方法只适用于霹雳系统,RC的网站系统未作研究,不足之处敬请指点.

转载时请注明本文出自:http://www.qsqj.com