|
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 | | |