sql.dll

仓库管理系统的部分代码！！！！设计时可以参考

  )
go
------------------------------------------------------------
--数据表DivideMst=拆分单主表
create table DivideMst
  (
  T_No           char(12) NOT NULL PRIMARY KEY CLUSTERED,  --单据编号
  Operate_Date   DateTime NULL,  --操作日期
  Operator       char(10) NULL,  --操作员
  Employer       char(10) NULL,  --经手人
  Checker        char(10) NULL,  --审核人
  S_No           char(6) NULL,  --仓库编号
  G_No           char(13) NULL,  --商品编号
  Attrib         bit default 0,  --单据性质
  Remark         char(60) NULL,  --备注
  Make_Date      DateTime NULL,  --拆分日期
  In_Price       Money default 0,  --进货价格
  Sale_Price     Money default 0,  --销售价格
  Number         Float default 0  --数量
  )
go
------------------------------------------------------------
--数据表DivideDtl=拆分单明细表
create table DivideDtl
  (
  R_No       int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  T_No           char(12) NULL,  --单据编号
  G_No           char(13) NULL,  --商品编号
  In_Price       money default 0,  --进货价格
  Sale_Price     money default 0,  --销售价格
  Number         Float default 0,  --数量
  Remark         char(20) NULL  --备注
  )
go
------------------------------------------------------------
--数据表CntSet=盘点设置表
create table CntSet
  (
  R_No           int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  Cnt_No         int NOT NULL,  --单据编号
  Make_Date      DateTime NULL, --盘点日期
  Effect_Storage char(255)  --盘点仓库
  )
go
------------------------------------------------------------
--数据表CntSetDtl=盘点结果表
create table CntSetDtl
  (
  R_No           int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  Cnt_No         int NOT NULL,  --单据编号
  Make_Date      DateTime NULL, --盘点日期
  S_No           char(6) NULL,  --仓库编号
  Old_In_Amount  Money default 0,  --进价总额
  Old_Sale_Amount Money default 0,  --售价总额
  New_In_Amount  Money default 0,  --进价总额
  New_Sale_Amount Money default 0  --售价总额
  )
go
------------------------------------------------------------
--建数据表Syyyymmdd=商品库存量表
create table Syyyymmdd
  (
  R_No       int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  S_No           char(6) NULL,  --仓库编号
  G_No           char(13) NULL,  --商品编号
  Number         Float NULL  --库存量
  )
go
------------------------------------------------------------
--数据表CntMst=盘点单主表
create table CntMst
  (
  T_No           char(12) NOT NULL PRIMARY KEY CLUSTERED,  --单据编号
  Cnt_No         int NOT NULL,  --
  Operate_Date   DateTime NULL,  --操作日期
  Operator       char(10) NULL,  --操作员
  Employer       char(10) NULL,  --经手人
  Checker        char(10) NULL,  --审核人
  S_No           char(6) NULL,  --仓库编号
  Attrib         bit default 0,  --单据性质
  Effect_Flag    bit default 0,  --生效标志
  Remark         char(60) NULL,  --备注
  Make_Date      DateTime NULL,  --盘点日期
  Old_In_Amount  Money default 0,  --进价总额
  Old_Sale_Amount Money default 0,  --售价总额
  New_In_Amount  Money default 0,  --进价总额
  New_Sale_Amount Money default 0  --售价总额
  )
go
------------------------------------------------------------
--数据表CntDtl=盘点单明细表
create table CntDtl
  (
  R_No           int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  T_No           char(12) NULL,  --单据编号
  G_No           char(13) NULL,  --商品编号
  In_Price       money default 0,  --进货价格
  Sale_Price     money default 0,  --销售价格
  Old_Number     Float default 0,  --库存数量
  New_Number     Float default 0,  --盘点数量
  Remark         char(20) NULL  --备注
  )
