?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