VB 6.0


( , ) - 4


 

6.      Form1:

Private Sub Cmd1_Click ( )

Postavka

Flp

Data1.RecordSet.MoveFirst

K = Data1.RecordSet.RecordCount Postavka

L = Data1.RecordSet.Fields.Count

ReDim B(1 To K, 1 To L)

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

For I = 1 To

K Postavka

For J = 1 To L

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

B(I, J) = Text1(J-1) : Flp.TextMatrix(I, J-1) = B(I, J) = Text1(J-1)

Data1.RecordSet.Fields(J-1).Value

Next J

Data1.RecordSet.MoveNext

Next I

End Sub

Private Sub Cmd2_Click ( ) ,

򠠠

P = -1

For I = 1 To K

F = 0

For J = 3 To 5

If B(I, J) <= B(I, J+1) Then F=1

Next J

If F = 0 Then P = P+1 : Lst1.List(P) = B(I, 2)

Next I

If P = -1 Then Lbl1.Caption

= _

Else

Lbl1.Caption =

End Sub

 

Private Sub Cmd3_Click ( ) ࠠ

End

End Sub