Список используемых источников
Private Sub ПриказыToolStripMenuItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles ПриказыToolStripMenuItem.Click. Private Sub СотрудникDataGridView_CellContentClick (ByVal sender As System. Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs). Private Sub АрхивToolStripMenuItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs… Читать ещё >
Список используемых источников (реферат, курсовая, диплом, контрольная)
- 1. Багласова Т. Г. Методические указания по выполнению курсового проекта для учащихся по специальности 2−40 01 01 «Программное обеспечение технологий» / Т. Г. Багласова. — Минск: КБП, 2013
- 2. Багласова Т. Г. Методические указания по оформлению курсовых и дипломных проектов / Т. Г. Багласова, К. О. Якимович. — Минск: КБП, 2013
- 3. Гради Буч. Объектно-ориентированный анализ и проектирование. / Буч Гради.- 2-е изд. — М.: Бином, 2010
- 4. Леоненков А. В. Объектно-ориентированный анализ и проектирование с использованием UML и IBM Rational Rose / А. В. Леоненков. — М.: Интернет-университет информационных технологий, 2006
- 5. Ласканев В. П., Охрана труда на предприятиях: Практическое пособие / В. П Ласканев, В. В. Король. — Минск: Киреев Н. Б. 2012
- 6. Лобан Л. Д., Экономика предприятия: учебный комплекс /Л.Д. Лобан, В. Т. Пыко — Минск: Мисанта, 2006
- 7. Хернандес Дж. MySQL-запросы. Практическое руководство по манипулированию данными в MySQL / Дж. Хернандес, Л. Вьескас. — СПб.: БХВ, 2004
- 8. ГОСТ 19.301−2000 ЕСПД. Программа и методика испытаний
- 9. ГОСТ 19.402−2000 ЕСПД. Описание программы
- 10. ГОСТ 19.401−2000. ЕСПД. Текст программы
- 11. Операционная система Windows 7 [Электронный ресурс] - Режим доступа: http://ru.wikipedia.org/wiki/Windows7
- 12. Среда разработки Visual Studio [Электронный ресурс]. — Режим доступа: http://ru.wikipedia.org/wiki/Visual_Studio.
- 13. СУБД Microsoft SQL Server [Электронный ресурс]. — Режим доступа: http://ru.wikipedia.org/wiki/Microsoft_SQL_Server
- 14. Язык программирования Visual Basic [Электронный ресурс]. — Режим доступа: http://ru.wikipedia.org/wiki/Visual_Basic
Приложение, А (обязательное)
Текст программы.
Public Class Form1.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
//АВТОРИЗАЦИЯ.
If TextBox1. Text = «darina» And TextBox2. Text = «2 990 292» Then.
Form2.Show ().
Else.
MessageBox.Show («Логин или пароль введены не верно»).
End If.
End Sub.
Private Sub Form1_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load.
End Sub.
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
Me.Close ().
End Sub.
End Class.
Imports System.Data.OleDb.
Imports Microsoft.Office.Interop.
Imports Microsoft.Office.Interop.Word.
Public Class Form2.
Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load.
'TODO: This line of code loads data into the 'KadriDataSet.Штатное' table. You can move, or remove it, as needed.
Me.ШтатноеTableAdapter.Fill (Me.KadriDataSet.Штатное).
ШтатноеTableAdapter.Fill (KadriDataSet.Штатное).
TextBox2.Text = ШтатноеDataGridView.RowCount.ToString.
End Sub.
Private Sub ДокументыToolStripMenuItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles ДокументыToolStripMenuItem.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form3.Show ().
TextBox2.Text = ШтатноеDataGridView.RowCount.ToString.
End Sub.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form8.Show ().
TextBox2.Text = ШтатноеDataGridView.RowCount.ToString.
End Sub.
Private Sub ПриказыToolStripMenuItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles ПриказыToolStripMenuItem.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form5.Show ().
TextBox2.Text = ШтатноеDataGridView.RowCount.ToString.
End Sub.
Private Sub АрхивToolStripMenuItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles АрхивToolStripMenuItem.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form6.Show ().
End Sub.
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
//СОХРАНЕНИЕ.
ШтатноеTableAdapter.Fill (KadriDataSet.Штатное).
TextBox2.Text = ШтатноеDataGridView.RowCount.ToString.
End Sub.
Private Sub Button4_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4.Click.
// CREATE WORD APPLICATION.
Dim oWord As Word. Application = DirectCast (CreateObject («Word.Application»), Word. Application).
// CREATE NEW WORD DOCUMENT.
Dim oDoc As Word. Document = oWord.Documents.Add ().
oWord.Visible = True.
Dim headers = (From ch In ШтатноеDataGridView. Columns _.
Let header = DirectCast (DirectCast (ch, DataGridViewColumn).HeaderCell, DataGridViewColumnHeaderCell) _.
Select header. Value).ToArray ().
Dim headerText () As String = Array. ConvertAll (headers, Function (v) v. ToString).
Dim items () = (From r In ШтатноеDataGridView. Rows _.
Let row = DirectCast (r, DataGridViewRow) _.
Where Not row. IsNewRow _.
Select (From cell In row. Cells _.
Let c = DirectCast (cell, DataGridViewCell) _.
Select c. Value).ToArray ()).ToArray ().
Dim table As String = String. Join (vbTab, headerText) & Environment.NewLine.
For Each a In items.
Dim t () As String = Array. ConvertAll (a, Function (v) v. ToString).
table &= String. Join (vbTab, t) & Environment.NewLine.
Next.
table = table. TrimEnd (CChar (Environment.NewLine)).
Clipboard.SetText (table).
Dim oTable As Word. Table = oDoc.Tables.Add (oDoc.Bookmarks.Item («endofdoc»).Range, items. Count + 1, headers. Count).
oTable.Range.Paste ().
'make the first row bold, fs 14 + change textcolor.
oTable.Rows.Item (1).Range.Font.Bold = &H98967E.
oTable.Rows.Item (1).Range.Font.Size = 8.
oTable.Rows.Item (1).Range.Font.Color = Word.WdColor.wdColorWhite.
'change backcolor of first row.
oTable.Rows.Item (1).Range.Shading.Texture = Word.WdTextureIndex.wdTextureNone.
oTable.Rows.Item (1).Range.Shading.ForegroundPatternColor = Word.WdColor.wdColorAutomatic.
oTable.Rows.Item (1).Range.Shading.BackgroundPatternColor = Word.WdColor.wdColorPaleBlue.
'set table borders.
With oTable.Range.Tables (1).
With .Borders (Word.WdBorderType.wdBorderLeft).
.LineStyle = Word.WdLineStyle.wdLineStyleSingle.
.LineWidth = Word.WdLineWidth.wdLineWidth100pt.
.Color = Word.WdColor.wdColorAutomatic.
End With.
With .Borders (Word.WdBorderType.wdBorderRight).
.LineStyle = Word.WdLineStyle.wdLineStyleSingle.
.LineWidth = Word.WdLineWidth.wdLineWidth100pt.
.Color = Word.WdColor.wdColorAutomatic.
End With.
With .Borders (Word.WdBorderType.wdBorderTop).
.LineStyle = Word.WdLineStyle.wdLineStyleSingle.
.LineWidth = Word.WdLineWidth.wdLineWidth100pt.
.Color = Word.WdColor.wdColorAutomatic.
End With.
With .Borders (Word.WdBorderType.wdBorderBottom).
.LineStyle = Word.WdLineStyle.wdLineStyleSingle.
.LineWidth = Word.WdLineWidth.wdLineWidth100pt.
.Color = Word.WdColor.wdColorAutomatic.
End With.
With .Borders (Word.WdBorderType.wdBorderHorizontal).
.LineStyle = Word.WdLineStyle.wdLineStyleSingle.
.LineWidth = Word.WdLineWidth.wdLineWidth050pt.
.Color = Word.WdColor.wdColorAutomatic.
End With.
With .Borders (Word.WdBorderType.wdBorderVertical).
.LineStyle = Word.WdLineStyle.wdLineStyleSingle.
.LineWidth = Word.WdLineWidth.wdLineWidth050pt.
.Color = Word.WdColor.wdColorAutomatic.
End With.
.Borders (Word.WdBorderType.wdBorderDiagonalDown).LineStyle = Word.WdLineStyle.wdLineStyleNone.
.Borders (Word.WdBorderType.wdBorderDiagonalUp).LineStyle = Word.WdLineStyle.wdLineStyleNone.
.Borders.Shadow = False.
TextBox2.Text = ШтатноеDataGridView.RowCount.ToString.
End With.
End Sub.
Private Sub FillToolStripButton_Click (ByVal sender As System. Object, ByVal e As System. EventArgs).
Try.
Me.VuslugaTableAdapter.Fill (Me.KadriDataSet.vusluga, ФИОTextBox. Text).
Catch ex As System.Exception.
System.Windows.Forms.MessageBox.Show (ex.Message).
End Try.
TextBox2.Text = ШтатноеDataGridView.RowCount.ToString.
End Sub.
Private Sub Button5_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button5.Click.
//ВЫСЧЕТА ВЫСЛУГИ.
Try.
Me.VuslugaTableAdapter.Fill (Me.KadriDataSet.vusluga, ФИОTextBox. Text).
Catch ex As System.Exception.
System.Windows.Forms.MessageBox.Show (ex.Message).
End Try.
TextBox2.Text = ШтатноеDataGridV…
Me.СотрудникTableAdapter.Fill (Me.KadriDataSet.Сотрудник).
End Sub.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
//ДОБАВЛЕНИЕ.
СотрудникBindingSource.AddNew ().
End Sub.
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
//СОХРАНЕНИЕ.
Me.Validate ().
Me.СотрудникBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
End Sub.
Private Sub СотрудникDataGridView_CellContentClick (ByVal sender As System. Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs).
End Sub.
Private Sub ComboBox1_SelectedIndexChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles ComboBox1.SelectedIndexChanged.
Select Case ComboBox1.SelectedIndex.
Case 0.
Код_должностиTextBox.Text = «1» .
Case 1.
Код_должностиTextBox.Text = «2» .
Case 2.
Код_должностиTextBox.Text = «3» .
Case 3.
Код_должностиTextBox.Text = «4» .
Case 4.
Код_должностиTextBox.Text = «5» .
Case 5.
Код_должностиTextBox.Text = «6» .
Case 6.
Код_должностиTextBox.Text = «7» .
Case 7.
Код_должностиTextBox.Text = «8» .
Case 8.
Код_должностиTextBox.Text = «9» .
Case 9.
Код_должностиTextBox.Text = «10» .
End Select.
End Sub.
Private Sub Button4_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form7.Show ().
End Sub.
Private Sub ComboBox2_SelectedIndexChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles ComboBox2.SelectedIndexChanged.
Select Case ComboBox2.SelectedIndex.
Case 0.
Код_отделаTextBox.Text = «1» .
Case 1.
Код_отделаTextBox.Text = «2» .
Case 2.
Код_отделаTextBox.Text = «3» .
Case 3.
Код_отделаTextBox.Text = «4» .
Case 4.
Код_отделаTextBox.Text = «5» .
Case 5.
Код_отделаTextBox.Text = «6» .
Case 6.
Код_отделаTextBox.Text = «7» .
Case 7.
Код_отделаTextBox.Text = «8» .
Case 8.
Код_отделаTextBox.Text = «9» .
Case 9.
Код_отделаTextBox.Text = «10» .
Case 10.
Код_отделаTextBox.Text = «11» .
Case 11.
Код_отделаTextBox.Text = «12» .
Case 12.
Код_отделаTextBox.Text = «13» .
Case 13.
Код_отделаTextBox.Text = «14» .
Case 14.
Код_отделаTextBox.Text = «15» .
End Select.
End Sub.
Private Sub Button3_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3.Click.
//ПРЕДЫДУЩАЯ.
СотрудникBindingSource.MovePrevious ().
End Sub.
Private Sub Button5_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button5.Click.
//СЛЕДУЮЩАЯ.
СотрудникBindingSource.MoveNext ().
End Sub.
End Class.
Public Class Form5.
Private Sub ПриказBindingNavigatorSaveItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs).
//СОХРАНИТЬ.
Me.Validate ().
Me.ПриказBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
End Sub.
Private Sub Form5_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load.
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill (Me.KadriDataSet.Сотрудник).
'TODO: This line of code loads data into the 'KadriDataSet.Приказ' table. You can move, or remove it, as needed.
Me.ПриказTableAdapter.Fill (Me.KadriDataSet.Приказ).
ФИОTextBox.Text = «» .
ПриказBindingSource.AddNew ().
End Sub.
Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TextBox1.TextChanged.
TextBox1.Text = ФИОTextBox.Text.
End Sub.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs).
//ДОБАВЛЕНИЕ.
ПриказBindingSource.AddNew ().
End Sub.
Private Sub ComboBox1_SelectedIndexChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles ComboBox1.SelectedIndexChanged.
Select Case ComboBox1.SelectedIndex.
Case 0.
ТипTextBox1.Text = «о приеме» .
Case 1.
ТипTextBox1.Text = «о переводе» .
Case 2.
ТипTextBox1.Text = «о предоставлении отпуска» .
Case 3.
ТипTextBox1.Text = «о дисциплинарных взысканиях» .
Case 4.
ТипTextBox1.Text = «о поощрении» .
Case 5.
ТипTextBox1.Text = «об изменении персо» .
Case 6.
ТипTextBox1.Text = «о присвоении звания» .
Case 7.
ТипTextBox1.Text = «о командировках» .
Case 8.
ТипTextBox1.Text = «об увольнении» .
Case 9.
ТипTextBox1.Text = «аттестации персонала» .
End Select.
End Sub.
Private Sub TextBox2_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TextBox2.TextChanged.
//ПОИСК.
СотрудникBindingSource.Filter = «ФИО like '%» & TextBox2. Text & «%'» .
Код_сотрудникаTextBox.Text = Код_сотрудникаTextBox1.Text.
End Sub.
Private Sub Button1_Click1(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
//ДОБАВЛЕНИЕ.
ПриказBindingSource.AddNew ().
End Sub.
Private Sub Button2_Click1(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
//СОХРАНИТЬ.
Me.Validate ().
Me.ПриказBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
ПриказTableAdapter.Fill (KadriDataSet.Приказ).
End Sub.
Private Sub Button3_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form9.Show ().
End Sub.
End Class.
Public Class Form6.
Private Sub Form6_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load.
'TODO: This line of code loads data into the 'KadriDataSet.arhiv' table. You can move, or remove it, as needed.
Me.ArhivTableAdapter.Fill (Me.KadriDataSet.arhiv).
ArhivTableAdapter.Fill (KadriDataSet.arhiv).
End Sub.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form7.Show ().
End Sub.
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
ArhivTableAdapter.Fill (KadriDataSet.arhiv).
End Sub.
Private Sub Button3_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3.Click.
//ПОИСК.
ArhivBindingSource.Filter = «ФИО like '%» & TextBox1. Text & «%'» .
End Sub.
End Class.
Public Class Form7.
Private Sub ДеятельностьBindingNavigatorSaveItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs).
//СОХРАНИТЬ.
Me.Validate ().
Me.ДеятельностьBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
End Sub.
Private Sub Form7_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load.
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill (Me.KadriDataSet.Сотрудник).
'TODO: This line of code loads data into the 'KadriDataSet.Деятельность' table. You can move, or remove it, as needed.
Me.ДеятельностьTableAdapter.Fill (Me.KadriDataSet.Деятельность).
End Sub.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
//СОХРАНИТЬ.
Код_сотрудникаTextBox1.Text = Код_сотрудникаTextBox.Text.
Me.Validate ().
Me.ДеятельностьBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
Me.Close ().
End Sub.
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
//ДОБАВЛЕНИЕ.
ДеятельностьBindingSource.AddNew ().
End Sub.
Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TextBox1.TextChanged.
//ПОИСК.
СотрудникBindingSource.Filter = «ФИО like '%» & TextBox1. Text & «%'» .
Код_сотрудникаTextBox1.Text = Код_сотрудникаTextBox.Text.
End Sub.
End Class.
Public Class Form8.
Private Sub СотрудникBindingNavigatorSaveItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs).
//СОХРАНИТЬ.
Me.Validate ().
Me.СотрудникBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
End Sub.
Private Sub Form8_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load.
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill (Me.KadriDataSet.Сотрудник).
End Sub.
Private Sub Button4_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4.Click.
//ПОИСК.
СотрудникBindingSource.Filter = «ФИО like '%» & TextBox1. Text & «%'» .
End Sub.
Private Sub Button3_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3.Click.
//СОХРАНИТЬ.
Me.Validate ().
Me.СотрудникBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
End Sub.
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
//УДАЛИТЬ.
СотрудникBindingSource.RemoveCurrent ().
End Sub.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
//ПЕРЕХОД НА НОВУЮ ФОРМУ.
Form4.Show ().
End Sub.
End Class.
Public Class Form9.
Private Sub ПриказBindingNavigatorSaveItem_Click (ByVal sender As System. Object, ByVal e As System. EventArgs).
//СОХРАНИТЬ.
Me.Validate ().
Me.ПриказBindingSource.EndEdit ().
Me.TableAdapterManager.UpdateAll (Me.KadriDataSet).
End Sub.
Private Sub Form9_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase.Load.
'TODO: This line of code loads data into the 'KadriDataSet.Сотрудник' table. You can move, or remove it, as needed.
Me.СотрудникTableAdapter.Fill (Me.KadriDataSet.Сотрудник).
'TODO: This line of code loads data into the 'KadriDataSet.Приказ' table. You can move, or remove it, as needed.
Me.ПриказTableAdapter.Fill (Me.KadriDataSet.Приказ).
RadioButton1.Checked = True.
Button3.Visible = False.
End Sub.
Private Sub ПриказDataGridView_CellContentClick (ByVal sender As System. Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ПриказDataGridView.CellContentClick.
СотрудникBindingSource.Filter = «Код_сотрудника'» & Код_сотрудникаTextBox.Text & «'» .
End Sub.
Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click.
СотрудникBindingSource.Filter = «Код_сотрудника'» & Код_сотрудникаTextBox.Text & «'» .
End Sub.
Private Sub СотрудникDataGridView_CellContentClick (ByVal sender As System. Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles СотрудникDataGridView.CellContentClick.
End Sub.
Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click.
//ПОИСК.
If RadioButton1. Checked = True Then.
ПриказBindingSource.Filter = «Тип like '%» & TextBox1. Text & «%'» .
ElseIf RadioButton2. Checked = True Then.
ПриказBindingSource.Filter = «Дата_приказа='» & TextBox1. Text & «'» .
ElseIf TextBox1. Text = «» Then.
MessageBox.Show («Пустое поле»).
End If.
Button3.Visible = True.
End Sub.
Private Sub Button3_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3.Click.
//ПОКАЗАТЬ ВСЕ.
Button3.Visible = False.
ПриказBindingSource.Filter = «» .
End Sub.
End Class.
Приложение Б (справочное)
Выходные документы.
Рисунок Б.1 — Фрагмент отчета.
Рисунок Б.2 — Фрагмент анкеты для приема на работу.
Рисунок Б.3 — Личная карточка.