Курсовая работа: Создание и обработка Баз данных средствами Visual Basic 60

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

Next J

Data1.Recordset.MoveNext

Next I

End Sub

Форма с таблицей GL

Рисунок 16. Вид формы с таблицей GL


Private Sub mnuRs_Gl_Click()

Dim K As Integer

Dim I As Integer, J As Integer

К-во Просмотров: 743
Бесплатно скачать Курсовая работа: Создание и обработка Баз данных средствами Visual Basic 60