go
------------------------------------------------------------
--数据表Cyyyymmdd=盘点量表
create table Cyyyymmdd
  (
  R_No           int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  S_No           char(6) NULL,  --仓库编号
  G_No           char(13) NULL,  --商品编号
  In_Price       money default 0,  --进货价格
  Sale_Price     money default 0,  --销售价格
  Old_Number     Float NULL,  --库存数量
  New_Number     Float NULL,  --盘点数量
  Effect_Flag    bit default 0 --是否生效
  )
go
------------------------------------------------------------
--数据表UseMst=领用单主表
create table UseMst
  (
  T_No           char(12) NOT NULL PRIMARY KEY CLUSTERED,  --单据编号
  Operate_Date   DateTime NULL,  --操作日期
  Operator       char(10) NULL,  --操作员
  Employer       char(10) NULL,  --经手人
  Checker        char(10) NULL,  --审核人
  S_No           char(6) NULL,  --仓库编号
  D_No           char(6) NULL,  --部门编号
  Attrib         bit default 0,  --单据性质
  Remark         char(60) NULL,  --备注
  Make_Date      DateTime NULL,  --领用日期
  In_Amount      Money default 0,  --进价总额
  Sale_Amount    Money default 0  --售价总额
  )
go
------------------------------------------------------------
--数据表UseDtl=领用单明细表
create table UseDtl
  (
  R_No       int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  T_No           char(12) NULL,  --单据编号
  G_No           char(13) NULL,  --商品编号
  In_Price       money default 0,  --进货价格
  Sale_Price     money default 0,  --销售价格
  Number         Float default 0,  --数量
  Remark         char(20) NULL  --备注
  )
go
------------------------------------------------------------
--数据表XAdjMst=销价调价单主表
create table XAdjMst
  (
  T_No           char(12) NOT NULL PRIMARY KEY CLUSTERED,  --单据编号
  Operate_Date   DateTime NULL,  --操作日期
  Operator       char(10) NULL,  --操作员
  Employer       char(10) NULL,  --经手人
  Checker        char(10) NULL,  --审核人
  Attrib         bit default 0,  --单据性质
  Remark         char(60) NULL,  --备注
  Make_Date      DateTime NULL,  --调价日期
  Old_Amount     Money default 0,  --原价金额
  New_Amount     Money default 0  --新价金额
  )
go
------------------------------------------------------------
--数据表XAdjDtl=销价调价单明细表
create table XAdjDtl
  (
  R_No           int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  T_No           char(12) NULL,  --单据编号
  G_No           char(13) NULL,  --商品编号
  Number         Float default 0,  --数量
  Old_Sale_Price Money default 0,  --销售价格
  New_Sale_Price Money default 0,  --销售价格
  Remark         char(20) NULL  --备注
  )
go

------------------------------------------------------------
--数据表Cash=现金流水帐
create table Cash
  (
  R_No           int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  Make_Date      DateTime NUll,  --发生日期
  C_Name         char(60) NULL,  --客户名称
  T_No           char(12) NULL,  --凭证编号
  Item           char(16) NULL,  --对方科目
  Summary        char(40) NULL,  --摘要
  MoneyKind      char(16) NULL,  --货币种类
  In_Amount      Money default 0,  --收入金额(借方)
  Out_Amount     Money default 0,  --支出金额(贷方)
  Rest_Amount    Money default 0  --余饿余额
  )
go
------------------------------------------------------------
--数据表Bank=银行流水帐
create table Bank
  (
  R_No           int NOT NULL IDENTITY PRIMARY KEY CLUSTERED,  --记录编号
  Make_Date      DateTime NUll,  --发生日期
  Bank_Name      char(20) NULL,  --开户银行
  Bank_No        char(20) NULL,  --银行帐号
  C_Name         char(60) NULL,  --客户名称
  T_No           char(12) NULL,  --凭证编号
  Item           char(16) NULL,  --对方科目
  Summary        char(40) NULL,  --摘要
  MoneyKind      char(16) NULL,  --货币种类
  In_Amount      Money default 0,  --收入金额(借方)
  Out_Amount     Money default 0,  --支出金额(贷方)
  Rest_Amount    Money default 0  --余饿余额
  )
