Андрей Попов - Windows Script Host для Windows 2000/XP

this.CurRecord = 0;

//Сбрасываем признак изменения данных в форме

this.IsChanged = false;

// Методы объекта

//Устанавливаем для методов указатели на соответствующие функции

this.FileToArray=ListPersons_FileToArray;

this.SaveData=ListPersons_SaveData;

this.LoadDialog=ListPersons_LoadDialog;

this.RefreshDialog=ListPersons_RefreshDialog;

this.NextRecord=ListPersons_NextRecord;

this.PreviousRecord=ListPersons_PreviousRecord;

this.FirstRecord=ListPersons_FirstRecord;

this.FinalRecord=ListPersons_FinalRecord;

this.NewRecord=ListPersons_NewRecord;

this.DelRecord = ListPersons_DelRecord;

}

//Считывание данных из XML-файла в массив объектов Person

function ListPersons_FileToArray() {

var Root,CurrNode,i;

//Создаем объект XML DOM

XML = WScript.CreateObject("Msxml.DOMDocument");

//Загружаем XML-документ из файла

XML.load(PathBook);

//Сохраняем в переменной Root ссылку на корневой элемент

//документа

Root=XML.documentElement;

//Обнуляем массив PersonArr

this.PersonArr.length=0;

//Перебираем все дочерние элементы первого уровня вложенности

//для корневого элемента

for (i=1; i<=Root.childNodes.length-1;i++) {

//Выделяем в коллекции XML-элементов i-й элемент

CurrNode=Root.childNodes.item(i);

//Создаем новый экземпляр PersonRec объекта Person

PersonRec=new Person();

//Заполняем поля объекта PersonRec

PersonRec.LastName=GetTagVal(CurrNode,"LastName");

PersonRec.Name=GetTagVal(CurrNode,"Name");

PersonRec.Phone=GetTagVal(CurrNode,"Phone");

PersonRec.Street=GetTagVal(CurrNode,"Street");

PersonRec.House=GetTagVal(CurrNode,"House");

PersonRec.App=GetTagVal(CurrNode,"App");

PersonRec.Note=GetTagVal(CurrNode,"Note");

//Сохраняем объект PersonRec в массиве PersonArr

this.PersonArr[this.PersonArr.length]=PersonRec;

}

}

//Запись данных из формы в XML-файл

function ListPersons_SaveData() {

var Root,CurrNode,ElemList;

//Сохраняем в переменной Root ссылку на корневой элемент

//документа

Root=XML.documentElement;

//Сохраняем в переменной CurrNode ссылку на (CurRecord+1)-й

//элемент Person

CurrNode=Root.childNodes.item(this.CurRecord+1);

//Записываем данные из полей ввода формы в соответствующие

//XML-элементы, которые являются дочерними узлами

//относительно CurrNode

SetTagVal(CurrNode,"LastName",doc.all.txtLastName.value);

SetTagVal(CurrNode,"Name",doc.all.txtName.value);

SetTagVal(CurrNode,"Phone",doc.all.txtPhone.value);

SetTagVal(CurrNode,"Street",doc.all.txtStreet.value);

SetTagVal(CurrNode,"House",doc.all.txtHouse.value);

SetTagVal(CurrNode,"App",doc.all.txtApp.value);

SetTagVal(CurrNode,"Note",doc.all.txtNote.value);

//Сохраняем XML-файл на диске

XML.save(PathBook);

}

//Загрузка данных для текущей записи в форму

function ListPersons_LoadDialog() {

//Вызываем метод LoadDialog для объекта Person,

//который является CurRecord-м элементом массива PersonArr

this.PersonArr[this.CurRecord].LoadDialog();

}

//Обновление данных в форме

function ListPersons_RefreshDialog(IsGoTop) {

//Обнуляем массив PersonArr

this.PersonArr.length=0;

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

this.FileToArray();

if (IsGoTop)

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

this.FirstRecord()

else

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

this.FinalRecord();

//Загружаем в форму данные для текущей записи

this.LoadDialog();

}

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

function ListPersons_NextRecord() {

if (this.CurRecord

//Если текущая запись не является последней, увеличиваем

//номер текущей записи

this.CurRecord++;

}

//Переход к предыдущей записи

function ListPersons_PreviousRecord() {

if (this.CurRecord > 0)

//Если текущая запись не является первой, уменьшаем

//номер текущей записи

this.CurRecord--;

}

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

function ListPersons_FirstRecord() {

this.CurRecord = 0;

}

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

function ListPersons_FinalRecord() {

this.CurRecord = this.PersonArr.length - 1;

}

//Добавление новой записи

function ListPersons_NewRecord() {

var Root,NewElem;

//Сохраняем в переменной Root ссылку на корневой элемент

//документа

Root=XML.documentElement;

//Создаем новый элемент Person

NewElem=XML.createElement("Person");

//Добавляем новый элемент в XML-файл

Root.appendChild(NewElem);

//Сохраняем XML-файл на диске

XML.save(PathBook);

//Обновлем в форме данные для последней добавленной записи

this.RefreshDialog(false);

}

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