formwiz.frm

关于VB模块的

            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase6_LowerText
            Beep
        Case 7
            KeysetRecordsetReverse
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase7_LowerText
            Beep
        Case 8
            CommandPS
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase8_LowerText
            Beep
        Case 9
            CreateTable
            nState = nState + 1
            Label1.Visible = True
            Grid.Visible = False
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label1.Caption = sCase9_UpperText
            Label2.Caption = sCase9_LowerText
            Beep
        Case 10
            CursorAdd
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase10_LowerText
            Beep
        Case 11
            CursorUpdate
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase11_LowerText
            Beep
        Case 12
            CursorDelete
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase12_LowerText
            Beep
        Case 13
            PreparedAdd
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase13_LowerText
            Beep
         Case 14
            PreparedUpdate
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase14_LowerText
            Beep
         Case 15
            PreparedDelete
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = True
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = True
            Text_Bot.Visible = False
            Label2.Caption = sCase15_LowerText
            Beep
        Case 16
            CreateSP
            nState = nState + 1
            Label1.Visible = True
            Grid.Visible = False
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label1.Caption = sCase16_UpperText
            Label2.Caption = sCase16_LowerText
            Beep
        Case 17
            CallSP
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = False
            Label_Top.Visible = False
            Label_Mid.Visible = True
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = True
            Text_Bot.Visible = False
            Label2.Caption = sCase17_LowerText
            Beep
        Case 18
            ShowError
            nState = nState + 1
            Label1.Visible = True
            Grid.Visible = False
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label1.Caption = sCase18_UpperText
            Label2.Caption = sCase18_LowerText
            Beep
         Case 19
            BatchUpdate
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase19_LowerText
            Beep
         Case 20
            MultipleRS
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase20_LowerText
            Beep
         Case 21
            TransRollBack
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Grid.FixedRows = 1
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase21_LowerText
            Beep
       Case 22
            TransCommit
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase22_LowerText
            Beep
       Case 23
            BinaryData
            nState = nState + 1
            Label1.Visible = False
            Grid.Visible = True
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label2.Caption = sCase23_LowerText
            Beep
       Case 24
            Finish
            nState = nState + 1
            Label1.Visible = True
            Grid.Visible = False
            Label_Top.Visible = False
            Label_Mid.Visible = False
            Label_Bot.Visible = False
            Text_Top.Visible = False
            Text_Mid.Visible = False
            Text_Bot.Visible = False
            Label1.Caption = sCase24_UpperText
            Label2.Caption = sCase24_LowerText
        Case 25
            Reset
            nState = 1
        
        End Select

End Sub

Private Sub Form_Load()
    
    'Initial the program control values
    nState = 1
    'List1.Visible = False
    Label_Top.Visible = False
    Text_Top.Visible = False
    Label_Mid.Visible = False
    Text_Mid.Visible = False
    Label_Bot.Visible = False
    Text_Bot.Visible = False
    Grid.Visible = False
    
    Grid.Rows = 1
    Grid.Cols = 2
    Grid.Row = 0


    
    Label1.Caption = sCase0_UpperText
    Label2.Caption = sCase0_LowerText
    
End Sub
Private Sub DisplayForwardGrid(rs As ADODB.Recordset, Grid As MSFlexGrid)
    
    Dim fld As ADODB.Field
        
    ' Setup the grid
    Grid.Redraw = False
    Grid.Cols = rs.Fields.Count
    Grid.Rows = 1
    Grid.Row = 0
    Grid.Col = 0
    Grid.Clear
    
    'Setup the Grid headings
     For Each fld In rs.Fields
         If rs.EOF = False Then
            Grid.ColWidth(Grid.Col) = TextWidth(String(fld.ActualSize + 4, "a"))
         End If
         Grid.ColAlignment(Grid.Col) = 1
         Grid.Text = fld.Name
         If Grid.Col < rs.Fields.Count - 1 Then
            Grid.Col = Grid.Col + 1
         End If
    Next fld
        
    ' Move through each row in the record set
    Do Until rs.EOF
        
        ' Set the position in the grid
        Grid.Rows = Grid.Rows + 1
        Grid.Row = Grid.Rows - 1
        Grid.Col = 0
        
        'Loop through all fields
        For Each fld In rs.Fields
            Grid.Text = fld.Value
            If Grid.Col < rs.Fields.Count - 1 Then
                Grid.Col = Grid.Col + 1
            End If
        Next fld
    
        rs.MoveNext
    Loop
    Grid.Redraw = True


