printcardform.vb

这是一个固定资产管理系统的源代码

'文件名：PrintCardForm.vb
Imports System.Data.SqlClient
Public Class PrintCardForm
    Public MyCompany As String
    Private MyAssetsTable As System.Data.DataTable
    Private MyRepairTable As System.Data.DataTable
    Private MyBorrowTable As System.Data.DataTable
    Private MyFittingTable As System.Data.DataTable
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Dim My名称 As String = Me.资产名称ToolStripTextBox.Text
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        MyAssetsTable = New System.Data.DataTable()
        Dim MySQL As String = "SELECT * FROM 固定资产明细 WHERE 名称 LIKE '" + My名称 + "'"
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyAssetsTable)
        Me.固定资产明细DataGridView.DataSource = MyAssetsTable
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub 固定资产明细DataGridView_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 固定资产明细DataGridView.SelectionChanged
        Dim My资产编号 As String = Me.固定资产明细DataGridView.CurrentRow.Cells(1).Value.ToString()
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        MyRepairTable = New System.Data.DataTable()
        Dim MySQL As String = "SELECT * FROM 固定资产修理记录 WHERE 资产编号='" + My资产编号 + "'"
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyRepairTable)
        Me.固定资产修理DataGridView.DataSource = MyRepairTable
        MyBorrowTable = New System.Data.DataTable()
        MySQL = "SELECT * FROM 固定资产租借记录 WHERE 资产编号='" + My资产编号 + "'"
        MyAdapter = New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyBorrowTable)
        Me.固定资产租借DataGridView.DataSource = MyBorrowTable
        MyFittingTable = New System.Data.DataTable()
        MySQL = "SELECT * FROM 固定资产附属设备 WHERE 资产编号='" + My资产编号 + "'"
        MyAdapter = New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyFittingTable)
        Me.固定资产附属设备DataGridView.DataSource = MyFittingTable
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub 打印ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印ToolStripButton.Click
        Me.printPreviewDialog1.Document = Me.printDocument1
        Me.printPreviewDialog1.ShowDialog()
    End Sub

    Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage
        e.Graphics.DrawString(Me.MyCompany + "固定资产卡片", New Font("宋体", 20), Brushes.Black, 150, 80)
        e.Graphics.DrawString("资产编号：" + Me.固定资产明细DataGridView.CurrentRow.Cells(1).Value.ToString(), New Font("宋体", 12), Brushes.Black, 100, 145)
        e.Graphics.DrawString("打印日期：" + DateTime.Now.ToShortDateString(), New Font("宋体", 12), Brushes.Black, 540, 145)
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 165, 720, 165)
        e.Graphics.DrawString("名称：" + Me.固定资产明细DataGridView.CurrentRow.Cells(2).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 175)
        e.Graphics.DrawString("型号：" + Me.固定资产明细DataGridView.CurrentRow.Cells(3).Value.ToString(), New Font("宋体", 12), Brushes.Black, 450, 175)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 195, 720, 195)
        e.Graphics.DrawString("制造厂家：" + Me.固定资产明细DataGridView.CurrentRow.Cells(4).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 200)
        e.Graphics.DrawString("出厂日期：" + (Me.固定资产明细DataGridView.CurrentRow.Cells(5).Value).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 450, 200)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 220, 720, 220)
        e.Graphics.DrawString("存放地点：" + Me.固定资产明细DataGridView.CurrentRow.Cells(7).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 225)
        e.Graphics.DrawString("入帐日期：" + (Me.固定资产明细DataGridView.CurrentRow.Cells(6).Value).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 450, 225)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 245, 720, 245)
        e.Graphics.DrawString("使用部门：" + Me.固定资产明细DataGridView.CurrentRow.Cells(8).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 250)
        e.Graphics.DrawString("使用状态：" + Me.固定资产明细DataGridView.CurrentRow.Cells(9).Value.ToString(), New Font("宋体", 12), Brushes.Black, 450, 250)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 270, 720, 270)
        e.Graphics.DrawString("增加方式：" + Me.固定资产明细DataGridView.CurrentRow.Cells(10).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 275)
        e.Graphics.DrawString("类别：" + Me.固定资产明细DataGridView.CurrentRow.Cells(11).Value.ToString(), New Font("宋体", 12), Brushes.Black, 450, 275)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 295, 720, 295)
        e.Graphics.DrawString("数量：" + Me.固定资产明细DataGridView.CurrentRow.Cells(12).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 300)
        e.Graphics.DrawString("单位：" + Me.固定资产明细DataGridView.CurrentRow.Cells(13).Value.ToString(), New Font("宋体", 12), Brushes.Black, 230, 300)
        e.Graphics.DrawString("单价：" + Me.固定资产明细DataGridView.CurrentRow.Cells(14).Value.ToString(), New Font("宋体", 12), Brushes.Black, 340, 300)
        e.Graphics.DrawString("金额：" + Me.固定资产明细DataGridView.CurrentRow.Cells(15).Value.ToString(), New Font("宋体", 12), Brushes.Black, 520, 300)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 320, 720, 320)
        e.Graphics.DrawString("资产原值：" + Me.固定资产明细DataGridView.CurrentRow.Cells(16).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 325)
        e.Graphics.DrawString("累计折旧：" + Me.固定资产明细DataGridView.CurrentRow.Cells(17).Value.ToString(), New Font("宋体", 12), Brushes.Black, 340, 325)
        e.Graphics.DrawString("预计净残值：" + Me.固定资产明细DataGridView.CurrentRow.Cells(22).Value.ToString(), New Font("宋体", 12), Brushes.Black, 520, 325)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 345, 720, 345)
        e.Graphics.DrawString("折旧月数：" + Me.固定资产明细DataGridView.CurrentRow.Cells(19).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 350)
        e.Graphics.DrawString("已提月数：" + Me.固定资产明细DataGridView.CurrentRow.Cells(20).Value.ToString(), New Font("宋体", 12), Brushes.Black, 230, 350)
        e.Graphics.DrawString("月度折旧额：" + Me.固定资产明细DataGridView.CurrentRow.Cells(21).Value.ToString(), New Font("宋体", 12), Brushes.Black, 340, 350)
        e.Graphics.DrawString("折旧方法：" + Me.固定资产明细DataGridView.CurrentRow.Cells(18).Value.ToString(), New Font("宋体", 12), Brushes.Black, 520, 350)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 370, 720, 370)
        e.Graphics.DrawString("说明：" + Me.固定资产明细DataGridView.CurrentRow.Cells(23).Value.ToString(), New Font("宋体", 12), Brushes.Black, 110, 375)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 395, 720, 395)
        e.Graphics.DrawString("附属设备名称", New Font("宋体", 12), Brushes.Black, 130, 400)
        e.Graphics.DrawString("规格型号", New Font("宋体", 12), Brushes.Black, 330, 400)
        e.Graphics.DrawString("生产厂家", New Font("宋体", 12), Brushes.Black, 500, 400)
        e.Graphics.DrawString("单位", New Font("宋体", 12), Brushes.Black, 640, 400)
        e.Graphics.DrawString("数量", New Font("宋体", 12), Brushes.Black, 680, 400)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 420, 720, 420)
        Dim MyPosY As Integer = 425
        For i As Integer = 0 To Me.MyFittingTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString(Me.MyFittingTable.Rows(i)(2).ToString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString(Me.MyFittingTable.Rows(i)(3).ToString(), New Font("宋体", 12), Brushes.Black, 300, MyPosY)
            e.Graphics.DrawString(Me.MyFittingTable.Rows(i)(4).ToString(), New Font("宋体", 12), Brushes.Black, 450, MyPosY)
            e.Graphics.DrawString(Me.MyFittingTable.Rows(i)(6).ToString(), New Font("宋体", 12), Brushes.Black, 640, MyPosY)
            e.Graphics.DrawString(Me.MyFittingTable.Rows(i)(7).ToString(), New Font("宋体", 12), Brushes.Black, 680, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 645, 720, 645)
        e.Graphics.DrawString("故障原因", New Font("宋体", 12), Brushes.Black, 150, 650)
        e.Graphics.DrawString("修理情况", New Font("宋体", 12), Brushes.Black, 330, 650)
        e.Graphics.DrawString("修理公司", New Font("宋体", 12), Brushes.Black, 500, 650)
        e.Graphics.DrawString("送修日期", New Font("宋体", 12), Brushes.Black, 630, 650)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 670, 720, 670)
        MyPosY = 675
        For i As Integer = 0 To Me.MyRepairTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString(MyRepairTable.Rows(i)(9).ToString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString(MyRepairTable.Rows(i)(10).ToString(), New Font("宋体", 12), Brushes.Black, 300, MyPosY)
            e.Graphics.DrawString(MyRepairTable.Rows(i)(8).ToString(), New Font("宋体", 12), Brushes.Black, 470, MyPosY)
            e.Graphics.DrawString((MyRepairTable.Rows(i)(5)).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 620, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 905, 720, 905)
        e.Graphics.DrawString("租借数量", New Font("宋体", 12), Brushes.Black, 110, 910)
        e.Graphics.DrawString("说明", New Font("宋体", 12), Brushes.Black, 250, 910)
        e.Graphics.DrawString("租借公司", New Font("宋体", 12), Brushes.Black, 400, 910)
        e.Graphics.DrawString("租借日期", New Font("宋体", 12), Brushes.Black, 550, 910)
        e.Graphics.DrawString("实际收益", New Font("宋体", 12), Brushes.Black, 640, 910)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 930, 720, 930)
        MyPosY = 935
        For i As Integer = 0 To Me.MyBorrowTable.Rows.Count - 1 Step 1
            e.Graphics.DrawString(MyBorrowTable.Rows(i)(3).ToString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY)
            e.Graphics.DrawString(MyBorrowTable.Rows(i)(10).ToString(), New Font("宋体", 12), Brushes.Black, 180, MyPosY)
            e.Graphics.DrawString(MyBorrowTable.Rows(i)(5).ToString(), New Font("宋体", 12), Brushes.Black, 380, MyPosY)
            e.Graphics.DrawString((MyBorrowTable.Rows(i)(6)).ToShortDateString(), New Font("宋体", 12), Brushes.Black, 540, MyPosY)
            e.Graphics.DrawString(MyBorrowTable.Rows(i)(8).ToString(), New Font("宋体", 12), Brushes.Black, 640, MyPosY)
            MyPosY = MyPosY + 20
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 1070, 720, 1070)
    End Sub
End Class