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

В this.LastName="";

В this.Name="";

В this.Phone="";

В this.Street="";

В this.House="";

В this.App="";

В this.Note="";

 //Устанавливаем для метода 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.PersonArr.length - 1)

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

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

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

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