Visual Basic .Net Form - Form1.vb, Text Codes
 
 
 

       
      Return


    

 The codes  ..
    The Form -  Form1.vb
   
 
Public Class PictureForm

Inherits System.Windows.Forms.Form

'  Varaibles

Dim oRpt1 As New crystall_report_specific.CrystalReport1

Dim oRpt2 As New crystall_report_specific.CrystalReport2

Dim CryReport1_Flg As Boolean = False

Dim CryReport2_Flg As Boolean = False

Dim VarBook(66) As String

Dim vrow As Integer

 

Windows Form Designer generated code

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Select command

Dim selectCMD As System.Data.OleDb.OleDbCommand

' Dataadapter

Dim dataAdapter As System.Data.OleDb.OleDbDataAdapter

' Dataset

Dim DataSt1 As New DataSet

' Resize

Dim vsize = (Me.Width - (Me.CrystalReport1.Left + Me.CrystalReport1.Width + Me.Button1.Width + Me.Button2.Width + Me.Button3.Width)) / 4

Me.Button1.Left = Me.CrystalReport1.Left + Me.CrystalReport1.Width + vsize

Me.Label1.Left = Me.Button1.Left

Me.Button2.Left = Me.Button1.Left + Me.Button1.Width + vsize

Me.TextBox1.Left = Me.Button2.Left

Me.Button3.Left = Me.Button2.Left + Me.Button2.Width + vsize

Me.TextBox2.Left = Me.Button3.Left

Me.TextBox3.Left = (Me.Button3.Left + Me.Button3.Width) - Me.TextBox3.Width

Me.CrystalReportViewer1.Height = Me.Height - (Me.Label2.Top + Me.Label2.Height + 25)

Me.CrystalReportViewer1.Width = Me.Width - 75

Me.CrystalReportViewer1.Left = (Me.Width - Me.CrystalReportViewer1.Width) / 2

Me.CrystalReportViewer1.Top = (Me.Label2.Top + Me.Label2.Height)

Me.Label2.Width = Me.CrystalReportViewer1.Width - 125

Me.CrystalReportViewer1.Visible = True

' Location

Me.Label2.Text = "DataSource Connection = " & Me.OleDbConnection1.DataSource.ToString

' VarBook array

selectCMD = New OleDb.OleDbCommand("SELECT Book, Chapter, Verse FROM BibleTable WHERE (Chapter = '001') AND (Verse = '001') ORDER BY Book, Chapter, Verse")

dataAdapter = New OleDb.OleDbDataAdapter(selectCMD)

selectCMD.Connection() = Me.OleDbConnection1

Me.OleDbConnection1.Open()

dataAdapter.Fill(DataSt1, "BibleTable")

Me.OleDbConnection1.Close()

For vrow = 0 To DataSt1.Tables(0).Rows.Count - 1

VarBook(vrow) = Trim(DataSt1.Tables(0).Rows(vrow).Item(0))

Next

' Default, activate CrystalReport1

CrystalReport1_Click(CrystalReport1, EventArgs.Empty)

End Sub

' Activate CrystalReport1

Private Sub CrystalReport1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReport1.Click

CryReport1_Flg = True

CryReport2_Flg = False

CrystalReport1.Enabled = False

CrystalReport2.Enabled = True

End Sub

' Activate CrystalReport2

Private Sub CrystalReport2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReport2.Click

CryReport1_Flg = False

CryReport2_Flg = True

CrystalReport1.Enabled = True

CrystalReport2.Enabled = False

End Sub

' Activate Button - Variable Fixed

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' Select command

Dim selectCMD As System.Data.OleDb.OleDbCommand

' Dataadapter

Dim dataAdapter As System.Data.OleDb.OleDbDataAdapter

Dim valstr As String

' Dataset

Dim DataSt1 As New DataSet

valstr = "03"

selectCMD = New OleDb.OleDbCommand("SELECT Book, BookTitle, Chapter, Verse FROM BibleTable where (Book = '" & valstr & "') ORDER BY Book, Chapter, Verse")

dataAdapter = New OleDb.OleDbDataAdapter(selectCMD)

selectCMD.Connection() = Me.OleDbConnection1

Me.OleDbConnection1.Open()

dataAdapter.Fill(DataSt1, "BibleTable")

Me.OleDbConnection1.Close()

If CryReport1_Flg Then

oRpt1.Refresh()

oRpt1.SetDataSource(DataSt1)

CrystalReportViewer1.ReportSource = oRpt1

ElseIf CryReport2_Flg = True Then

oRpt2.Refresh()

oRpt2.SetDataSource(DataSt1)

CrystalReportViewer1.ReportSource = oRpt2

End If

Me.Label2.Text = " Book Field Value = " & valstr

End Sub

' Activate the Button - Variable = Input Value

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If Me.Button2.Enabled = False Then

Me.Button2.Enabled = True

Me.Button1.Enabled = False

Me.Label2.Text = " "

End If

End Sub

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

Dim Flag1 As Boolean = False

Dim varstr As String

' Test TextBox1

If Me.Button2.Enabled Then

If Val(Trim(TextBox1.Text)) >= 1 And Val(Trim(TextBox1.Text)) <= 9 Then

varstr = "0" & Trim(TextBox1.Text)

Flag1 = True

TextBox1.Text = varstr

Else

For vrow = 0 To 66 - 1

If Trim(TextBox1.Text) = Trim(VarBook(vrow)) Then

