wageinfo.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 = "WageInfo"
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 BasicWage 数字，双精度型，标题：基本工资，默认值：0
'5 MissionWage 数字，双精度型，标题：岗位工资，默认值：0
'6 Fund 数字，双精度型，标题：公积金，默认值：0
'7 Bonus 数字，双精度型，标题：资金，默认值：0
'8 Allowance 数字，双精度型，标题：补贴，默认值：0
'9 SLWage 数字，双精度型，标题：工龄工资，默认值：0
'10 PostWage 数字，双精度型，标题：职称工资，默认值：0
'11 Insurance 数字，双精度型，标题：保险费，默认值：0
'12 Fine 数字，双精度型，标题：罚金，默认值：0
'13 Tax 数字，双精度型，标题：个人所得税，默认值：0
'14 TotalWage 数字，双精度型，标题：应发工资，默认值：0
'15 SubWage 数字，双精度型，标题：应扣工资，默认值：0
'16 Wage 数字，双精度型，标题：实发工资，默认值：0
Public ENo As String
Public Name As String
Public DeptID As Integer
Public BasicWage As Double
Public MissionWage As Double
Public Fund As Double
Public Bonus As Double
Public Allowance As Double
Public SLWage As Double
Public PostWage As Double
Public Insurance As Double
Public Fine As Double
Public Tax As Double
Public TotalWage As Double
Public SubWage As Double
Public Wage As Double

'初始化
Public Sub Init()
  ENo = ""
  Name = ""
  DeptID = 0
  BasicWage = 0
  Fund = 0
  BasicWage = 0
  Bonus = 0
  Allowance = 0
  SLWage = 0
  PostWage = 0
  Insurance = 0
  Fine = 0
  Tax = 0
  TotalWage = 0
  SubWage = 0
  Wage = 0
End Sub

'插入一条记录
Public Sub Insert()
  '插入操作
  SQLStmt = "INSERT INTO WageInfo VALUES('" + Trim(StrReplace(ENo)) + "', '" _
          + Trim(StrReplace(Name)) + "', " + Trim(Str(DeptID)) + ", " _
          + Trim(Str(BasicWage)) + ", " + Trim(Str(MissionWage)) + ", " _
          + Trim(Str(Fund)) + ", " + Trim(Str(Bonus)) + ", " + Trim(Str(Allowance)) _
          + ", " + Trim(Str(SLWage)) + ", " + Trim(Str(PostWage)) + ", " _
          + Trim(Str(Insurance)) + ", " + Trim(Str(Fine)) + ", " _
          + Trim(Str(Tax)) + ", " + Trim(Str(TotalWage)) + ", " + Trim(Str(SubWage)) _
          + ", " + Trim(Str(Wage)) + ")"
  SQLExt SQLStmt
End Sub

'修改一条记录
Public Sub Update(ByVal paraENo As String)
  '修改操作
  SQLStmt = "UPDATE WageInfo SET Name = '" + Trim(StrReplace(Name)) _
          + "', DeptID = " + Trim(Str(DeptID)) + ", BasicWage = " _
          + Trim(Str(BasicWage)) + ", MissionWage = " + Trim(Str(MissionWage)) _
          + ", Fund = " + Trim(Str(Fund)) + ", Bonus = " + Trim(Str(Bonus)) _
          + ", Allowance = " + Trim(Str(Allowance)) + ", SLWage = " _
          + Trim(Str(SLWage)) + ", PostWage = " + Trim(Str(PostWage)) _
          + ", Insurance = " + Trim(Str(Insurance)) + ", Fine = " _
          + Trim(Str(Fine)) + ", Tax = " + Trim(Str(Tax)) _
          + ", TotalWage = " + Trim(Str(TotalWage)) + ", SubWage = " + Trim(Str(SubWage)) _
          + ", Wage = " + Trim(Str(Wage)) _
          + " WHERE ENo = '" + Trim(StrReplace(paraENo)) + "'"
  SQLExt SQLStmt
End Sub

'删除一条记录
Public Sub Delete(ByVal paraENo As String)
  '删除操作
  SQLStmt = "DELETE FROM WageInfo WHERE ENo = '" + Trim(StrReplace(paraENo)) + "'"
  SQLExt SQLStmt
End Sub