frmmain.vb

The Management Information System of Library using .NET

    End Sub

#End Region
#Region "用户生成的代码"
    Private Sub muiBookManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiBookManage.Click
        Dim myform As New FrmAddBook
        myform.ShowDialog()
    End Sub

    Private Sub muiAuManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiAuManage.Click
        Dim myform As New frmAddAu
        myform.ShowDialog()
    End Sub

    Private Sub muiExitSystem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiExitSystem.Click
        Me.Close()
    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        islog = False
        Dim frmStatusMessage As New frmShowProgress
        frmStatusMessage.Show("正在连接到数据服务器...")
        Dim IsConnect As Boolean = False
        frmStatusMessage.setProgress(15)
        Dim testConnect As New SqlClient.SqlConnection
        Try
            frmStatusMessage.setProgress(55)
            Me.readcnstr()
            'MsgBox(cnstr)
            frmStatusMessage.setProgress(88)
            testConnect.ConnectionString = cnstr
            testConnect.Open()
            frmStatusMessage.setProgress(100)
            IsConnect = True
        Catch ex As Exception
            MessageBox.Show("连接数据库失败,请设置后重新进入系统", "信息", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            frmStatusMessage.Close()
            Me.muiSetConnection.PerformClick()
            Me.Close()
        Finally
            testConnect.Close()
        End Try
        frmStatusMessage.Close()
        If IsConnect Then
            loginFrm()
        End If
    End Sub

    Private Sub muiLockSystem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiLockSystem.Click
        Me.islog = False
        Dim myfrm As New frmLockSystem
        myfrm.UserId = Me.CurrentUser
        myfrm.IsLogSuccess = False
        myfrm.ShowDialog()

        If myfrm.IsLogSuccess = False Then
            Me.Close()
        Else
            Me.islog = True
            Me.sbpdate.Text = System.DateTime.Now
        End If


    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is Me.TbtnLockSystem Then
            Me.muiLockSystem.PerformClick()
        ElseIf e.Button Is Me.tbtnBookManage Then
            Me.muiBookManage.PerformClick()
        ElseIf e.Button Is Me.tbtnAuManage Then
            Me.muiAuManage.PerformClick()
        ElseIf e.Button Is Me.tbtnExitSystem Then
            Me.muiExitSystem.PerformClick()
        ElseIf e.Button Is Me.tbtnBorrowBook Then
            Me.muiBorrowBook.PerformClick()
        ElseIf e.Button Is Me.tbtnBorrowBook Then
            Me.muiReturnBook.PerformClick()
        ElseIf e.Button Is Me.tbtnReturnBook Then
            Me.muiReturnBook.PerformClick()
        ElseIf e.Button Is Me.tbtnAuLost Then
            Me.muiAuLost.PerformClick()
        ElseIf e.Button Is Me.tbtnHelp Then
            Me.muiHelp.PerformClick()
        End If

    End Sub

    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If Me.islog = True Then
            Dim t As System.Windows.Forms.DialogResult
            t = MessageBox.Show("是否真的要退出系统?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
            If t = DialogResult.No Then
                e.Cancel = True
            End If
        End If

    End Sub

    Private Sub muiBorrowBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiBorrowBook.Click
        Dim myfrm As New frmBorrowBook
        myfrm.ShowDialog()
    End Sub


    Private Sub muiSetConnection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiSetConnection.Click
        Dim myfrm As New frmSet
        myfrm.ShowDialog()
        If myfrm.DialogResult = DialogResult.OK Then
            cnstr = myfrm.mycnstr
        End If
    End Sub
    Private Sub readcnstr()
        Dim ccn As New CsetCnInfo
        cnstr = ccn.GetCnFromfile()
    End Sub

    Sub loginFrm()
        islog = False
        Dim myLogfrm As New frmLogin
        myLogfrm.ShowDialog()
        If myLogfrm.IsLogSuccess = False Then
            Me.Close()
        Else
            Me.islog = True
            Me.CurrentUser = myLogfrm.strLogUser
            Me.sbpUser.Text = "当前管理员:" + myLogfrm.strLogUser
            Me.sbpdate.Text = System.DateTime.Now
            Me.sbpAuthorInfo.Text = "翟靖轩 设计 http://jshyf.yeah.net   "
        End If
        myLogfrm.Dispose()

        If CurrentUser = "songmeng" Then
            Me.muiDataManage.Visible = False
        Else
            Me.muiDataManage.Visible = True
        End If

    End Sub

    Private Sub muiAuAllBorrowList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiAuAllBorrowList.Click
        Dim myfrm As New frmAuAllBorrowList
        myfrm.ShowDialog()
    End Sub

    Private Sub muiReturnBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiReturnBook.Click
        Dim myfrm As New frmReturnBook
        myfrm.ShowDialog()
    End Sub

    Private Sub muiChangeUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiChangeUser.Click
        loginFrm()
    End Sub

    Private Sub muiLibInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiLibInfo.Click
        Dim myfrm As New frmLibInfo
        myfrm.ShowDialog()
    End Sub

    Private Sub muiAuSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiAuSort.Click
        Dim myfrm As New frmAuSort
        myfrm.ShowDialog()
    End Sub

    Private Sub muiBookSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiBookSort.Click
        Dim myfrm As New frmbooksort
        myfrm.ShowDialog()
    End Sub

    Private Sub muiBookPlace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiBookPlace.Click
        Dim myfrm As New frmBookPlace
        myfrm.ShowDialog()
    End Sub

    Private Sub muiforfeitSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiforfeitSet.Click
        Dim myfrm As New frmForfeit
        myfrm.ShowDialog()
    End Sub


    Private Sub muiAuLost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiAuLost.Click
        Dim myfrm As New frmAuLost
        myfrm.ShowDialog()
    End Sub


    Private Sub muiAuMaxDateList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiAuMaxDateList.Click
        Dim ds As New DataSet
        Try
            Dim cdata As New CdataService(cnstr)
            cdata.RunSP("SelectMaxDateAuList", ds)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            Exit Sub
        Finally

        End Try
        Dim myfrm2 As New frmStatus
        myfrm2.Show("正在导出报表...")
        Dim myfrm As New frmShowReport
        Dim rtd As New crtMaxDateAu
        rtd.SetDataSource(ds.Tables(0))
        myfrm.Text = "报表输出窗口..."
        myfrm.rpt.ReportSource = rtd
        myfrm.rpt.DisplayGroupTree = False
        myfrm2.Close()
        myfrm.ShowDialog()

    End Sub


    Private Sub muiBookQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiBookQuery.Click
        Dim myfrm As New frmBookQuery
        myfrm.ShowDialog()
    End Sub

    Private Sub muiHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiHelp.Click
        'Me.HelpProvider1.HelpNamespace = "D:\毕业设计\图书馆管理信息系统\help\library.chm"
        Me.HelpProvider1.HelpNamespace = "library.chm"
        Help.ShowHelp(Me, HelpProvider1.HelpNamespace)
    End Sub

    Private Sub muiBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiBackup.Click
        Dim myfrm As New frmBackup
        myfrm.ShowDialog()
    End Sub


    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim myfrm As New frmTest2
        myfrm.ShowDialog()
    End Sub

    Private Sub muiAuQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiAuQuery.Click
        Dim myfrm As New frmSearchAu
        myfrm.ShowDialog()
    End Sub

    Private Sub muiCbookquery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCbookquery.Click
        Me.muiBookQuery.PerformClick()
    End Sub

    Private Sub muiCAUsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCAUsearch.Click
        Me.muiAuQuery.PerformClick()
    End Sub

    Private Sub muiCAuAlllist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCAuAlllist.Click
        Me.muiAuAllBorrowList.PerformClick()
    End Sub

    Private Sub muiCChaoqi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCChaoqi.Click
        Me.muiAuMaxDateList.PerformClick()
    End Sub

#End Region

  
    Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim grbrush As Drawing2D.LinearGradientBrush
        grbrush = New Drawing2D.LinearGradientBrush(New Point(0, 0), _
         New Point(Me.Width, Me.Height), Color.Blue, Color.White)
        Me.CreateGraphics.FillRectangle(grbrush, New Rectangle(0, 0, Me.Width, Me.Height))
    End Sub

    Private Sub muiAboutUs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiAboutUs.Click
        Dim myfrm As New frmAboutUs
        myfrm.ShowDialog()
    End Sub

    Private Sub muiClibInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiClibInfo.Click
        Me.muiLibInfo.PerformClick()
    End Sub

    Private Sub muiCBookSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCBookSort.Click
        Me.muiBookSort.PerformClick()
    End Sub

    Private Sub muiCbookPlace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCbookPlace.Click
        Me.muiBookPlace.PerformClick()
    End Sub

    Private Sub muiCAuSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCAuSort.Click
        Me.muiAuSort.PerformClick()
    End Sub

    Private Sub muiCForfeitSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCForfeitSet.Click
        Me.muiforfeitSet.PerformClick()
    End Sub

    Private Sub muiCSetConnection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCSetConnection.Click
        Me.muiSetConnection.PerformClick()
    End Sub

    Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        Dim grbrush As Drawing2D.LinearGradientBrush
        grbrush = New Drawing2D.LinearGradientBrush(New Point(0, 0), _
         New Point(Me.Width, Me.Height), Color.Blue, Color.White)
        Me.CreateGraphics.FillRectangle(grbrush, New Rectangle(0, 0, Me.Width, Me.Height))
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiTop10book.Click
        Dim ds As New DataSet
        Try
            Dim cdata As New CdataService(cnstr)
            cdata.RunSP("selecttop10book", ds)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            Exit Sub
        Finally

        End Try
        Dim myfrm2 As New frmStatus
        myfrm2.Show("正在导出报表...")
        Dim myfrm As New frmShowReport
        Dim rtd As New crtTop10Book
        rtd.SetDataSource(ds.Tables(0))
        myfrm.Text = "报表输出窗口..."
        myfrm.rpt.ReportSource = rtd
        myfrm.rpt.DisplayGroupTree = False
        myfrm2.Close()
        myfrm.ShowDialog()
    End Sub


    Private Sub muiCTop10Book_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCTop10Book.Click
        Me.muiTop10book.PerformClick()
    End Sub

    Private Sub MenuItem5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        System.Diagnostics.Process.Start("http://jshyf.yeah.net/lib2004/checkUpdate.aspx")
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        System.Diagnostics.Process.Start("http://jshyf.yeah.net/lib2004/technology.aspx")
    End Sub

    Private Sub muiCountBookSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCountBookSort.Click
        Dim ds As New DataSet
        Try
            Dim cdata As New CdataService(cnstr)
            cdata.RunSP("SelectCountBookSort", ds)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            Exit Sub
        Finally

        End Try
        Dim myfrm2 As New frmStatus
        myfrm2.Show("正在导出报表...")
        Dim myfrm As New frmShowReport
        Dim rtd As New rptCountBookSort
        rtd.SetDataSource(ds.Tables(0))
        myfrm.Text = "报表输出窗口..."
        myfrm.rpt.ReportSource = rtd
        myfrm.rpt.DisplayGroupTree = False
        myfrm2.Close()
        myfrm.ShowDialog()
    End Sub

    Private Sub muiCCountBookSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles muiCCountBookSort.Click
        Me.muiCountBookSort.PerformClick()
    End Sub
End Class