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

📄 dataenvironment1.dsr

📁 本系统实现了对实验室设备的增删改查等基本的功能
💻 DSR
📖 第 1 页 / 共 3 页
字号:
         Caption         =   "Lend_Tel"
      EndProperty
      BeginProperty Field6 
         Precision       =   23
         Size            =   16
         Scale           =   3
         Type            =   135
         Name            =   "Lend_Date"
         Caption         =   "Lend_Date"
      EndProperty
      BeginProperty Field7 
         Precision       =   23
         Size            =   16
         Scale           =   3
         Type            =   135
         Name            =   "Return_Date"
         Caption         =   "Return_Date"
      EndProperty
      BeginProperty Field8 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Type_ID"
         Caption         =   "Type_ID"
      EndProperty
      BeginProperty Field9 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Lab_ID"
         Caption         =   "Lab_ID"
      EndProperty
      NumGroups       =   0
      ParamCount      =   0
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset11 
      CommandName     =   "Cmdmend1"
      CommDispId      =   1080
      RsDispId        =   1085
      CommandText     =   "select * from Mend_Info_VIEW where Equip_ID= ?"
      ActiveConnectionName=   "cntloginfo"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   13
      BeginProperty Field1 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "Equip_ID"
         Caption         =   "Equip_ID"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "Lab_Name"
         Caption         =   "Lab_Name"
      EndProperty
      BeginProperty Field3 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Type_Name"
         Caption         =   "Type_Name"
      EndProperty
      BeginProperty Field4 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Part"
         Caption         =   "Mend_Part"
      EndProperty
      BeginProperty Field5 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Exce"
         Caption         =   "Mend_Exce"
      EndProperty
      BeginProperty Field6 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Opin"
         Caption         =   "Mend_Opin"
      EndProperty
      BeginProperty Field7 
         Precision       =   0
         Size            =   10
         Scale           =   0
         Type            =   129
         Name            =   "Mend_Reply"
         Caption         =   "Mend_Reply"
      EndProperty
      BeginProperty Field8 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Uni"
         Caption         =   "Mend_Uni"
      EndProperty
      BeginProperty Field9 
         Precision       =   19
         Size            =   8
         Scale           =   0
         Type            =   6
         Name            =   "Mend_Fee"
         Caption         =   "Mend_Fee"
      EndProperty
      BeginProperty Field10 
         Precision       =   23
         Size            =   16
         Scale           =   3
         Type            =   135
         Name            =   "Mend_Date"
         Caption         =   "Mend_Date"
      EndProperty
      BeginProperty Field11 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Tel"
         Caption         =   "Mend_Tel"
      EndProperty
      BeginProperty Field12 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Type_ID"
         Caption         =   "Type_ID"
      EndProperty
      BeginProperty Field13 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Lab_ID"
         Caption         =   "Lab_ID"
      EndProperty
      NumGroups       =   0
      ParamCount      =   1
      BeginProperty P1 
         RealName        =   "Param1"
         Direction       =   1
         Precision       =   255
         Scale           =   255
         Size            =   16
         DataType        =   200
         HostType        =   8
         Required        =   -1  'True
      EndProperty
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset12 
      CommandName     =   "Cmdmend2"
      CommDispId      =   1086
      RsDispId        =   1090
      CommandText     =   "select * from Mend_Info_VIEW where Lab_Name= ?"
      ActiveConnectionName=   "cntloginfo"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   13
      BeginProperty Field1 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "Equip_ID"
         Caption         =   "Equip_ID"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "Lab_Name"
         Caption         =   "Lab_Name"
      EndProperty
      BeginProperty Field3 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Type_Name"
         Caption         =   "Type_Name"
      EndProperty
      BeginProperty Field4 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Part"
         Caption         =   "Mend_Part"
      EndProperty
      BeginProperty Field5 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Exce"
         Caption         =   "Mend_Exce"
      EndProperty
      BeginProperty Field6 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Opin"
         Caption         =   "Mend_Opin"
      EndProperty
      BeginProperty Field7 
         Precision       =   0
         Size            =   10
         Scale           =   0
         Type            =   129
         Name            =   "Mend_Reply"
         Caption         =   "Mend_Reply"
      EndProperty
      BeginProperty Field8 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Uni"
         Caption         =   "Mend_Uni"
      EndProperty
      BeginProperty Field9 
         Precision       =   19
         Size            =   8
         Scale           =   0
         Type            =   6
         Name            =   "Mend_Fee"
         Caption         =   "Mend_Fee"
      EndProperty
      BeginProperty Field10 
         Precision       =   23
         Size            =   16
         Scale           =   3
         Type            =   135
         Name            =   "Mend_Date"
         Caption         =   "Mend_Date"
      EndProperty
      BeginProperty Field11 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Mend_Tel"
         Caption         =   "Mend_Tel"
      EndProperty
      BeginProperty Field12 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Type_ID"
         Caption         =   "Type_ID"
      EndProperty
      BeginProperty Field13 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Lab_ID"
         Caption         =   "Lab_ID"
      EndProperty
      NumGroups       =   0
      ParamCount      =   1
      BeginProperty P1 
         RealName        =   "Param1"
         Direction       =   1
         Precision       =   255
         Scale           =   255
         Size            =   16
         DataType        =   200
         HostType        =   8
         Required        =   -1  'True
      EndProperty
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset13 
      CommandName     =   "Cmdbroke1"
      CommDispId      =   1091
      RsDispId        =   1097
      CommandText     =   $"DataEnvironment1.dsx":00C0
      ActiveConnectionName=   "cntloginfo"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   5
      BeginProperty Field1 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "设备编号"
         Caption         =   "设备编号"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "设备类型"
         Caption         =   "设备类型"
      EndProperty
      BeginProperty Field3 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "实验室"
         Caption         =   "实验室"
      EndProperty
      BeginProperty Field4 
         Precision       =   23
         Size            =   16
         Scale           =   3
         Type            =   135
         Name            =   "报废日期"
         Caption         =   "报废日期"
      EndProperty
      BeginProperty Field5 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "存放仓库"
         Caption         =   "存放仓库"
      EndProperty
      NumGroups       =   0
      ParamCount      =   1
      BeginProperty P1 
         RealName        =   "Param1"
         Direction       =   1
         Precision       =   255
         Scale           =   255
         Size            =   16
         DataType        =   200
         HostType        =   8
         Required        =   -1  'True
      EndProperty
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset14 
      CommandName     =   "Cmdpey1"
      CommDispId      =   1098
      RsDispId        =   1102
      CommandText     =   "select * from Pey_Info_VIEW where Lab_Name= ?"
      ActiveConnectionName=   "cntloginfo"
      CommandType     =   1
      IsRSReturning   =   -1  'True
      NumFields       =   9
      BeginProperty Field1 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "Equip_ID"
         Caption         =   "Equip_ID"
      EndProperty
      BeginProperty Field2 
         Precision       =   0
         Size            =   2147483647
         Scale           =   0
         Type            =   201
         Name            =   "Type_Name"
         Caption         =   "Type_Name"
      EndProperty
      BeginProperty Field3 
         Precision       =   0
         Size            =   16
         Scale           =   0
         Type            =   129
         Name            =   "Lab_Name"
         Caption         =   "Lab_Name"
      EndProperty
      BeginProperty Field4 
         Precision       =   0
         Size            =   100
         Scale           =   0
         Type            =   200
         Name            =   "Pey_Exce"
         Caption         =   "Pey_Exce"
      EndProperty
      BeginProperty Field5 
         Precision       =   19
         Size            =   8
         Scale           =   0
         Type            =   6
         Name            =   "Pey_Mon"
         Caption         =   "Pey_Mon"
      EndProperty
      BeginProperty Field6 
         Precision       =   0
         Size            =   50
         Scale           =   0
         Type            =   200
         Name            =   "Pey_Unit"
         Caption         =   "Pey_Unit"
      EndProperty
      BeginProperty Field7 
         Precision       =   23
         Size            =   16
         Scale           =   3
         Type            =   135
         Name            =   "Pey_Date"
         Caption         =   "Pey_Date"
      EndProperty
      BeginProperty Field8 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Type_ID"
         Caption         =   "Type_ID"
      EndProperty
      BeginProperty Field9 
         Precision       =   10
         Size            =   4
         Scale           =   0
         Type            =   3
         Name            =   "Lab_ID"
         Caption         =   "Lab_ID"
      EndProperty
      NumGroups       =   0
      ParamCount      =   1
      BeginProperty P1 
         RealName        =   "Param1"
         Direction       =   1
         Precision       =   255
         Scale           =   255
         Size            =   16
         DataType        =   200
         HostType        =   8
         Required        =   -1  'True
      EndProperty
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
End
Attribute VB_Name = "DataEnvironment1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


⌨️ 快捷键说明

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