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 DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.組織圖_tv = New System.Windows.Forms.TreeView() Me.部門2_tb = New System.Windows.Forms.TextBox() Me.清單_dgv = New System.Windows.Forms.DataGridView() Me.Label2 = New System.Windows.Forms.Label() Me.存檔_bt = New System.Windows.Forms.Button() Me.選定權限取消_bt = New System.Windows.Forms.Button() Me.部門權限指定_bt = New System.Windows.Forms.Button() Me.級別1_tb = New System.Windows.Forms.TextBox() Me.組別1_tb = New System.Windows.Forms.TextBox() Me.課別1_tb = New System.Windows.Forms.TextBox() Me.處別1_tb = New System.Windows.Forms.TextBox() Me.部門1_tb = New System.Windows.Forms.TextBox() Me.級別_lb = New System.Windows.Forms.Label() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.帳號_tb = New System.Windows.Forms.TextBox() Me.姓名_tb = New System.Windows.Forms.TextBox() Me.組別_tb = New System.Windows.Forms.TextBox() Me.課別_tb = New System.Windows.Forms.TextBox() Me.處別_tb = New System.Windows.Forms.TextBox() Me.部門_tb = New System.Windows.Forms.TextBox() Me.級別_tb = New System.Windows.Forms.TextBox() Me.設定_dgv = New System.Windows.Forms.DataGridView() Me.文字_lb = New System.Windows.Forms.Label() Me.小間距1_ch = New System.Windows.Forms.CheckBox() Me.中間距1_ch = New System.Windows.Forms.CheckBox() Me.大間距1_ch = New System.Windows.Forms.CheckBox() Me.大間距_ch = New System.Windows.Forms.CheckBox() Me.中間距_ch = New System.Windows.Forms.CheckBox() Me.小間距_ch = New System.Windows.Forms.CheckBox() Me.語言_dgv = New System.Windows.Forms.DataGridView() Me.語轉扭_bt = New System.Windows.Forms.Button() CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.設定_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.語言_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '組織圖_tv ' Me.組織圖_tv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.組織圖_tv.HotTracking = True Me.組織圖_tv.Indent = 20 Me.組織圖_tv.ItemHeight = 20 Me.組織圖_tv.Location = New System.Drawing.Point(5, 4) Me.組織圖_tv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.組織圖_tv.Name = "組織圖_tv" Me.組織圖_tv.Size = New System.Drawing.Size(323, 323) Me.組織圖_tv.TabIndex = 0 ' '部門2_tb ' Me.部門2_tb.Location = New System.Drawing.Point(5, 333) Me.部門2_tb.Name = "部門2_tb" Me.部門2_tb.Size = New System.Drawing.Size(200, 23) Me.部門2_tb.TabIndex = 734 ' '清單_dgv ' 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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.清單_dgv.Location = New System.Drawing.Point(3, 361) Me.清單_dgv.Name = "清單_dgv" Me.清單_dgv.RowHeadersWidth = 5 DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle15 Me.清單_dgv.RowTemplate.Height = 24 Me.清單_dgv.Size = New System.Drawing.Size(330, 318) Me.清單_dgv.TabIndex = 735 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(335, 43) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(53, 16) Me.Label2.TabIndex = 1026 Me.Label2.Text = "No Files" ' '存檔_bt ' Me.存檔_bt.ForeColor = System.Drawing.Color.Green Me.存檔_bt.Location = New System.Drawing.Point(1061, 71) Me.存檔_bt.Name = "存檔_bt" Me.存檔_bt.Size = New System.Drawing.Size(280, 25) Me.存檔_bt.TabIndex = 1025 Me.存檔_bt.Text = "存檔" Me.存檔_bt.UseVisualStyleBackColor = True ' '選定權限取消_bt ' Me.選定權限取消_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) Me.選定權限取消_bt.Location = New System.Drawing.Point(1203, 110) Me.選定權限取消_bt.Name = "選定權限取消_bt" Me.選定權限取消_bt.Size = New System.Drawing.Size(140, 25) Me.選定權限取消_bt.TabIndex = 1024 Me.選定權限取消_bt.Text = "選定權限取消" Me.選定權限取消_bt.UseVisualStyleBackColor = True ' '部門權限指定_bt ' Me.部門權限指定_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) Me.部門權限指定_bt.Location = New System.Drawing.Point(1060, 110) Me.部門權限指定_bt.Name = "部門權限指定_bt" Me.部門權限指定_bt.Size = New System.Drawing.Size(140, 25) Me.部門權限指定_bt.TabIndex = 1023 Me.部門權限指定_bt.Text = "部門權限指定" Me.部門權限指定_bt.UseVisualStyleBackColor = True ' '級別1_tb ' Me.級別1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.級別1_tb.Location = New System.Drawing.Point(548, 38) Me.級別1_tb.Name = "級別1_tb" Me.級別1_tb.Size = New System.Drawing.Size(51, 25) Me.級別1_tb.TabIndex = 1022 ' '組別1_tb ' Me.組別1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.組別1_tb.Location = New System.Drawing.Point(1233, 40) Me.組別1_tb.Name = "組別1_tb" Me.組別1_tb.Size = New System.Drawing.Size(110, 25) Me.組別1_tb.TabIndex = 1021 ' '課別1_tb ' Me.課別1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.課別1_tb.Location = New System.Drawing.Point(1024, 39) Me.課別1_tb.Name = "課別1_tb" Me.課別1_tb.Size = New System.Drawing.Size(203, 25) Me.課別1_tb.TabIndex = 1020 ' '處別1_tb ' Me.處別1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.處別1_tb.Location = New System.Drawing.Point(815, 39) Me.處別1_tb.Name = "處別1_tb" Me.處別1_tb.Size = New System.Drawing.Size(203, 25) Me.處別1_tb.TabIndex = 1019 ' '部門1_tb ' Me.部門1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.部門1_tb.Location = New System.Drawing.Point(607, 38) Me.部門1_tb.Name = "部門1_tb" Me.部門1_tb.Size = New System.Drawing.Size(203, 25) Me.部門1_tb.TabIndex = 1018 ' '級別_lb ' Me.級別_lb.AutoSize = True Me.級別_lb.Location = New System.Drawing.Point(499, 13) Me.級別_lb.Name = "級別_lb" Me.級別_lb.Size = New System.Drawing.Size(32, 16) Me.級別_lb.TabIndex = 1017 Me.級別_lb.Text = "級別" ' 'DateTimePicker2 ' Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker2.Location = New System.Drawing.Point(403, 39) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Size = New System.Drawing.Size(87, 23) Me.DateTimePicker2.TabIndex = 1016 Me.DateTimePicker2.Visible = False ' '帳號_tb ' Me.帳號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.帳號_tb.Location = New System.Drawing.Point(958, 459) Me.帳號_tb.Name = "帳號_tb" Me.帳號_tb.Size = New System.Drawing.Size(87, 25) Me.帳號_tb.TabIndex = 1015 Me.帳號_tb.Visible = False ' '姓名_tb ' Me.姓名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.姓名_tb.Location = New System.Drawing.Point(338, 9) Me.姓名_tb.Name = "姓名_tb" Me.姓名_tb.Size = New System.Drawing.Size(152, 25) Me.姓名_tb.TabIndex = 1014 ' '組別_tb ' Me.組別_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.組別_tb.Location = New System.Drawing.Point(1232, 8) Me.組別_tb.Name = "組別_tb" Me.組別_tb.Size = New System.Drawing.Size(110, 25) Me.組別_tb.TabIndex = 1013 ' '課別_tb ' Me.課別_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.課別_tb.Location = New System.Drawing.Point(1024, 8) Me.課別_tb.Name = "課別_tb" Me.課別_tb.Size = New System.Drawing.Size(203, 25) Me.課別_tb.TabIndex = 1012 ' '處別_tb ' Me.處別_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.處別_tb.Location = New System.Drawing.Point(815, 7) Me.處別_tb.Name = "處別_tb" Me.處別_tb.Size = New System.Drawing.Size(203, 25) Me.處別_tb.TabIndex = 1011 ' '部門_tb ' Me.部門_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.部門_tb.Location = New System.Drawing.Point(608, 7) Me.部門_tb.Name = "部門_tb" Me.部門_tb.Size = New System.Drawing.Size(203, 25) Me.部門_tb.TabIndex = 1010 ' '級別_tb ' Me.級別_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.級別_tb.Location = New System.Drawing.Point(548, 7) Me.級別_tb.Name = "級別_tb" Me.級別_tb.Size = New System.Drawing.Size(51, 25) Me.級別_tb.TabIndex = 1009 ' '設定_dgv ' 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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.設定_dgv.Location = New System.Drawing.Point(336, 150) Me.設定_dgv.Name = "設定_dgv" Me.設定_dgv.RowHeadersWidth = 5 DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.設定_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16 Me.設定_dgv.RowTemplate.Height = 24 Me.設定_dgv.Size = New System.Drawing.Size(1006, 530) Me.設定_dgv.TabIndex = 1008 ' '文字_lb ' Me.文字_lb.AutoSize = True Me.文字_lb.Font = New System.Drawing.Font("微軟正黑體", 9.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(341, 68) Me.文字_lb.Name = "文字_lb" Me.文字_lb.Size = New System.Drawing.Size(602, 48) Me.文字_lb.TabIndex = 1027 Me.文字_lb.Text = "本介面屬於人事部門使用功能。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、5級以下由人事部職員設定, 2、公司5級以上的人事管理權限須由4級人事主管指定。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、公司" & "4級以上的人事管理權限須由3級人事主管指定。 4、3級以上人事管理權限須由2級執行長指定。" ' '小間距1_ch ' Me.小間距1_ch.AutoSize = True Me.小間距1_ch.Location = New System.Drawing.Point(892, 69) Me.小間距1_ch.Name = "小間距1_ch" Me.小間距1_ch.Size = New System.Drawing.Size(40, 20) Me.小間距1_ch.TabIndex = 1342 Me.小間距1_ch.Text = "L1" Me.小間距1_ch.UseVisualStyleBackColor = True ' '中間距1_ch ' Me.中間距1_ch.AutoSize = True Me.中間距1_ch.Location = New System.Drawing.Point(940, 69) Me.中間距1_ch.Name = "中間距1_ch" Me.中間距1_ch.Size = New System.Drawing.Size(40, 20) Me.中間距1_ch.TabIndex = 1343 Me.中間距1_ch.Text = "L2" Me.中間距1_ch.UseVisualStyleBackColor = True ' '大間距1_ch ' Me.大間距1_ch.AutoSize = True Me.大間距1_ch.Location = New System.Drawing.Point(984, 69) Me.大間距1_ch.Name = "大間距1_ch" Me.大間距1_ch.Size = New System.Drawing.Size(40, 20) Me.大間距1_ch.TabIndex = 1344 Me.大間距1_ch.Text = "L3" Me.大間距1_ch.UseVisualStyleBackColor = True ' '大間距_ch ' Me.大間距_ch.AutoSize = True Me.大間距_ch.Location = New System.Drawing.Point(294, 336) Me.大間距_ch.Name = "大間距_ch" Me.大間距_ch.Size = New System.Drawing.Size(40, 20) Me.大間距_ch.TabIndex = 1347 Me.大間距_ch.Text = "L3" Me.大間距_ch.UseVisualStyleBackColor = True ' '中間距_ch ' Me.中間距_ch.AutoSize = True Me.中間距_ch.Location = New System.Drawing.Point(253, 336) Me.中間距_ch.Name = "中間距_ch" Me.中間距_ch.Size = New System.Drawing.Size(40, 20) Me.中間距_ch.TabIndex = 1346 Me.中間距_ch.Text = "L2" Me.中間距_ch.UseVisualStyleBackColor = True ' '小間距_ch ' Me.小間距_ch.AutoSize = True Me.小間距_ch.Location = New System.Drawing.Point(212, 336) Me.小間距_ch.Name = "小間距_ch" Me.小間距_ch.Size = New System.Drawing.Size(40, 20) Me.小間距_ch.TabIndex = 1345 Me.小間距_ch.Text = "L1" Me.小間距_ch.UseVisualStyleBackColor = True ' '語言_dgv ' Me.語言_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.語言_dgv.Location = New System.Drawing.Point(515, 265) Me.語言_dgv.Name = "語言_dgv" Me.語言_dgv.RowTemplate.Height = 24 Me.語言_dgv.Size = New System.Drawing.Size(158, 73) Me.語言_dgv.TabIndex = 1348 Me.語言_dgv.Visible = False ' '語轉扭_bt ' Me.語轉扭_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.Black Me.語轉扭_bt.Location = New System.Drawing.Point(1028, 67) Me.語轉扭_bt.Name = "語轉扭_bt" Me.語轉扭_bt.Size = New System.Drawing.Size(25, 25) Me.語轉扭_bt.TabIndex = 1349 Me.語轉扭_bt.Text = "L" 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(1350, 681) Me.Controls.Add(Me.語轉扭_bt) Me.Controls.Add(Me.語言_dgv) Me.Controls.Add(Me.大間距_ch) Me.Controls.Add(Me.中間距_ch) Me.Controls.Add(Me.小間距_ch) Me.Controls.Add(Me.大間距1_ch) Me.Controls.Add(Me.中間距1_ch) Me.Controls.Add(Me.小間距1_ch) Me.Controls.Add(Me.文字_lb) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.存檔_bt) Me.Controls.Add(Me.選定權限取消_bt) Me.Controls.Add(Me.部門權限指定_bt) Me.Controls.Add(Me.級別1_tb) Me.Controls.Add(Me.組別1_tb) Me.Controls.Add(Me.課別1_tb) Me.Controls.Add(Me.處別1_tb) Me.Controls.Add(Me.部門1_tb) Me.Controls.Add(Me.級別_lb) Me.Controls.Add(Me.DateTimePicker2) Me.Controls.Add(Me.帳號_tb) Me.Controls.Add(Me.姓名_tb) Me.Controls.Add(Me.組別_tb) Me.Controls.Add(Me.課別_tb) Me.Controls.Add(Me.處別_tb) Me.Controls.Add(Me.部門_tb) Me.Controls.Add(Me.級別_tb) Me.Controls.Add(Me.設定_dgv) Me.Controls.Add(Me.清單_dgv) Me.Controls.Add(Me.部門2_tb) Me.Controls.Add(Me.組織圖_tv) 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.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "系統組織結構與權限設定" CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.設定_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.語言_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 組織圖_tv As TreeView Friend WithEvents 部門2_tb As TextBox Friend WithEvents 清單_dgv As DataGridView Friend WithEvents Label2 As Label Friend WithEvents 存檔_bt As Button Friend WithEvents 選定權限取消_bt As Button Friend WithEvents 部門權限指定_bt As Button Friend WithEvents 級別1_tb As TextBox Friend WithEvents 組別1_tb As TextBox Friend WithEvents 課別1_tb As TextBox Friend WithEvents 處別1_tb As TextBox Friend WithEvents 部門1_tb As TextBox Friend WithEvents 級別_lb As Label Friend WithEvents DateTimePicker2 As DateTimePicker Friend WithEvents 帳號_tb As TextBox Friend WithEvents 姓名_tb As TextBox Friend WithEvents 組別_tb As TextBox Friend WithEvents 課別_tb As TextBox Friend WithEvents 處別_tb As TextBox Friend WithEvents 部門_tb As TextBox Friend WithEvents 級別_tb As TextBox Friend WithEvents 設定_dgv As DataGridView Friend WithEvents 文字_lb As Label Friend WithEvents 小間距1_ch As CheckBox Friend WithEvents 中間距1_ch As CheckBox Friend WithEvents 大間距1_ch As CheckBox Friend WithEvents 大間距_ch As CheckBox Friend WithEvents 中間距_ch As CheckBox Friend WithEvents 小間距_ch As CheckBox Friend WithEvents 語言_dgv As DataGridView Friend WithEvents 語轉扭_bt As Button End Class