Imports System.Data.OleDb
Public Class ERC_Cascaded_Sites
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Ericsson.accdb")
Dim da As New OleDbDataAdapter("SELECT * FROM [ERC_Cascaded_Sites] ", con) ' جدول مصدر المعلومات
Dim dt As New DataTable ' مكان التخزين
Dim binding As New BindingSource
'===========================================================================================================================
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
binding.DataSource = dt
da.Fill(dt)
'------------------------------------------
Site_RegionTextBox.DataBindings.Add("Text", binding, "Site_Region")
Site_IDTextBox.DataBindings.Add("Text", binding, "Site_ID")
Site_TypeTextBox.DataBindings.Add("Text", binding, "Site_Type")
FETextBox.DataBindings.Add("Text", binding, "FE")
Link_IDTextBox.DataBindings.Add("Text", binding, "Link_ID")
Link_ConfigTextBox.DataBindings.Add("Text", binding, "Link_Config")
MNS_MWTextBox.DataBindings.Add("Text", binding, "MNS_MW")
RegionTextBox.DataBindings.Add("Text", binding, "Region")
AreaTextBox.DataBindings.Add("Text", binding, "Area")
_2GTextBox.DataBindings.Add("Text", binding, "2G")
_3GTextBox.DataBindings.Add("Text", binding, "3G")
FDDTextBox.DataBindings.Add("Text", binding, "FDD")
TDDTextBox.DataBindings.Add("Text", binding, "TDD")
WiFiTextBox.DataBindings.Add("Text", binding, "WiFi")
TotalTextBox.DataBindings.Add("Text", binding, "Total")
ConnectivityTextBox.DataBindings.Add("Text", binding, "Connectivity")
'------------------------------------------
Site_RegionTextBox.ReadOnly = True
Site_IDTextBox.ReadOnly = True
Site_TypeTextBox.ReadOnly = True
FETextBox.ReadOnly = True
Link_IDTextBox.ReadOnly = True
Link_ConfigTextBox.ReadOnly = True
MNS_MWTextBox.ReadOnly = True
RegionTextBox.ReadOnly = True
AreaTextBox.ReadOnly = True
_2GTextBox.ReadOnly = True
_3GTextBox.ReadOnly = True
FDDTextBox.ReadOnly = True
TDDTextBox.ReadOnly = True
WiFiTextBox.ReadOnly = True
TotalTextBox.ReadOnly = True
ConnectivityTextBox.ReadOnly = True
'------------------------------------------
Me.DataGridView1.DataSource = binding
Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
Me.DataGridView1.MultiSelect = False
Me.DataGridView1.AllowUserToAddRows = False
Me.DataGridView1.ReadOnly = True
Me.DataGridView1.EnableHeadersVisualStyles = False
End Sub
'====================================================================================================================
' مفتاح الاضافة ----Add
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using frm As New ERC_Cascaded_Sites_Add
If frm.ShowDialog() = Windows.Forms.DialogResult.OK Then
dt.Clear()
da.Fill(dt)
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Selected = True
DataGridView1.Rows(DataGridView1.Rows.Count - 1).Selected = True
DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView1.Rows.Count - 1
End If
End Using
End Sub
'====================================================================================================================
' مفتاح التعديل ----Update or save
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.DataGridView1.Rows.Count > 0 Then
Using frm As New ERC_Cascaded_Sites_Add
Dim rowIndex As Integer = DataGridView1.CurrentRow.Index
frm.id = Val(DataGridView1.CurrentRow.Cells(0).Value)
If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
dt.Clear()
da.Fill(dt)
DataGridView1.Rows(rowIndex).Cells(0).Selected = True
DataGridView1.Rows(rowIndex).Selected = True
DataGridView1.FirstDisplayedScrollingRowIndex = rowIndex
End If
End Using
End If
End Sub
'====================================================================================================================
' مفتاح الحذف -------Delete
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If binding.Position < 0 Then Return
If MsgBox("هل تريد فعلاً حذف هذا السجل", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تنبيه") = MsgBoxResult.Yes Then
binding.RemoveCurrent()
Dim builder As New OleDbCommandBuilder(da) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
da.Update(dt)
End If
End Sub
'====================================================================================================================
' تكست البحث
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
binding.Filter = "Site_Region LIKE '%" & TextBox1.Text & "%' "
End Sub
'====================================================================================================================
' السجل الاول
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
binding.MoveFirst()
End Sub
' السجل السابق
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
binding.MovePrevious()
End Sub
' السجل التالي
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
binding.MoveNext()
End Sub
' السجل الاخير
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
binding.MoveLast()
End Sub
'====================================================================================================================
' مفتاح الاغلاق ----Close
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
