【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“Form11.frm”一文，供大家参考学习

    VERSION 5.00
    Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
    Begin VB.Form Form1 
       Caption         =   "批量录入数据"
       ClientHeight    =   3300
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   9570
       LinkTopic       =   "Form1"
       ScaleHeight     =   3300
       ScaleWidth      =   9570
       StartUpPosition =   3  '窗口缺省
       Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid2 
          Height          =   2655
          Left            =   120
          TabIndex        =   3
          Top             =   120
          Width           =   4695
          _ExtentX        =   8281
          _ExtentY        =   4683
          _Version        =   393216
          Rows            =   0
          FixedRows       =   0
          FixedCols       =   0
          _NumberOfBands  =   1
          _Band(0).Cols   =   2
          _Band(0).GridLinesBand=   1
          _Band(0).TextStyleBand=   0
          _Band(0).TextStyleHeader=   0
          _Band(0).ColHeader=   1
       End
       Begin VB.CommandButton Command1 
          Caption         =   "保存"
          Height          =   375
          Left            =   8400
          TabIndex        =   2
          Top             =   2880
          Width           =   975
       End
       Begin VB.TextBox Text1 
          Height          =   375
          Left            =   4320
          TabIndex        =   1
          Text            =   "Text1"
          Top             =   3360
          Width           =   855
       End
       Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
          Height          =   2655
          Left            =   4920
          TabIndex        =   0
          Top             =   120
          Width           =   4575
          _ExtentX        =   8070
          _ExtentY        =   4683
          _Version        =   393216
          _NumberOfBands  =   1
          _Band(0).Cols   =   2
          _Band(0).GridLinesBand=   1
          _Band(0).TextStyleBand=   0
          _Band(0).TextStyleHeader=   0
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    '*************************************************************************
    '**模 块 名：Form1
    '**网    址：www.mingrisoft.com  价值无限，服务无限
    '**电    话：（0431）84978981,84978982
    '**创 建 人：明日科技
    '**日    期：2007-11-21
    '**修 改 人：MRLBB
    '**日    期：2007-11-21
    '*************************************************************************
    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Private Sub Form_Load()
        con.Open "  Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"
        rs.Open "select * from 作者", con, adOpenKeyset, adLockOptimistic
        Set MSHFlexGrid2.DataSource = rs
        rs.Close
        con.Close
        '使第一列较窄?
        MSHFlexGrid1.ColWidth(0) = MSHFlexGrid1.ColWidth(0) / 2
        '初始化编辑框
        txtEdit = ""
        MSHFlexGrid1.Rows = 101
        MSHFlexGrid1.Cols = 5
        '设置列标头。
        s$ = "^|^编号          |^   |^电话     |^住址       |^城市"
        MSHFlexGrid1.FormatString = s$
    End Sub
    Private Sub Command1_Click()
        con.Open "  Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"
        rs.Open "select * from 作者", con, adOpenKeyset, adLockOptimistic
        For i = 1 To MSHFlexGrid1.Rows - 1
            If MSHFlexGrid1.TextMatrix(i, 1) <> "" And MSHFlexGrid1.TextMatrix(i, 2) <> "" And MSHFlexGrid1.TextMatrix(i, 4) <> "" Then
                '添加新记录到"报损从表"中
                rs.AddNew
                If MSHFlexGrid1.TextMatrix(i, 1) <> "" Then rs.Fields("编号") = MSHFlexGrid1.TextMatrix(i, 1)
                If MSHFlexGrid1.TextMatrix(i, 2) <> "" Then rs.Fields("") = MSHFlexGrid1.TextMatrix(i, 2)
                If MSHFlexGrid1.TextMatrix(i, 3) <> "" Then rs.Fields("电话") = MSHFlexGrid1.TextMatrix(i, 3)
                If MSHFlexGrid1.TextMatrix(i, 4) <> "" Then rs.Fields("住址") = MSHFlexGrid1.TextMatrix(i, 4)
                If MSHFlexGrid1.TextMatrix(i, 5) <> "" Then rs.Fields("城市") = MSHFlexGrid1.TextMatrix(i, 5)
                rs.Update
            End If
        Next i
        MsgBox "成功添加数据"
        rs.Close
        '添加的数据显示在表格中
        rs.Open "select * from 作者", con, adOpenKeyset, adLockOptimistic
        Set MSHFlexGrid2.DataSource = rs
        rs.Close
        con.Close
    End Sub
    
    Private Sub Text1_KeyPress(KeyAscii As Integer)
        If KeyAscii = vbKeyEscape Then    '当按下ESC键时
            Text1.Visible = False     'text1不可见
            MSHFlexGrid1.SetFocus     'mshflexgrid1获得焦点
            Exit Sub
        End If
        If KeyAscii = vbKeyReturn Then   '当按下回车键时
            '赋值给text1.text
            MSHFlexGrid1.Text = Text1.Text
            If MSHFlexGrid1.Col < 5 Then
                MSHFlexGrid1.Col = MSHFlexGrid1.Col + 1
            Else
                MSHFlexGrid1.Row = MSHFlexGrid1.Row + 1
                MSHFlexGrid1.Col = 1
            End If
            '指定text1控件在mshflexgrid1表格中的大小及位置
            Text1.Width = MSHFlexGrid1.CellWidth
            Text1.Height = MSHFlexGrid1.CellHeight
            Text1.Left = MSHFlexGrid1.CellLeft + MSHFlexGrid1.Left
            Text1.Top = MSHFlexGrid1.CellTop + MSHFlexGrid1.Top
            '赋值给mshflexgrid1.Text
            Text1.Text = MSHFlexGrid1.Text
            Text1.SetFocus     'text1获得焦点
        End If
    End Sub
    Private Sub mshflexgrid1_Click()     '单击单元格
        If MSHFlexGrid1.Col <= 5 And MSHFlexGrid1.Row <= 90 Then
            '指定text1控件在mshflexgrid1表格中的大小及位置
            Text1.Width = MSHFlexGrid1.CellWidth
            Text1.Height = MSHFlexGrid1.CellHeight
            Text1.Left = MSHFlexGrid1.CellLeft + MSHFle