⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 envdstar.dsr

📁 注释:用VB开发的进销存系统源码
💻 DSR
📖 第 1 页 / 共 5 页
字号:
      CommDispId      =   -1
      RsDispId        =   -1
      CommandText     =   "SELECT 表单号,商品编码,品名,单位,批发价,售价差额,数量 FROM 批发单"
      ActiveConnectionName=   "conDStar"
      CommandType     =   1
      RelateToParent  =   -1  'True
      ParentCommandName=   "cmd批发单"
      Expanded        =   -1  'True
      IsRSReturning   =   -1  'True
      NumFields       =   7
      BeginProperty Field1 
         Precision       =   0
         Size            =   7
         Scale           =   0
         Type            =   129
         Name            =   "表单号"
         Caption         =   "表单号"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   13
         Scale           =   0
         Type            =   129
         Name            =   "商品编码"
         Caption         =   "商品编码"
      EndProperty
      BeginProperty Field3 
         Precision       =   0
         Size            =   40
         Scale           =   0
         Type            =   129
         Name            =   "品名"
         Caption         =   "品名"
      EndProperty
      BeginProperty Field4 
         Precision       =   0
         Size            =   10
         Scale           =   0
         Type            =   129
         Name            =   "单位"
         Caption         =   "单位"
      EndProperty
      BeginProperty Field5 
         Precision       =   10
         Size            =   19
         Scale           =   4
         Type            =   131
         Name            =   "批发价"
         Caption         =   "批发价"
      EndProperty
      BeginProperty Field6 
         Precision       =   10
         Size            =   19
         Scale           =   4
         Type            =   131
         Name            =   "售价差额"
         Caption         =   "售价差额"
      EndProperty
      BeginProperty Field7 
         Precision       =   12
         Size            =   19
         Scale           =   2
         Type            =   131
         Name            =   "数量"
         Caption         =   "数量"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   1
      BeginProperty Relation1 
         ParentField     =   "表单号"
         ChildField      =   "表单号"
         ParentType      =   0
         ChildType       =   0
      EndProperty
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset14 
      CommandName     =   "cmdTemp"
      CommDispId      =   1077
      RsDispId        =   1186
      CommandText     =   "SELECT '临时' AS CMDTEMP "
      ActiveConnectionName=   "conDStar"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   1
      BeginProperty Field1 
         Precision       =   0
         Size            =   4
         Scale           =   0
         Type            =   200
         Name            =   "CMDTEMP"
         Caption         =   "CMDTEMP"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset15 
      CommandName     =   "cmd配送中心库存"
      CommDispId      =   1088
      RsDispId        =   1105
      CommandText     =   "SELECT 'STORETEMP' AS STORETEMP FROM 配送中心库存"
      ActiveConnectionName=   "conDStar"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   1
      BeginProperty Field1 
         Precision       =   0
         Size            =   9
         Scale           =   0
         Type            =   200
         Name            =   "STORETEMP"
         Caption         =   "STORETEMP"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset16 
      CommandName     =   "cmd汇总报表"
      CommDispId      =   -1
      RsDispId        =   -1
      CommandText     =   $"envDStar.dsx":0307
      ActiveConnectionName=   "conDStar"
      CommandType     =   1
      RelateToParent  =   -1  'True
      ParentCommandName=   "cmd汇总"
      Expanded        =   -1  'True
      IsRSReturning   =   -1  'True
      NumFields       =   14
      BeginProperty Field1 
         Precision       =   0
         Size            =   9
         Scale           =   0
         Type            =   200
         Name            =   "STORETEMP"
         Caption         =   "STORETEMP"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   12
         Scale           =   0
         Type            =   129
         Name            =   "DCODE"
         Caption         =   "DCODE"
      EndProperty
      BeginProperty Field3 
         Precision       =   0
         Size            =   10
         Scale           =   0
         Type            =   129
         Name            =   "SELLDAY"
         Caption         =   "SELLDAY"
      EndProperty
      BeginProperty Field4 
         Precision       =   0
         Size            =   20
         Scale           =   0
         Type            =   129
         Name            =   "GCODE"
         Caption         =   "GCODE"
      EndProperty
      BeginProperty Field5 
         Precision       =   0
         Size            =   40
         Scale           =   0
         Type            =   129
         Name            =   "DNAME"
         Caption         =   "DNAME"
      EndProperty
      BeginProperty Field6 
         Precision       =   0
         Size            =   40
         Scale           =   0
         Type            =   129
         Name            =   "GNAME"
         Caption         =   "GNAME"
      EndProperty
      BeginProperty Field7 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "SELLQUANTITY"
         Caption         =   "SELLQUANTITY"
      EndProperty
      BeginProperty Field8 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "SELLSUM"
         Caption         =   "SELLSUM"
      EndProperty
      BeginProperty Field9 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "STOCKQUANTITY"
         Caption         =   "STOCKQUANTITY"
      EndProperty
      BeginProperty Field10 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "STOCKSUM"
         Caption         =   "STOCKSUM"
      EndProperty
      BeginProperty Field11 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "OTHERQUANTITY"
         Caption         =   "OTHERQUANTITY"
      EndProperty
      BeginProperty Field12 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "OTHERSUM"
         Caption         =   "OTHERSUM"
      EndProperty
      BeginProperty Field13 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "STOREQUANTITY"
         Caption         =   "STOREQUANTITY"
      EndProperty
      BeginProperty Field14 
         Precision       =   18
         Size            =   19
         Scale           =   0
         Type            =   131
         Name            =   "STORESUM"
         Caption         =   "STORESUM"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   1
      BeginProperty Relation1 
         ParentField     =   "STORETEMP"
         ChildField      =   "STORETEMP"
         ParentType      =   0
         ChildType       =   0
      EndProperty
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset17 
      CommandName     =   "cmd汇总"
      CommDispId      =   1112
      RsDispId        =   1117
      CommandText     =   "SELECT 'STORETEMP' AS STORETEMP FROM UPLOAD"
      ActiveConnectionName=   "conDStar"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   1
      BeginProperty Field1 
         Precision       =   0
         Size            =   9
         Scale           =   0
         Type            =   200
         Name            =   "STORETEMP"
         Caption         =   "STORETEMP"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset18 
      CommandName     =   "cmdStore"
      CommDispId      =   1118
      RsDispId        =   1123
      CommandText     =   "SELECT 商品编码,品名,数量,进价金额,售价金额,单位,经营方式  FROM 配送中心库存"
      ActiveConnectionName=   "conDStar"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   7
      BeginProperty Field1 
         Precision       =   0
         Size            =   13
         Scale           =   0
         Type            =   129
         Name            =   "商品编码"
         Caption         =   "商品编码"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   40
         Scale           =   0
         Type            =   129
         Name            =   "品名"
         Caption         =   "品名"
      EndProperty
      BeginProperty Field3 
         Precision       =   12
         Size            =   19
         Scale           =   2
         Type            =   131
         Name            =   "数量"
         Caption         =   "数量"
      EndProperty
      BeginProperty Field4 
         Precision       =   12
         Size            =   19
         Scale           =   2
         Type            =   131
         Name            =   "进价金额"
         Caption         =   "进价金额"
      EndProperty
      BeginProperty Field5 
         Precision       =   12
         Size            =   19
         Scale           =   2
         Type            =   131
         Name            =   "售价金额"
         Caption         =   "售价金额"
      EndProperty
      BeginProperty Field6 
         Precision       =   0
         Size            =   4
         Scale           =   0
         Type            =   129
         Name            =   "单位"
         Caption         =   "单位"
      EndProperty
      BeginProperty Field7 
         Precision       =   0
         Size            =   4
         Scale           =   0
         Type            =   129
         Name            =   "经营方式"
         Caption         =   "经营方式"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset19 
      CommandName     =   "cmd月库存商品帐"
      CommDispId      =   1124
      RsDispId        =   1129
      CommandText     =   "SELECT * FROM 月结报表"
      ActiveConnectionName=   "conDStar"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   9
      BeginProperty Field1 
         Precision       =   0
         Size            =   12
         Scale           =   0
         Type            =   129
         Name            =   "编码"
         Caption         =   "编码"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   40
         Scale           =   0
         Type            =   129
         Name            =   "品名"
         Caption         =   "品名"
      EndProperty
      BeginProperty Field3 
         Precision       =   18
         Size            =   19
         Scale           =   2
         Type            =   131
         Name            =   "上月结存"
         Caption         =   "上月结存"
      EndProperty
      BeginProperty Field4 
         Precision       =   18
         Size            =   19
         Scale           =   2
         Type            =   131
         Name            =   "本期购进"
         Caption         =   "本期购进"
      EndProperty
      BeginProperty Field5 
         Precision       =   18

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -