mainform.vb

一个商品销售管理系统

Imports System.Text
Imports System.Data.SqlClient
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 WarehouseInForm()
        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 WarehouseOutForm()
        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 PaymentForm()
        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 RefundmentForm()
        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 TransferForm()
        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 SaleAddForm()
        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 SaleReduceForm()
        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 SaleGatheringForm()
        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 SaleRefundmentForm()
        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 SaleTransferForm()
        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 ReportWarehouseInForm()
        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 ReportSupplierForm()
        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 ReportWarehouseOutForm()
        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, 采购商往来报表ToolStripButton1.Click
        Dim MyDlg As New ReportBuyerForm()
        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 ReportCollectForm()
        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
        Me.BackgroundImage = New Bitmap(Me.MyBgPhotoShow, True)
        Me.Text = MySlogan
    End Sub

    Private Sub 采购商信息设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 采购商信息设置ToolStripMenuItem.Click
        Dim MyDlg As New BuyerForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 供应商信息设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 供应商信息设置ToolStripMenuItem.Click