 |
Процесс разработки приложения для работы с файлом Microsoft Excel на языке Delphi 7
|
|
|
|
Разработанная программа состоит из следующих модулей:
1. Form1 – форма для отображения основных данных
2. Form2 – форма для добавления данных
3. Form3 – форма поиска
4. Form5 – форма для отображения результатов поиска
5. Form6 – форма редактирования
6. Form7 – форма сортировки
Размещение визуальных компонентов и их начальные значения приведены в таблице 2.
Таблица 2 - Изменение стандартных значений компонентов
| Название компонента | Имя компонента | Свойство | Значение свойства | ||||||
| Form1 | |||||||||
| TButton | LoadButton | Caption | Открыть | ||||||
| SaveButton | Caption | Сохранить | |||||||
| SaveAsBut | Caption | Сохранить как | |||||||
| AddButton | Caption | Добавить | |||||||
| Button1 | Caption | Редактировать | |||||||
| DelButton | Caption | Удалить | |||||||
| SearchButton | Caption | Поиск | |||||||
| Button2 | Caption | Сортировка | |||||||
| StringGrid | StringGrid1 | Caption | |||||||
| MainBox | MainBox | Caption | |||||||
| TPopupMenu | PopupMenu1 | Caption | |||||||
| TMainMenu | MainMenu1 | Caption | |||||||
| Form2 | |||||||||
| Label | Label1 | Caption | Ф.И.О. | ||||||
| Label2 | Caption | Диагноз | |||||||
| Label3 | Caption | Номер б. л. | |||||||
| Label4 | Caption | Фамилия врача | |||||||
| Label5 | Caption | Срок(дней) | |||||||
| Label6 | Caption | Начало болезни | |||||||
| Label7 | Caption | Дата выздоровления | |||||||
| Label8 | Caption | Место работы | |||||||
| Edit | Edit1 | Text | |||||||
| Edit2 | Text | ||||||||
| Edit3 | Text | ||||||||
| Edit4 | Text | ||||||||
| Edit5 | Text | ||||||||
| |||||||||
| Edit6 | Text | ||||||||
| Edit7 | Text | ||||||||
| Edit8 | Text | ||||||||
| Button | AddButton | Caption | Добавить | ||||||
| Button1 | Caption | Закрыть | |||||||
| Form3 | |||||||||
| RadioButton | RadioButton1 | Caption | По Ф.И.О. | ||||||
| RadioButton2 | Caption | По диагнозу | |||||||
| RadioButton4 | Caption | По № б.л. | |||||||
| RadioButton3 | Caption | По фамилии врача | |||||||
| RadioButton5 | Caption | По сроку | |||||||
| RadioButton6 | Caption | По началу болезни | |||||||
| RadioButton7 | Caption | По дате выздоровления | |||||||
| RadioButton8 | Caption | По месту работы | |||||||
| Edit | SearchEdit | Text | |||||||
| Button | SearchBut | Caption | Искать | ||||||
| Button1 | Caption | Закрыть | |||||||
| Form5 | |||||||||
| StrinGrid | StrinGrid1 | Caption | |||||||
| Button | Button1 | Caption | Ок | ||||||
| Button2 | Caption | Сохранить в Файл | |||||||
| SaveDialog | SaveDialog1 | Caption | |||||||
| Form6 | |||||||||
| Label | Label1 | Caption | Ф.И.О. | ||||||
| Label2 | Caption | Диагноз | |||||||
| Label3 | Caption | Номер б. л. | |||||||
| Label4 | Caption | Фамилия врача | |||||||
| Label5 | Caption | Срок(дней) | |||||||
| Label6 | Caption | Начало болезни | |||||||
| Label7 | Caption | Дата выздоровления | |||||||
| Label8 | Caption | Место работы | |||||||
| Edit | Edit1 | Text | |||||||
| Edit2 | Text | ||||||||
| Edit3 | Text | ||||||||
| Edit4 | Text | ||||||||
| Edit5 | Text | ||||||||
| Edit6 | Text | ||||||||
| Edit7 | Text | ||||||||
| Edit8 | Text | ||||||||
| Button | AddButton | Caption | Добавить | ||||||
| Button2 | Caption | Закрыть | |||||||
| Form7 | |||||||||
| GroupBox | GroupBox1 | Caption | |||||||
| GroupBox2 | Caption | ||||||||
| Button | Button4 | Caption | Сортировать | ||||||
| Button2 | Caption | Закрыть | |||||||
| RudioButton | RudioButton3 | Caption | По Ф.И.О. | ||||||
| RudioButton4 | Caption | По диагнозу | |||||||
| RudioButton5 | Caption | По № б.л. | |||||||
| RudioButton6 | Caption | По фамилии врача | |||||||
| RudioButton7 | Caption | По сроку | |||||||
| RudioButton1 | Caption | По началу болезни | |||||||
| RudioButton2 | Caption | По дате выздоровления | |||||||
| RudioButton10 | Caption | По месту работы | |||||||
| RudioButton8 | Caption | По возрастанию | |||||||
| RudioButton9 | Caption | По убыванию | |||||||
| Продолжение таблицы 2 |
|
|
|
3.2.1. Пользовательские функции и процедуры, использованные в
программе.
3.2.1.1. procedure Load – процедура загрузки файла Exel.
Смотри примечание 8
3.2.1.2. procedure Save - Процедура передачи данных в файл Excel
Смотри примечание 9
3.2.2. Обработка событий при нажатии на кнопку ‘Открыть’
Смотри примечание 10
3.2.3. Обработка событий при нажатии на кнопку ‘Сохранить’
Смотри примечание 11
3.2.4. Обработка события при нажатии на кнопку ‘Сохранить как’
Смотри примечание 12
3.2.5. Обработка события при нажатии на кнопку ‘Редактирование’
Смотри примечание 13
3.2.6. Обработка события при нажатии на кнопку ‘Удалить’
Сотри примечание 14
3.2.7. Обработка события при нажатии на кнопку ‘Добавить’ на Form2
Смотри примечание 15
3.2.8. Обработка события при нажатии на кнопку ‘Искать’ на Form3
Смотри примечание 16
3.2.9. Обработка события при нажатии на кнопку ‘Сохранить в файл’ на Form5
Смотри примечание 17
|
|
|
3.2.10. Обработка события при нажатии на кнопку ‘Ок’ на Form6
Смотри примечание 18
3.2.11. Обработка события при нажатии на кнопу ‘Cортировать’ на Form7
Смотри примечание 19
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
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
End Sub
//заполнение полей редактирования
Примечание 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 "Данная строка не может быть отредактирована"
|
|
|
