vb.net加本地SQL server数据库圣经

Imports System.Data.SqlServerCe

Public Class Form1
    '旧约
    Private Sub 创世记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 创世记ToolStripMenuItem.Click
        Me.selecthb("创世记")
    End Sub
    Private Sub 出埃及记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 出埃及记ToolStripMenuItem.Click
        Me.selecthb("出埃及记")
    End Sub
    Private Sub 利未记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 利未记ToolStripMenuItem.Click
        Me.selecthb("利未记")
    End Sub
    Private Sub 民数记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 民数记ToolStripMenuItem.Click
        Me.selecthb("民数记")
    End Sub
    Private Sub 申命记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 申命记ToolStripMenuItem.Click
        Me.selecthb("申命记")
    End Sub
    Private Sub 约书亚记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约书亚记ToolStripMenuItem.Click
        Me.selecthb("约书亚记")
    End Sub
    Private Sub 士师记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 士师记ToolStripMenuItem.Click
        Me.selecthb("士师记")
    End Sub
    Private Sub 路得记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 路得记ToolStripMenuItem.Click
        Me.selecthb("路得记")
    End Sub
    Private Sub 撒母耳记上ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 撒母耳记上ToolStripMenuItem.Click
        Me.selecthb("撒母耳记上")
    End Sub
    Private Sub 撒母耳记下ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 撒母耳记下ToolStripMenuItem.Click
        Me.selecthb("撒母耳记下")
    End Sub
    Private Sub 列王纪上ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 列王纪上ToolStripMenuItem.Click
        Me.selecthb("列王纪上")
    End Sub
    Private Sub 列王纪下ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 列王纪下ToolStripMenuItem.Click
        Me.selecthb("列王纪下")
    End Sub
    Private Sub 历代志上ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 历代志上ToolStripMenuItem.Click
        Me.selecthb("历代志上")
    End Sub
    Private Sub 历代志下ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 历代志下ToolStripMenuItem.Click
        Me.selecthb("历代志下")
    End Sub
    Private Sub 以斯拉记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 以斯拉记ToolStripMenuItem.Click
        Me.selecthb("以斯拉记")
    End Sub
    Private Sub 尼希米记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 尼希米记ToolStripMenuItem.Click
        Me.selecthb("尼希米记")
    End Sub
    Private Sub 以斯帖记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 以斯帖记ToolStripMenuItem.Click
        Me.selecthb("以斯帖记")
    End Sub
    Private Sub 约伯记ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约伯记ToolStripMenuItem.Click
        Me.selecthb("约伯记")
    End Sub
    Private Sub 诗篇ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 诗篇ToolStripMenuItem.Click
        Me.selecthb("诗篇")
    End Sub
    Private Sub 箴言ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 箴言ToolStripMenuItem.Click
        Me.selecthb("箴言")
    End Sub
    Private Sub 传道书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 传道书ToolStripMenuItem.Click
        Me.selecthb("传道书")
    End Sub
    Private Sub 雅歌ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 雅歌ToolStripMenuItem.Click
        Me.selecthb("")
    End Sub
    Private Sub 以赛亚书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 以赛亚书ToolStripMenuItem.Click
        Me.selecthb("以赛亚书")
    End Sub
    Private Sub 耶利米书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 耶利米书ToolStripMenuItem.Click
        Me.selecthb("耶利米书")
    End Sub
    Private Sub 耶利米哀歌ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 耶利米哀歌ToolStripMenuItem.Click
        Me.selecthb("耶利米哀歌")
    End Sub
    Private Sub 以西结书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 以西结书ToolStripMenuItem.Click
        Me.selecthb("以西结书")
    End Sub
    Private Sub 但以理书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 但以理书ToolStripMenuItem.Click
        Me.selecthb("但以理书")
    End Sub
    Private Sub 何西阿书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 何西阿书ToolStripMenuItem.Click
        Me.selecthb("何西阿书")
    End Sub
    Private Sub 约珥书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约珥书ToolStripMenuItem.Click
        Me.selecthb("约珥书")
    End Sub
    Private Sub 阿摩司书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 阿摩司书ToolStripMenuItem.Click
        Me.selecthb("阿摩司书")
    End Sub
    Private Sub 俄巴底亚书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 俄巴底亚书ToolStripMenuItem.Click
        Me.selecthb("俄巴底亚书")
    End Sub
    Private Sub 约拿书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约拿书ToolStripMenuItem.Click
        Me.selecthb("约拿书")
    End Sub
    Private Sub 弥迦书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 弥迦书ToolStripMenuItem.Click
        Me.selecthb("弥迦书")
    End Sub
    Private Sub 那鸿书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 那鸿书ToolStripMenuItem.Click
        Me.selecthb("那鸿书")
    End Sub
    Private Sub 哈巴谷书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 哈巴谷书ToolStripMenuItem.Click
        Me.selecthb("哈巴谷书")
    End Sub
    Private Sub 西番雅书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 西番雅书ToolStripMenuItem.Click
        Me.selecthb("西番雅书")
    End Sub
    Private Sub 哈该书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 哈该书ToolStripMenuItem.Click
        Me.selecthb("哈该书")
    End Sub
    Private Sub 撒迦利亚书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 撒迦利亚书ToolStripMenuItem.Click
        Me.selecthb("撒迦利亚书")
    End Sub
    Private Sub 玛拉基书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 玛拉基书ToolStripMenuItem.Click
        Me.selecthb("玛拉基书")
    End Sub
    '新约
    Private Sub 马太福音ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 马太福音ToolStripMenuItem.Click
        Me.selecthb("马太福音")
    End Sub
    Private Sub 马可福音ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 马可福音ToolStripMenuItem.Click
        Me.selecthb("马可福音")
    End Sub
    Private Sub 路加福音ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 路加福音ToolStripMenuItem.Click
        Me.selecthb("路加福音")
    End Sub
    Private Sub 约翰福音ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约翰福音ToolStripMenuItem.Click
        Me.selecthb("约翰福音")
    End Sub
    Private Sub 使徒行传ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 使徒行传ToolStripMenuItem.Click
        Me.selecthb("使徒行传")
    End Sub
    Private Sub 罗马书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 罗马书ToolStripMenuItem.Click
        Me.selecthb("罗马书")
    End Sub
    Private Sub 哥林多前书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 哥林多前书ToolStripMenuItem.Click
        Me.selecthb("哥林多前书")
    End Sub
    Private Sub 哥林多后书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 哥林多后书ToolStripMenuItem.Click
        Me.selecthb("哥林多后书")
    End Sub
    Private Sub 加拉太书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 加拉太书ToolStripMenuItem.Click
        Me.selecthb("加拉太书")
    End Sub
    Private Sub 以弗所书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 以弗所书ToolStripMenuItem.Click
        Me.selecthb("以弗所书")
    End Sub
    Private Sub 腓利比书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 腓利比书ToolStripMenuItem.Click
        Me.selecthb("腓立比书")
    End Sub
    Private Sub 歌罗西书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 歌罗西书ToolStripMenuItem.Click
        Me.selecthb("歌罗西书")
    End Sub
    Private Sub 帖撒罗尼迦前书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 帖撒罗尼迦前书ToolStripMenuItem.Click
        Me.selecthb("帖撒罗尼迦前书")
    End Sub
    Private Sub 帖撒罗尼迦后书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 帖撒罗尼迦后书ToolStripMenuItem.Click
        Me.selecthb("帖撒罗尼迦后书")
    End Sub
    Private Sub 提摩太前书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 提摩太前书ToolStripMenuItem.Click
        Me.selecthb("提摩太前书")
    End Sub
    Private Sub 提摩太后书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 提摩太后书ToolStripMenuItem.Click
        Me.selecthb("提摩太后书")
    End Sub
    Private Sub 提多书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 提多书ToolStripMenuItem.Click
        Me.selecthb("提多书")
    End Sub
    Private Sub 腓利门书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 腓利门书ToolStripMenuItem.Click
        Me.selecthb("腓利门书")
    End Sub
    Private Sub 希伯来书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 希伯来书ToolStripMenuItem.Click
        Me.selecthb("希伯来书")
    End Sub
    Private Sub 雅各书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 雅各书ToolStripMenuItem.Click
        Me.selecthb("玛拉基书")
    End Sub
    Private Sub 彼得前书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 彼得前书ToolStripMenuItem.Click
        Me.selecthb("彼得前书")
    End Sub
    Private Sub 彼得后书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 彼得后书ToolStripMenuItem.Click
        Me.selecthb("玛拉基书")
    End Sub
    Private Sub 约翰一书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约翰一书ToolStripMenuItem.Click
        Me.selecthb("约翰一书")
    End Sub
    Private Sub 约翰二书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约翰二书ToolStripMenuItem.Click
        Me.selecthb("约翰二书")
    End Sub
    Private Sub 约翰三书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 约翰三书ToolStripMenuItem.Click
        Me.selecthb("约翰三书")
    End Sub
    Private Sub 犹大书ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 犹大书ToolStripMenuItem.Click
        Me.selecthb("犹大书")
    End Sub
    Private Sub 启示录ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 启示录ToolStripMenuItem.Click
        Me.selecthb("启示录")
    End Sub
    '操作数据库
    Private Sub selecthb(juan As String)
        Dim s As String = InputBox("输入章数，开始小节,中间用空格分开")
        Dim sl As String() = {}
        Try
            sl = s.Split(" ")
        Catch ex As Exception
            MessageBox.Show("输入错误，请重新输入")
            Return
        End Try

        Me.RichTextBox1.Text = ""

        Using con As SqlCeConnection = New SqlCeConnection("Data Source='Database1.sdf'")
            Using cmd As SqlCeCommand = New SqlCeCommand("select * from t_hb where juan = @juan and zhang = @zhang and jie between @start and 1000", con)
                cmd.Parameters.AddWithValue("juan", juan)
                cmd.Parameters.AddWithValue("zhang", sl(0))
                cmd.Parameters.AddWithValue("start", sl(1))
                con.Open()
                Using sdr As SqlCeDataReader = cmd.ExecuteReader()
                    Dim i As Integer = 0
                    While sdr.Read()
                        If i Mod 3 = 0 Then
                            Me.RichTextBox1.SelectionColor = Color.Cyan
                        ElseIf i Mod 3 = 1 Then
                            Me.RichTextBox1.SelectionColor = Color.Magenta
                        Else
                            Me.RichTextBox1.SelectionColor = Color.Yellow
                        End If
                        'Me.RichTextBox1.SelectionStart = Me.RichTextBox1.TextLength
                        Me.RichTextBox1.AppendText(sdr("zhang") & ":" & sdr("jie") & sdr("jingwen") & Chr(13))
                        i += 1
                    End While
                End Using
            End Using
        End Using
        Me.RichTextBox1.Select(0, 0)
        Me.RichTextBox1.Focus()
    End Sub
End Class