определение и характеристика индексного файла

3,05 Mb.страница9/10Дата конвертации09.05.2012Размер3,05 Mb.Тип ... Смотрите также:                 9   Значение поля ^ Сумма необходимо рассчитывать как произведение значения поля Кол_во этой же таблицы и значение поля Цена таблицы ДЕТАЛИ. Значение последнего поля Дата необходимо заполнять текущей системной датой с возможностью последующей корректировки. Прежде чем вызывать конструктор форм, необходимо разработать макет будущей формы ввода данных. Один из возможных вариантов такого макета приведен на рис. 7.3. На форме планируется расположить объект Shape или рамку, внутрь которой помещаются две надписи «Поставщик» и «Деталь» (объекты Label), под которыми находятся два списка (объекты ComboBox) для выбора поставщика и детали, определяющих данную поставку. Следующий блок формы образуют три надписи ^ Дата, Количество и Стоимость. Под ними расположим три объекта TextBox для ввода и отображения соответствующих значений трех последних полей таблицы ПОСТАВКИ. В нижней части формы расположим три командных кнопки (объекты CommandButton) с надписями Отменить, Сохранить и Выход. Первая кнопка будет возвращать процесс ввода в начальное состояние, вторая ЂЂЂ сохранять результаты ввода текущей поставки и последняя ЂЂЂ закрывать форму. На макете внутри каждого объекта записан базовый класс объекта и его имя. Например, список деталей будет реализован на основе класса ComboBox и будет иметь имя с1. Имя объекта задается свойством Name. В табл. 7.1 перечислены все объекты, свойства которых следует изменить или задать для них методы для решения поставленной выше задачи ввода данных в таблицу ПОСТАВКИ. Во второй и третьих строках второго столбца табл. 7.1 задается тип и источник данных для раскрывающихся списков с1 и с2. Задать эти параметры можно задать только в том случае, если в окружении данными формы будут предварительно прикреплены файлы данных ПОСТАВКИ, ДЕТАЛИ и ПОСТАВЩИКИ. Таблица 7.1 Имя объекта Набор свойств Метод Form1 Init. Thisform.c1.setfocus c1 Name=c1; RowSourceTyp=6 (Fields)RowSource=ПОСТАВЩИКИ.Имя_П InteractiveChange. Thisform.c2.setfocus c2 Name=c2; RowSourceTyp=6RowSource=ДЕТАЛИ.Имя_Д InteractiveChange. Thisform.t1.setfocus t1 Name=t1; Format=D; Value= InteractiveChange. Thisform.t2.setfocus t2 Name=t2 ValidEvent. Thisform.t3.value = val(Thisform.t2.value)* ДЕТАЛИ. ЦенаThisform.t3.refresh t3 Name=t3; InputMask=99999.99 k1 Name=k1; Caption=ЂЂЂОтменитьЂЂЂ

Онин информационное обеспечение систем управления утверждено издательско-библиотечным советом университета в качестве учебного пособия Хабаровск Издательство тогу 2009

Онин информационное обеспечение систем управления утверждено издательско-библиотечным советом университета в качестве учебного пособия Хабаровск Издательство тогу 2009 - страница 9