SQL+VB课程设计，数据库原理课程设计【笑傲心扬吧】

图书馆管理系统，我有！！
哈哈。。。往我Q币里充20Q币就给你。。。另附设计报告~！！！

Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub

Private Sub menuAddbook_Click()
    gintBmode = 1
    frmBook1.Show
    frmBook1.ZOrder 0
End Sub

Private Sub menuAddbooktype_Click()
    gintBTmode = 1
    frmBooktype1.Show
    frmBooktype1.ZOrder 0
End Sub

Private Sub menuAddborrow_Click()
    gintBOmode = 1
    frmBorrow1.Show
    frmBorrow1.ZOrder 0
End Sub

Private Sub menuAddreader_Click()
    gintRmode = 1
    frmReader1.Show
    frmReader1.ZOrder 0

End Sub

Private Sub menuAddreadertype_Click()
    gintRTmode = 1
    frmReadertype1.Show
    frmReadertype1.ZOrder 0
End Sub

Private Sub menuAddreturn_Click()
    gintBBmode = 1
    frmReturn1.Show
End Sub

Private Sub menuDeletebook_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String


    If flagBedit Then
        If frmBook.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmBook.msgList.Row
                txtSQL = "delete from books where bookid='" & Trim(frmBook.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)

                Unload frmBook
                frmBook.txtSQL = "select * from books"
                frmBook.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeletebooktype_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String


    If flagBTedit Then
        If frmBooktype.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmBooktype.msgList.Row
                txtSQL = "delete from booktype where booktypeno='" & Trim(frmBooktype.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)

                Unload frmBooktype
                frmBooktype.txtSQL = "select * from booktype"
                frmBooktype.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeleteborrow_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset

送TA礼物

IP属地:福建

1楼2008-01-04 16:13回复

    Dim MsgText As String


    If flagBOedit Then
        If frmBorrow.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmBorrow.msgList.Row
                txtSQL = "delete from borrowinfo where borrowno='" & Trim(frmBorrow.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)

                txtSQL = "select * from books where bookid = '" & Trim(frmBorrow.msgList.TextMatrix(intCount, 4)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                If Not mrc.EOF Then
                    mrc.Fields(9) = " "
                    mrc.Update
                End If
                mrc.Close

                Unload frmBorrow
                frmBorrow.txtSQL = "select borrowno,readerid,readername,bookid,bookname,borrowdate,memo from borrowinfo"
                frmBorrow.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeletereader_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String


    If flagRedit Then
        If frmReader.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmReader.msgList.Row
                txtSQL = "delete from readers where readerno='" & Trim(frmReader.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)

                Unload frmReader
                frmReader.txtSQL = "select * from readers"
                frmReader.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeletereadertype_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String


    If flagRTedit Then
        If frmReadertype.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmReadertype.msgList.Row
                txtSQL = "delete from readertype where typeno='" & Trim(frmReadertype.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)

                Unload frmReadertype
                frmReadertype.txtSQL = "select * from readertype"
                frmReadertype.Show
            End If
        End If
    End If
End Sub

Private Sub menuInquirebook_Click()
    frmBook2.Show
End Sub

Private Sub menuInquireborrow_Click()
    frmBorrow2.Show
End Sub

Private Sub menuInquirereader_Click()
    frmReader2.Show
End Sub

Private Sub menuInquirereturn_Click()
    frmReturn2.Show
End Sub

Private Sub menuModifybook_Click()
    Dim intCount As Integer
    If flagBedit Then
        If frmBook.msgList.Rows > 1 Then
            gintBmode = 2
            intCount = frmBook.msgList.Row

IP属地:福建

2楼2008-01-04 16:13

            frmBook1.txtSQL = "select * from books where bookid ='" & Trim(frmBook.msgList.TextMatrix(intCount, 1)) & "'"
            frmBook1.Show
        Else
            Call menuAddbook_Click
        End If
    Else
        frmBook.txtSQL = "select * from books"
        frmBook.Show
    End If
End Sub

Private Sub menuModifybooktype_Click()
    Dim intCount As Integer
    If flagBTedit Then
        If frmBooktype.msgList.Rows > 1 Then
            gintBTmode = 2
            intCount = frmBooktype.msgList.Row
            frmBooktype1.txtSQL = "select * from booktype where booktypeno='" & Trim(frmBooktype.msgList.TextMatrix(intCount, 1)) & "'"
            frmBooktype1.Show
        Else
            Call menuAddbooktype_Click
        End If
    Else
        frmBooktype.txtSQL = "select * from booktype"
        frmBooktype.Show
    End If
End Sub

Private Sub menuModifyreader_Click()
    Dim intCount As Integer
    If flagRedit Then
        If frmReader.msgList.Rows > 1 Then
            gintRmode = 2
            intCount = frmReader.msgList.Row
            frmReader1.txtSQL = "select * from readers where readerno='" & Trim(frmReader.msgList.TextMatrix(intCount, 1)) & "'"
            frmReader1.Show
        Else
            Call menuAddreader_Click
        End If
    Else
        frmReader.txtSQL = "select * from readers"
        frmReader.Show
    End If
End Sub

Private Sub menuModifyreadertype_Click()
    Dim intCount As Integer
    If flagRTedit Then
        If frmReadertype.msgList.Rows > 1 Then
            gintRTmode = 2
            intCount = frmReadertype.msgList.Row
            frmReadertype1.txtSQL = "select * from readertype where typeno='" & Trim(frmReadertype.msgList.TextMatrix(intCount, 1)) & "'"
            frmReadertype1.Show
        Else
            Call menuAddreadertype_Click
        End If
    Else
        frmReadertype.txtSQL = "select * from readertype"
        frmReadertype.Show
    End If
End Sub

Private Sub menuModifyreturn_Click()
    Dim intCount As Integer
    If flagBBedit Then
        If frmReturn.msgList.Rows > 1 Then
            gintBBmode = 2
            intCount = frmReturn.msgList.Row
            frmReturn1.txtSQL = "select * from borrowinfo where borrowno='" & Trim(frmReturn.msgList.TextMatrix(intCount, 1)) & "' "
            frmReturn1.Show
        Else
            Call menuAddreturn_Click
        End If
    Else
        frmReturn.txtSQL = "select * from borrowinfo where returndate is not null"
        frmReturn.Show
    End If
End Sub

Private Sub menuModityborrow_Click()
    Dim intCount As Integer
    If flagBOedit Then
        If frmBorrow.msgList.Rows > 1 Then
            gintBOmode = 2
            intCount = frmBorrow.msgList.Row
            frmBorrow1.txtSQL = "select borrowno,readerid,readername,bookid,bookname,borrowdate,memo from borrowinfo where borrowno='" & Trim(frmBorrow.msgList.TextMatrix(intCount, 1)) & "'"
            frmBorrow1.Show
        Else
            Call menuAddborrow_Click
        End If
    Else
        frmBorrow.txtSQL = "select borrowno,readerid,readername,bookid,bookname,borrowdate,memo from borrowinfo where returndate is null"
        frmBorrow.Show
    End If
End Sub

IP属地:福建

3楼2008-01-04 16:13

顶了。。。太强；了。�

IP属地:福建

4楼2008-01-04 16:15

222.174.55.*

去死

5楼2010-06-08 07:51

日	一	二	三	四	五	六

SQL+VB课程设计，数据库原理课程设计

登录百度账号

扫二维码下载贴吧客户端