VB 6.0


( )


 

1 , , P Iz, .

Visual Basic 6.0 . 2, , (. 6.5), Form1 (. 6.3) Form2 (. 6.4) 1 ( Cmd3 Cmd6).

2 Data1 Data2.

:

1.      1:

2 ( Form1 Cmd1 Postavka Flp), 3, 4, 5,

6 ( Cmd5 Izd Fli), 7, 8, 9.

 

. 6.5. Postavka Izd

2.      Form1 (. 6.5).

(1) (2) :

Private Sub Cmd1_Click ( ) (1), Postavka Flp

Dim I%, J%, K%

Data1.RecordSet.MoveFirst Postavka

K= Data1.RecordSet.RecordCount Postavka

L = Data1.RecordSet.Fields.Count Postavka

Flp.Rows = K+1: Flp.Cols = L Flp

For I = 1 To

K

For J = 1 To

L

 

If I=1 Then Flp. Flp.TextMatrix (I-1, J-1)=Data1.RecordSet.Fields(J-1). _

Name

Flp.TextMatrix

(I, J-1) = Text1(J-1) = Data1.RecordSet.Fields(J-1).Value

Next J

Data1.RecordSet.MoveNext