clsform.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   465
      Left            =   765
      TabIndex        =   0
      Top             =   1035
      Width           =   1815
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private WithEvents objAuthor As CAuthor
Attribute objAuthor.VB_VarHelpID = -1
'触发事件的模块需有相应的事件代码，事件的触发才会展现
Private Sub Command1_Click()
    Dim objAuthors As New CAuthors
    Dim lngAuthorID As Long
    
    Dim dcnDB As New ADODB.Connection
    
    dcnDB.Open "Provider=Microsoft.jet.OLEDB.3.51;Data Source=" & App.Path & "\biblio.mdb"
    objAuthors.Init dcnDB
    Set objAuthor = objAuthors.Add("John Jamison", 1961)
    
    lngAuthorID = objAuthor.AuID
    
    objAuthor.AuthorName = "谭怀志"
    objAuthor.Save
    Set objAuthor = Nothing
    
    Set objAuthor = New CAuthor
    objAuthor.Init dcnDB, lngAuthorID
    MsgBox objAuthor.AuthorName
End Sub
'自定义事件代码
Private Sub objAuthor_InvalidData(strReason As String)
    MsgBox strReason, vbExclamation, "Author Data Error!!!"
End Sub
'自定义事件代码
Private Sub objAuthor_ValidData()
    MsgBox " Save Recordset OK!!!"
End Sub