wageprovide.cls

sql的实例源码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "WageProvide"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 ENo 文本，关键字，字段大小：10，标题：员工编号 必填字段：是，允许空字符串：否，输入法模式：关闭
'2 Name 文本，字段大小：20，标题：姓名，必填字段（是），允许空字符串（否），输入法模式：开启
'3 DeptID 数字，整型，小数位数：0，标题：部门，默认值：0
'4 Wage 数字，双精度型，标题：实发工资，默认值：0
'5 IsProvide 是/否，格式：是/否，标题：是否已发放工资，默认值：False

Public ENo As String
Public Name As String
Public DeptID As Integer
Public Wage As Double
Public IsProvide As Boolean

'初始化过程
Public Sub Init()
  ENo = ""
  Name = ""
  DeptID = 0
  Wage = 0
  IsProvide = False
End Sub

'得到信息
Public Sub GetInfo(ByVal paraENo As String)
  ENo = paraENo                         '员工编号
  Dim rs As New ADODB.Recordset '定义结果集对象
  '使用SELECT语句读取是否发放工资数据
  SQLStmt = "SELECT * FROM WageProvide WHERE ENo = '" + Trim(StrReplace(paraENo)) + "'"
  Set rs = SQLQuery(SQLStmt)
  If Not rs.EOF Then
     Name = rs.Fields(1).Value           '员工姓名
     DeptID = rs.Fields(2).Value        '所在部门
     Wage = rs.Fields(3).Value          '应发工资
     IsProvide = rs.Fields(4).Value     '是否发放工资
  Else
    Init
  End If

  '断开连接
  DBDisconnect
End Sub

'插入操作
Public Sub Insert()
  '插入操作
  SQLStmt = "INSERT INTO WageProvide VALUES('" + Trim(StrReplace(ENo)) + "', '" _
            + Trim(StrReplace(Name)) + "', " + Trim(Str(DeptID)) + ", " _
            + Trim(Str(Wage)) + ", " + IIf(IsProvide, "True", "False") + ")"
  SQLExt SQLStmt
End Sub

'修改操作
Public Sub Update(ByVal paraENo As String)
  '修改操作
  SQLStmt = "UPDATE WageProvide SET Name = '" + Trim(StrReplace(Name)) _
          + "', DeptID = " + Trim(Str(DeptID)) + ", Wage = " + Trim(Str(Wage)) _
          + ", IsProvide = " + IIf(IsProvide, "TRUE", "FALSE") _
          + " WHERE ENo = '" + Trim(StrReplace(paraENo)) + "'"
  SQLExt SQLStmt
End Sub

'删除操作
Public Sub Delete(ByVal paraENo As String)
  '删除操作
  SQLStmt = "DELETE FROM WageProvide WHERE ENo = '" _
          + Trim(StrReplace(paraENo)) + "'"
  SQLExt SQLStmt
End Sub