Курсовая работа: Создание и обработка Баз данных средствами 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