MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/業務系統管理/零售客戶記錄表.vb

Option Strict Off
Public Class 零售客戶記錄表
    ReadOnly ds As New DataSet
    Private Sub Set_清單()
        DataGridView3.DataSource = Nothing : ds.Clear()
        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView3.ColumnHeadersHeight = 40
        DataGridView3.AllowUserToAddRows = False
        DataGridView3.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
        DataGridView3.MultiSelect = True
        SQL_零售客戶記錄表清單()
        da.Fill(ds) : DataGridView3.DataSource = ds.Tables(0) : conn.Close()

        DataGridView3.Columns(0).FillWeight = 60 : DataGridView3.Columns(1).FillWeight = 60 : DataGridView3.Columns(2).FillWeight = 60 : DataGridView3.Columns(3).FillWeight = 30
        DataGridView3.Columns(4).FillWeight = 190 : DataGridView3.Columns(5).FillWeight = 190 : DataGridView3.Columns(6).FillWeight = 70 : DataGridView3.Columns(7).FillWeight = 70
        DataGridView3.Columns(8).FillWeight = 70 : DataGridView3.Columns(9).FillWeight = 90

        DataGridView3.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView3.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView3.Columns(0).ReadOnly = True : DataGridView3.Columns(1).ReadOnly = True : DataGridView3.Columns(2).ReadOnly = True : DataGridView3.Columns(3).ReadOnly = True
        DataGridView3.Columns(4).ReadOnly = True : DataGridView3.Columns(5).ReadOnly = True : DataGridView3.Columns(6).ReadOnly = True : DataGridView3.Columns(7).ReadOnly = True
        DataGridView3.Columns(8).ReadOnly = True : DataGridView3.Columns(9).ReadOnly = True
    End Sub
    Private Sub 零售客戶記錄表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        TextBox1.Enabled = False : Set_清單()
    End Sub
    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView3.Rows(e.RowIndex).Cells("零售流水號").Value.ToString : TextBox2.Text = DataGridView3.Rows(e.RowIndex).Cells("客戶名稱").Value.ToString
            TextBox3.Text = DataGridView3.Rows(e.RowIndex).Cells("電話").Value.ToString : TextBox6.Text = DataGridView3.Rows(e.RowIndex).Cells("手機").Value.ToString
            TextBox8.Text = DataGridView3.Rows(e.RowIndex).Cells("傳真").Value.ToString : TextBox26.Text = DataGridView3.Rows(e.RowIndex).Cells("統一編號").Value.ToString
            TextBox11.Text = DataGridView3.Rows(e.RowIndex).Cells("郵遞區號").Value.ToString : TextBox10.Text = DataGridView3.Rows(e.RowIndex).Cells("店面地址").Value.ToString
            TextBox12.Text = DataGridView3.Rows(e.RowIndex).Cells("送貨地址").Value.ToString
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SQL_零售客戶記錄表修改() : conn.Close() : Set_清單() : MsgBox("資料存檔完畢 。")
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
        Set_清單()
    End Sub
End Class