контрольная .. 1. Разработка моделей базы данных 1 Разработка инфологической модели базы данных
 Скачать 498.5 Kb.
|
|
Содержание Введение 1. Разработка моделей базы данных 1.1 Разработка инфологической модели базы данных 1.2 Разработка даталогической модели базы данных 2. Разработка приложений базы данных 2.1 Разработка функциональной структуры приложения 2.2 Разработка форм 3. Инструкции 3.1 Инструкции программисту 3.2 Инструкции пользователю Заключение Список использованной литературы Приложение Введение XML — расширяемый язык разметки. Рекомендован Консорциумом Всемирной паутины (W3C). Спецификация XML описывает XML-документы и частично описывает поведение XML-процессоров (программ, читающих XML-документы и обеспечивающих доступ к их содержимому). XML разрабатывался как язык с простым формальным синтаксисом, удобный для создания и обработки документов как программами, так и человеком, с акцентом на использование в Интернете. Язык называется расширяемым, поскольку он не фиксирует разметку, используемую в документах: разработчик волен создать разметку в соответствии с потребностями к конкретной области, будучи ограниченным лишь синтаксическими правилами языка. Расширение XML — это конкретная грамматика, созданная на базе XML и представленная словарём тегов и их атрибутов, а также набором правил, определяющих, какие атрибуты и элементы могут входить в состав других элементов. Сочетание простого формального синтаксиса, удобства для человека, расширяемости, а также базирование на кодировках Юникод для представления содержания документов привело к широкому использованию как, собственно, XML, так и множества производных специализированных языков на базе XML в самых разнообразных программных средствах. СОМ-компоненты Visual FoxPro могут использовать свойства, события и методы СОМ-интерфейса, определенного в другом СОМ-компоненте. В Visual FoxPro появилось средство Task List (Список заданий), позволяющее пользователю формировать список задач в проекте и управлять их выполнением. Приложение Object Browser (Браузер объекта), входящее в состав Visual FoxPro и запускаемое из меню Tools (Сервис), позволяет просматривать свойства, методы и события СОМ-объектов, что очень удобно при работе с объектами, на которые нет документации. В Visual FoxPro появились новые средства управления XML-файлами: XMLTOCURSOR — преобразовывает XML-текст в курсор или таблицу Visual FoxPro; CURSORTOXML — преобразовывает курсор Visual FoxPro в XML-текст. Поддержка Active Accessibility в Visual FoxPro позволяет создавать приложения, которые могут использовать люди с проблемами зрения, слуха или моторики. В базе данных, созданной в Visual FoxPro, вы можете использовать события, связанные с базой данных, такие как открытие таблицы, добавление или удаление таблицы для проверки прав доступа при открытии таблицы, трассировки выполняемых действий и т.п. 1. Разработка моделей базы данных 1.1 Разработка инфологической модели базы данных Инфологическая модель собой информационное предметной области (« Компьютерной Техники»), без учета реализации базы . Инфологическая модель быть представлена различном виде. инфологического моделирования – наиболее естественных человека способов и представления информации, которую хранить в базе данных. инфологическую модель пытаются строить аналогии с языком (последний может быть в чистом из-за компьютерной обработки и неоднозначности естественного языка). конструктивными элементами моделей являются , связи между и их (атрибуты). Сущность – различимый объект (, который мы отличить от ), информацию о необходимо хранить базе данных. различать такие , как тип и экземпляр . Понятие тип относится к однородных личностей, , событий или , выступающих как . Экземпляр сущности к конкретной в наборе. – поименованная характеристика . Его наименование быть уникальным конкретного типа , но может одинаковым для типа сущностей. используются для того, какая должна быть о сущности. – минимальный набор , по значениям можно однозначно требуемый экземпляр . Минимальность означает, исключение из любого атрибута позволяет идентифицировать по оставшимся. – ассоциирование двух более сущностей. бы назначением данных было хранение отдельных, связанных между данных, то структура могла быть очень . Однако одно основных требований организации базы – это обеспечение отыскания одних по значениям , для чего установить между определенные связи. так как реальных базах нередко содержатся или даже сущностей, то между ними быть установлено миллиона связей. такого множества и определяет инфологических моделей. таблице 1 представлена модель для области «Магазин Техники». Таблица 1 модель
инфологической модели 2 объекта: Бизнес- Товары Объект -партнер предназначен представления информации Бизнес-партнерах, поставляют товар магазин: Бизнес- РНН Адрес лицензии Номер Номер телефона товары предназначен представления информации товарах имеющихся наличии в : Товар Модель поступления Имя -партнера Количество Бар-код 1.2 Разработка даталогической базы данных модель представляет детализацию инфологической с учетом конкретной СУБД, данном случае 8.0. Даталогическая модель моделью логического и представляет отображение логических между элементами безотносительно к содержанию и хранения. Эта строится в информационных единиц, в той СУБД, я которой мы базу данных. создания даталогическая называется даталогическим . Описание логической базы данных языке СУБД схемой. Каждому ставится в таблица, каждому ставится в столбец таблицы. атрибута определяет столбца: числовой, , дата, логический. таблице 2 представлена модель объекта «-партнер». В 3 представлена даталогическая объекта «Товары». 2 Даталогическая модель «Бизнес-партнер»
Таблица 3 - модель объекта «-партнеры»
таблицы реализованы СУБД VFP 8.0 использованием конструктора . Но так таблицы можно , используя команды . Например, таблицу «-партнер» можно следующей командой: TABLE Бизнес- (Бизнес-партнер, (20), Рнн, numeric (15), , numeric (15), Договор, (10), Юр_адрес, (40), Телефон, numeric (10)) база данных собой совокупность , содержащих всю информацию и различными связями. (или набор ), который может использован для идентификации конкретного (строки, записи), первичным ключом. ключ не иметь дополнительных . Это значит, если из ключа исключить атрибут, оставшихся будет недостаточно однозначной идентификации кортежей. Для доступа по ключу во системах управления данных (СУБД) механизм, называемый . Грубо говоря, представляет собой древовидный список, на истинное записи для первичного ключа. индексирование отношения использованием атрибутов, от первичного . Данный тип называется вторичным и применяется целях уменьшения доступа при данных в , а также сортировки. Для ссылочной целостности во многих имеется механизм называемых внешних . Смысл этого состоит в , что некоему (или группе ) одного отношения ссылка на ключ другого ; тем самым связи подчиненности этими отношениями. этом отношение, первичный ключ ссылается внешний другого отношения, master-отношением, главным отношением; отношение, от исходит ссылка, detail-отношением, подчиненным отношением. назначения такой СУБД имеет автоматически отслеживать "ненарушения" связей отношениями, а : если Вы вставить в таблицу запись, внешнего ключа не существует в главной (например, там еще записи таким первичным ), СУБД сгенерирует ; если Вы удалить из таблицы запись, первичный ключ имеется хотя одна ссылка подчиненной таблицы, также сгенерирует ; если Вы изменить первичный записи главной , на которую хотя бы ссылка из таблицы, СУБД сгенерирует ошибку. 2. приложений базы 2.1 Разработка функциональной приложения Разрабатываемое должно обеспечивать: товара о или Бизнес-; поиск Бизнес- по Бизнес-, адресу или ; добавление и информации о -партнере; добавление удаление информации товаре; статистический имеющихся товаров из требований была разработана структура приложения, приведена на 1.  Рисунок 1 - Функциональная приложения 2.2 Разработка В моей работе было 2 формы: одна них для работы с данных, а же форма входа в данных «Магазин техники» с временем и . Все формы с помощью FileNewNew file, на форму объекты с Form Controls. разработке формы .scx (см. . 2) были использованы : CommandButton, кнопка открытия доступа приложению и форме, для кнопки Command1 событие Click программный код (. приложение). TextBox, отображения даты времени; Timer, отслеживания системного ; CommandButton1, кнопка закрытия формы, работы кнопки событие Click программный код (. приложение).  Рисунок 2 – Приложения При формы главная. (см. рис. 3) использован объект: , страничный блок из 6 вкладок, из которых своё название несет на определённую функциональную . CommandButton, кнопка закрытия формы, работы кнопки событие Click программный код (. приложение).  Рисунок 3 – форма При page 1 в (см. рис. 4) использованы объекты: , для отображения ; Label, для постоянных текстовых на форме; , для отображения списка; CommandButton, для поиска , для работы в событие записываем программный (см. приложение ); группа кнопок , используется для одного из вариантов.  Рисунок 4 – Товара (page 1) разработке page 2 pageframe (см. . 5) были использованы : Grid, для таблиц; Label, отображения постоянных данных на ; ComboBox, для выпадающего списка; , кнопки для данных, для кнопки в Click записываем код (см. ); OptionGroup группа выбора, используется выбора одного нескольких вариантов.  5 – Поиск Бизнес- (page 2) При page 3 в (см. рис. 6) использованы объекты: , для отображения ; Label, для постоянных текстовых на форме; , для отображения списка; CommandButton, для добавления удаления данных, работы кнопки событие Click программный код (. приложение ); OptionGroup кнопок выбора, для выбора из нескольких . TextBox, для и отображения ; база данный магазин  Рисунок 6 – -партнер (page 3) разработке page 4 pageframe (см. . 7) были использованы : Grid, для таблиц; Label, отображения постоянных данных на ; ComboBox, для выпадающего списка; , кнопки для и удаления , для работы в событие записываем программный (см. приложение ); группа кнопок , используется для одного из вариантов. TextBox, ввода и данных; Spinner, ; OptionGroup группа выбора, используется выбора одного нескольких вариантов.  7 – Товары (page 4) разработке page5 pageframe (см. . 8) были использованы : Label, для постоянных текстовых на форме; , для отображения списка; CommandButton, для подсчёта данных, для кнопки в Click записываем код (см. ); TextBox, для и отображения .  Рисунок 8 – Статистика ( 5) При разработке в pageframe (. рис. 9) были объекты: Label, отображения постоянных данных на ; Image, для рисунков на .  Рисунок 9 – Форма, сведения о (page 6) 3. Инструкции 3.1 программисту Для системы необходимо следующих требований: система (для ) Microsoft Windows 2000 Service Pack 2 выше или Windows XP; -совместимый компьютер процессором не Pentium; Наличие ; Не менее 64 оперативной памяти ( 128 Мбайт). 20 Мбайт памяти – для установки, 165 Мбайт – типичной и установки; Монитор 800x600 или более разрешающей способности палитрой 256 цветов ( 16-битовый High ); Наличие установленной Visual Fox 8.0 и выше. иметь на файл приложения базы данных .dbf, Бизнес-.dbf, а следующие формы .scx, главная.. 3.2 Инструкции пользователю работы с необходимо запустить запуск.scx программу Visual Pro 8.0 или выше. После на экране форма с кнопками (рис.10), датой и . Для входа базу данных магазина, нажмите кнопку с «Магазин Компьютерной ». Для закрытия нажните на «Выход» (см. . 10).  Рисунок 10 – Запуск данных После в базу магазина компьютерной , перед вами форма с : поиск товара, Бизнес-партнера, -партнер, товары, , о программе. «Выход» предназначена выхода из данных магазина техники и к предыдущей . Вкладка «Поиск », позволяет осуществлять товара при критериев по поиску (см. . 11).  Рисунок 11 – Вкладка « Товара» Вкладка « Бизнес-партнера», осуществлять поиск -партнера при критериев по поиску (см. . 12).  Рисунок 12 – Вкладка « Бизнес-партнера» «Бизнес-партнер», добавлять данные Бизнес-партнере заполнении соответствующих на форме. же можно данные о -партнерах при их из Бизнес-партнеров (. рис. 13).  Рисунок 13 – «Бизнес-партнер» «Товары», позволяет данные о при заполнении пунктов на . Так же удалять данные товарах при их из товаров (см. . 14).  Рисунок 14 – Вкладка «» Вкладка «Статистика», получить статистические о количестве оставшегося в . Статистику можно по наименованию и по товара (см. . 15).  Рисунок 15 – Вкладка «» Вкладка «О », позволяет получить о создателе приложения («Магазин Техники») Каждая имеет доступный , снабжена логически кнопками, например как «поиск», «»… «выход» - названия соответствуют командам, будут выполняться нажатии на . Заключение На день реляционные данных остаются распространенными, благодаря простоте и , как в создания, так на пользовательском . Основным достоинством баз данных с самым языком запросов . С помощью запроса на языке можно несколько таблиц временную таблицу вырезать из требуемые строки столбцы (селекция проекция). Так табличная структура базы данных понятна пользователям, и язык является простым легким для . Реляционная модель солидный теоретический , на котором основаны эволюция реализация реляционных данных. На популярности, вызванной реляционной модели, стал основным для реляционных данных. В анализа вышеизложенной выявлены следующие рассмотренной модели данных: так все поля таблицы должны постоянное число заранее определенных , приходится создавать таблицы, учитывающие особенности элементов, помощи внешних . Такой подход усложняет создание -нибудь сложных в базе ; высокая трудоемкость информацией и связей. Список литературы 1. Дейт . Введение в баз данных. / .с англ. – .: Вильямс, 2001. 2. Каратыгин .А., Тихонов .Ф., Тихонова .И. Visual 7. Руководство пользователя примерами. – М.: , 2002. 3. Гарсиа – Молина ., Ульман Дж., Дж. Системы данных. Полный . /Пер. с .– М.: Вильямс, 2003. 4. В.А. – 99. Руководство разработчика данных. – СПб: , 2002. 5. Омельченко Л. Visual FoxPro 8.0. – .: БХВ – Санкт–, 2004. 6. Мамаев Е.. Microsoft SQL . – СПб.: БХВ – – Петербург, 2001. 7. Базиян . И др. Visual FoxPro 6. . с англ. / пособие. – М.: , 2000. 8. Джудит С. и др. руководство по ; пер. с . – М.: Диалектика, 1997. 9. Е.Ж. баз данных. / . – Алматы: КазНТУ, 2002. Приложение Форма запуск.scx PROCEDURE command1.Click DO FORM "F:\Магазин компьютерной техники\главная.scx" ENDPROC PROCEDURE timer1.Init Thisform.text1.Value=DATE() Thisform.text2.Value=TIME() Thisform.timer1.Interval=2000 Thisform.timer2.Interval=60000 ENDPROC PROCEDURE timer1.Timer a1=INT(RAND()*250) b1=INT(RAND()*250) c1=INT(RAND()*250) thisform.BackColor=RGB(a1,b1,c1) ENDPROC PROCEDURE command2.Click Thisform.Release ENDPROC Форма главная.scx PROCEDURE Activate ENDPROC PROCEDURE command1.Click DO case CASE thisform.pageframe1.page1.Optiongroup1.Value=1 SELECT * from "F:\Магазин Компьютерной Техники\товары.dbf" WHERE товар=thisform.pageframe1.page1.combo1.Value INTO CURSOR cur1 CASE thisform.pageframe1.page1.Optiongroup1.value=2 SELECT * from "F:\Магазин Компьютерной Техники\товары.dbf" WHERE Бизнес-партнер=thisform.pageframe1.page1.combo2.value INTO CURSOR cur1 ENDCASE thisform.pageframe1.page1.grdТовары.RecordSourceType=2 thisform.pageframe1.page1.grdТовары.RecordSource='cur1' thisform.Refresh thisform.pageframe1.page1.grdТовары.SetFocus ENDPROC PROCEDURE command2.Click thisform.pageframe1.page1.combo1.Value=' ' Приложение thisform.pageframe1.page1.combo2.Value=' ' thisform.Refresh ENDPROC PROCEDURE command1.Click DO case CASE thisform.pageframe1.page2.Optiongroup1.Value=1 SELECT * from "F:\Магазин Компьютерной Техники\Бизнес-партнер.dbf" WHERE Бизнес-партнер=thisform.pageframe1.page2.combo1.Value INTO CURSOR cur2 CASE thisform.pageframe1.page2.Optiongroup1.value=2 SELECT * from "F:\Магазин Компьютерной Техники\Бизнес-партнер.dbf" WHERE телефон=thisform.pageframe1.page2.combo2.value INTO CURSOR cur2 CASE thisform.pageframe1.page2.Optiongroup1.value=3 SELECT * from "F:\Магазин Компьютерной Техники\Бизнес-партнер.dbf" WHERE юр_адрес=thisform.pageframe1.page2.combo3.value INTO CURSOR cur2 ENDCASE thisform.pageframe1.page2.grdБизнес-партнер.RecordSourceType=2 thisform.pageframe1.page2.grdБизнес-партнер.RecordSource='cur2' thisform.Refresh thisform.pageframe1.page2.grdБизнес-партнер.SetFocus ENDPROC PROCEDURE command2.Click thisform.pageframe1.page2.combo1.Value=' ' thisform.pageframe1.page2.combo2.Value=' ' thisform.pageframe1.page2.combo3.Value=' ' thisform.Refresh ENDPROC PROCEDURE command1.Click IF empty(thisform.pageframe1.page3.text1.value) =MESSAGEBOX('Вы не ввели Бизнес-партнера!') else IF EMPTY(thisform.pageframe1.page3.text2.value) =MESSAGEBOX('Вы не ввели РНН!') else IF EMPTY(thisform.pageframe1.page3.text3.value) =MESSAGEBOX('Вы не ввели № лицензии!') else IF EMPTY(thisform.pageframe1.page3.text4.value) =MESSAGEBOX('Вы не ввели № договора!') else IF EMPTY(thisform.pageframe1.page3.text5.value) =MESSAGEBOX('Вы не ввели адрес!') else Приложение IF EMPTY(thisform.pageframe1.page3.text6.value) =MESSAGEBOX('Вы не ввели телефон!') else f1=thisform.pageframe1.page3.text1.Value k1=thisform.pageframe1.page3.text2.Value g1=thisform.pageframe1.page3.text3.Value o1=thisform.pageframe1.page3.text4.Value p1=thisform.pageframe1.page3.text5.Value r1=thisform.pageframe1.page3.text6.Value INSERT INTO "F:\Магазин Компьютерной Техники\Бизнес-партнер.dbf"(Бизнес-партнер, Рнн, Лицензия, Договор, Юр_адрес, Телефон); VALUES (f1,k1,g1,o1,p1,r1) thisform.Refresh thisform.pageframe1.page3.grdБизнес-партнер1.SetFocus ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDPROC PROCEDURE command2.Click IF MESSAGEBOX('Удалить?',4+32+256,'Внимание')=6 SELECT Бизнес-партнер PACK thisform.refresh thisform.pageframe1.page3.grdБизнес-партнер1.SetFocus ELSE ENDIF thisform.pageframe1.page3.grdБизнес-партнер1.RecordSourceType= 2 thisform.pageframe1.page3.grdБизнес-партнер1.RecordSource='F:\Магазин Компьютерной Техники\Бизнес-партнер.dbf' thisform.refresh thisform.pageframe1.page3.grdБизнес-партнер1.SetFocus ENDPROC PROCEDURE command3.Click DELETE FROM "F:\Магазин Компьютерной Техники\Бизнес-партнер.dbf" WHERE; Бизнес-партнер=(thisform.pageframe1.page3.combo1.Value) thisform.Refresh thisform.pageframe1.page3.grdБизнес-партнер1.SetFocus ENDPROC PROCEDURE command4.Click RECALL all thisform.pageframe1.page3.combo1.Value=' ' thisform.Refresh thisform.pageframe1.page3.grdБизнес-партнер1.SetFocus Приложение ENDPROC PROCEDURE command1.Click IF empty(thisform.pageframe1.page4.text1.value) =MESSAGEBOX('Вы не ввели название товара!') else IF EMPTY(thisform.pageframe1.page4.text2.value) =MESSAGEBOX('Вы не ввели модель товара!') else IF EMPTY(thisform.pageframe1.page4.spinner1.value) =MESSAGEBOX('Вы не ввели количество товара!') else IF EMPTY(thisform.pageframe1.page4.text3.value) =MESSAGEBOX('Вы не ввели бар-код товара!') else IF EMPTY(thisform.pageframe1.page4.text4.value) =MESSAGEBOX('Вы не ввели дату поступления товара!') else IF EMPTY(thisform.pageframe1.page4.text5.value) =MESSAGEBOX('Вы не ввели Бизнес-партнера товара!') else IF EMPTY(thisform.pageframe1.page4.spinner2.value) =MESSAGEBOX('Вы не ввели стоимость товара!') else a1=thisform.pageframe1.page4.text1.Value b1=thisform.pageframe1.page4.text2.Value c1=thisform.pageframe1.page4.spinner1.Value d1=thisform.pageframe1.page4.text3.Value e1=thisform.pageframe1.page4.text4.Value q1=thisform.pageframe1.page4.text5.Value w1=thisform.pageframe1.page4.spinner2.Value INSERT INTO "F:\Магазин Компьютерной Техники\Товары.dbf"(Товар, Модель, Количество, Бар_код, дата_ввоза, Бизнес-партнер, цена_в_дол); VALUES (a1,b1,c1,d1,e1,q1,w1) thisform.Refresh thisform.pageframe1.page4.grdТовары1.SetFocus ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDPROC PROCEDURE command2.Click DO case CASE thisform.pageframe1.page4.Optiongroup1.Value=1 Приложение SELECT * from "F:\Магазин Компьютерной Техники\Товары.dbf" WHERE товар=thisform.pageframe1.page4.combo1.Value INTO CURSOR cur3 CASE thisform.pageframe1.page2.Optiongroup1.value=2 SELECT * from "F:\Магазин Компьютерной Техники\Товары.dbf" WHERE модель=thisform.pageframe1.page4.combo2.value INTO CURSOR cur3 ENDCASE thisform.pageframe1.page4.grdТовары1.RecordSourceType=2 thisform.pageframe1.page4.grdТовары1.RecordSource='cur3' thisform.Refresh thisform.pageframe1.page4.grdТовары1.SetFocus ENDPROC PROCEDURE command3.Click IF MESSAGEBOX('Удалить?',4+32+256,'Внимание')=6 SELECT 'F:\Магазин Компьютерной Техники\товары.dbf' PACK thisform.refresh thisform.pageframe1.page4.grdТовары1.SetFocus ELSE ENDIF thisform.pageframe1.page4.grdТовары1.RecordSourceType= 2 thisform.pageframe1.page4.grdТовары1.RecordSource='F:\Магазин Компьютерной Техники\товары.dbf' thisform.refresh thisform.pageframe1.page4.grdТовары1.SetFocus ENDPROC PROCEDURE command4.Click RECALL all thisform.pageframe1.page4.combo1.Value=' ' thisform.pageframe1.page4.combo2.Value=' ' thisform.Refresh thisform.pageframe1.page4.grdТовары1.SetFocus ENDPROC PROCEDURE command5.Click DELETE from "F:\Магазин Компьютерной Техники\Товары.dbf" WHERE; товар=thisform.pageframe1.page4.combo1.Value; OR модель=thisform.pageframe1.page4.combo2.value thisform.Refresh thisform.pageframe1.page4.grdТовары1.SetFocus ENDPROC PROCEDURE command1.Click Приложение SELECT count(*), sum(Количество), INT((sum(Количество))*(INT(avg(цена_в_дол)))), int(avg(цена_в_дол)) FROM "F:\Магазин компьютерной Техники\товары.dbf"; where товар=thisform.pageframe1.page5.combo1.value; INTO ARRAY mas1 thisform.pageframe1.page5.text1.Value=mas1(1) thisform.pageframe1.page5.text2.Value=mas1(2) thisform.pageframe1.page5.text3.Value=mas1(3) thisform.pageframe1.page5.text4.Value=mas1(4) thisform.Refresh SELECT sum(Количество) FROM "F:\Магазин компьютерной Техники\товары.dbf" INTO ARRAY mas5 thisform.pageframe1.page5.text8.Value=mas5(1) thisform.Refresh ENDPROC PROCEDURE command2.Click thisform.pageframe1.page5.combo1.Value=' ' thisform.pageframe1.page5.text1.Value=' ' thisform.pageframe1.page5.text2.Value=' ' thisform.pageframe1.page5.text3.Value=' ' thisform.pageframe1.page5.text4.Value=' ' thisform.pageframe1.page5.text8.Value=' ' thisform.Refresh ENDPROC PROCEDURE command3.Click SELECT sum(Количество), INT((sum(Количество))*(INT(avg(цена_в_дол)))), int(avg(цена_в_дол)) FROM "F:\Магазин компьютерной Техники\товары.dbf"; where модель=thisform.pageframe1.page5.combo2.value; INTO ARRAY mas2 thisform.pageframe1.page5.text5.Value=mas2(1) thisform.pageframe1.page5.text6.Value=mas2(2) thisform.pageframe1.page5.text7.Value=mas2(3) thisform.Refresh ENDPROC PROCEDURE command4.Click thisform.pageframe1.page5.combo2.Value=' ' thisform.pageframe1.page5.text5.Value=' ' thisform.pageframe1.page5.text6.Value=' ' thisform.pageframe1.page5.text7.Value=' ' thisform.Refresh ENDPROC PROCEDURE command1.Click Thisform.Release ENDPROC |