WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/製鞋技術管理系統/製鞋技術資料庫除錯.vb

Option Strict Off
Imports System.Data.SqlClient
Imports System.Net
Public Class 製鞋技術資料庫除錯
    Public Property Credentials As ICredentials
    ReadOnly conn As New SqlConnection
    ReadOnly da As New SqlDataAdapter
    ReadOnly cmd As New SqlCommand
    ReadOnly ds As New DataSet
    Private Sub Set_清單()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT  楦頭規格控制表.資料流水號, 楦頭規格控制表.楦頭編號, 楦頭規格控制表.楦頭圖號碼, 楦頭規格控制表.鞋圖號碼, 
                        楦頭規格控制表.楦頭名, 楦頭圖片庫.楦頭圖片編號, 楦頭圖片庫.楦頭編號 AS 楦圖用_楦頭編號, 
                        模具開發控制表.模具開發單號, 模具開發控制表.楦頭編號 AS 模具用_楦頭編號, 模具開發控制表.模具編號, 
                        鞋樣素描圖控制表.鞋樣素描圖編號, 鞋樣素描圖控制表.楦頭編號 AS 鞋樣用_楦頭編號, 
                        鞋樣素描圖控制表.模具編號 AS 鞋樣用_模具編號, 鞋樣素描圖控制表.型體編號, 鞋樣素描圖控制表.型體名稱
                FROM    楦頭規格控制表 FULL OUTER JOIN
                        鞋樣素描圖控制表 ON 楦頭規格控制表.楦頭編號 = 鞋樣素描圖控制表.楦頭編號 FULL OUTER JOIN
                        模具開發控制表 ON 楦頭規格控制表.楦頭編號 = 模具開發控制表.楦頭編號 FULL OUTER JOIN
                        楦頭圖片庫 ON 楦頭規格控制表.楦頭編號 = 楦頭圖片庫.楦頭編號
                WHERE  (楦頭圖片庫.楦頭編號 NOT LIKE 'WL%') AND (楦頭圖片庫.楦頭編號 NOT LIKE 'ML%')
                ORDER BY   楦頭規格控制表.楦頭編號"
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
        DataGridView1.Columns(0).Width = 100 : DataGridView1.Columns(1).Width = 100
    End Sub
    Private Sub 製鞋技術資料庫除錯_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_清單()
    End Sub
End Class