Private Sub showListView()
    
    ListView1.ListItems.Clear
    Set adoConnection = New ADODB.Connection
    Set adoRecordset = New ADODB.Recordset
    adoConnection.Open connectString
    sqlstr = "SELECT * from 企业基本情况表 order by 企业代码,法人代码,法人姓名,企业名称 desc"

    adoRecordset.Open sqlstr, adoConnection, adOpenStatic, adLockOptimistic, adCmdText
    
    If adoRecordset.BOF = True And adoRecordset.EOF = True Then
    Else
        adoRecordset.MoveFirst
        For j = 1 To adoRecordset.RecordCount
            Set itmX = ListView1.ListItems.Add(j, , adoRecordset![企业代码])
            itmX.SubItems(1) = "" & adoRecordset![法人代码]
            itmX.SubItems(2) = "" & adoRecordset![法人姓名]
            itmX.SubItems(3) = "" & adoRecordset![企业名称]

            adoRecordset.MoveNext
        Next j
    End If
    adoRecordset.Close
    adoConnection.Close
    
End Sub




Private Sub showSheng()
    
    Set adoConnection = New ADODB.Connection
    Set adoRecordset1 = New ADODB.Recordset
    adoConnection.Open connectString
    sqlstr = "SELECT * from 省市列表"
    adoRecordset1.Open sqlstr, adoConnection, adOpenStatic, adLockOptimistic, adCmdText
    
    If adoRecordset1.BOF = True And adoRecordset1.EOF = True Then
    Else
        adoRecordset1.MoveFirst
        企业所属省份Combo.Clear
        For j = 1 To adoRecordset1.RecordCount
        
            企业所属省份Combo.AddItem adoRecordset1![名称]
            adoRecordset1.MoveNext
        
        Next j
    End If
    adoRecordset1.Close
    
End Sub




Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

    Set adoConnection = New ADODB.Connection
    Set adoRecordset = New ADODB.Recordset
    adoConnection.Open connectString
    sqlstr = "SELECT * from 企业基本情况表 where 企业代码=" & Item.Text
    adoRecordset.Open sqlstr, adoConnection, adOpenStatic, adLockOptimistic, adCmdText

    If adoRecordset.BOF = True And adoRecordset.EOF = True Then
    Else
        adoRecordset.MoveFirst
        
        企业代码tx.Text = adoRecordset![企业代码]
        法人代码tx.Text = adoRecordset![法人代码]
        法人姓名tx.Text = adoRecordset![法人姓名]
        企业名称tx.Text = adoRecordset![企业名称]
        企业经济类型tx.Text = adoRecordset![企业经济类型]
        法人地址tx.Text = adoRecordset![法人地址]
        生产地址tx.Text = adoRecordset![生产地址]
        联系电话tx.Text = adoRecordset![联系电话]
        传真电话tx.Text = adoRecordset![传真电话]
        资产总额tx.Text = adoRecordset![资产总额（万元）]
        负债总额tx.Text = adoRecordset![负债总额（万元）]
        所有者权益tx.Text = adoRecordset![所有者权益（万元）]
        资产负债率tx.Text = adoRecordset![资产负债率]
        年销售收入tx.Text = adoRecordset![年销售收入（万元）]
        年利润总额tx.Text = adoRecordset![年利润总额（万元）]
        利润率tx.Text = adoRecordset![利润率]
        上交税金总额tx.Text = adoRecordset![上交税金总额（万元）]
        职工人数tx.Text = adoRecordset![职工人数（人）]
        调查年度tx.Text = adoRecordset![调查年度]
        获得GMP证书时间tx.Text = adoRecordset![获得GMP证书时间]
        填表人tx.Text = adoRecordset![填表人]
        负责人tx.Text = adoRecordset![负责人]
        填表日期tx.Text = adoRecordset![填表日期]
        showSheng
        企业所属省份Combo.Text = adoRecordset![企业所属省份]

    End If
    adoRecordset.Close
    填表日期tx.Text = Date
    sqlstr = "update 企业基本情况表 set 填表日期='" & Date & "' where 企业代码=" & Item.Text
    adoConnection.Execute sqlstr
    adoConnection.Close
    
End Sub