mainform.vb

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

Imports System.Data.SqlClient
Imports System.Text
Public Class MainForm
    Private MyBgPhoto As String
    Private MyAddress As String
    Private MyTel As String
    Private MyCode As String
    Private MyWeb As String
    Private MySlogan As String
    Private MyBgPhotoShow As String
    Private MyOperator As String
    Private MyCompany As String
    Private Sub 增加固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加固定资产ToolStripMenuItem.Click, 增加固定资产ToolStripButton.Click
        Dim MyDlg As New FixedAssetsForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 减少固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 减少固定资产ToolStripMenuItem.Click, 减少固定资产ToolStripButton.Click
        Dim MyDlg As New SubtractForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 借出固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 借出固定资产ToolStripMenuItem.Click, 借出固定资产ToolStripButton.Click
        Dim MyDlg As New LeaseForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 归还固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 归还固定资产ToolStripMenuItem.Click, 归还固定资产ToolStripButton.Click
        Dim MyDlg As New ReturnForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 送修固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 送修固定资产ToolStripMenuItem.Click, 送修固定资产ToolStripButton.Click
        Dim MyDlg As New RepairForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 完修固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 完修固定资产ToolStripMenuItem.Click, 完修固定资产ToolStripButton.Click
        Dim MyDlg As New RepairedForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 计算月度折旧ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 计算月度折旧ToolStripMenuItem.Click, 计算月度折旧ToolStripButton.Click
        Dim MyDlg As New ComputeForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 统计月度折旧ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 统计月度折旧ToolStripMenuItem.Click, 统计月度折旧ToolStripButton.Click
        Dim MyDlg As New QueryDepreciationForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 汇总月度折旧ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 汇总月度折旧ToolStripMenuItem.Click, 汇总月度折旧ToolStripButton.Click
        Dim MyDlg As New SumDepreciationForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 固定资产卡片ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 固定资产卡片ToolStripMenuItem.Click, 固定资产卡片ToolStripButton.Click
        Dim MyDlg As New PrintCardForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 固定资产折旧ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 固定资产折旧ToolStripMenuItem.Click, 固定资产折旧ToolStripButton.Click
        Dim MyDlg As New PrintDepreciationForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 部门固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 部门固定资产ToolStripMenuItem.Click, 部门固定资产ToolStripButton.Click
        Dim MyDlg As New PrintDepartmentForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 分类固定资产ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 分类固定资产ToolStripMenuItem.Click, 分类固定资产ToolStripButton.Click
        Dim MyDlg As New PrintTypeForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 减少固定资产ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 减少固定资产ToolStripMenuItem1.Click, 减少固定资产ToolStripButton1.Click
        Dim MyDlg As New PrintSubtractForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 送修固定资产ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 送修固定资产ToolStripMenuItem1.Click, 送修固定资产ToolStripButton1.Click
        Dim MyDlg As New PrintRepairForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 完修固定资产ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 完修固定资产ToolStripMenuItem1.Click, 完修固定资产ToolStripButton1.Click
        Dim MyDlg As New PrintRepairedForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 出借固定资产ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 出借固定资产ToolStripMenuItem1.Click, 出借固定资产ToolStripButton1.Click
        Dim MyDlg As New PrintBorrowForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 归还固定资产ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 归还固定资产ToolStripMenuItem1.Click, 归还固定资产ToolStripButton1.Click
        Dim MyDlg As New PrintReturnForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 操作权限设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 操作权限设置ToolStripMenuItem.Click
        Dim MyDlg As New OperatorForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 修改用户密码ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改用户密码ToolStripMenuItem.Click
        Dim MyDlg As New ChangeUserPasswordForm()
        MyDlg.用户名称TextBox.Text = Me.MyOperator
        MyDlg.ShowDialog()
    End Sub

    Private Sub 公司信息设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 公司信息设置ToolStripMenuItem.Click
        Dim MyDlg As New CompanyForm()
        MyDlg.ShowDialog()
        Dim MyTempPath As New StringBuilder(Me.MyBgPhotoShow)
        Me.GetCompanyInformation()
        '生成系统背景图像
        If (Not System.IO.File.Exists(MyBgPhotoShow)) Then
            Dim MyImage As New Bitmap(MyBgPhoto, True)
            Dim PosX As Integer = 10
            Dim PosY As Integer = MyImage.Height / 2 + 150
            Dim MyFont As Integer = 150
            Dim bMyFound As Boolean = False
            Dim MyWidth As Integer = MyImage.Width
            Dim MyHeight As Integer = MyImage.Height
            Dim MySize As Integer = MyWidth * MyHeight
            Dim MyPattern As New Bitmap(MyWidth, MyHeight)
            Dim MyBitmap As New Bitmap(MyImage)
            Dim g As Graphics = Graphics.FromImage(MyPattern)
            Dim MyGraphics As Graphics = Graphics.FromImage(MyImage)
            g.Clear(Color.White)
            While (bMyFound = False)
                Dim NewFont As New Font("宋体", MyFont, FontStyle.Bold)
                Dim MyString As New SizeF(MyWidth, MyHeight)
                MyString = g.MeasureString(MySlogan, NewFont)
                If (MyString.Width < MyPattern.Width) Then
                    If (MyString.Height < MyPattern.Height) Then
                        bMyFound = True
                        g.DrawString(MySlogan, NewFont, New SolidBrush(Color.Black), PosX, PosY)
                    End If
                Else
                    MyFont = MyFont - 1
                End If
            End While
            For x As Integer = 1 To MyPattern.Width - 1 Step 1
                For y As Integer = 1 To MyPattern.Height - 1 Step 1
                    Dim a, re, gr, bl, x1, y1, z1 As Integer
                    If (MyPattern.GetPixel(x, y).ToArgb() = Color.Black.ToArgb()) Then
                        a = MyBitmap.GetPixel(x, y).A
                        re = MyBitmap.GetPixel(x, y).R
                        gr = MyBitmap.GetPixel(x, y).G
                        bl = MyBitmap.GetPixel(x, y).B
                        x1 = re
                        y1 = gr
                        z1 = bl
                        If (bl + 25 < 255) Then
                            bl = bl + 25
                        End If
                        If (gr + 25 < 255) Then
                            gr = gr + 25
                        End If
                        If (re + 25 < 255) Then
                            re = re + 25
                        End If
                        If (x1 - 25 > 0) Then
                            x1 = x1 - 25
                        End If
                        If (y1 - 25 > 0) Then
                            y1 = y1 - 25
                        End If
                        If (z1 - 25 > 0) Then
                            z1 = z1 - 25
                        End If
                        MyGraphics.DrawEllipse(New Pen(New SolidBrush(Color.Black)), x, y + 1, 3, 3)
                        MyGraphics.DrawEllipse(New Pen(New SolidBrush(Color.FromArgb(a, x1, y1, z1))), x, y, 1, 1)
                    End If
                Next
            Next
            MyGraphics.DrawString("公司地址：" + MyAddress, New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Yellow), 10, 60)
            MyGraphics.DrawString("服务电话：" + MyTel, New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Yellow), 10, 80)
            MyGraphics.DrawString("公司网站：" + MyWeb, New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Yellow), 10, 100)
            MyImage.Save(MyBgPhotoShow, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If