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

//Устанавливаем для метода LoadDialog указатель на

//функцию Person_LoadDialog

this.LoadDialog=Person_LoadDialog;

}

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

function Person_LoadDialog() {

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

//свойств объекта Person

doc.all.txtLastName.value = this.LastName;

doc.all.txtName.value=this.Name;

doc.all.txtPhone.value=this.Phone;

doc.all.txtStreet.value=this.Street;

doc.all.txtHouse.value=this.House;

doc.all.txtApp.value = this.App;

doc.all.txtNote.value = this.Note;

}

//Конструктор объекта ListPersons

function ListPersons() {

// Свойства объекта

//Создаем массив PersonArr экземпляров объекта Person

this.PersonArr = new Array();

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

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);

}

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

function ListPersons_DelRecord() {

var Root,DelNom;

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

//документа

Root=XML.documentElement;

//В переменной DelNom сохраняем номер удаляемого элемента Person

DelNom=this.CurRecord+1;

//Удаляем DelNom-й элемент Person из XML-файла

Root.removeChild(Root.childNodes.item(DelNom))

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

XML.save(PathBook);

//Выводим сообщение о том, что запись удалена

WshShell.Popup("Запись N "+DelNom+" удалена",0,"Информация",

vbInformation+vbOkOnly);

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

this.RefreshDialog(true);

}

// Обработчики событий Internet Explorer'a

//Функция-обработчик окончания загрузки документа в Internet Explorer

function ie_DocumentComplete() {

//Создаем экземпляр objListPersons объекта ListPersons

objListPersons = new ListPersons();

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

objListPersons.FileToArray();

//Получаем ссылку на объект Document

doc = ie.Document;

//Устанавливаем заголовок окна

doc.title = "Редактирование данных";

//Указываем функции-обработчики нажатий на кнопки формы

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;