frmcl-a.frm

适合于中小型企业管理

        Set DataReport2.DataSource = Mrc
        DataReport2.Refresh
        DataReport2.Show 1
        Mrc.Close
    Else
        DataReport1.Sections(2).Controls("LableTitle").Caption = "宇迪" & CStr(CmbBm1.Text) & "车间日产量报表"
        DataReport1.Sections(2).Controls("LabelDate").Caption = "出表时间：" & CStr(GsdateT)
        DataReport1.Sections(2).Controls("Label3").Caption = "统计日期：" & DTPicker0.Value
            TxtSql = "select 员工姓名,工序名称,Bs_产品图号.图号,Bs_产品图号.品名,Bs_产品图号.规格,硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,(sum(一级品)+sum(留用数)+sum(料质数))/sum(送检数)*100 as 正品率,sum(二级品) as 二级品,sum(料质数) as 料质数,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,Bs_产品图号 where Sc_产量表.图号=Bs_产品图号.图号 and  部门名称='" & CmbBm1.Text & "' group by 工序名称,员工姓名,Bs_产品图号.图号,Bs_产品图号.品名,Bs_产品图号.规格,硝材 order by 员工姓名,Bs_产品图号.图号"
        Set Mrc = New ADODB.Recordset
        Mrc.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
        Set DataReport1.DataSource = Mrc
        DataReport1.Refresh
        DataReport1.Show 1
        Mrc.Close
    End If
Else
    If Option1.Value = 0 Then
        DataReport2.Sections(2).Controls("LableTitle").Caption = "宇迪" & CStr(CmbBm1.Text) & "车间日产量报表"
        DataReport2.Sections(2).Controls("LabelDate").Caption = "出表时间：" & CStr(GsdateT)
        DataReport2.Sections(2).Controls("Label3").Caption = "统计日期：" & DTPicker0.Value
            TxtSql = "select 工序名称,Bs_产品图号.图号,Bs_产品图号.品名,Bs_产品图号.规格,Bs_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,(sum(一级品)+sum(留用数))/sum(送检数*1)*100 as 正品率,sum(二级品) as 二级品,sum(料质数) as 料质数,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,Bs_产品图号 where Sc_产量表.图号=Bs_产品图号.图号 group by 部门名称,工序名称,Bs_产品图号.图号,Bs_产品图号.品名,Bs_产品图号.规格,Bs_产品图号.硝材 order by 工序名称,Bs_产品图号.图号"
        Set Mrc = New ADODB.Recordset
        Mrc.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
        Set DataReport2.DataSource = Mrc
        DataReport2.Refresh
        DataReport2.Show 1
        Mrc.Close
    Else
        DataReport1.Sections(2).Controls("LableTitle").Caption = "宇迪" & CStr(CmbBm1.Text) & "车间日产量报表"
        DataReport1.Sections(2).Controls("LabelDate").Caption = "出表时间：" & CStr(GsdateT)
        DataReport1.Sections(2).Controls("Label3").Caption = "统计日期：" & DTPicker0.Value
            TxtSql = "select 员工姓名,工序名称,Bs_产品图号.图号,Bs_产品图号.品名,Bs_产品图号.规格,硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,(sum(一级品)+sum(留用数))/sum(送检数)*100 as 正品率,sum(二级品) as 二级品,sum(料质数) as 料质数,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,Bs_产品图号 where Sc_产量表.图号=Bs_产品图号.图号 and  部门名称='" & CmbBm1.Text & "' group by 工序名称,员工姓名,Bs_产品图号.图号,Bs_产品图号.品名,Bs_产品图号.规格,Bs_产品图号.硝材 order by 员工姓名,Bs_产品图号.图号"
        Set Mrc = New ADODB.Recordset
        Mrc.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
        Set DataReport1.DataSource = Mrc
        DataReport1.Refresh
        DataReport1.Show 1
        Mrc.Close
    End If
End If
End Sub

Private Sub Command5_Click()
    Dim CmdExe As ADODB.Command
     Set CmdExe = New ADODB.Command
     CmdExe.CommandTimeout = 0
     CmdExe.ActiveConnection = Cw_DataEnvi.DataConnect
    If CmbBm2.ListIndex > -1 Then
        CmdExe.CommandText = "execute Sc_阶段产量 '" & CmbBm2.Text & "','" & DTPicker1.Value & "','" & DTPicker2.Value & "'"
        CmdExe.Execute
    Else
        MsgBox "请选择部门名称!"
        Exit Sub
    End If
            DataReport1.Orientation = rptOrientLandscape
            DataReport2.Orientation = rptOrientLandscape
