:大数据实习报告

　　Private Sub m_book_Click() frmBookManage.Show End Sub

　　Private Sub m_bookquery_Click() frmBookQuery.Show End Sub

　　Private Sub m_exit_Click() Unload Me End Sub

　　Private Sub m_lend_Click() frmLoanManage.Show End Sub

　　Private Sub m_lend_report_Click() dsrBorrowManageReport.Show End Sub

　　Private Sub m_lendp_Click()

　　dsrLibraryRankReport.Show End Sub

　　用户登陆界面代码：

　　Option Explicit Private Sub CmdCancel_Click() Unload Me End Sub Private Sub CmdOk_Click() Dim miCount As Integer '用于记录输入密码次数 Dim str As String

　　str = "select 密码,管-理-员类别 from 管-理-员用户表 where 用户名 = '" & Trim(txtUserName.Text) & "'" Adodc1.RecordSource = str Adodc1.Refresh