版本號 : 2020072801

更新內容 : 新增客戶品牌ESSEGI 楦頭代號ES

Signed-off-by: B70340 <b70340@gmail.com>

SHENKANG-MES-SYS/MyModule/全域變數.vb

@@ -9,7 +9,7 @@
                                  CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                  CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2020072201"
+    Public 版本 As String = "2020072801"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
     Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>iG9uqrG26rbd7WcHjUEQxxnl+ENKzjvczZxe+tS3DOY=</dsig:DigestValue>
+        <dsig:DigestValue>zcNXyhhclkrgzbVg1ptEu51Fl8xARQS2WdILd6Y6CDY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5374904">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5432248">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>YrO0pC4m3tjz/kzUdyfsDbajTTjFR/g6q7J5Jg8bV6Q=</dsig:DigestValue>
+        <dsig:DigestValue>bolivNGcSqs/CRX/AxTyekNv0HMXQJv/wi7CJLhK0Tg=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>iG9uqrG26rbd7WcHjUEQxxnl+ENKzjvczZxe+tS3DOY=</dsig:DigestValue>
+        <dsig:DigestValue>zcNXyhhclkrgzbVg1ptEu51Fl8xARQS2WdILd6Y6CDY=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5374904">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5432248">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>YrO0pC4m3tjz/kzUdyfsDbajTTjFR/g6q7J5Jg8bV6Q=</dsig:DigestValue>
+        <dsig:DigestValue>bolivNGcSqs/CRX/AxTyekNv0HMXQJv/wi7CJLhK0Tg=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/製鞋技術管理系統/楦頭規格表.vb

@@ -160,6 +160,13 @@ Public Class 楦頭規格表
         conn.Close()
         PA = ""
     End Sub
+    Private Sub ComboBox5下拉表單資料載入()
+        conn.Close()
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理"
+        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
+        ComboBox5.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("縮寫")) : End While : conn.Close() : PA = ""
+    End Sub
     Private Sub Set_日期格式轉換()
         DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd")
     End Sub
@@ -167,8 +174,7 @@ Public Class 楦頭規格表
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         PA = "" : GroupBox2.Visible = False : TextBox40.Enabled = False
         Set_楦頭規格表清單()
-        ComboBox1下拉表單資料載入()
-        ComboBox2下拉表單資料載入()
+        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox5下拉表單資料載入()
         格式設定()
     End Sub
     Private Sub 楦頭規格表_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
@@ -438,12 +444,12 @@ Public Class 楦頭規格表
         TextBox39.Text = ""
         DateTimePicker1.Text = Today() : RadioButton1.Checked = False : RadioButton2.Checked = False : PictureBox1.Image = Nothing : PictureBox2.Image = Nothing
 
-        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT TOP (1) 楦頭編號 FROM 楦頭規格控制表 ORDER BY 資料流水號 DESC"
-        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
-        If dr.Read() Then : TextBox40.Text = Strings.Mid(dr("楦頭編號"), 3, 4).ToString : Else : TextBox40.Text = "2000" : End If
-        conn.Close()
-        TextBox40.Text = Val(TextBox40.Text) + 1
+        'If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        'SQL1 = "SELECT TOP (1) 楦頭編號 FROM 楦頭規格控制表 ORDER BY 資料流水號 DESC"
+        'cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+        'If dr.Read() Then : TextBox40.Text = Strings.Mid(dr("楦頭編號"), 3, 4).ToString : Else : TextBox40.Text = "2000" : End If
+        'conn.Close()
+        'TextBox40.Text = Val(TextBox40.Text) + 1
 
         GroupBox2.Visible = True
         Button8.Enabled = False : Button9.Enabled = False : Button12.Enabled = False

SHENKANG-MES-SYS/資料庫管理系統/系統編碼規則_1.Designer.vb

@@ -32,6 +32,9 @@ Partial Class 系統編碼規則_1
         Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
         Me.部件大項_dgv = New System.Windows.Forms.DataGridView()
@@ -105,6 +108,27 @@ Partial Class 系統編碼規則_1
         Me.帳本_新增_bt = New System.Windows.Forms.Button()
         Me.帳本_修改_bt = New System.Windows.Forms.Button()
         Me.帳本_dgv = New System.Windows.Forms.DataGridView()
