![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Glav.spisok.RemoveItem recquant-1Содержание книги
Поиск на нашем сайте
basa(recquant).famnum=izmen.fam.Text strvar=basa(recquant).famnum & "" basa(recquant).dolnum=izmen.dol.Text strvar=strvar+basa(recquant).dolnum & "" basa(recquant).oklnum=izmen.okl.Text strvar=strvar+basa(recquant).oklnum Glav.spisok.AddItem strvar, recquant-1 End Sub В событийную процедуру для кнопки ОК запишем строку вызова процедуры izmrecinput: Private Sub okbut_Click() Call izmrecinput End Sub 13. Добавить к проекту форму. Задать свойство name формы – sod. Внешний вид формы показан на рис. 75. Оформить форму по образцу, ус Запишите событийные процедуры для кнопок предыдущий и следующий, изменив в кодах свойство name формы, а также свойства объектов, отображающих содержание полей базы данных (см. п. 11). Private Sub pred_Click() Dim a As Integer a=recquant-1 If a<=0 Then MsgBox "вы просмотрели базу до начала", 48, "СТОП" Exit Sub End If recquant=recquant-1 sod.fam.Caption=basa.basa(recquant).famnum sod.dol.Caption=basa.basa(recquant).dolnum sod.okl.Caption=basa.basa(recquant).oklnum sod.nomer.Caption=recquant End Sub Private Sub sled_Click() Dim a As Integer a=recquant+1 If a>=11 Then MsgBox "вы просмотрели базу до конца", 48, "СТОП" Exit Sub End If recquant=recquant+1 sod.fam.Caption=basa.basa(recquant).famnum sod.dol.Caption=basa.basa(recquant).dolnum sod.okl.Caption=basa.basa(recquant).oklnum sod.nomer.Caption=recquant End Sub Запишите событийную процедуру для кнопки ОК. Private Sub okbut_Click() Unload sod glav.Enabled=True Glav.SetFocus End Sub
Private Sub okbut_Click() Unload opisanie glav.Enabled=True Glav.SetFocus End Sub Private Sub zakr_Click() Unload spravka glav.Enabled=True Glav.SetFocus End Sub 15. В главной форме проекта запишите программный код для команд операционного меню справка. Private Sub sp1_Click(Index As Integer)
Select Case Index Case 1 glav.Enabled=False Opisanie.Show Case 2 glav.Enabled=False Spravka.Show End Select End Sub Private Sub okbut_Click() Unload opisanie glav.Enabled=True Glav.SetFocus End Sub Private Sub zakr_Click() Unload spravka glav.Enabled=True Glav.SetFocus End Sub
Форма отчета: дискета или иной носитель с файлами модуля, форм и проектов работы № 7; текстовый файл с изображениями форм и текстами программных кодов.
|
||||||||||||||||||||
Последнее изменение этой страницы: 2016-12-10; просмотров: 407; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.142.201.19 (0.007 с.) |