Windows Script Host для Windows 2000/XP
Шрифт:
doc.all.btnSave.onclick=btnSave_OnClick;
doc.all.btnCancel.onclick=btnCancel_OnClick;
doc.all.btnFirst.onclick=btnFirst_OnClick;
doc.all.btnPrevious.onclick=btnPrevious_OnClick;
doc.all.btnNew.onclick=btnNew_OnClick;
doc.all.btnDelete.onclick=btnDelete_OnClick;
doc.all.btnNext.onclick=btnNext_OnClick;
doc.all.btnFinal.onclick=btnFinal_OnClick;
//Указываем
функции-обработчики изменения текста в полях ввода
doc.all.txtLastName.onchange = txtBoxOnChange;
doc.all.txtName.onchange = txtBoxOnChange;
doc.all.txtPhone.onchange = txtBoxOnChange;
doc.all.txtStreet.onchange = txtBoxOnChange;
doc.all.txtHouse.onchange = txtBoxOnChange;
doc.all.txtApp.onchange = txtBoxOnChange;
doc.all.txtNote.onchange = txtBoxOnChange;
Сами функции-обработчики нажатий на различные кнопки и изменения текста в полях ввода приведены с подробными комментариями в листинге 7.12.
Листинг 7.12. Функции-обработчики нажатия кнопок и изменения поло ввода
//Функция-обработчик нажатия на кнопку "Сохранить"
function btnSave_OnClick {
//Сохраняем данные из формы в XML-файле
objListPersons.SaveData;
}
//Функция-обработчик нажатия на кнопку "Отменить"
function btnCancel_OnClick {
//Заново загружаем данные из текущего элемента массива
//в форму
objListPersons.LoadDialog;
//Выводим сообщение в заголовке окна
doc.title = "Данные восстановлены";
}
//Функция-обработчик нажатия на кнопку "<<"
function btnFirst_OnClick {
//Проверяем, были ли сделаны изменения в форме
if (objListPersons.IsChanged) { //Изменения были сделаны
//Сохраняем данные в XML-файле
objListPersons.SaveData;
//Заново загружаем данные из XML-файла в массив PersonArr
objListPersons.FileToArray;
}
//Переходим к первой записи в массиве
objListPersons.FirstRecord;
//Загружаем в форму данные из массива PersonArr
//для первой записи
objListPersons.LoadDialog;
//Выводим сообщение в заголовке окна
doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик
нажатия на кнопку "<"
function btnPrevious_OnClick {
//Проверяем, были ли сделаны изменения в форме
if (objListPersons.IsChanged) { //Изменения были сделаны
//Сохраняем данные в XML-файле
objListPersons.SaveData;
//Заново загружаем данные из XML-файла в массив PersonArr
objListPersons.FileToArray;
}
//Переходим к предыдущей записи в массиве
objListPersons.PreviousRecord;
//Загружаем в форму данные из массива PersonArr
//для текущей записи
objListPersons.LoadDialog;
//Выводим сообщение в заголовке окна
doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик нажатия на кнопку "Новая запись"
function btnNew_OnClick {
//Проверяем, были ли сделаны изменения в форме
if (objListPersons.IsChanged) { //Изменения были сделаны
//Сохраняем данные в XML-файле
objListPersons.SaveData;
//Заново загружаем данные из XML-файла в массив PersonArr
objListPersons.FileToArray;
}
//Добавляем новую запись в XML-файл
objListPersons.NewRecord;
//Загружаем в форму данные из массива PersonArr
//для добавленной записи
objListPersons.LoadDialog;
//Выводим сообщение в заголовке окна
doc.title = "Добавлена новая запись";
}
//Функция-обработчик нажатия на кнопку "Удалить"
function btnDelete_OnClick {
//Удаляем текущую запись из XML-файла
objListPersons.DelRecord;
//Загружаем в форму данные из массива PersonArr
//для первой записи
objListPersons.LoadDialog;
//Выводим сообщение в заголовке окна
doc.title = "Запись удалена";
Поделиться:
Популярные книги
Наследник Четырех
5. Игра топа
Фантастика:
героическая фантастика
рпг
6.75
рейтинг книги
Адъютант
2. Мания крафта
Фантастика:
фэнтези
6.43
рейтинг книги
Возвышение Меркурия. Книга 7
7. Меркурий
Фантастика:
героическая фантастика
попаданцы
аниме
5.00
рейтинг книги
Приручитель женщин-монстров. Том 1
1. Покемоны? Какие покемоны?
Фантастика:
юмористическое фэнтези
аниме
5.00
рейтинг книги
Лорд Системы 4
4. Лорд Системы
Фантастика:
фэнтези
попаданцы
рпг
5.00
рейтинг книги
Возвышение Меркурия. Книга 2
2. Меркурий
Фантастика:
фэнтези
5.00
рейтинг книги
Прометей: каменный век II
2. Прометей
Фантастика:
альтернативная история
7.40
рейтинг книги
На границе империй. Том 10. Часть 3
Вселенная EVE Online
Фантастика:
боевая фантастика
космическая фантастика
попаданцы
5.00
рейтинг книги
6 Секретов мисс Недотроги
2. Мисс Недотрога
Любовные романы:
любовно-фантастические романы
эро литература
7.34
рейтинг книги
Неудержимый. Книга XIII
13. Неудержимый
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Вернуть невесту. Ловушка для попаданки
1. Вернуть невесту
Любовные романы:
любовно-фантастические романы
8.49
рейтинг книги
На руинах Мальрока
2. Девятый
Фантастика:
боевая фантастика
9.02
рейтинг книги
Найди меня Шерхан
3. Ямпольские-Демидовы
Любовные романы:
современные любовные романы
короткие любовные романы
7.70
рейтинг книги
Табу на вожделение. Мечта профессора
4. Яд первой любви
Любовные романы:
современные любовные романы
5.58