_ Partial Class 驗貨報告圖片導入資料庫 Inherits System.Windows.Forms.Form 'Form 覆寫 Dispose 以清除元件清單。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub '為 Windows Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 _ Private Sub InitializeComponent() Me.文字_lb = New System.Windows.Forms.Label() Me.提醒_lb = New System.Windows.Forms.Label() Me.伺服器FTP文件夾_lb = New System.Windows.Forms.Label() Me.TextBox7 = New System.Windows.Forms.TextBox() Me.我的電腦_lb = New System.Windows.Forms.Label() Me.讀取料夾路徑_bt = New System.Windows.Forms.Button() Me.WebBrowser2 = New System.Windows.Forms.WebBrowser() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.驗貨日期_lb = New System.Windows.Forms.Label() Me.驗貨日期_dtp = New System.Windows.Forms.DateTimePicker() Me.單筆_bt = New System.Windows.Forms.Button() Me.檔案名稱_lb = New System.Windows.Forms.Label() Me.檔案名稱_tb = New System.Windows.Forms.TextBox() Me.查詢_bt = New System.Windows.Forms.Button() Me.型體名稱_tb = New System.Windows.Forms.TextBox() Me.客戶訂單號_tb = New System.Windows.Forms.TextBox() Me.型體名稱_lb = New System.Windows.Forms.Label() Me.客戶訂單號_lb = New System.Windows.Forms.Label() Me.主表單_dgv = New System.Windows.Forms.DataGridView() Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() Me.Label7 = New System.Windows.Forms.Label() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() Me.顏色_tb = New System.Windows.Forms.TextBox() Me.顏色_lb = New System.Windows.Forms.Label() Me.型體號碼_tb = New System.Windows.Forms.TextBox() Me.型體號碼_lb = New System.Windows.Forms.Label() Me.批量_bt = New System.Windows.Forms.Button() CType(Me.主表單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '文字_lb ' Me.文字_lb.AutoSize = True Me.文字_lb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.文字_lb.ForeColor = System.Drawing.Color.Red Me.文字_lb.Location = New System.Drawing.Point(1542, 0) Me.文字_lb.Name = "文字_lb" Me.文字_lb.Size = New System.Drawing.Size(265, 60) Me.文字_lb.TabIndex = 591 Me.文字_lb.Text = "驗貨報告圖庫不提供修改圖片功能," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "入圖時請小心謹慎,如有需要修改驗" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "貨報告圖片請向單位主管提出申請" ' '提醒_lb ' Me.提醒_lb.AutoSize = True Me.提醒_lb.ForeColor = System.Drawing.Color.Red Me.提醒_lb.Location = New System.Drawing.Point(226, 9) Me.提醒_lb.Name = "提醒_lb" Me.提醒_lb.Size = New System.Drawing.Size(424, 16) Me.提醒_lb.TabIndex = 590 Me.提醒_lb.Text = "如檔案無法拖曳至伺服器FTP文件夾,請修改檔案名稱不要帶有中文字或是符號" ' '伺服器FTP文件夾_lb ' Me.伺服器FTP文件夾_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.伺服器FTP文件夾_lb.AutoSize = True Me.伺服器FTP文件夾_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.伺服器FTP文件夾_lb.Location = New System.Drawing.Point(12, 706) Me.伺服器FTP文件夾_lb.Name = "伺服器FTP文件夾_lb" Me.伺服器FTP文件夾_lb.Size = New System.Drawing.Size(156, 24) Me.伺服器FTP文件夾_lb.TabIndex = 588 Me.伺服器FTP文件夾_lb.Text = "伺服器FTP文件夾" ' 'TextBox7 ' Me.TextBox7.AllowDrop = True Me.TextBox7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.TextBox7.ForeColor = System.Drawing.Color.Black Me.TextBox7.Location = New System.Drawing.Point(680, 705) Me.TextBox7.Multiline = True Me.TextBox7.Name = "TextBox7" Me.TextBox7.Size = New System.Drawing.Size(149, 23) Me.TextBox7.TabIndex = 587 ' '我的電腦_lb ' Me.我的電腦_lb.AutoSize = True Me.我的電腦_lb.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.我的電腦_lb.Location = New System.Drawing.Point(12, 5) Me.我的電腦_lb.Name = "我的電腦_lb" Me.我的電腦_lb.Size = New System.Drawing.Size(86, 24) Me.我的電腦_lb.TabIndex = 586 Me.我的電腦_lb.Text = "我的電腦" ' '讀取料夾路徑_bt ' Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(104, 5) Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt" Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(119, 24) Me.讀取料夾路徑_bt.TabIndex = 585 Me.讀取料夾路徑_bt.Text = "讀取料夾路徑" Me.讀取料夾路徑_bt.UseVisualStyleBackColor = True ' 'WebBrowser2 ' Me.WebBrowser2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.WebBrowser2.Location = New System.Drawing.Point(14, 34) Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser2.Name = "WebBrowser2" Me.WebBrowser2.Size = New System.Drawing.Size(969, 638) Me.WebBrowser2.TabIndex = 584 Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative) ' 'TextBox3 ' Me.TextBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.TextBox3.ForeColor = System.Drawing.Color.Black Me.TextBox3.Location = New System.Drawing.Point(835, 705) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(149, 23) Me.TextBox3.TabIndex = 583 ' '驗貨日期_lb ' Me.驗貨日期_lb.AutoSize = True Me.驗貨日期_lb.Location = New System.Drawing.Point(1215, 38) Me.驗貨日期_lb.Name = "驗貨日期_lb" Me.驗貨日期_lb.Size = New System.Drawing.Size(56, 16) Me.驗貨日期_lb.TabIndex = 582 Me.驗貨日期_lb.Text = "驗貨日期" ' '驗貨日期_dtp ' Me.驗貨日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.驗貨日期_dtp.Location = New System.Drawing.Point(1277, 34) Me.驗貨日期_dtp.Name = "驗貨日期_dtp" Me.驗貨日期_dtp.Size = New System.Drawing.Size(146, 23) Me.驗貨日期_dtp.TabIndex = 581 ' '單筆_bt ' Me.單筆_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.單筆_bt.ForeColor = System.Drawing.Color.Blue Me.單筆_bt.Location = New System.Drawing.Point(1429, 6) Me.單筆_bt.Name = "單筆_bt" Me.單筆_bt.Size = New System.Drawing.Size(107, 40) Me.單筆_bt.TabIndex = 580 Me.單筆_bt.Text = "單筆存檔" Me.單筆_bt.UseVisualStyleBackColor = True ' '檔案名稱_lb ' Me.檔案名稱_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.檔案名稱_lb.AutoSize = True Me.檔案名稱_lb.Location = New System.Drawing.Point(13, 681) Me.檔案名稱_lb.Name = "檔案名稱_lb" Me.檔案名稱_lb.Size = New System.Drawing.Size(56, 16) Me.檔案名稱_lb.TabIndex = 579 Me.檔案名稱_lb.Text = "檔案名稱" ' '檔案名稱_tb ' Me.檔案名稱_tb.AllowDrop = True Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black Me.檔案名稱_tb.Location = New System.Drawing.Point(75, 678) Me.檔案名稱_tb.Multiline = True Me.檔案名稱_tb.Name = "檔案名稱_tb" Me.檔案名稱_tb.Size = New System.Drawing.Size(908, 23) Me.檔案名稱_tb.TabIndex = 578 ' '查詢_bt ' Me.查詢_bt.ForeColor = System.Drawing.Color.Black Me.查詢_bt.Location = New System.Drawing.Point(1804, 6) Me.查詢_bt.Name = "查詢_bt" Me.查詢_bt.Size = New System.Drawing.Size(100, 84) Me.查詢_bt.TabIndex = 577 Me.查詢_bt.Text = "查詢" Me.查詢_bt.UseVisualStyleBackColor = True ' '型體名稱_tb ' Me.型體名稱_tb.ForeColor = System.Drawing.Color.Black Me.型體名稱_tb.Location = New System.Drawing.Point(1060, 35) Me.型體名稱_tb.Name = "型體名稱_tb" Me.型體名稱_tb.Size = New System.Drawing.Size(149, 23) Me.型體名稱_tb.TabIndex = 576 ' '客戶訂單號_tb ' Me.客戶訂單號_tb.ForeColor = System.Drawing.Color.Black Me.客戶訂單號_tb.Location = New System.Drawing.Point(1060, 6) Me.客戶訂單號_tb.Name = "客戶訂單號_tb" Me.客戶訂單號_tb.Size = New System.Drawing.Size(149, 23) Me.客戶訂單號_tb.TabIndex = 575 ' '型體名稱_lb ' Me.型體名稱_lb.AutoSize = True Me.型體名稱_lb.Location = New System.Drawing.Point(991, 38) Me.型體名稱_lb.Name = "型體名稱_lb" Me.型體名稱_lb.Size = New System.Drawing.Size(56, 16) Me.型體名稱_lb.TabIndex = 574 Me.型體名稱_lb.Text = "型體名稱" ' '客戶訂單號_lb ' Me.客戶訂單號_lb.AutoSize = True Me.客戶訂單號_lb.Location = New System.Drawing.Point(990, 9) Me.客戶訂單號_lb.Name = "客戶訂單號_lb" Me.客戶訂單號_lb.Size = New System.Drawing.Size(68, 16) Me.客戶訂單號_lb.TabIndex = 573 Me.客戶訂單號_lb.Text = "客戶訂單號" ' '主表單_dgv ' Me.主表單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.主表單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.主表單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.主表單_dgv.Location = New System.Drawing.Point(989, 94) Me.主表單_dgv.Name = "主表單_dgv" Me.主表單_dgv.RowHeadersWidth = 5 Me.主表單_dgv.RowTemplate.Height = 24 Me.主表單_dgv.Size = New System.Drawing.Size(915, 870) Me.主表單_dgv.TabIndex = 572 ' 'WebBrowser1 ' Me.WebBrowser1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.WebBrowser1.Location = New System.Drawing.Point(14, 733) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(969, 231) Me.WebBrowser1.TabIndex = 571 Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative) ' 'Label7 ' Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label7.ForeColor = System.Drawing.Color.Red Me.Label7.Location = New System.Drawing.Point(474, 698) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(46, 37) Me.Label7.TabIndex = 589 Me.Label7.Text = "↓" ' '顏色_tb ' Me.顏色_tb.ForeColor = System.Drawing.Color.Black Me.顏色_tb.Location = New System.Drawing.Point(1277, 6) Me.顏色_tb.Name = "顏色_tb" Me.顏色_tb.Size = New System.Drawing.Size(146, 23) Me.顏色_tb.TabIndex = 593 ' '顏色_lb ' Me.顏色_lb.AutoSize = True Me.顏色_lb.Location = New System.Drawing.Point(1215, 9) Me.顏色_lb.Name = "顏色_lb" Me.顏色_lb.Size = New System.Drawing.Size(32, 16) Me.顏色_lb.TabIndex = 592 Me.顏色_lb.Text = "顏色" ' '型體號碼_tb ' Me.型體號碼_tb.ForeColor = System.Drawing.Color.Black Me.型體號碼_tb.Location = New System.Drawing.Point(1060, 64) Me.型體號碼_tb.Name = "型體號碼_tb" Me.型體號碼_tb.Size = New System.Drawing.Size(149, 23) Me.型體號碼_tb.TabIndex = 595 ' '型體號碼_lb ' Me.型體號碼_lb.AutoSize = True Me.型體號碼_lb.Location = New System.Drawing.Point(991, 67) Me.型體號碼_lb.Name = "型體號碼_lb" Me.型體號碼_lb.Size = New System.Drawing.Size(56, 16) Me.型體號碼_lb.TabIndex = 594 Me.型體號碼_lb.Text = "型體號碼" ' '批量_bt ' Me.批量_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.批量_bt.ForeColor = System.Drawing.Color.Blue Me.批量_bt.Location = New System.Drawing.Point(1429, 50) Me.批量_bt.Name = "批量_bt" Me.批量_bt.Size = New System.Drawing.Size(107, 40) Me.批量_bt.TabIndex = 596 Me.批量_bt.Text = "批量存檔" Me.批量_bt.UseVisualStyleBackColor = True ' '驗貨報告圖片導入資料庫 ' 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.批量_bt) Me.Controls.Add(Me.型體號碼_tb) Me.Controls.Add(Me.型體號碼_lb) Me.Controls.Add(Me.顏色_tb) Me.Controls.Add(Me.顏色_lb) Me.Controls.Add(Me.提醒_lb) Me.Controls.Add(Me.伺服器FTP文件夾_lb) Me.Controls.Add(Me.TextBox7) Me.Controls.Add(Me.我的電腦_lb) Me.Controls.Add(Me.讀取料夾路徑_bt) Me.Controls.Add(Me.WebBrowser2) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.驗貨日期_lb) Me.Controls.Add(Me.驗貨日期_dtp) Me.Controls.Add(Me.單筆_bt) Me.Controls.Add(Me.檔案名稱_lb) Me.Controls.Add(Me.檔案名稱_tb) Me.Controls.Add(Me.查詢_bt) Me.Controls.Add(Me.型體名稱_tb) Me.Controls.Add(Me.客戶訂單號_tb) Me.Controls.Add(Me.型體名稱_lb) Me.Controls.Add(Me.客戶訂單號_lb) Me.Controls.Add(Me.主表單_dgv) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.文字_lb) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "驗貨報告圖片導入資料庫" Me.Text = "驗貨報告圖片導入資料庫" CType(Me.主表單_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 文字_lb As Label Friend WithEvents 提醒_lb As Label Friend WithEvents 伺服器FTP文件夾_lb As Label Friend WithEvents TextBox7 As TextBox Friend WithEvents 我的電腦_lb As Label Friend WithEvents 讀取料夾路徑_bt As Button Friend WithEvents WebBrowser2 As WebBrowser Friend WithEvents TextBox3 As TextBox Friend WithEvents 驗貨日期_lb As Label Friend WithEvents 驗貨日期_dtp As DateTimePicker Friend WithEvents 單筆_bt As Button Friend WithEvents 檔案名稱_lb As Label Friend WithEvents 檔案名稱_tb As TextBox Friend WithEvents 查詢_bt As Button Friend WithEvents 型體名稱_tb As TextBox Friend WithEvents 客戶訂單號_tb As TextBox Friend WithEvents 型體名稱_lb As Label Friend WithEvents 客戶訂單號_lb As Label Friend WithEvents 主表單_dgv As DataGridView Friend WithEvents WebBrowser1 As WebBrowser Friend WithEvents Label7 As Label Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog Friend WithEvents 顏色_tb As TextBox Friend WithEvents 顏色_lb As Label Friend WithEvents 型體號碼_tb As TextBox Friend WithEvents 型體號碼_lb As Label Friend WithEvents 批量_bt As Button End Class