毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

.NET+SQL SERVER 2000图书管理系统流程图+功能图+ER+全套设计论文 第22页

更新时间:2007-9-25:  来源:毕业论文

 dv.Sort = SortExp

        myDBGrd.DataSource = dv

        myDBGrd.DataBind()

    End Sub

 

    Private Sub BindDBGrid()

        Dim sqlstr As String = "select * from BookInfo,LendInfo where BookInfo.BookID=LendInfo.BookID and IsBack=0 and UserID='" + txtUserID.Text.ToString + "'"

 

        BindDBGrd(sqlstr, ListDGrid)

    End Sub

    Public Function ExecReaderSql(ByVal sqlstr As String) As SqlDataReader

        If myConn.State = ConnectionState.Closed Then

            myConn.Open()

        End If

        myCmd = New SqlCommand(sqlstr, myConn)

        Dim reader As SqlDataReader

        reader = myCmd.ExecuteReader

        myCmd.Dispose()

        Return reader

    End Function

    Private Function GetBookID() As String

        Dim sqlstr As String = "select BookID from BookInfo where BarCode='" + txtBookID.Text.ToString.Trim + "'"

        Dim BookID As String = ""

 

        Dim myreader As SqlDataReader = ExecReaderSql(sqlstr)

        If myreader.Read Then

            BookID = myreader("BookID")

        End If

        myConn.Close()

        Return BookID

    End Function

    Public Function GetCurNum(ByVal UserID As String) As Integer

        Dim sqlstr As String = "select count(*) as Num from LendInfo where UserID='" + UserID + "' and IsBack=0 "

 

        Dim myreader As SqlDataReader = ExecReaderSql(sqlstr)

        Dim num As Integer = 0

        If myreader.Read Then

            num = myreader("Num")

        End If

        myConn.Close()

        Return num

 << 上一页  [21] [22] [23] [24] [25] 下一页

.NET+SQL SERVER 2000图书管理系统流程图+功能图+ER+全套设计论文 第22页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。