Flag1 = True

Exit For

End If

Next

End If

If Flag1 = False Then

MsgBox("Input Data not compatible, Sysem Load default value", MsgBoxStyle.Information, " Input Data error")

Me.TextBox1.Text = "01"

End If

Button2_Click(Button2, EventArgs.Empty)

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

' Select command

Dim selectCMD As System.Data.OleDb.OleDbCommand

' Dataadapter

Dim dataAdapter As System.Data.OleDb.OleDbDataAdapter

' Dataset

Dim DataSt1 As New DataSet

selectCMD = New OleDb.OleDbCommand("SELECT Book, BookTitle, Chapter, Verse FROM BibleTable where (Book = '" & Trim(Me.TextBox1.Text) & "') ORDER BY Book, Chapter, Verse")

dataAdapter = New OleDb.OleDbDataAdapter(selectCMD)

selectCMD.Connection() = Me.OleDbConnection1 ' Select command ...

Me.OleDbConnection1.Open()

dataAdapter.Fill(DataSt1, "BibleTable")

Me.OleDbConnection1.Close()

For vrow = 0 To DataSt1.Tables("BibleTable").Rows.Count - 1

Me.ListBox1.Items.Add(Trim(DataSt1.Tables("BibleTable").Rows(vrow).Item(0)))

Next

If CryReport1_Flg Then

oRpt1.Refresh()

oRpt1.SetDataSource(DataSt1)

CrystalReportViewer1.ReportSource = oRpt1

ElseIf CryReport2_Flg = True Then

oRpt2.Refresh()

oRpt2.SetDataSource(DataSt1)

CrystalReportViewer1.ReportSource = oRpt2

End If

Me.Label2.Text = " Book Field Value = " + Me.TextBox1.Text

Me.TextBox1.Text = " "

Me.Button1.Enabled = True

Me.Button2.Enabled = False

End Sub

' Activate the Button - Input value 1 < Variable < Input value 2

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

Dim varstr As String

If Me.Button3.Enabled = False Then

If Len(Me.TextBox2.Text) <= 0 Then

TextBox2.Text = "01"

End If

Me.Button3.Enabled = True

Me.Button1.Enabled = False

Me.Label2.Text = " "

End If

End Sub

Private Sub TextBox3_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox3.Validating

Dim Flag1 As Boolean = False

Dim Flag2 As Boolean = False

Dim varstr As String

If Me.Button3.Enabled Then

' Test TextBox2

If Val(Trim(TextBox2.Text)) >= 1 And Val(Trim(TextBox2.Text)) <= 9 Then

varstr = "0" & Trim(TextBox2.Text)

Flag1 = True

TextBox2.Text = varstr

Else

For vrow = 0 To 66 - 1

If Trim(TextBox2.Text) = Trim(VarBook(vrow)) Then

Flag1 = True

Exit For

End If

Next

End If

' Test TextBox2

If Val(Trim(TextBox3.Text)) >= 1 And Val(Trim(TextBox3.Text)) <= 9 Then

varstr = "0" & Trim(TextBox3.Text)

Flag2 = True

TextBox3.Text = varstr

Else

For vrow = 0 To 66 - 1

If Trim(TextBox3.Text) = Trim(VarBook(vrow)) Then

Flag2 = True

Exit For

End If

Next

End If

If Flag1 = False Or Flag2 = False Or Val(Me.TextBox3.Text) < Val(Me.TextBox2.Text) Then

MsgBox("Input Data not compatible, Sysem Load default value", MsgBoxStyle.Information, " Input Data error")

Me.TextBox2.Text = "01"

Me.TextBox3.Text = "03"

End If

Button3_Click(Button3, EventArgs.Empty)

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

' Select command

Dim selectCMD As System.Data.OleDb.OleDbCommand

' Dataadapter

Dim dataAdapter As System.Data.OleDb.OleDbDataAdapter

' Dataset

Dim DataSt1 As New DataSet

Me.Button3.Enabled = False

Me.Button1.Enabled = True

selectCMD = New OleDb.OleDbCommand("SELECT Book, BookTitle, Chapter, Verse, TextData FROM BibleTable where (Book >= '" & Trim(Me.TextBox2.Text) & "') AND (Book <= '" & Trim(Me.TextBox3.Text) & "') ORDER BY Book, Chapter, Verse")

dataAdapter = New OleDb.OleDbDataAdapter(selectCMD)

selectCMD.Connection() = Me.OleDbConnection1 ' Select command ...

Me.OleDbConnection1.Open()

dataAdapter.Fill(DataSt1, "BibleTable")

Me.OleDbConnection1.Close()

For vrow = 0 To DataSt1.Tables("BibleTable").Rows.Count - 1

Me.ListBox1.Items.Add(Trim(DataSt1.Tables("BibleTable").Rows(vrow).Item(0)))

Next

If CryReport1_Flg Then

oRpt1.Refresh()

oRpt1.SetDataSource(DataSt1)

CrystalReportViewer1.ReportSource = oRpt1

ElseIf CryReport2_Flg = True Then

oRpt2.Refresh()

oRpt2.SetDataSource(DataSt1)

CrystalReportViewer1.ReportSource = oRpt2

End If

Me.Label2.Text = " Book Field Values > " + Me.TextBox2.Text + " and Book Field Value < " + Me.TextBox3.Text

Me.TextBox2.Text = " "

Me.TextBox3.Text = " "

End Sub

 

End Class

 


 

      Return