If CmbBm2.Text = "放大镜铣磨" Then
    If Option2.Value = False Then
        DataReport2.Sections(2).Controls("LableTitle").Caption = "宇迪" & CStr(CmbBm2.Text) & "车间阶段产量报表"
        DataReport2.Sections(2).Controls("LabelDate").Caption = "出表时间：" & CStr(GsdateT)
            DataReport2.Sections(2).Controls("Label3").Caption = "统计日期：" & DTPicker1.Value & "至" & DTPicker2.Value
              TxtSql = "select 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(料质数)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,硝材 order by 部门名称,工序名称,BS_产品图号.图号"
            Set Mrc = New ADODB.Recordset
            Mrc.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
            Set DataReport2.DataSource = Mrc
            DataReport2.Refresh
            DataReport2.Show 1
            Mrc.Close
    Else
            DataReport1.Sections(2).Controls("LableTitle").Caption = "宇迪" & CStr(CmbBm2.Text) & "车间阶段产量报表"
            DataReport1.Sections(2).Controls("LabelDate").Caption = "出表时间：" & CStr(GsdateT)
            DataReport1.Sections(2).Controls("Label3").Caption = "统计日期：" & DTPicker1.Value & "至" & DTPicker2.Value
                TxtSql = "select 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(料质数)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and 员工姓名 like '%" & TxtYgxm.Text & "%' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 部门名称,员工姓名,工序名称,BS_产品图号.图号"
            Set Mrc = New ADODB.Recordset
            Mrc.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
            Set DataReport1.DataSource = Mrc
            DataReport1.Refresh
            DataReport1.Show 1
            Mrc.Close
    End If
Else
    If Option2.Value = False Then
        DataReport2.Sections(2).Controls("LableTitle").Caption = "宇迪" & CStr(CmbBm2.Text) & "车间阶段产量报表"
        DataReport2.Sections(2).Controls("LabelDate").Caption = "出表时间：" & CStr(GsdateT)
            DataReport2.Sections(2).Controls("Label3").Caption = "统计日期：" & DTPicker1.Value & "至" & DTPicker2.Value
            TxtSql = "select 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 部门名称,工序名称,BS_产品图号.图号"
            Set Mrc = New ADODB.Recordset
            Mrc.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
            Set DataReport2.DataSource = Mrc
            DataReport2.Refresh
            DataReport2.Show 1
            Mrc.Close
    Else
            DataReport1.Sections(2).Controls("LableTitle").Caption = "宇迪" & CStr(CmbBm2.Text) & "车间阶段产量报表"
            DataReport1.Sections(2).Controls("LabelDate").Caption = "出表时间：" & CStr(GsdateT)
            DataReport1.Sections(2).Controls("Label3").Caption = "统计日期：" & DTPicker1.Value & "至" & DTPicker2.Value
            TxtSql = "select 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and 员工姓名 like '%" & TxtYgxm.Text & "%' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 部门名称,员工姓名,工序名称,BS_产品图号.图号"
            Set Mrc = New ADODB.Recordset
            Mrc.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockReadOnly, adCmdText
            Set DataReport1.DataSource = Mrc
            DataReport1.Refresh
            DataReport1.Show 1
            Mrc.Close
    End If
End If
End Sub

Private Sub Command6_Click()
    Dim CmdExe As ADODB.Command
     Set CmdExe = New ADODB.Command
     CmdExe.CommandTimeout = 0
     CmdExe.ActiveConnection = Cw_DataEnvi.DataConnect
    If CmbBm2.ListIndex > -1 Then
        CmdExe.CommandText = "execute Sc_阶段产量 '" & CmbBm2.Text & "','" & DTPicker1.Value & "','" & DTPicker2.Value & "'"
        CmdExe.Execute
    Else
        MsgBox "请选择部门名称!"
        Exit Sub
    End If
    
If CmbBm2.Text = "放大镜铣磨" Then
    If Option2.Value = False Then
       If Check1.Value = False Then
              TxtSql = "select 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(料质数)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,硝材 order by 部门名称,工序名称,BS_产品图号.图号"
              Set Rstmp = New ADODB.Recordset
              Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
              Set DataGrid2.DataSource = Rstmp
              'Rstmp.Close
              'Set Rstmp = Nothing
       Else
              TxtSql = "select 工作日期,部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(料质数)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and 部门名称='" & CmbBm2.Text & "' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 工作日期,部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 工作日期,部门名称,工序名称,BS_产品图号.图号"
              Set Rstmp = New ADODB.Recordset
              Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
              Set DataGrid2.DataSource = Rstmp
              'Rstmp.Close
              'Set Rstmp = Nothing
       End If
    Else
        If Check1.Value = False Then
                TxtSql = "select 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(料质数)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and 员工姓名 like '%" & TxtYgxm.Text & "%' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 部门名称,员工姓名,工序名称,BS_产品图号.图号"
                Set Rstmp = New ADODB.Recordset
                Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
                Set DataGrid2.DataSource = Rstmp
                'Rstmp.Close
                'Set Rstmp = Nothing
        Else
                TxtSql = "select 工作日期,部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(料质数)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and 员工姓名 like '%" & TxtYgxm.Text & "%' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 工作日期,部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 工作日期,部门名称,员工姓名,工序名称,BS_产品图号.图号"
                Set Rstmp = New ADODB.Recordset
                Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
                Set DataGrid2.DataSource = Rstmp
                'Rstmp.Close
                'Set Rstmp = Nothing
        End If
    End If
