Windows Script Host для Windows 2000/XP, Попов Андрей Викторович

Windows Script Host для Windows 2000/XP

на обложку

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

Шрифт:

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;

//Указываем

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

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;

if (objListPersons.PersonArr.length < 1)

//Если в XML-файле нет данных, добавляем пустую запись

objListPersons.AddRecord;

//В качестве текущей устанавливаем первую запись

objListPersons.CurRecord = 0;

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

//для первой записи

objListPersons.LoadDialog;

// Делаем окно Internet Explorer'а видимым

ie.Visible = true;

}

//Функция-обработчик закрытия окна Internet Explorer'а

function ie_OnQuit {

IsQuit=true;

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

objListPersons.SaveData;

}

// Обработчики нажатий на кнопки в форме

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

function btnSave_OnClick {

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

objListPersons.SaveData;

}

//Функция-обработчик нажатия на кнопку "Отменить"

function btnCancel_OnClick {

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

//в форму

objListPersons.LoadDialog;

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

doc.title = "Данные восстановлены";

}

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

function btnFirst_OnClick {

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

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

1-113 114 115 116 117 118 119 120 121 122 123 124 125-188

Газлайтер. Том 1

Володин Григорий Григорьевич

1. История Телепата

Фантастика:

попаданцы

альтернативная история

аниме

5.00

рейтинг книги

Первые русские броненосцы (сборник статей и документов)

Мельников Рафаил Михайлович

Боевые корабли мира

Научно-образовательная:

история

военная техника и вооружение

военная история

5.00

рейтинг книги

Первые русские броненосцы (сборник статей и документов)

Грим

Рerson

Детективы:

прочие детективы

5.00

рейтинг книги

Я снова граф. Книга XI

Дрейк Сириус

11. Дорогой барон!