Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 28. MSFIexGrid
|
|
1. Создать базу данных ACCESS с таблицами, например, student (см. табл. 4.7) и др, сохранить в файле stud.mdb; впоследствие это имя выбирается в стандартном диалоговом окне Open,
| Таблица 4.7. Содержимое таблицы student базы данных | ||||
| Num | Name | Geschl | Geb_dat | Gruppe |
| Wolf | M | 20.08.76 | Kp-3 | |
| Hase | M | 30.09.77 | Kp-4 | |
| Weiss | W | 24.06.77 | Kp-3 | |
| Kalb | M | 23.03.77 | Kp-3 |
2. создать на форме объекты (см. рис. 4.4 и код, данный ниже):
o MSFlexGrid (см. выше),
o CommonDialоg: Проект 
Компоненты Управление Microsoft CommonDialog Control,
o CommandButton (Name = Command1),
o Data (Name = Data1, Connect = Accеss),
o ComboBox (Name = Combo1, Style = 0), см. 10.1,
o TеxtBox (Name = Text1),
3. ввести код, данный ниже, пояснения даны под комментариями:
Private Sub Command1_Click()Dim i As Integer' очистить свойство объекта CommonDialog, содержащее ' имя базы данных CommonDialog1.FileName = " " ' стартовать CommonDialog CommonDialog1.Action = 1' выводится стандартное диалоговое окно Open; ' нужно выбрать требуемую базу данных.' связать объект Data1 с файлом базы данных, выбранным с' помощью элемента управления CommonDialog1 Data1.DatabaseName = CommonDialog1.FileName ' обновить содержимое элемента управления Data1 Data1.Refresh' читать в цикле имена таблиц базы данных и занести' их в ComboBox (AddItem)For i = 0 To Data1.Database.TableDefs.Count - 1' свойство Count определяет количестко элементов Combo1.AddItem (Data1.Database.TableDefs(i).Name)Next i' после добавления имeн таблиц в ComboBox очистить теку-' щее значение свойства Text Combo1.Text = " " ' введeнный в текстовое поле строку SQL присвоить ' свойству RecordSource элемента Data1 Data1.RecordSource = Text1.Text' обновить содержимое Data1. Реализуется запрос, т.к ' свойству RecordSource присвоено значение строки SQLData1.Refresh' оставшаяся часть кода может быть заменена' следующим оператором присваивания: ' MSFlexGrid1.DataSource = Data1 в Окне свойств. Эта' часть кода нужна лишь для того чтобы пользователь мог' освоить работу с ячейками MSFlexGrid. ' Свойство MSFlexGrid1.Cols - характеризует количество ' столбцов в сетке; Data1.Recordset.Fields.Count - количество ' столбцов таблицы базы данных, к которой сделан ' SQL-запросMSFlexGrid1.Cols = Data1.Recordset.Fields.Count' MSFlexGrid1.Rows - количество строк в сетке ' установить равным 1MSFlexGrid1.Rows = 1' в элементе управления MSFlexGrid1 доступ к строкам и ' столбцам проводится начиная с ячейки (0, 0), ' свойство TextMatrix(X, Y) позволяет получить доступ ' к отдельным ячейкам таблицы For i = 0 To Data1.Recordset.Fields.Count - 1' занести название имeн полей таблицы базы данных в ' первую строку MSFlexGrid1MSFlexGrid1.TextMatrix(0, i) = Data1.Recordset.Fields(i).NameNext i' проверить, является ли запись в таблице (строка) по-' следней; организовать цикл прохода по строкам Do While Not Data1.Recordset.EOF' увеличить количество строк в MSFlexGrid на единицуMSFlexGrid1.Rows = MSFlexGrid1.Rows + 1' цикл переноса данных из Data1 в MSFlexGrid1For i = 0 To Data1.Recordset.Fields.Count - 1' перенос данных данной строки (по полям). Если данные в ' ячейке Data1 имеются, то перенести их в ' таблицу MSFlexGrid1If Not Data1.Recordset.Fields(i) = " " ThenMSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, i) = Data1.Recordset.Fields(i)End If' конец цикла переноса данных из элемента управления Data1 ' в таблицу MSFlexGrid1 для одной строкиNext i' использовать метод MoveNext - переход к ' следующей строкеData1.Recordset.MoveNextLoopEnd Sub4. стартовать проект, ввести в текстовое поле SQL-строку (запрос) SELECT * FROM student, сделать щелчок на командной кнопке, в выведенном стандартном диалоговом окне Open выбрать базу данных stud.mdb. В таблицу MSFlexGrid выводятся результаты запроса. Одновременно в список элемента управления ComboBox выводятся имена всех имеющихся таблиц, рис. 4.4
Рис. 4.4. MSFlexGrid
5. выбрать таблицу в списке ComboBox, изменить запрос - ввести новый запрос для другой таблицы (ввести этот запрос в текстовое поле), сделать щелчок на командной кнопке, наблюдать результат.
|
|