employee.cls

数据库建立

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Employee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Student_Id  Int 学生编号
'2 Student_Name  Varchar 50  姓名
'3 Sex Char 2  性别
'4 Title Varchar 20  职务
'5 Score Tinyint 考试成绩

'初始化成员变量
Public Sub Init()
  Student_Id = 0
  Student_Name = ""
  Sex = ""
  Title = ""
  Score = 0
End Sub

'删除数据
Public Sub Delete(ByVal TmpStuId As Long)
  Dim SQLstmt As String    '存放SQL语句的字符串
  
  '连接数据库
  DB_Connect
  '执行SQL语句
  SQLstmt = "DELETE FROM Students WHERE Student_Id=" + Trim(Str(TmpStuId))
  OdbcExt (SQLstmt)
  '释放语句句柄
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开连接
  DB_Disconnect
End Sub

Public Sub Insert()
  Dim SQLstmt As String    '存放SQL语句的字符串
  
  '连接数据库
  DB_Connect
  '执行SQL语句
  SQLstmt = "Insert Into Students (Student_Name, Sex, Title, Score) Values('" _
          + Trim(Student_Name) + "','" + Trim(Sex) + "','" + Trim(Title) + "'," _
          + Trim(Str(Score)) + ")"
  OdbcExt (SQLstmt)
  '释放语句句柄
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开连接
  DB_Disconnect
End Sub

Public Sub Update(ByVal OriEmpId As Long)
  Dim SQLstmt As String    '存放SQL语句的字符串
  
  '连接数据库
  DB_Connect
  '执行SQL语句
  SQLstmt = "UPDATE Students SET Student_Name='" + Trim(Student_Name) + "', Sex='" _
          + Trim(Sex) + "', Title='" + Trim(Title) + "', Score=" + Trim(Str(Score)) _
          + " WHERE Student_Id=" + Trim(Str(OriEmpId))
  OdbcExt (SQLstmt)
  '释放语句句柄
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开连接
  DB_Disconnect
End Sub