Else
    If Option2.Value = False Then
        If Check1.Value = False Then
            TxtSql = "select 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 部门名称,工序名称,BS_产品图号.图号"
            Set Rstmp = New ADODB.Recordset
            Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
            Set DataGrid2.DataSource = Rstmp
            'Rstmp.Close
            'Set Rstmp = Nothing
        Else
            TxtSql = "select 工作日期,部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 工作日期,部门名称,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 工作日期,部门名称,工序名称,BS_产品图号.图号"
            Set Rstmp = New ADODB.Recordset
            Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
            Set DataGrid2.DataSource = Rstmp
            'Rstmp.Close
            'Set Rstmp = Nothing
        End If
    Else
        If Check1.Value = False Then
            TxtSql = "select 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and 员工姓名 like '%" & TxtYgxm.Text & "%' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 部门名称,员工姓名,工序名称,BS_产品图号.图号"
            Set Rstmp = New ADODB.Recordset
            Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
            Set DataGrid2.DataSource = Rstmp
            'Rstmp.Close
            'Set Rstmp = Nothing
        Else
            TxtSql = "select 工作日期,部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材,sum(领一级) as 领一级,sum(领二级) as 领二级,sum(送检数) as 送检数 ,sum(一级品) as 一级品,sum(二级品) as 二级品,sum(料质数) as 料质数,(sum(一级品)+sum(留用数))/sum(送检数)*100 as 正品率,sum(返工数) as 返工数,sum(废品数) as 废品数,sum(留用数) as 留用数 from Sc_产量表,BS_产品图号 where Sc_产量表.图号=BS_产品图号.图号 and  部门名称='" & CmbBm2.Text & "' and 员工姓名 like '%" & TxtYgxm.Text & "%' and BS_产品图号.品名 like '%" & TxtPm.Text & "%' group by 工作日期,部门名称,员工姓名,工序名称,BS_产品图号.图号,BS_产品图号.品名,BS_产品图号.规格,BS_产品图号.硝材 order by 工作日期,部门名称,员工姓名,工序名称,BS_产品图号.图号"
            Set Rstmp = New ADODB.Recordset
            Rstmp.Open TxtSql, Cw_DataEnvi.DataConnect, adOpenStatic, adLockPessimistic, adCmdText
            Set DataGrid2.DataSource = Rstmp
            'Rstmp.Close
            'Set Rstmp = Nothing
        End If
    End If
End If
End Sub

Private Sub Command7_Click()
    Cdlg.DialogTitle = "另存为Excel文件："
    Cdlg.Filter = "Excel文件|*.Xls|所有文件|*.*"
    Cdlg.ShowSave
    If Cdlg.FileName = "" Then Exit Sub
         OutTxt2.Text = Cdlg.FileName
End Sub

Private Sub Command8_Click()
On Error GoTo errs
    Dim Rs As ADODB.Recordset
    Dim ExcelApp As Excel.Application
    Dim ExcelBook As Excel.Workbook
    Dim ExcelSheet As Excel.Worksheet

    Set ExcelApp = New Excel.Application
    ExcelApp.Visible = False
    Set ExcelBook = ExcelApp.Workbooks.Add
    Set ExcelSheet = ExcelBook.Worksheets.Item(1)
    
    Set Rs = New ADODB.Recordset
     
    Rs.Open TxtSql, Cw_DataEnvi.DataConnect, , adLockPessimistic, adCmdText
    RecordsetToExcel Rs, ExcelSheet
    If OutTxt2.Text = "" Then
      MsgBox "请指定输出文件位置和文件名！", 16, "严重错误"
      Exit Sub
    End If
    On Error GoTo ErrSave
     ExcelBook.Close True, OutTxt2.Text
     MsgBox "输出成功！文件位于" & OutTxt2.Text
     Rs.Close

Exit Sub
errs:
    MsgBox "Select 语句错误！", 16, "严重错误"
    ExcelBook.Close False
     Exit Sub
ErrSave:
    MsgBox "输出错误！", 16, "严重错误"
End Sub

Private Sub Command9_Click()
On Error GoTo errs
    Dim Rs As ADODB.Recordset
    Dim ExcelApp As Excel.Application
    Dim ExcelBook As Excel.Workbook
    Dim ExcelSheet As Excel.Worksheet

    Set ExcelApp = New Excel.Application
    ExcelApp.Visible = False
    Set ExcelBook = ExcelApp.Workbooks.Add
    Set ExcelSheet = ExcelBook.