Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

//Сохраняем данные в 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 = "Запись удалена";

}

//Функция-обработчик нажатия на кнопку ">"

function btnNext_OnClick {

 //Проверяем, были ли сделаны изменения в форме

 if (objListPersons.IsChanged) { //Изменения были сделаны

//Сохраняем данные в XML-файле

objListPersons.SaveData;

//Заново загружаем данные из XML-файла в массив PersonArr

objListPersons.FileToArray;

 }

 //Переходим к следующей записи в массиве

 objListPersons.NextRecord;

 //Загружаем в форму данные из массива PersonArr

 //для текущей записи

 objListPersons.LoadDialog;

 //Выводим сообщение в заголовке окна

 doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку ">>"

function btnFinal_OnClick {

 //Проверяем, были ли сделаны изменения в форме

 if (objListPersons.IsChanged) { //Изменения были сделаны

//Сохраняем данные в XML-файле

objListPersons.SaveData;

//Заново загружаем данные из XML-файла в массив PersonArr

objListPersons.FileToArray;

 }

 //Переходим к последней записи в массиве

 objListPersons.FinalRecord;

 //Загружаем в форму данные из массива PersonArr

 //для текущей записи

 objListPersons.LoadDialog;

 //Выводим сообщение в заголовке окна

 doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик изменения текста в полях ввода

function txtBoxOnChange {

 //Устанавливаем признак изменения данных в форме

 objListPersons.IsChanged = true;

 //Выводим сообщение в заголовке окна