Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 46. ActiveX Document.DLL
|
|
Здесь создаeтся документ ActiveX Document. DLL, в котором используем доступ к данным посредством элемента управления Data с выводом их в поле элемента управления MSFlexGrid; тогда имеется возможность предоставить доступ к локальным базам данных пользователю сети. Документы ActiveX инициализируются (в отличие от формы) в процедуре UserDocument_Initialize (). В примере используем материалы практической работы 28 (доступ к данным с выводом результатов в поле элемента управления MSFlexGrid).
Последовательность действий:
1. Cоздать проект типа ActiveX Document.DLL,
2. скопировать проект (практическая работа 28), при этом использовать свойство MSFlexGrid.DataSource = Data1 вместо части программы, описывающей работу с ячейками MSFlexGrid (см. комментарии к коду практической работы 28),
3. для ввода SQL-запроса добавить командную кнопку Command1 (командная кнопка практики 28 не используется), см. код, данный ниже. Первый запрос (Select Name From Student) вводится в окне свойств текстового поля,
4. ввести код, данный ниже, стартовать проект - проект выполняется в приложении Browser. Новый запрос вводится в текстовое поле, затем делается щелчок на командной кнопке, рис. 6.17
Private Sub UserDocument_Initialize()Dim i As IntegerCommonDialog1.FileName = " " CommonDialog1.Action = 1Data1.Connect = " " Data1.DatabaseName = CommonDialog1.FileNameData1.RefreshFor i = 0 To Data1.Database.TableDefs.Count - 1Combo1.AddItem (Data1.Database.TableDefs(i).Name)Next iCombo1.Text = " " Data1.RecordSource = Text1.TextData1.RefreshEnd Sub' SQL-запрос, вводимый в текстовое поле, присваивается ' свойству RecordSourcePrivate Sub Command1_Click() Data1.RecordSource = Text1.TextData1.RefreshEnd Sub
Рис. 6.17. ActiveX Document.DLL
Лекция 7:
|
|