001.
Option
Explicit
On
002.
Option
Strict
On
003.
Imports
System.IO
004.
Imports
System.Text
005.
Imports
System.Data
006.
Imports
System.Data.SqlClient
007.
Imports
System.Drawing.Drawing2D
008.
009.
Public
Class
Fitemdetail
010.
Dim
Conn
As
SqlConnection
011.
Dim
com
As
SqlCommand
012.
Dim
dr
As
SqlDataReader
013.
Dim
dtCustomer
As
DataTable
014.
Dim
bs
As
BindingSource =
New
BindingSource()
015.
Dim
sb
As
StringBuilder
016.
Dim
Today
As
DateTime
017.
018.
019.
020.
Private
Sub
Fitem_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
021.
GroupBox1.BackColor = Color.FromArgb(0, 0, 0, 0)
022.
GroupBox2.BackColor = Color.FromArgb(0, 0, 0, 0)
023.
024.
Dim
strConn
As
String
025.
strConn = DBConnString.strConn
026.
027.
Conn =
New
SqlConnection()
028.
With
Conn
029.
If
.State = ConnectionState.Open
Then
.Close()
030.
.ConnectionString = strConn
031.
.Open()
032.
End
With
033.
034.
tsSearch.Focus()
035.
End
Sub
036.
Protected
Overrides
Sub
OnPaint(
ByVal
e
As
System.Windows.Forms.PaintEventArgs)
037.
Dim
lgb
As
New
LinearGradientBrush(ClientRectangle, Color.FloralWhite, Color.Moccasin, LinearGradientMode.Vertical)
038.
e.Graphics.FillRectangle(lgb, ClientRectangle)
039.
040.
lgb.Dispose()
041.
End
Sub
042.
043.
Private
Sub
bnMoveFirst_MouseUp(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.Windows.Forms.MouseEventArgs)
Handles
bnMoveFirst.MouseUp
044.
ShowPosition()
045.
End
Sub
046.
047.
Private
Sub
bnMovePrevious_MouseUp(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.Windows.Forms.MouseEventArgs)
Handles
bnMovePrevious.MouseUp
048.
ShowPosition()
049.
End
Sub
050.
051.
Private
Sub
bnMoveNext_MouseUp(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.Windows.Forms.MouseEventArgs)
Handles
bnMoveNext.MouseUp
052.
ShowPosition()
053.
End
Sub
054.
055.
Private
Sub
bnMoveLast_MouseUp(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.Windows.Forms.MouseEventArgs)
Handles
bnMoveLast.MouseUp
056.
ShowPosition()
057.
End
Sub
058.
Private
Sub
ShowPosition()
059.
Dim
CurrentRecord
As
Integer
060.
If
bs.Count > 0
Then
061.
CurrentRecord = bs.Position + 1
062.
bnRecord.Text =
CStr
(CurrentRecord)
063.
Else
064.
CurrentRecord = 0
065.
bnRecord.Text =
"0"
066.
bnCount.Text =
"0"
067.
End
If
068.
End
Sub
069.
070.
Private
Sub
ToolStripButton1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
ToolStripButton1.Click
071.
Dim
bs =
New
BindingSource()
072.
If
tsSearch.Text.Trim() =
""
Then
Exit
Sub
073.
074.
sb.Append(
"SELECT * FROM Item"
)
075.
sb.Append(
" WHERE item_code=@item_code"
)
076.
077.
Dim
sqlSearch
As
String
078.
sqlSearch = sb.ToString()
079.
080.
dtCustomer =
New
DataTable()
081.
With
com
082.
.Parameters.Clear()
083.
.Parameters.Add(
"@item_code"
, SqlDbType.NVarChar).Value = tsSearch.Text.Trim()
084.
.CommandText = sqlSearch
085.
.CommandType = CommandType.Text
086.
.Connection = Conn
087.
dr = .ExecuteReader()
088.
089.
If
dr.HasRows
Then
090.
dtCustomer.Load(dr)
091.
bs.DataSource = dtCustomer
092.
093.
item_code.DataBindings.Add(
"Text"
, bs,
"item_code"
)
094.
095.
096.
097.
098.
099.
100.
Else
101.
102.
bnRecord.Text =
"0"
103.
bnCount.Text =
"0"
104.
MessageBox.Show(
"เงื่อนไขที่คุณป้อน ไม่มี !!!"
,
"ผลการค้นหา"
, MessageBoxButtons.OK, MessageBoxIcon.Information)
105.
tsSearch.Focus()
106.
tsSearch.SelectAll()
107.
End
If
108.
End
With
109.
dr.Close()
110.
111.
End
Sub
112.
End
Class