Библиографический список

1. Кудряшова, О.М. Программирование на языке Delphi [Текст]: Курс лекций и практических заданий, часть первая/О.М.Кудряшова.– Ухта: УГТУ, 2007. – 50с.

2. Кудряшова, О.М. Программирование на языке Delphi [Текст]: Курс лекций и практических заданий, часть вторая/О.М.Кудряшова.– Ухта: УГТУ, 2008. – 52с.

3. Кудряшова, О.М. Программирование на языке Delphi [Текст]: Курс лекций и практических заданий, часть третья/О.М.Кудряшова.– Ухта: УГТУ, 2009. – 42с.

4. Шишкина, Л.П., Бояринцева, Т.П., Сержант, Т.Н. Лабораторный практикум по информатике для студентов очной формы обучения [Текст]/ Л.П.Шишкина. – Иркутск: ИрГТУ, 2003. – 50с.

Приложение Приложение а Листинг программы с комментариями

Примечание 1

Private Sub Worksheet_Activate ()

Cells.Interior.Color = RGB(57, 198, 117)

Range("A1:I12").Select

Selection.Interior.ColorIndex = 45//окраска заголовка

Range(Cells(UsedRange.Rows.Count, 1), Cells(UsedRange.Rows.Count, 9)).Borders(xlInsideVertical).LineStyle = 1

Range(Cells(UsedRange.Rows.Count, 1), Cells(UsedRange.Rows.Count, 9)).Borders(xlEdgeLeft).LineStyle = 1

Range(Cells(UsedRange.Rows.Count, 1), Cells(UsedRange.Rows.Count, 9)).Borders(xlEdgeTop).LineStyle = 1

Range(Cells(UsedRange.Rows.Count, 1), Cells(UsedRange.Rows.Count, 9)).Borders(xlEdgeRight).LineStyle = 1

Range(Cells(UsedRange.Rows.Count, 1), Cells(UsedRange.Rows.Count, 9)).Borders(xlEdgeBottom).LineStyle = 1//очерчивание ячеек

End Sub

Примечание 2

Private Sub CommandButton1_Click()

AddForm1.Caption = "Добавление записи"

AddForm1.CommandButton1.Visible = True

AddForm1.CommandButton3.Visible = False

AddForm1.Show

EndSub

//заполнение полей редактирования

Примечание 3

Private Sub CommandButton2_Click()

If (ActiveCell.Row > 1) And (ActiveCell.Row < Лист1.UsedRange.Rows.Count + 1) Then

AddForm1.Caption = "Редактирование " + Str(Лист1.Cells(ActiveCell.Row, 1)) + "-й строки"

AddForm1.TextBox1.Text = Лист1.Cells(ActiveCell.Row, 2)

AddForm1.TextBox2.Text = Лист1.Cells(ActiveCell.Row, 3)

AddForm1.TextBox3.Text = Лист1.Cells(ActiveCell.Row, 4)

AddForm1.TextBox4.Text = Лист1.Cells(ActiveCell.Row, 5)

AddForm1.TextBox5.Text = Лист1.Cells(ActiveCell.Row, 6)

AddForm1.TextBox7.Text = Лист1.Cells(ActiveCell.Row, 7)

AddForm1.TextBox8.Text = Лист1.Cells(ActiveCell.Row, 8)

AddForm1.TextBox9.Text = Лист1.Cells(ActiveCell.Row, 9)

//заполнение полей редактирования

AddForm1.CommandButton1.Visible = False

AddForm1.CommandButton3.Visible = True

AddForm1.Show

Else

MsgBox"Данная строка не может быть отредактирована"