go
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
--供应商货款流水帐
create view VendorMoneyBill WITH ENCRYPTION as 
select 
  V_No, 
  T_No, 
  Make_Date, 
  '送货入库' as Summary, 
  In_Amount 
  from InMst 
  where Attrib = 1
union all
select 
  V_No, 
  T_No, 
  Make_Date, 
  '退货出库' as Summary, 
  -In_Amount as In_Amount
  from RtnMst 
  where Attrib = 1
union all
select 
  V_No, 
  T_No, 
  Make_Date, 
  '存货调价' as Summary, 
  New_Amount - Old_Amount as In_Amount 
  from AdjMst 
  where Attrib = 1
union all
select 
  V_No, 
  T_No, 
  Make_Date, 
  '货款结算' as Summary, 
  -Pay_Amount as In_Amount
  from PayMst 
  where Attrib = 1
go
------------------------------------------------------------
--销售客户货款流水帐
create view ClientMoneyBill WITH ENCRYPTION as 
select 
  C_No, 
  T_No, 
  Make_Date, 
  '商品销售' as Summary, 
  Sale_Amount 
  from SaleMst 
  where Attrib = 1
union all
select 
  C_No, 
  T_No, 
  Make_Date, 
  '销售退货' as Summary, 
  -Sale_Amount as Sale_Amount 
  from SRtnMst 
  where Attrib = 1
union all
select 
  C_No, 
  T_No, 
  Make_Date, 
  '销售调价' as Summary, 
  New_Amount - Old_Amount as Sale_Amount 
  from SAdjMst 
  where Attrib = 1
union all
select 
  C_No, 
  T_No, 
  Make_Date, 
  '销售收款' as Summary, 
  -Pay_Amount as Sale_Amount 
  from SPayMst 
  where Attrib = 1
go
------------------------------------------------------------
--仓库货款流水帐
create view StorageMoneyBill WITH ENCRYPTION as 
select 
  S_No, 
  T_No, 
  Make_Date, 
  '送货入库' as Summary, 
  In_Amount, 
  Sale_Amount 
  from InMst 
  where Attrib = 1
union all
select 
  S_No, 
  T_No, 
  Make_Date, 
  '退货出库' as Summary, 
  -In_Amount as In_Amount, 
  -Sale_Amount as Sale_Amount 
  from RtnMst 
  where Attrib = 1
union all
select 
  S_No, 
  T_No, 
  Make_Date, 
  '商品销售' as Summary, 
  -In_Amount as In_Amount, 
  -Sale_Amount as Sale_Amount 
  from SaleMst 
  where Attrib = 1
union all
select 
  S_No, 
  T_No, 
  Make_Date, 
  '销售退货' as Summary, 
  In_Amount, 
  Sale_Amount 
  from SRtnMst 
  where Attrib = 1
union all
select 
  From_S_No as S_No, 
  T_No, 
  Make_Date, 
  '调拨出库' as Summary, 
  -In_Amount as In_Amount,  
  -Sale_Amount as Sale_Amount
  from MoveMst 
  where Attrib = 1
union all
select 
  To_S_No as S_No, 
  T_No, 
  Make_Date, 
  '调拨入库' as Summary, 
  In_Amount, 
  Sale_Amount 
  from MoveMst 
  where Attrib = 1
union all
select 
  S_No, 
  '第' + ltrim(Str(Cnt_No)) + '次盘点' as T_No, 
  Make_Date, '盘点盈亏' as Summary, 
  (New_In_Amount - Old_In_Amount) as In_Amount, 
  (New_Sale_Amount - Old_Sale_Amount) as Sale_Amount 
  from CntSetDtl
union all
select 
  S_No, 
  T_No, 
  Make_Date, 
  '商品损溢' as Summary, 
  In_Amount, 
  Sale_Amount 
  from BadMst 
  where Attrib = 1
union all
select 
  S_No, 
  T_No,