仪表.cls

这是一个基于VB开发的程序,实现的是对仪器的查找和定期检修,并对检修的设备进行相关处理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "仪表"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public 序号 As Integer          '序号，设置为主键
Public 所属设备 As String         '所属设备
Public 仪表编号 As String         '仪表编号
Public 仪表名称 As String         '仪表名称
Public 分类 As String         '分类
Public 量程 As String         '量程
Public 检定周期 As String         '检定周期
Public 上次检定日期 As String         '上次检定日期
Public 下次检定日期 As String         '下次检定日期
Public 备注 As String         '备注


'初始化成员变量
Public Sub Init()
  序号 = ""
  所属设备 = ""
  仪表编号 = ""
  仪表名称 = ""
  分类 = ""
  量程 = ""
    上次检定日期 = ""
    下次检定日期 = ""
    备注 = ""
      
End Sub

'删除数据
Public Sub Delete(ByVal TmpId As Integer)
  Dim SQLstmt As String    '存放SQL语句的字符串
  '执行DELETE语句,删除EmpId等于TmpId的记录
  SQLstmt = " DELETE FROM 仪表 WHERE 仪表编号 = '" + Trim(TmpId) + " ' "
  SQLExt (SQLstmt)
End Sub

Public Sub Insert()
  Dim SQLstmt As String    '存放SQL语句的字符串
  '执行INSERT语句
  SQLstmt = "INSERT INTO 仪表(序号,所属设备,仪表编号,仪表名称,分类,量程,检定周期,上次检定日期,下次检定日期,备注) VALUES('" + Trim(序号) + "','" _
          + Trim(所属设备) + "','" + Trim(仪表编号) + "','" + Trim(仪表名称) + "','" _
          + Trim(分类) + "','" + Trim(量程) + "','" _
          + Trim(检定周期) + "','" + Trim(上次检定日期) + "','" + Trim(下次检定日期) + "','" + Trim(备注) + "')"
  SQLExt (SQLstmt)
End Sub

Public Sub Update(ByVal OriId As String)
  Dim SQLstmt As String    '存放SQL语句的字符串
  
  '执行SQL语句
  SQLstmt = "UPDATE 仪表 SET 序号='" + Trim(序号) + "', 所属设备='" _
          + Trim(所属设备) + "', 仪表编号='" + Trim(仪表编号) + "', 仪表名称=" + Trim(仪表名称) _
          + ", 分类 ='" + Trim(分类) + "', 量程='" _
          + Trim(量程) + "', 检定周期='" + Trim(检定周期) + "', 上次检定日期='" + Trim(上次检定日期) + "',下次检定日期='" + Trim(下次检定日期) + "',备注='" _
          + Trim(备注) + "' WHERE 仪表编号=" + Trim(OriId)
  SQLExt (SQLstmt)
End Sub