ПРИЛОЖЕНИЕ 4 – код программы
Главная форма
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FormPersonal.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
FormUnits.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
FormMech.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
FormMaterials.Show()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
FormRequest.Show()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
FormRequestAns.Show()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
FormMaterialBox.Show()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
FormScore.Show()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
FormRepair.Show()
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
FormReportR.Show()
End Sub
End Class
Форма бригады
Public Class FormUnits
Private Sub UnitBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnitBindingNavigatorSaveItem.Click
Me.Validate()
Me.UnitBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub FormUnits_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Unit". При необходимости она может быть перемещена или удалена.
Me.UnitTableAdapter.Fill(Me.GeokontrolDataSet.Unit)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
UnitBindingSource.AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Validate()
Me.UnitBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
End Class
Форма расходная
Public Class FormScore
Private Sub Score2BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Score2BindingNavigatorSaveItem.Click
Me.Validate()
Me.Score2BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub FormScore_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Personal". При необходимости она может быть перемещена или удалена.
Me.PersonalTableAdapter.Fill(Me.GeokontrolDataSet.Personal)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.MaterialBox". При необходимости она может быть перемещена или удалена.
Me.MaterialBoxTableAdapter.Fill(Me.GeokontrolDataSet.MaterialBox)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Repair2". При необходимости она может быть перемещена или удалена.
Me.Repair2TableAdapter.Fill(Me.GeokontrolDataSet.Repair2)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Score2". При необходимости она может быть перемещена или удалена.
Me.Score2TableAdapter.Fill(Me.GeokontrolDataSet.Score2)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FormMaterialBox.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim IDscore As String
Repair2BindingSource.MoveLast()
IDscore = ID_scoreComboBox.Text
Score2BindingSource.AddNew()
ID_scoreComboBox.Text = IDscore
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Validate()
Me.Score2BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
End Class
Форма заявки
Public Class FormRequest
Private Sub RequestBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RequestBindingNavigatorSaveItem.Click
Me.Validate()
Me.RequestBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub FormRequest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Unit". При необходимости она может быть перемещена или удалена.
Me.UnitTableAdapter.Fill(Me.GeokontrolDataSet.Unit)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Mech". При необходимости она может быть перемещена или удалена.
Me.MechTableAdapter.Fill(Me.GeokontrolDataSet.Mech)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Request". При необходимости она может быть перемещена или удалена.
Me.RequestTableAdapter.Fill(Me.GeokontrolDataSet.Request)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim IDreq As String
RequestBindingSource.MoveLast()
If ID_requestTextBox.Text = "" Then ID_requestTextBox.Text = 0
IDreq = ID_requestTextBox.Text
RequestBindingSource.AddNew()
ID_requestTextBox.Text = IDreq + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Validate()
Me.RequestBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
End Class
Форма ремонта
Public Class FormRepair
Private Sub Repair2BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Repair2BindingNavigatorSaveItem.Click
Me.Validate()
Me.Repair2BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub FormRepair_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Mech". При необходимости она может быть перемещена или удалена.
Me.MechTableAdapter.Fill(Me.GeokontrolDataSet.Mech)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Unit". При необходимости она может быть перемещена или удалена.
Me.UnitTableAdapter.Fill(Me.GeokontrolDataSet.Unit)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Score2". При необходимости она может быть перемещена или удалена.
Me.Score2TableAdapter.Fill(Me.GeokontrolDataSet.Score2)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Request". При необходимости она может быть перемещена или удалена.
Me.RequestTableAdapter.Fill(Me.GeokontrolDataSet.Request)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Repair2". При необходимости она может быть перемещена или удалена.
Me.Repair2TableAdapter.Fill(Me.GeokontrolDataSet.Repair2)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FormMech.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim IDscr As String
If ID_scoreComboBox.Text = "" Then ID_scoreComboBox.Text = 0
IDscr = ID_scoreComboBox.Text
ID_scoreComboBox.Text = IDscr + 1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim IDrep As String
Repair2BindingSource.MoveLast()
If ID_repairTextBox.Text = "" Then ID_repairTextBox.Text = 0
IDrep = ID_repairTextBox.Text
Repair2BindingSource.AddNew()
ID_repairTextBox.Text = IDrep + 1
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Validate()
Me.Repair2BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
FormScore.Show()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
FormUnits.Show()
End Sub
End Class
Форма сотрудников
Public Class FormPersonal
Private Sub PersonalBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PersonalBindingNavigatorSaveItem.Click
Me.Validate()
Me.PersonalBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub FormPersonal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Unit". При необходимости она может быть перемещена или удалена.
Me.UnitTableAdapter.Fill(Me.GeokontrolDataSet.Unit)
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Personal". При необходимости она может быть перемещена или удалена.
Me.PersonalTableAdapter.Fill(Me.GeokontrolDataSet.Personal)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim IDnum As String
PersonalBindingSource.MoveLast()
If ID_numberTextBox.Text = "" Then ID_numberTextBox.Text = 0
IDnum = ID_numberTextBox.Text
PersonalBindingSource.AddNew()
ID_numberTextBox.Text = IDnum + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Validate()
Me.PersonalBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
Форма оборудования
Public Class FormMech
Private Sub MechBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MechBindingNavigatorSaveItem.Click
Me.Validate()
Me.MechBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
Private Sub FormMech_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "GeokontrolDataSet.Mech". При необходимости она может быть перемещена или удалена.
Me.MechTableAdapter.Fill(Me.GeokontrolDataSet.Mech)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Inv As String
MechBindingSource.MoveLast()
If Inventory_numberTextBox.Text = "" Then Inventory_numberTextBox.Text = 0
Inv = Inventory_numberTextBox.Text
MechBindingSource.AddNew()
Inventory_numberTextBox.Text = Inv + 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Validate()
Me.MechBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GeokontrolDataSet)
End Sub
End Class