Создание и обработка Баз данных средствами Visual Basic 60 (стр. 2 из 3)
 |
 |
Алгоритм чтения таблицы GL
 |
| |
| |
Создание пользовательского меню
Меню - один из способов диалога пользователя с информационной системой. Меню представляет собой список Пунктов, из которого следует выбрать необходимый.
Использование большого количества командных кнопок связано с неудобствами. Возникает неясность в последовательности их активизации. Разумная альтернатива – создание собственного меню проекта. В системе проектирования VB 6.0 создание Меню осуществляется с помощью Редактора меню Menu Editor. Окно редактора открывается на активной форме тремя способами:
- Главное Меню - Инструменты - Редактор меню (меню Editor);
- Нажатием на линейке инструментов Главной панели системы VB 6.0 кнопки;
- Нажатием клавиш CTRL + E
Рисунок 11. Окно редактора меню
Обычно меню состоит из нескольких уровней. Верхний - это строка меню, которую называют Головным меню. Каждый пункт Головного меню может включать подменю из одного или нескольких пунктов. Каждый следующий пункт, в свою очередь, может включать свое подменю и т.д.
Открываем окно редактора меню на Form1. Form1 используется как
основная. В окне редактора и осуществим конструирование Пользовательского меню.
После вызова редактора требуется заполнить его необходимыми данными. Сначала в окно Caption (заголовок) вводится имя пункта меню, под
которым оно будет выводиться в строке меню на форме. Для быстрого открытия меню в поле Заголовок можно указать т.н. горячую клавишу. Это делается записью амперсанда (&) перед соответствующей буквой.
Затем нажимаемся TAB и вводится в окно Имя уникальное имя пункта
Меню в программе. Оно должно состоять из следующих частей:
- Префикса mnu, указывающего, что имя относится к меню;
- Собственного имени.
Кроме свойств Заголовок, Имя элементы меню имеют еще три свойства, могущие принимать значение True/False:
Отмечено (Checked) —позволяет отметить выбранный элемент символом
,Включено (Enabled) - позволяет включить или выключить команды
меню во время выполнения программы символом
.Видимо (Visible) -позволяет отобразить или скрыть отдельные элементы меню (вместо блокировки) символом
Элементы конструирования структуры Меню позволяют:
устанавливать уровни Меню стрелками:
смещает элемент на уровень ниже,
смещает элемент на уровень выше,
перемещают элементы в списке элементов одного уровня
перемещать указатель к следующему Меню («Дальше» (Next), добавлять пункт Меню («Вставить» (Insert), удалять пункт Меню («Удалить» (Delete)).
Рисунок 12. Созданное Меню в Окне Редактора
По завершении создания меню нажать ОК и созданное Меню появится
на форме Form1-отображается верхний Уровень Меню - Головное Меню.
Меню активное. Для раскрытия любого пункта меню достаточно мышкой
щелкнуть на выбранном пункте.
Решение
При решении данной курсовой работы я решил выполнить её на одной форме, то есть все пункты меню кроме Vihod(Выход) служат для распечатки таблиц, формирования и выдачи справок, создания документа на 1 форме.
Меню
Рисунок 13. Пользовательское Меню
Private Sub mnuVihod_Click()
End
End Sub
Вид формы
Рисунок 14 .Экранная форма Glav_Form, обеспечивающая просмотр таблиц, выдачи справок и выходного документа(с использованием Пользовательского меню)
Свойства Glav_Form:
Name= Glav_Form
Caption= Курсовой проект Дегтярев Денис ГиМУ 1-4 №8.
Height=6780
Left=105
LinkTopic=Form1
ScaleHeight=5940
ScaleWidth=13350
Top=105
Width=13590
Пояснение
Так как почти все элементы будут использоваться в более чем одной процедуре, то их свойства будут указаны сразу для избегания лишней путаницы.
Свойства Элемента Data1 (таблица PR,справка № 1,3 и документ):
Name =Data1
Caption = Data1_Таблица_PR
Connect =Access
DatabaseName = D:\кп\Курсовая 2\file 1.mdb
Height = 495
Left = 240
RecordsetType =0 - Table
RecordSource =PR
Top = 1320
Width = 6375
Свойства элементов связанных с Data1(таблица PR,справка № 1,3 и документ):
Text1(0)
DataField = “Cod pr”
DataSourse = Data1
Height = 495
Index =0
Left = 240
TabIndex = 9
Top = 600
Width = 1215
Text1(1)
DataField = “Name pr”
DataSourse = Data1
Height = 495
Index =1
Left = 1680
TabIndex =8
Top =600
Width = 2175
Text1(2)
DataField = “Zis”
DataSourse = Data1
Height = 495
Index =2
Left = 4080
TabIndex =7
Top =600
Width = 1215
Text1(3)
DataField = “V vip”
DataSourse = Data1
Height = 495
Index =3
Left = 5520
TabIndex =6
Top =600
Width = 1335
Свойства элементов Label (метка) для PR.
Label1(0)
Caption = «Код предприятия»
Height = 255
Index =0
Left = 120
TabIndex =21
Top =240
Width = 1335
Label1(1)
Caption = «Наименование предприятия»
Height = 255
Index =1
Left = 1680
TabIndex =20
Top =240
Width = 2175
Label1(2)
Caption = «Численность персонала»
Height = 255
Index =2
Left = 4200
TabIndex =19
Top =240
Width = 1095
Label1(3)
Caption = «Объем выпуска продукции (в руб)»
Height = 495
Index =3
Left = 5520
TabIndex =18
Top =240
Width = 1335
Свойства элемента MSFlexGrid и Label3 (таблица PR и справка № 2)
MSFlexGrid
Name =Flp
Cools =2
FixedCools =0
FixedRows =1
Height =1695
Left =1080
Rows =2
TabIndex =5
Top =2400
Width =4335
Label3
Caption = « »Height = 255
Left = 1080
TabIndex =13
Top =2040
Width = 4335
Свойства Элемента Data2 (таблица GL,справка № 2,3 и документ):
Name =Data2
Caption = Data2_Таблица_GL
Connect =Access
DatabaseName = D:\кп\Курсовая 2\file 1.mdb
Height = 495
Left = 7080
RecordsetType =0 - Table
RecordSource =GL
Top = 1320
Width = 5895
Свойства элементов связанных с Data2(таблица GL,справка № 2,3 и документ):
Text2(0)
DataField = “Cod pr”
DataSourse = Data2
Height = 495
Index =0
Left = 7320
TabIndex = 4
Top = 600
Width = 1315
Text2(1)
DataField = “Zis”
DataSourse = Data2
Height = 495
Index =1
Left = 8880
TabIndex =3
Top =600
Width = 1455
Text2(2)
DataField = “Ul”
DataSourse = Data2
Height = 495
Index =2
Left = 10560
TabIndex =2
Top =600
Width = 1215
Text2(3)
DataField = “Dal”
DataSourse = Data2
Height = 495
Index =3
Left = 11880
TabIndex =1
Top =600
Width = 1335
Свойства элементов Label (метка) для GL.
Label2(0)
Caption = «Код предприятия»
Height = 255
Index =0
Left = 7320
TabIndex =17
Top =240
Width = 1335
Label2(1)
Caption = «Отсутствие жилья»
Height = 255
Index =1
Left = 8880
TabIndex =16
Top =240
Width = 1455
Label2(2)
Caption = «Нуждающиеся в улучшении»
Height = 435
Index =2
Left = 10560
TabIndex =15
Top =120
Width = 1155
Label2(3)
Caption = «Живущие далеко от предприятия»
Height = 495
Index =3
Left = 11880
TabIndex =14
Top =120
Width = 1335
Свойства элемента MSFlexGrid и Label4 (таблица GL и справка № 1)
MSFlexGrid
Name =Flg
Cools =2
FixedCools =0
FixedRows =1
Height =1695
Left =1080
Rows =2
TabIndex =10
Top =2400
Width =4215
Label4
Caption = “ ”
Height = 255
Left = 8160
TabIndex =12
Top =2040
Width = 3975
Свойства элемента MSFlexGrid и Label5(справка №3 и документ)
MSFlexGrid
Name =Fls
Cools =2
FixedCools =0
FixedRows =1
Height =1575
Left =4080
Rows =2
TabIndex =10
Top =4320
Width =5175
Label5
Caption = “ ”
Height = 495
Left = 1200
TabIndex =11
Top =4680
Width = 2775
Вид формы с таблицей PR
Рисунок 15. Форма с таблицей PR.
Private Sub mnuRs_PR_Click()
Dim K As Integer
Dim I As Integer, J As Integer
Data1.Recordset.MoveFirst
K = Data1.Recordset.RecordCount
Label3.Caption = "Таблица Предприятия"
Flp.Rows = K + 1
Flp.Cols = 4
For I = 1 To K
For J = 1 To 4
Flp.TextMatrix(I, J - 1) = Text1(J - 1)
If I = 1 Then Flp.TextMatrix(I - 1, J - 1) = Data1.Recordset.Fields(J - 1).Name