End Sub

Private Sub DisplayKeysetGrid(rs As ADODB.Recordset, Grid As MSFlexGrid, nDirection As Integer)
    
    Dim fld As ADODB.Field
    Dim nForward As Integer
    Dim nReverse As Integer
    On Error Resume Next
    
    nForward = 1
    nReverse = 2
    
    ' Setup the grid
    Grid.Cols = rs.Fields.Count
    rs.MoveLast
    Grid.Rows = rs.RecordCount + 1
    Grid.Row = 0
    Grid.Col = 0
    Grid.FixedRows = 1
    Grid.Clear
            
    'Setup the Grid headings
     For Each fld In rs.Fields
         If rs.EOF = False Then
            Grid.ColWidth(Grid.Col) = TextWidth(String(fld.ActualSize + 4, "a"))
         End If
         Grid.ColAlignment(Grid.Col) = 1
         Grid.Text = fld.Name
         If Grid.Col < rs.Fields.Count - 1 Then
            Grid.Col = Grid.Col + 1
         End If
    Next fld
    
     
    If nDirection = nForward Then
    
        rs.MoveFirst
    
        ' Move through each row in the record set
        Do Until rs.EOF
            ' Set the position in the grid
            Grid.Row = Grid.Row + 1
            Grid.Col = 0
        
            'Loop through all fields
            For Each fld In rs.Fields
                Grid.Text = fld.Value
                If Grid.Col < rs.Fields.Count - 1 Then
                    Grid.Col = Grid.Col + 1
                End If
            Next fld
    
            rs.MoveNext
        Loop

    Else

        rs.MoveLast
        
        ' Move through each row in the record set
        Do Until rs.BOF
            ' Set the position in the grid
            Grid.Row = Grid.Row + 1
            Grid.Col = 0
        
            'Loop through all fields
            For Each fld In rs.Fields
                Grid.Text = fld.Value
                If Grid.Col < rs.Fields.Count - 1 Then
                    Grid.Col = Grid.Col + 1
                End If
            Next fld
    
            rs.MovePrevious
            
        Loop

    End If
    
End Sub

Private Sub BintoFile(sFileName As String, fld As ADODB.Field)
    
    Dim bBuffer() As Byte
    Dim nLenLeft As Long
    Dim nChunkSize As Long
    
    ' Remove any existing destination file
    If Len(Dir$(sFileName)) > 0 Then
       Kill sFileName
    End If
    
    'Recreate a new file
    Open sFileName For Binary As #1
    
    'Use a 32K initial chuck size
    nChunkSize = 32768
    nLenLeft = fld.ActualSize

    If nLenLeft < nChunkSize Then
        nChunkSize = nLenLeft
    End If

    'Retrieve the binary data in chunks
    Do
        ReDim bBuffer(nChunkSize - 1)
        bBuffer = fld.GetChunk(nChunkSize)

        nLenLeft = nLenLeft - nChunkSize
        If nLenLeft < nChunkSize Then
            nChunkSize = nLenLeft
        End If
    Loop Until nLenLeft <= 0
    
    'Write the data to the file
    Put #1, , bBuffer
    Close #1
    
End Sub
Private Sub DisplayADOError(cn As ADODB.Connection)
        
    Dim er As ADODB.Error
    
    For Each er In cn.Errors
        MsgBox "Number: " & er.Number & vbCrLf & _
        "Source: " & er.Source & vbCrLf & _
        "Text: " & er.Description
    Next
        
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    On Error Resume Next
    rs.Close
    cn.Close
    
End Sub

Private Sub Command_Cancel_Click()
    
    End
End Sub