+        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
+        Me.縮寫_dgv = New System.Windows.Forms.DataGridView()
+        Me.Button28 = New System.Windows.Forms.Button()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Button29 = New System.Windows.Forms.Button()
+        Me.Button30 = New System.Windows.Forms.Button()
+        Me.TextBox10 = New System.Windows.Forms.TextBox()
+        Me.GroupBox12 = New System.Windows.Forms.GroupBox()
+        Me.客戶_dgv = New System.Windows.Forms.DataGridView()
+        Me.Button31 = New System.Windows.Forms.Button()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Button32 = New System.Windows.Forms.Button()
+        Me.Button33 = New System.Windows.Forms.Button()
+        Me.TextBox11 = New System.Windows.Forms.TextBox()
+        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
+        Me.品牌_dgv = New System.Windows.Forms.DataGridView()
+        Me.Button34 = New System.Windows.Forms.Button()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Button35 = New System.Windows.Forms.Button()
+        Me.Button36 = New System.Windows.Forms.Button()
+        Me.TextBox12 = New System.Windows.Forms.TextBox()
         Me.GroupBox3.SuspendLayout()
         CType(Me.部件大項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox2.SuspendLayout()
@@ -125,6 +149,12 @@ Partial Class 系統編碼規則_1
         CType(Me.模具材料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox10.SuspendLayout()
         CType(Me.帳本_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox11.SuspendLayout()
+        CType(Me.縮寫_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox12.SuspendLayout()
+        CType(Me.客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox13.SuspendLayout()
+        CType(Me.品牌_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label3
@@ -157,6 +187,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.部件大項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.部件大項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.部件大項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.部件大項_dgv.Location = New System.Drawing.Point(6, 141)
         Me.部件大項_dgv.Name = "部件大項_dgv"
@@ -233,6 +264,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.貼標大項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.貼標大項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.貼標大項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.貼標大項_dgv.Location = New System.Drawing.Point(6, 141)
         Me.貼標大項_dgv.Name = "貼標大項_dgv"
@@ -309,6 +341,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.DataGridView7.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.DataGridView7.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DataGridView7.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView7.Location = New System.Drawing.Point(6, 141)
         Me.DataGridView7.Name = "DataGridView7"
@@ -385,6 +418,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.部門_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.部門_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.部門_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.部門_dgv.Location = New System.Drawing.Point(6, 141)
         Me.部門_dgv.Name = "部門_dgv"
@@ -461,6 +495,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.職稱_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.職稱_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.職稱_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.職稱_dgv.Location = New System.Drawing.Point(6, 141)
         Me.職稱_dgv.Name = "職稱_dgv"
@@ -537,6 +572,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.請假類別_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.請假類別_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.請假類別_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.請假類別_dgv.Location = New System.Drawing.Point(6, 141)
         Me.請假類別_dgv.Name = "請假類別_dgv"
@@ -613,6 +649,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.DataGridView6.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.DataGridView6.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DataGridView6.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView6.Location = New System.Drawing.Point(6, 141)
         Me.DataGridView6.Name = "DataGridView6"
@@ -689,6 +726,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.模具結構_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.模具結構_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.模具結構_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.模具結構_dgv.Location = New System.Drawing.Point(6, 141)
         Me.模具結構_dgv.Name = "模具結構_dgv"
@@ -765,6 +803,7 @@ Partial Class 系統編碼規則_1
         '
         DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.模具材料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.模具材料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.模具材料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.模具材料_dgv.Location = New System.Drawing.Point(6, 141)
         Me.模具材料_dgv.Name = "模具材料_dgv"
@@ -917,11 +956,245 @@ Partial Class 系統編碼規則_1
         Me.帳本_dgv.Size = New System.Drawing.Size(224, 376)
         Me.帳本_dgv.TabIndex = 663
         '
+        'GroupBox11
+        '
+        Me.GroupBox11.Controls.Add(Me.縮寫_dgv)
+        Me.GroupBox11.Controls.Add(Me.Button28)
+        Me.GroupBox11.Controls.Add(Me.Label13)
+        Me.GroupBox11.Controls.Add(Me.Button29)
+        Me.GroupBox11.Controls.Add(Me.Button30)
+        Me.GroupBox11.Controls.Add(Me.TextBox10)
+        Me.GroupBox11.Location = New System.Drawing.Point(612, 507)
+        Me.GroupBox11.Name = "GroupBox11"
+        Me.GroupBox11.Size = New System.Drawing.Size(144, 462)
+        Me.GroupBox11.TabIndex = 255
+        Me.GroupBox11.TabStop = False
+        Me.GroupBox11.Text = "楦頭縮寫管理"
+        '
+        '縮寫_dgv
+        '
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.縮寫_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.縮寫_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.縮寫_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.縮寫_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.縮寫_dgv.Name = "縮寫_dgv"
+        Me.縮寫_dgv.RowHeadersWidth = 5
+        Me.縮寫_dgv.RowTemplate.Height = 24
+        Me.縮寫_dgv.Size = New System.Drawing.Size(125, 311)
+        Me.縮寫_dgv.TabIndex = 222
+        '
+        'Button28
+        '
+        Me.Button28.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button28.ForeColor = System.Drawing.Color.DarkGreen
+        Me.Button28.Location = New System.Drawing.Point(9, 79)
+        Me.Button28.Name = "Button28"
+        Me.Button28.Size = New System.Drawing.Size(122, 25)
+        Me.Button28.TabIndex = 224
+        Me.Button28.Text = "修改"
+        Me.Button28.UseVisualStyleBackColor = True
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(6, 22)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(32, 16)
+        Me.Label13.TabIndex = 229
+        Me.Label13.Text = "縮寫"
+        '
+        'Button29
+        '
+        Me.Button29.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button29.ForeColor = System.Drawing.Color.Blue
+        Me.Button29.Location = New System.Drawing.Point(9, 48)
+        Me.Button29.Name = "Button29"
+        Me.Button29.Size = New System.Drawing.Size(122, 25)
+        Me.Button29.TabIndex = 223
+        Me.Button29.Text = "新增"
+        Me.Button29.UseVisualStyleBackColor = True
+        '
+        'Button30
+        '
+        Me.Button30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button30.ForeColor = System.Drawing.Color.Red
+        Me.Button30.Location = New System.Drawing.Point(9, 110)
+        Me.Button30.Name = "Button30"
+        Me.Button30.Size = New System.Drawing.Size(122, 25)
+        Me.Button30.TabIndex = 225
+        Me.Button30.Text = "刪除"
+        Me.Button30.UseVisualStyleBackColor = True
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Location = New System.Drawing.Point(44, 19)
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Size = New System.Drawing.Size(87, 23)
+        Me.TextBox10.TabIndex = 227
+        '
+        'GroupBox12
+        '
+        Me.GroupBox12.Controls.Add(Me.客戶_dgv)
+        Me.GroupBox12.Controls.Add(Me.Button31)
+        Me.GroupBox12.Controls.Add(Me.Label14)
+        Me.GroupBox12.Controls.Add(Me.Button32)
+        Me.GroupBox12.Controls.Add(Me.Button33)
+        Me.GroupBox12.Controls.Add(Me.TextBox11)
+        Me.GroupBox12.Location = New System.Drawing.Point(1006, 39)
+        Me.GroupBox12.Name = "GroupBox12"
+        Me.GroupBox12.Size = New System.Drawing.Size(238, 462)
+        Me.GroupBox12.TabIndex = 256
+        Me.GroupBox12.TabStop = False
+        Me.GroupBox12.Text = "客戶清單"
+        '
+        '客戶_dgv
+        '
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.客戶_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.客戶_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.客戶_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.客戶_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.客戶_dgv.Name = "客戶_dgv"
+        Me.客戶_dgv.RowHeadersWidth = 5
+        Me.客戶_dgv.RowTemplate.Height = 24
+        Me.客戶_dgv.Size = New System.Drawing.Size(226, 311)
+        Me.客戶_dgv.TabIndex = 222
+        '
+        'Button31
+        '
+        Me.Button31.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button31.ForeColor = System.Drawing.Color.DarkGreen
+        Me.Button31.Location = New System.Drawing.Point(9, 79)
+        Me.Button31.Name = "Button31"
+        Me.Button31.Size = New System.Drawing.Size(223, 25)
+        Me.Button31.TabIndex = 224
+        Me.Button31.Text = "修改"
+        Me.Button31.UseVisualStyleBackColor = True
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(6, 22)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(32, 16)
+        Me.Label14.TabIndex = 229
+        Me.Label14.Text = "客戶"
+        '
+        'Button32
+        '
+        Me.Button32.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button32.ForeColor = System.Drawing.Color.Blue
+        Me.Button32.Location = New System.Drawing.Point(9, 48)
+        Me.Button32.Name = "Button32"
+        Me.Button32.Size = New System.Drawing.Size(223, 25)
+        Me.Button32.TabIndex = 223
+        Me.Button32.Text = "新增"
+        Me.Button32.UseVisualStyleBackColor = True
+        '
+        'Button33
+        '
+        Me.Button33.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button33.ForeColor = System.Drawing.Color.Red
+        Me.Button33.Location = New System.Drawing.Point(9, 110)
+        Me.Button33.Name = "Button33"
+        Me.Button33.Size = New System.Drawing.Size(223, 25)
+        Me.Button33.TabIndex = 225
+        Me.Button33.Text = "刪除"
+        Me.Button33.UseVisualStyleBackColor = True
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Location = New System.Drawing.Point(44, 19)
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Size = New System.Drawing.Size(188, 23)
+        Me.TextBox11.TabIndex = 227
+        '
+        'GroupBox13
+        '
+        Me.GroupBox13.Controls.Add(Me.品牌_dgv)
+        Me.GroupBox13.Controls.Add(Me.Button34)
+        Me.GroupBox13.Controls.Add(Me.Label15)
+        Me.GroupBox13.Controls.Add(Me.Button35)
+        Me.GroupBox13.Controls.Add(Me.Button36)
+        Me.GroupBox13.Controls.Add(Me.TextBox12)
+        Me.GroupBox13.Location = New System.Drawing.Point(1250, 39)
+        Me.GroupBox13.Name = "GroupBox13"
+        Me.GroupBox13.Size = New System.Drawing.Size(238, 462)
+        Me.GroupBox13.TabIndex = 257
+        Me.GroupBox13.TabStop = False
+        Me.GroupBox13.Text = "品牌"
+        '
+        '品牌_dgv
+        '
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.品牌_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.品牌_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.品牌_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.品牌_dgv.Location = New System.Drawing.Point(6, 141)
+        Me.品牌_dgv.Name = "品牌_dgv"
+        Me.品牌_dgv.RowHeadersWidth = 5
+        Me.品牌_dgv.RowTemplate.Height = 24
+        Me.品牌_dgv.Size = New System.Drawing.Size(226, 311)
+        Me.品牌_dgv.TabIndex = 222
+        '
+        'Button34
+        '
+        Me.Button34.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button34.ForeColor = System.Drawing.Color.DarkGreen
+        Me.Button34.Location = New System.Drawing.Point(9, 79)
+        Me.Button34.Name = "Button34"
+        Me.Button34.Size = New System.Drawing.Size(223, 25)
+        Me.Button34.TabIndex = 224
+        Me.Button34.Text = "修改"
+        Me.Button34.UseVisualStyleBackColor = True
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(6, 22)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(56, 16)
+        Me.Label15.TabIndex = 229
+        Me.Label15.Text = "品牌清單"
+        '
+        'Button35
+        '
+        Me.Button35.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button35.ForeColor = System.Drawing.Color.Blue
+        Me.Button35.Location = New System.Drawing.Point(9, 48)
+        Me.Button35.Name = "Button35"
+        Me.Button35.Size = New System.Drawing.Size(223, 25)
+        Me.Button35.TabIndex = 223
+        Me.Button35.Text = "新增"
+        Me.Button35.UseVisualStyleBackColor = True
+        '
+        'Button36
+        '
+        Me.Button36.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button36.ForeColor = System.Drawing.Color.Red
+        Me.Button36.Location = New System.Drawing.Point(9, 110)
+        Me.Button36.Name = "Button36"
+        Me.Button36.Size = New System.Drawing.Size(223, 25)
+        Me.Button36.TabIndex = 225
+        Me.Button36.Text = "刪除"
+        Me.Button36.UseVisualStyleBackColor = True
+        '
+        'TextBox12
+        '
+        Me.TextBox12.Location = New System.Drawing.Point(62, 19)
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Size = New System.Drawing.Size(170, 23)
+        Me.TextBox12.TabIndex = 227
+        '
         '系統編碼規則_1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.GroupBox13)
+        Me.Controls.Add(Me.GroupBox12)
+        Me.Controls.Add(Me.GroupBox11)
         Me.Controls.Add(Me.GroupBox10)
         Me.Controls.Add(Me.GroupBox9)
         Me.Controls.Add(Me.GroupBox8)
@@ -967,6 +1240,15 @@ Partial Class 系統編碼規則_1
         Me.GroupBox10.ResumeLayout(False)
         Me.GroupBox10.PerformLayout()
         CType(Me.帳本_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox11.ResumeLayout(False)
+        Me.GroupBox11.PerformLayout()
+        CType(Me.縮寫_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox12.ResumeLayout(False)
+        Me.GroupBox12.PerformLayout()
+        CType(Me.客戶_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox13.ResumeLayout(False)
+        Me.GroupBox13.PerformLayout()
+        CType(Me.品牌_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1045,4 +1327,25 @@ Partial Class 系統編碼規則_1
     Friend WithEvents 帳本_新增_bt As Button
     Friend WithEvents 帳本_修改_bt As Button
     Friend WithEvents 帳本_dgv As DataGridView
+    Friend WithEvents GroupBox11 As GroupBox
+    Friend WithEvents 縮寫_dgv As DataGridView
+    Friend WithEvents Button28 As Button
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Button29 As Button
+    Friend WithEvents Button30 As Button
+    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents GroupBox12 As GroupBox
+    Friend WithEvents 客戶_dgv As DataGridView
+    Friend WithEvents Button31 As Button
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Button32 As Button
+    Friend WithEvents Button33 As Button
+    Friend WithEvents TextBox11 As TextBox
+    Friend WithEvents GroupBox13 As GroupBox
+    Friend WithEvents 品牌_dgv As DataGridView
+    Friend WithEvents Button34 As Button
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Button35 As Button
+    Friend WithEvents Button36 As Button
+    Friend WithEvents TextBox12 As TextBox
 End Class

SHENKANG-MES-SYS/資料庫管理系統/系統編碼規則_1.vb

@@ -1,9 +1,39 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Public Class 系統編碼規則_1
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
-    ReadOnly ds6 As New DataSet : ReadOnly ds7 As New DataSet : ReadOnly ds8 As New DataSet : ReadOnly ds9 As New DataSet
+    ReadOnly ds6 As New DataSet : ReadOnly ds7 As New DataSet : ReadOnly ds8 As New DataSet : ReadOnly ds9 As New DataSet : ReadOnly ds10 As New DataSet : ReadOnly ds11 As New DataSet
+    ReadOnly ds12 As New DataSet
     Dim EDR As Integer = 0 : Dim ESTR As String
+    Private Sub Set_客戶清單()
+        客戶_dgv.DataSource = Nothing : ds11.Clear()
+        客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        客戶_dgv.ColumnHeadersHeight = 25
+        客戶_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 ORDER BY 客戶簡稱"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds11) : 客戶_dgv.DataSource = ds11.Tables(0) : conn.Close()
+        客戶_dgv.Columns(0).FillWeight = 100
+    End Sub
+    Private Sub Set_品牌清單()
+        品牌_dgv.DataSource = Nothing : ds12.Clear()
+        品牌_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        品牌_dgv.ColumnHeadersHeight = 25
+        品牌_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT CUST FROM MTTOOCUST清單 ORDER BY CUST "
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds12) : 品牌_dgv.DataSource = ds12.Tables(0) : conn.Close()
+        品牌_dgv.Columns(0).FillWeight = 100
+    End Sub
+    Private Sub Set_縮寫清單()
+        縮寫_dgv.DataSource = Nothing : ds10.Clear()
+        縮寫_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        縮寫_dgv.ColumnHeadersHeight = 25
+        縮寫_dgv.AllowUserToAddRows = False
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds10) : 縮寫_dgv.DataSource = ds10.Tables(0) : conn.Close()
+        縮寫_dgv.Columns(0).FillWeight = 100
+    End Sub
     Private Sub Set_帳本清單()
         帳本_dgv.DataSource = Nothing : ds9.Clear()
         帳本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -12,7 +42,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 ORDER BY 編號"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds9) : 帳本_dgv.DataSource = ds9.Tables(0) : conn.Close()
-        帳本_dgv.Columns(0).Width = 100 : 帳本_dgv.Columns(1).Width = 100
+        帳本_dgv.Columns(0).FillWeight = 100 : 帳本_dgv.Columns(1).FillWeight = 100
     End Sub
     Private Sub Set_部門清單()
         部門_dgv.DataSource = Nothing : ds.Clear()
@@ -22,7 +52,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 部門 FROM METOO部門清單"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 部門_dgv.DataSource = ds.Tables(0) : conn.Close()
-        部門_dgv.Columns(0).Width = 100
+        部門_dgv.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_清單2()
         貼標大項_dgv.DataSource = Nothing : ds1.Clear()
@@ -32,7 +62,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 貼標對應名稱 FROM 貼標對應名稱清單"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : 貼標大項_dgv.DataSource = ds1.Tables(0) : conn.Close()
-        貼標大項_dgv.Columns(0).Width = 100
+        貼標大項_dgv.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_清單1()
         部件大項_dgv.DataSource = Nothing : ds2.Clear()
@@ -42,7 +72,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 部件類別 FROM 部件大項分類 ORDER BY   部件類別"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : 部件大項_dgv.DataSource = ds2.Tables(0) : conn.Close()
-        部件大項_dgv.Columns(0).Width = 100
+        部件大項_dgv.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_職稱清單()
         職稱_dgv.DataSource = Nothing : ds3.Clear()
@@ -52,7 +82,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 職稱 FROM METOO職稱清單 ORDER BY 職稱"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds3) : 職稱_dgv.DataSource = ds3.Tables(0) : conn.Close()
-        職稱_dgv.Columns(0).Width = 100
+        職稱_dgv.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_請假類別清單()
         請假類別_dgv.DataSource = Nothing : ds4.Clear()
@@ -62,7 +92,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 請假類別 FROM METOO請假類別 ORDER BY 請假類別"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds4) : 請假類別_dgv.DataSource = ds4.Tables(0) : conn.Close()
-        請假類別_dgv.Columns(0).Width = 100
+        請假類別_dgv.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_廠商類別()
         DataGridView6.DataSource = Nothing : ds5.Clear()
@@ -72,7 +102,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT 廠商類別 FROM 廠商類別 ORDER BY 廠商類別"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds5) : DataGridView6.DataSource = ds5.Tables(0) : conn.Close()
-        DataGridView6.Columns(0).Width = 100
+        DataGridView6.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_年度清單()
         DataGridView7.DataSource = Nothing : ds6.Clear()
@@ -82,7 +112,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds6) : DataGridView7.DataSource = ds6.Tables(0) : conn.Close()
-        DataGridView7.Columns(0).Width = 100
+        DataGridView7.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_模具開發用結構清單()
         模具結構_dgv.DataSource = Nothing : ds7.Clear()
@@ -92,7 +122,7 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT  結構 FROM 模具開發用結構清單 ORDER BY 結構"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds7) : 模具結構_dgv.DataSource = ds7.Tables(0) : conn.Close()
-        模具結構_dgv.Columns(0).Width = 100
+        模具結構_dgv.Columns(0).FillWeight = 100
     End Sub
     Private Sub Set_模具開發用材質清單()
         模具材料_dgv.DataSource = Nothing : ds8.Clear()
@@ -102,12 +132,27 @@ Public Class 系統編碼規則_1
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         SQL1 = "SELECT  材質 FROM 模具開發用材質清單 ORDER BY 材質"
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds8) : 模具材料_dgv.DataSource = ds8.Tables(0) : conn.Close()
-        模具材料_dgv.Columns(0).Width = 100
+        模具材料_dgv.Columns(0).FillWeight = 100
     End Sub
     Private Sub 系統編碼規則_1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別()
-        Set_模具開發用結構清單() : Set_模具開發用材質清單() : Set_帳本清單()
+        Set_模具開發用結構清單() : Set_模具開發用材質清單() : Set_帳本清單() : Set_縮寫清單() : Set_客戶清單() : Set_品牌清單()
+    End Sub
+    Private Sub 客戶_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 客戶_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox11.Text = 客戶_dgv(0, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 品牌_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 品牌_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox12.Text = 品牌_dgv(0, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 縮寫_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 縮寫_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox10.Text = 縮寫_dgv(0, e.RowIndex).Value.ToString
+        End If
     End Sub
     Private Sub 帳本_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 帳本_dgv.CellClick
         If e.RowIndex = -1 Then : Else
@@ -180,7 +225,7 @@ Public Class 系統編碼規則_1
     End Sub
     Private Sub 式共用1()
         Set_清單1() : Set_清單2() : Set_年度清單() : Set_部門清單() : Set_職稱清單() : Set_請假類別清單() : Set_廠商類別()
-        Set_帳本清單() : Set_模具開發用結構清單() : Set_模具開發用材質清單() : PA = ""
+        Set_帳本清單() : Set_模具開發用結構清單() : Set_模具開發用材質清單() : Set_縮寫清單() : Set_客戶清單() : Set_品牌清單() : PA = ""
     End Sub
     Private Sub 式共用2()
         conn.Close() : dr.Close()
@@ -484,4 +529,88 @@ Public Class 系統編碼規則_1
     Private Sub 帳本_刪除_bt_Click(sender As Object, e As EventArgs) Handles 帳本_刪除_bt.Click
         SQL_帳本刪除() : SET_刪除按鈕程式共用1()
     End Sub
+    '------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
+        If TextBox10.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            式共用3() : SQL1 = "SELECT 縮寫 FROM 楦頭縮寫管理 WHERE 縮寫 LIKE '" & TextBox10.Text & "'" : cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            If dr.Read() Then
+                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
+            Else
+                式共用2() : SQL1 = "INSERT INTO 楦頭縮寫管理 (縮寫) VALUES (N'" & TextBox10.Text & "')" : SET_新增按鈕程式共用2()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
+        If TextBox10.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            PA = InputBox("請輸入要修改的內容")
+            If PA = "" Then
+                MsgBox("沒有輸入修改內容")
+            Else
+                式共用3() : SQL1 = "UPDATE 楦頭縮寫管理 SET 縮寫 = N'" & PA & "' WHERE 縮寫 LIKE N'" & TextBox10.Text & "'" : SET_修改按鈕程式共用1()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
+        SQL1 = "DELETE FROM 楦頭縮寫管理 WHERE (縮寫 = N'" & TextBox10.Text & "')" : SET_刪除按鈕程式共用1()
+    End Sub
+    '------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
+        If TextBox11.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            式共用3() : SQL1 = "SELECT 客戶簡稱 FROM 客戶控制表 WHERE 客戶簡稱 LIKE '" & TextBox11.Text & "'" : cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            If dr.Read() Then
+                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
+            Else
+                式共用2() : SQL1 = "INSERT INTO 客戶控制表 (客戶簡稱) VALUES (N'" & TextBox11.Text & "')" : SET_新增按鈕程式共用2()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
+        If TextBox11.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            PA = InputBox("請輸入要修改的內容")
+            If PA = "" Then
+                MsgBox("沒有輸入修改內容")
+            Else
+                式共用3() : SQL1 = "UPDATE 客戶控制表 SET 客戶簡稱 = N'" & PA & "' WHERE 客戶簡稱 LIKE N'" & TextBox11.Text & "'" : SET_修改按鈕程式共用1()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
+        SQL1 = "DELETE FROM 客戶控制表 WHERE (客戶簡稱 = N'" & TextBox11.Text & "')" : SET_刪除按鈕程式共用1()
+    End Sub
+    '------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
+        If TextBox12.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            式共用3() : SQL1 = "SELECT CUST FROM MTTOOCUST清單 WHERE CUST LIKE '" & TextBox12.Text & "'" : cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            If dr.Read() Then
+                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
+            Else
+                式共用2() : SQL1 = "INSERT INTO MTTOOCUST清單 (CUST) VALUES (N'" & TextBox12.Text & "')" : SET_新增按鈕程式共用2()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
+        If TextBox12.Text = "" Then
+            MsgBox("資料有缺或有誤，請重新檢查")
+        Else
+            PA = InputBox("請輸入要修改的內容")
+            If PA = "" Then
+                MsgBox("沒有輸入修改內容")
+            Else
+                式共用3() : SQL1 = "UPDATE MTTOOCUST清單 SET CUST = N'" & PA & "' WHERE CUST LIKE N'" & TextBox12.Text & "'" : SET_修改按鈕程式共用1()
+            End If
+        End If : 式共用1()
+    End Sub
+    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
+        SQL1 = "DELETE FROM MTTOOCUST清單 WHERE (CUST = N'" & TextBox12.Text & "')" : SET_刪除按鈕程式共用1()
+    End Sub
 End Class