001.Imports System.Data.SqlClient
002.
003.
004.Public Class FrmAdminCheckMaterialTotal
005.
006.
007. Const DATABASE_FILE As String = "D:\[AoN]\งาน\ป.ตรี\Project\ProjectMe\ProjectMe\DBmaterialtotal.mdf"
008.
009. Dim cn As SqlConnection
010. Dim da As SqlDataAdapter
011. Dim ds As DataSet
012. Dim dv As DataView
013.
014. Dim WithEvents objCurrencyManager As CurrencyManager
015.
016. Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
017. Me.Hide()
018. FrmAdminMenu.Show()
019.
020. End Sub
021.
022. Private Sub FrmAdminCheckMaterialTotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
023.
024. Dim strConnection As String = "Data Source=.\SQLEXPRESS;"
025. strConnection &= "AttachDbFilename=" & DATABASE_FILE & ";"
026. strConnection &= "Integrated Security=True;Connect Timeout=30;User Instance=True"
027.
028. cn = New SqlConnection(strConnection)
029.
030.
031. Dim strSQL As String = "SELECT * FROM Tablematerialtotal"
032. da = New SqlDataAdapter
033. da.SelectCommand = New SqlCommand(strSQL, cn)
034.
035.
036. ds = New DataSet
037. Try
038.
039. da.Fill(ds, "Tablematerialtotal")
040. Catch ex As SqlException
041. MsgBox(ex.Message)
042. Exit Sub
043. End Try
044.
045. Dim dtAdmin As DataTable = ds.Tables("Tablematerialtotal")
046.
047.
048. dv = New DataView(dtAdmin)
049.
050.
051. txtid.DataBindings.Add("Text", dv, "id")
052.
053. txtname.DataBindings.Add("Text", dv, "name")
054.
055. txtin.DataBindings.Add("Text", dv, "input")
056.
057. txtout.DataBindings.Add("Text", dv, "output")
058.
059. txttotal.DataBindings.Add("Text", dv, "total")
060.
061. dgvEmployees.DataSource = dv
062.
063. objCurrencyManager = Me.BindingContext(dv)
064.
065. objCurrencyManager_PositionChanged(Nothing, Nothing)
066.
067. End Sub
068.
069. Private Sub objCurrencyManager_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles objCurrencyManager.PositionChanged
070.
071. If objCurrencyManager.Position = 0 Then
072. btnMoveFirst.Enabled = False
073. btnMovePrevious.Enabled = False
074. Else
075. btnMoveFirst.Enabled = True
076. btnMovePrevious.Enabled = True
077. End If
078.
079.
080. If objCurrencyManager.Position = objCurrencyManager.Count - 1 Then
081. btnMoveLast.Enabled = False
082. btnMoveNext.Enabled = False
083. Else
084. btnMoveLast.Enabled = True
085. btnMoveNext.Enabled = True
086. End If
087.
088. lblRecordPosition.Text = "เรคอร์ดที่ " & objCurrencyManager.Position + 1 & " จากทั้งหมด " & objCurrencyManager.Count & " เรคอร์ด"
089.
090. End Sub
091.
092. Private Sub btnMoveFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveFirst.Click
093. objCurrencyManager.Position = 0
094. End Sub
095.
096. Private Sub btnMovePrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMovePrevious.Click
097. objCurrencyManager.Position -= 1
098. End Sub
099.
100. Private Sub btnMoveNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveNext.Click
101. objCurrencyManager.Position += 1
102. End Sub
103.
104. Private Sub btnMoveLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveLast.Click
105. objCurrencyManager.Position = objCurrencyManager.Count - 1
106. End Sub
107.
108. Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
109. objCurrencyManager.AddNew()
110. txtname.Focus()
111. End Sub
112.
113. Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
114.
115. If MsgBox("ต้องการลบเรคอร์ดนี้?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
116. objCurrencyManager.RemoveAt(objCurrencyManager.Position)
117. End If
118.
119. objCurrencyManager_PositionChanged(Nothing, Nothing)
120. End Sub
121.
122. Private Sub btnUpdateDatabase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdateDatabase.Click
123. Dim tt As Integer
124. If txtin.Text >= 0 Then
125. tt = (txtin.Text - txtout.Text)
126. txttotal.Text = tt
127. ElseIf txtout.Text > 0 Then
128. tt = (txtin.Text - txtout.Text)
129. txttotal.Text = tt
130. Else
131. tt = (txtin.Text - txtout.Text)
132. txttotal.Text = tt
133. End If
134. Try
135.
136. Dim cb As New SqlCommandBuilder(da)
137.
138. objCurrencyManager.EndCurrentEdit()
139.
140. Dim num As Integer = da.Update(ds, "Tablematerialtotal")
141. MsgBox("อัพเดทฐานข้อมูลแล้ว" & vbNewLine & "จำนวนเรคอร์ดที่ถูกอัพเดท: " & num)
142. Catch ex As SqlException
143. MsgBox(ex.Message)
144. End Try
145.
146. End Sub
147.
148.End Class
