_ 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() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.未建檔_dgv = New System.Windows.Forms.DataGridView() Me.未建人事資料表清單_lb = New System.Windows.Forms.Label() Me.人事資料表清單_lb = New System.Windows.Forms.Label() Me.在職人員_dgv = New System.Windows.Forms.DataGridView() Me.相片框_pic = New System.Windows.Forms.PictureBox() Me.員工編號_lb = New System.Windows.Forms.Label() Me.員工編號_tb = New System.Windows.Forms.TextBox() 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.入職日期_lb = New System.Windows.Forms.Label() Me.入職日期_dtp = New System.Windows.Forms.DateTimePicker() Me.人事資料建檔_bt = New System.Windows.Forms.Button() Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() Me.人事資料圖片修改存檔_bt = New System.Windows.Forms.Button() Me.伺服器FTP文件夾_lb = New System.Windows.Forms.Label() Me.WebBrowser2 = New System.Windows.Forms.WebBrowser() Me.TextBox7 = New System.Windows.Forms.TextBox() Me.我的電腦_lb = New System.Windows.Forms.Label() Me.Button4 = New System.Windows.Forms.Button() Me.檔案名稱_lb = New System.Windows.Forms.Label() Me.檔案名稱_tb = New System.Windows.Forms.TextBox() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() Me.離職日期_dtp = New System.Windows.Forms.TextBox() Me.離職日期_lb = New System.Windows.Forms.Label() Me.人員離職_bt = New System.Windows.Forms.Button() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.日期確定_bt = New System.Windows.Forms.Button() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.在職天數_tb = New System.Windows.Forms.TextBox() Me.在職天數_lb = New System.Windows.Forms.Label() CType(Me.未建檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.在職人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.相片框_pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox1.SuspendLayout() Me.SuspendLayout() ' '未建檔_dgv ' DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.未建檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.未建檔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.未建檔_dgv.BackgroundColor = System.Drawing.Color.White Me.未建檔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.未建檔_dgv.Location = New System.Drawing.Point(4, 22) Me.未建檔_dgv.Name = "未建檔_dgv" Me.未建檔_dgv.RowHeadersWidth = 5 Me.未建檔_dgv.RowTemplate.Height = 24 Me.未建檔_dgv.Size = New System.Drawing.Size(175, 162) Me.未建檔_dgv.TabIndex = 22 ' '未建人事資料表清單_lb ' Me.未建人事資料表清單_lb.AutoSize = True Me.未建人事資料表清單_lb.Location = New System.Drawing.Point(4, 3) Me.未建人事資料表清單_lb.Name = "未建人事資料表清單_lb" Me.未建人事資料表清單_lb.Size = New System.Drawing.Size(116, 16) Me.未建人事資料表清單_lb.TabIndex = 23 Me.未建人事資料表清單_lb.Text = "未建人事資料表清單" ' '人事資料表清單_lb ' Me.人事資料表清單_lb.AutoSize = True Me.人事資料表清單_lb.Location = New System.Drawing.Point(4, 186) Me.人事資料表清單_lb.Name = "人事資料表清單_lb" Me.人事資料表清單_lb.Size = New System.Drawing.Size(92, 16) Me.人事資料表清單_lb.TabIndex = 25 Me.人事資料表清單_lb.Text = "人事資料表清單" ' '在職人員_dgv ' 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.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.在職人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.在職人員_dgv.BackgroundColor = System.Drawing.Color.White Me.在職人員_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.在職人員_dgv.Location = New System.Drawing.Point(4, 205) Me.在職人員_dgv.Name = "在職人員_dgv" Me.在職人員_dgv.RowHeadersWidth = 5 Me.在職人員_dgv.RowTemplate.Height = 24 Me.在職人員_dgv.Size = New System.Drawing.Size(175, 473) Me.在職人員_dgv.TabIndex = 24 ' '相片框_pic ' Me.相片框_pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.相片框_pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.相片框_pic.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.相片框_pic.Location = New System.Drawing.Point(183, 54) Me.相片框_pic.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.相片框_pic.Name = "相片框_pic" Me.相片框_pic.Size = New System.Drawing.Size(563, 625) Me.相片框_pic.TabIndex = 575 Me.相片框_pic.TabStop = False ' '員工編號_lb ' Me.員工編號_lb.AutoSize = True Me.員工編號_lb.Location = New System.Drawing.Point(182, 5) Me.員工編號_lb.Name = "員工編號_lb" Me.員工編號_lb.Size = New System.Drawing.Size(56, 16) Me.員工編號_lb.TabIndex = 576 Me.員工編號_lb.Text = "員工編號" ' '員工編號_tb ' Me.員工編號_tb.Location = New System.Drawing.Point(237, 2) Me.員工編號_tb.Name = "員工編號_tb" Me.員工編號_tb.Size = New System.Drawing.Size(100, 23) Me.員工編號_tb.TabIndex = 577 ' '登入姓名_tb ' Me.登入姓名_tb.Location = New System.Drawing.Point(419, 2) Me.登入姓名_tb.Name = "登入姓名_tb" Me.登入姓名_tb.Size = New System.Drawing.Size(99, 23) Me.登入姓名_tb.TabIndex = 579 ' '系統登入姓名_lb ' Me.系統登入姓名_lb.AutoSize = True Me.系統登入姓名_lb.Location = New System.Drawing.Point(339, 5) Me.系統登入姓名_lb.Name = "系統登入姓名_lb" Me.系統登入姓名_lb.Size = New System.Drawing.Size(80, 16) Me.系統登入姓名_lb.TabIndex = 578 Me.系統登入姓名_lb.Text = "系統登入姓名" ' '姓名_tb ' Me.姓名_tb.Location = New System.Drawing.Point(237, 27) Me.姓名_tb.Name = "姓名_tb" Me.姓名_tb.Size = New System.Drawing.Size(100, 23) Me.姓名_tb.TabIndex = 581 ' '姓名_lb ' Me.姓名_lb.AutoSize = True Me.姓名_lb.Location = New System.Drawing.Point(185, 30) Me.姓名_lb.Name = "姓名_lb" Me.姓名_lb.Size = New System.Drawing.Size(32, 16) Me.姓名_lb.TabIndex = 580 Me.姓名_lb.Text = "姓名" ' '入職日期_lb ' Me.入職日期_lb.AutoSize = True Me.入職日期_lb.Location = New System.Drawing.Point(358, 30) 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(420, 27) Me.入職日期_dtp.Name = "入職日期_dtp" Me.入職日期_dtp.Size = New System.Drawing.Size(98, 23) Me.入職日期_dtp.TabIndex = 583 ' '人事資料建檔_bt ' Me.人事資料建檔_bt.Location = New System.Drawing.Point(644, 0) Me.人事資料建檔_bt.Name = "人事資料建檔_bt" Me.人事資料建檔_bt.Size = New System.Drawing.Size(102, 26) Me.人事資料建檔_bt.TabIndex = 584 Me.人事資料建檔_bt.Text = "人事資料建檔" Me.人事資料建檔_bt.UseVisualStyleBackColor = True ' 'WebBrowser1 ' Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.WebBrowser1.Location = New System.Drawing.Point(752, 476) Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(592, 201) Me.WebBrowser1.TabIndex = 602 Me.WebBrowser1.Url = New System.Uri("", System.UriKind.Relative) ' '人事資料圖片修改存檔_bt ' Me.人事資料圖片修改存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.人事資料圖片修改存檔_bt.ForeColor = System.Drawing.Color.Green Me.人事資料圖片修改存檔_bt.Location = New System.Drawing.Point(1201, 2) Me.人事資料圖片修改存檔_bt.Name = "人事資料圖片修改存檔_bt" Me.人事資料圖片修改存檔_bt.Size = New System.Drawing.Size(143, 24) Me.人事資料圖片修改存檔_bt.TabIndex = 601 Me.人事資料圖片修改存檔_bt.Text = "人事資料圖片修改存檔" Me.人事資料圖片修改存檔_bt.UseVisualStyleBackColor = True ' '伺服器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(752, 425) Me.伺服器FTP文件夾_lb.Name = "伺服器FTP文件夾_lb" Me.伺服器FTP文件夾_lb.Size = New System.Drawing.Size(156, 24) Me.伺服器FTP文件夾_lb.TabIndex = 599 Me.伺服器FTP文件夾_lb.Text = "伺服器FTP文件夾" ' 'WebBrowser2 ' Me.WebBrowser2.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.WebBrowser2.Location = New System.Drawing.Point(752, 29) Me.WebBrowser2.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser2.Name = "WebBrowser2" Me.WebBrowser2.Size = New System.Drawing.Size(592, 395) Me.WebBrowser2.TabIndex = 598 Me.WebBrowser2.Url = New System.Uri("", System.UriKind.Relative) ' 'TextBox7 ' Me.TextBox7.AllowDrop = True Me.TextBox7.ForeColor = System.Drawing.Color.Black Me.TextBox7.Location = New System.Drawing.Point(965, 2) Me.TextBox7.Multiline = True Me.TextBox7.Name = "TextBox7" Me.TextBox7.Size = New System.Drawing.Size(184, 23) Me.TextBox7.TabIndex = 597 ' '我的電腦_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(748, 2) Me.我的電腦_lb.Name = "我的電腦_lb" Me.我的電腦_lb.Size = New System.Drawing.Size(86, 24) Me.我的電腦_lb.TabIndex = 596 Me.我的電腦_lb.Text = "我的電腦" ' 'Button4 ' Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Button4.ForeColor = System.Drawing.Color.Blue Me.Button4.Location = New System.Drawing.Point(840, 2) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(119, 24) Me.Button4.TabIndex = 595 Me.Button4.Text = "讀取料夾路徑" Me.Button4.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(753, 452) Me.檔案名稱_lb.Name = "檔案名稱_lb" Me.檔案名稱_lb.Size = New System.Drawing.Size(56, 16) Me.檔案名稱_lb.TabIndex = 594 Me.檔案名稱_lb.Text = "檔案名稱" ' '檔案名稱_tb ' Me.檔案名稱_tb.AllowDrop = True Me.檔案名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.檔案名稱_tb.Location = New System.Drawing.Point(815, 449) Me.檔案名稱_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.檔案名稱_tb.Multiline = True Me.檔案名稱_tb.Name = "檔案名稱_tb" Me.檔案名稱_tb.Size = New System.Drawing.Size(529, 23) Me.檔案名稱_tb.TabIndex = 593 ' 'SaveFileDialog1 ' Me.SaveFileDialog1.DefaultExt = "jpg" Me.SaveFileDialog1.SupportMultiDottedExtensions = True Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑" ' '離職日期_dtp ' Me.離職日期_dtp.Location = New System.Drawing.Point(586, 27) Me.離職日期_dtp.Name = "離職日期_dtp" Me.離職日期_dtp.Size = New System.Drawing.Size(56, 23) Me.離職日期_dtp.TabIndex = 604 ' '離職日期_lb ' Me.離職日期_lb.AutoSize = True Me.離職日期_lb.Location = New System.Drawing.Point(524, 30) Me.離職日期_lb.Name = "離職日期_lb" Me.離職日期_lb.Size = New System.Drawing.Size(56, 16) Me.離職日期_lb.TabIndex = 603 Me.離職日期_lb.Text = "離職日期" ' '人員離職_bt ' Me.人員離職_bt.Location = New System.Drawing.Point(644, 25) Me.人員離職_bt.Name = "人員離職_bt" Me.人員離職_bt.Size = New System.Drawing.Size(102, 26) Me.人員離職_bt.TabIndex = 605 Me.人員離職_bt.Text = "人員離職" Me.人員離職_bt.UseVisualStyleBackColor = True ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.日期確定_bt) Me.GroupBox1.Controls.Add(Me.DateTimePicker2) Me.GroupBox1.Location = New System.Drawing.Point(380, 135) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(200, 49) Me.GroupBox1.TabIndex = 606 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "離職日期確認" ' '日期確定_bt ' Me.日期確定_bt.Location = New System.Drawing.Point(107, 21) Me.日期確定_bt.Name = "日期確定_bt" Me.日期確定_bt.Size = New System.Drawing.Size(84, 23) Me.日期確定_bt.TabIndex = 606 Me.日期確定_bt.Text = "日期確認" Me.日期確定_bt.UseVisualStyleBackColor = True ' 'DateTimePicker2 ' Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker2.Location = New System.Drawing.Point(6, 22) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Size = New System.Drawing.Size(98, 23) Me.DateTimePicker2.TabIndex = 584 ' '在職天數_tb ' Me.在職天數_tb.Location = New System.Drawing.Point(586, 2) Me.在職天數_tb.Name = "在職天數_tb" Me.在職天數_tb.Size = New System.Drawing.Size(56, 23) Me.在職天數_tb.TabIndex = 608 ' '在職天數_lb ' Me.在職天數_lb.AutoSize = True Me.在職天數_lb.Location = New System.Drawing.Point(524, 5) Me.在職天數_lb.Name = "在職天數_lb" Me.在職天數_lb.Size = New System.Drawing.Size(56, 16) Me.在職天數_lb.TabIndex = 607 Me.在職天數_lb.Text = "在職天數" ' '人員入職資料表 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1349, 681) Me.Controls.Add(Me.在職天數_tb) Me.Controls.Add(Me.在職天數_lb) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.人員離職_bt) Me.Controls.Add(Me.離職日期_dtp) Me.Controls.Add(Me.離職日期_lb) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.人事資料圖片修改存檔_bt) Me.Controls.Add(Me.伺服器FTP文件夾_lb) Me.Controls.Add(Me.WebBrowser2) Me.Controls.Add(Me.TextBox7) Me.Controls.Add(Me.我的電腦_lb) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.檔案名稱_lb) Me.Controls.Add(Me.檔案名稱_tb) Me.Controls.Add(Me.人事資料建檔_bt) Me.Controls.Add(Me.入職日期_dtp) Me.Controls.Add(Me.入職日期_lb) Me.Controls.Add(Me.姓名_tb) Me.Controls.Add(Me.姓名_lb) Me.Controls.Add(Me.登入姓名_tb) Me.Controls.Add(Me.系統登入姓名_lb) Me.Controls.Add(Me.員工編號_tb) Me.Controls.Add(Me.員工編號_lb) Me.Controls.Add(Me.相片框_pic) Me.Controls.Add(Me.人事資料表清單_lb) Me.Controls.Add(Me.在職人員_dgv) Me.Controls.Add(Me.未建人事資料表清單_lb) Me.Controls.Add(Me.未建檔_dgv) 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() CType(Me.在職人員_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.相片框_pic, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 未建檔_dgv As DataGridView Friend WithEvents 未建人事資料表清單_lb As Label Friend WithEvents 人事資料表清單_lb As Label Friend WithEvents 在職人員_dgv As DataGridView Friend WithEvents 相片框_pic As PictureBox Friend WithEvents 員工編號_lb As Label Friend WithEvents 員工編號_tb As TextBox Friend WithEvents 登入姓名_tb As TextBox Friend WithEvents 系統登入姓名_lb As Label Friend WithEvents 姓名_tb As TextBox Friend WithEvents 姓名_lb As Label Friend WithEvents 入職日期_lb As Label Friend WithEvents 入職日期_dtp As DateTimePicker Friend WithEvents 人事資料建檔_bt As Button Friend WithEvents WebBrowser1 As WebBrowser Friend WithEvents 人事資料圖片修改存檔_bt As Button Friend WithEvents 伺服器FTP文件夾_lb As Label Friend WithEvents WebBrowser2 As WebBrowser Friend WithEvents TextBox7 As TextBox Friend WithEvents 我的電腦_lb As Label Friend WithEvents Button4 As Button Friend WithEvents 檔案名稱_lb As Label Friend WithEvents 檔案名稱_tb As TextBox Friend WithEvents SaveFileDialog1 As SaveFileDialog Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog Friend WithEvents 離職日期_dtp As TextBox Friend WithEvents 離職日期_lb As Label Friend WithEvents 人員離職_bt As Button Friend WithEvents GroupBox1 As GroupBox Friend WithEvents 日期確定_bt As Button Friend WithEvents DateTimePicker2 As DateTimePicker Friend WithEvents 在職天數_tb As TextBox Friend WithEvents 在職天數_lb As Label End Class