book_cli.bas

VB示例源码 VB source code,very important.good,download VB source code,very important.good,download

Attribute VB_Name = "ClientMain"
Option Explicit

Public gobjServer As Object ' 图书销售服务商业对象
Public goStatusPanel As Panel ' 状态栏面板对象

Public gstrPubRevenue As String
Public gstrAuthorRoyalty As String
Public gDBName As String           ' 保留引用全局数据库的字符串

Public gSn As ADODB.Recordset         ' ADO 记录集对象
Public gCN As ADODB.Connection        ' 全局 ADO 连接对象

Public rsTitles As ADODB.Recordset
Public rsAuthors As ADODB.Recordset

Sub GetAuthors()
   On Error GoTo GetAuthorsError
   Set rsAuthors = gobjServer.GetAuthors
   Do While Not rsAuthors.EOF
      frmRevenue.cboAuthors.AddItem rsAuthors.Fields(0).Value
      rsAuthors.MoveNext
   Loop
   frmRevenue.cboAuthors.ListIndex = 0
  Exit Sub
GetAuthorsError:
   If IsObject(rsAuthors) Then
      rsAuthors.Close
    Else
      ' 在这里处理其他错误
   End If
   Exit Sub
End Sub

Sub GetTitles(strAuthor As String)
   Dim strSQL As String
   Dim rsTitles As ADODB.Recordset
   On Error GoTo GetTitlesError
   
   strSQL = "SELECT Titles.Title " & _
         "FROM Titles INNER JOIN (Authors INNER JOIN [Title Author] ON Authors.Au_ID = [Title Author].Au_ID) ON Titles.ISBN = [Title Author].ISBN " & _
         "WHERE ((Authors.Author=" & Chr$(34) & strAuthor & Chr$(34) & "));"

   Set rsTitles = gobjServer.GetTitles(strSQL)
   frmRevenue.cboBooks.Clear

   Do While Not rsTitles.EOF
      frmRevenue.cboBooks.AddItem rsTitles!Title
      rsTitles.MoveNext
   Loop

   rsTitles.Close
   frmRevenue.cboBooks.ListIndex = 0
Exit Sub
GetTitlesError:
  If Not rsTitles Is Nothing Then rsTitles.Close
  Exit Sub
End Sub