frmcpgx.vb

一个实际的商业项目

        '
        Me.Label4.Location = New System.Drawing.Point(304, 368)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(16, 23)
        Me.Label4.TabIndex = 15
        Me.Label4.Text = "责"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(432, 368)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(32, 23)
        Me.Label7.TabIndex = 16
        Me.Label7.Text = "回用"
        '
        'txtFei1
        '
        Me.txtFei1.Location = New System.Drawing.Point(160, 368)
        Me.txtFei1.Name = "txtFei1"
        Me.txtFei1.Size = New System.Drawing.Size(48, 21)
        Me.txtFei1.TabIndex = 4
        Me.txtFei1.Text = ""
        '
        'txtFei2
        '
        Me.txtFei2.Location = New System.Drawing.Point(328, 368)
        Me.txtFei2.Name = "txtFei2"
        Me.txtFei2.Size = New System.Drawing.Size(48, 21)
        Me.txtFei2.TabIndex = 5
        Me.txtFei2.Text = ""
        '
        'txtFei3
        '
        Me.txtFei3.Location = New System.Drawing.Point(464, 368)
        Me.txtFei3.Name = "txtFei3"
        Me.txtFei3.Size = New System.Drawing.Size(48, 21)
        Me.txtFei3.TabIndex = 6
        Me.txtFei3.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(136, 368)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(16, 23)
        Me.Label8.TabIndex = 14
        Me.Label8.Text = "料"
        '
        'daCpgx
        '
        Me.daCpgx.DeleteCommand = Me.OleDbDeleteCommand1
        Me.daCpgx.InsertCommand = Me.OleDbInsertCommand1
        Me.daCpgx.SelectCommand = Me.OleDbSelectCommand1
        Me.daCpgx.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Cpgx", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Pf", "Pf"), New System.Data.Common.DataColumnMapping("Gx", "Gx"), New System.Data.Common.DataColumnMapping("Jg", "Jg"), New System.Data.Common.DataColumnMapping("Fei1", "Fei1"), New System.Data.Common.DataColumnMapping("Fei2", "Fei2"), New System.Data.Common.DataColumnMapping("Fei3", "Fei3")})})
        Me.daCpgx.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Cpgx WHERE (Gx = ?) AND (Pf = ?) AND (Fei1 = ?) AND (Fei2 = ?) AND (F" & _
        "ei3 = ?) AND (Jg = ?)"
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gx", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gx", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pf", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pf", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fei1", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fei1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fei2", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fei2", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fei3", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fei3", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Jg", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Jg", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Cpgx(Pf, Gx, Jg, Fei1, Fei2, Fei3) VALUES (?, ?, ?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pf", System.Data.OleDb.OleDbType.VarWChar, 40, "Pf"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gx", System.Data.OleDb.OleDbType.VarWChar, 20, "Gx"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Jg", System.Data.OleDb.OleDbType.Currency, 0, "Jg"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fei1", System.Data.OleDb.OleDbType.Currency, 0, "Fei1"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fei2", System.Data.OleDb.OleDbType.Currency, 0, "Fei2"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fei3", System.Data.OleDb.OleDbType.Currency, 0, "Fei3"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT Pf, Gx, Jg, Fei1, Fei2, Fei3 FROM Cpgx"
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Cpgx SET Pf = ?, Gx = ?, Jg = ?, Fei1 = ?, Fei2 = ?, Fei3 = ? WHERE (Gx = " & _
        "?) AND (Pf = ?) AND (Fei1 = ?) AND (Fei2 = ?) AND (Fei3 = ?) AND (Jg = ?)"
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pf", System.Data.OleDb.OleDbType.VarWChar, 40, "Pf"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gx", System.Data.OleDb.OleDbType.VarWChar, 20, "Gx"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Jg", System.Data.OleDb.OleDbType.Currency, 0, "Jg"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fei1", System.Data.OleDb.OleDbType.Currency, 0, "Fei1"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fei2", System.Data.OleDb.OleDbType.Currency, 0, "Fei2"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fei3", System.Data.OleDb.OleDbType.Currency, 0, "Fei3"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gx", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gx", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pf", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pf", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fei1", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fei1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fei2", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fei2", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fei3", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fei3", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Jg", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Jg", System.Data.DataRowVersion.Original, Nothing))
        '
        'frmCpGx
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(642, 456)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.txtFei3)
        Me.Controls.Add(Me.txtFei2)
        Me.Controls.Add(Me.txtFei1)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.txtJg)
        Me.Controls.Add(Me.txtGx)
        Me.Controls.Add(Me.txtPf)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.btnOK)
        Me.Controls.Add(Me.DataGrid1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmCpGx"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "产品工序设置"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsCpgx1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Public Sub Exports2Excel2(ByVal Dtg As DataGrid)
        If Dtg.VisibleRowCount > 0 Then
            Try
                Me.Cursor = Cursors.WaitCursor
                Dim datav As New DataView
                If TypeOf Dtg.DataSource Is DataView Then
                    datav = CType(Dtg.DataSource, DataView)
                ElseIf TypeOf Dtg.DataSource Is DataSet Then
                    datav = CType(Dtg.DataSource, DataSet).Tables(0).DefaultView
                ElseIf TypeOf Dtg.DataSource Is DataTable Then
                    datav = CType(Dtg.DataSource, DataTable).DefaultView
                End If
                Dim i, j As Integer
                Dim rows As Integer = datav.Table.Rows.Count
                Dim cols As Integer = datav.Table.Columns.Count
                Dim DataArray(rows - 1, cols - 1) As String
                Dim myExcel As Excel.Application = New Excel.Application
                For i = 0 To rows - 1
                    For j = 0 To cols - 1

                        If datav.Table.Rows(i).IsNull(j) Then
                            DataArray(i, j) = ""
                        Else
                            DataArray(i, j) = datav.Table.Rows(i).Item(j).ToString
                        End If




                    Next
                Next
                myExcel.Application.Workbooks.Add(True)
                myExcel.Visible = True
                For j = 0 To cols - 1

                    Select Case j
                        Case 0
                            myExcel.Cells(1, j + 1) = "产品名称"
                        Case 1
                            myExcel.Cells(1, j + 1) = "工序"
                        Case 2
                            myExcel.Cells(1, j + 1) = "价格"
                        Case 3
                            myExcel.Cells(1, j + 1) = "不合格（料）"
                        Case 4
                            myExcel.Cells(1, j + 1) = "不合格（责）"
                        Case 5
                            myExcel.Cells(1, j + 1) = "不合格（回用）"

                    End Select


                    'myExcel.Cells(1, j + 1) = datav.Table.Columns(j).ColumnName

                Next
                myExcel.Range("A2").Resize(rows, cols).Value = DataArray

            Catch exp As Exception
                MessageBox.Show("数据导出失败!请查看是否已经安装了Excel", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)

                'MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Finally
                Me.Cursor = Cursors.Default
            End Try
        Else
            MessageBox.Show("没有数据!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub frmCpGx_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OleDbSelectCommand1.Connection = cnData
        Me.OleDbInsertCommand1.Connection = cnData
        Me.OleDbUpdateCommand1.Connection = cnData
        Me.OleDbDeleteCommand1.Connection = cnData

        cnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=power;;Data Source= " & Application.StartupPath & "\gongzi.mdb;Persist Security Info=False"

        daCpgx.Fill(DsCpgx1)
        txtFei1.Text = "0"
        txtFei2.Text = "0"
        txtFei3.Text = "0"
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        If DialogResult.Yes = MessageBox.Show("确实要更新数据吗？", "系统信息", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Then
            daCpgx.Update(DsCpgx1)
        End If

    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim dr As DataRow
        Try
            dr = DsCpgx1.Tables("Cpgx").NewRow
            dr("Pf") = txtPf.Text
            dr("Gx") = txtGx.Text
            dr("Jg") = txtJg.Text
            dr("Fei1") = txtFei1.Text
            dr("Fei2") = txtFei2.Text
            dr("Fei3") = txtFei3.Text


            DsCpgx1.Tables("Cpgx").Rows.Add(dr)
            txtGx.Text = ""
            txtJg.Text = ""
            txtFei1.Text = "0"
            txtFei2.Text = "0"
            txtFei3.Text = "0"

        Catch ex As Exception
            MessageBox.Show("输入有错误！请仔细检查数据，确保数据合法并且不重复！")
        End Try


    End Sub

    Private Sub frmCpGx_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim pProcess As System.Diagnostics.Process

        For Each pProcess In System.Diagnostics.Process.GetProcesses()
            If pProcess.ProcessName.ToString() = "Excel" Then pProcess.Kill()
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Exports2Excel2(DataGrid1)
    End Sub
End Class