コミット: 367 - CTraining (svn)

練習用です。いろんなものがごちゃまぜです。

コミットメタ情報

• リビジョン: 367 (tree)
• 日時: 2017-10-11 13:33:24
• 作者: bellyoshi

ログメッセージ

変更サマリ

• modified: vbdb/accdb1/accdb1/accdb1.vbproj
• added: vbdb/accdb1/accdb1/commonUtils.vb
• modified: vbdb/accdb1/accdb1/frmStaff.Designer.vb
• modified: vbdb/accdb1/accdb1/frmStaff.resx
• modified: vbdb/accdb1/accdb1/frmStaff.vb
• modified: vbdb/accdb1/accdb1/projectManage.accdb
• modified: vbdb/accdb1/accdb1/projectManageDataSet.Designer.vb
• modified: vbdb/accdb1/accdb1/projectManageDataSet.xsc
• modified: vbdb/accdb1/accdb1/projectManageDataSet.xsd
• modified: vbdb/accdb1/accdb1/projectManageDataSet.xss

差分

--- vbdb/accdb1/accdb1/commonUtils.vb	(nonexistent)
+++ vbdb/accdb1/accdb1/commonUtils.vb	(revision 367)
@@ -0,0 +1,7 @@
+Public Class commonUtils
+    Public Shared Sub Setdrv(ByVal drv As Data.DataRowView, ByVal itemName As String, itemValue As Integer)
+        If IsDBNull(drv(itemName)) OrElse drv(itemName) <> itemValue Then
+            drv(itemName) = itemValue
+        End If
+    End Sub
+End Class

--- vbdb/accdb1/accdb1/frmStaff.Designer.vb	(revision 366)
+++ vbdb/accdb1/accdb1/frmStaff.Designer.vb	(revision 367)
@@ -23,78 +23,134 @@
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStaff))
         Dim Staff_codeLabel As System.Windows.Forms.Label
         Dim Staff_nameLabel As System.Windows.Forms.Label
         Dim Staff_kanaLabel As System.Windows.Forms.Label
-        Dim Staff_sexLabel As System.Windows.Forms.Label
         Dim Staff_sectionLabel As System.Windows.Forms.Label
         Dim EmailLabel As System.Windows.Forms.Label
         Dim Ext_phoneLabel As System.Windows.Forms.Label
         Dim MemoLabel As System.Windows.Forms.Label
         Dim Input_dateLabel As System.Windows.Forms.Label
-        Me.ProjectManageDataSet = New accdb1.projectManageDataSet()
-        Me.Tbl_staffBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.Tbl_staffTableAdapter = New accdb1.projectManageDataSetTableAdapters.tbl_staffTableAdapter()
-        Me.TableAdapterManager = New accdb1.projectManageDataSetTableAdapters.TableAdapterManager()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStaff))
         Me.Tbl_staffBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
+        Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
         Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
-        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
         Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
         Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
-        Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
         Me.Tbl_staffBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
         Me.Staff_codeTextBox = New System.Windows.Forms.TextBox()
         Me.Staff_nameTextBox = New System.Windows.Forms.TextBox()
         Me.Staff_kanaTextBox = New System.Windows.Forms.TextBox()
-        Me.Staff_sexTextBox = New System.Windows.Forms.TextBox()
-        Me.Staff_sectionTextBox = New System.Windows.Forms.TextBox()
         Me.EmailTextBox = New System.Windows.Forms.TextBox()
         Me.Ext_phoneTextBox = New System.Windows.Forms.TextBox()
         Me.Resign_flagCheckBox = New System.Windows.Forms.CheckBox()
         Me.MemoTextBox = New System.Windows.Forms.TextBox()
         Me.Input_dateDateTimePicker = New System.Windows.Forms.DateTimePicker()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.rbFemale = New System.Windows.Forms.RadioButton()
+        Me.rbMale = New System.Windows.Forms.RadioButton()
+        Me.Tbl_staffBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.ProjectManageDataSet = New accdb1.projectManageDataSet()
+        Me.Tbl_staffTableAdapter = New accdb1.projectManageDataSetTableAdapters.tbl_staffTableAdapter()
+        Me.TableAdapterManager = New accdb1.projectManageDataSetTableAdapters.TableAdapterManager()
+        Me.Staff_sectionComboBox = New System.Windows.Forms.ComboBox()
+        Me.Tbl_sectionBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.Tbl_sectionTableAdapter = New accdb1.projectManageDataSetTableAdapters.tbl_sectionTableAdapter()
         Staff_codeLabel = New System.Windows.Forms.Label()
         Staff_nameLabel = New System.Windows.Forms.Label()
         Staff_kanaLabel = New System.Windows.Forms.Label()
-        Staff_sexLabel = New System.Windows.Forms.Label()
         Staff_sectionLabel = New System.Windows.Forms.Label()
         EmailLabel = New System.Windows.Forms.Label()
         Ext_phoneLabel = New System.Windows.Forms.Label()
         MemoLabel = New System.Windows.Forms.Label()
         Input_dateLabel = New System.Windows.Forms.Label()
-        CType(Me.ProjectManageDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Tbl_staffBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Tbl_staffBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Tbl_staffBindingNavigator.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.Tbl_staffBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ProjectManageDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Tbl_sectionBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'ProjectManageDataSet
+        'Staff_codeLabel
         '
-        Me.ProjectManageDataSet.DataSetName = "projectManageDataSet"
-        Me.ProjectManageDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        Staff_codeLabel.AutoSize = True
+        Staff_codeLabel.Location = New System.Drawing.Point(23, 39)
+        Staff_codeLabel.Name = "Staff_codeLabel"
+        Staff_codeLabel.Size = New System.Drawing.Size(80, 15)
+        Staff_codeLabel.TabIndex = 1
+        Staff_codeLabel.Text = "スタッフコード"
         '
-        'Tbl_staffBindingSource
+        'Staff_nameLabel
         '
-        Me.Tbl_staffBindingSource.DataMember = "tbl_staff"
-        Me.Tbl_staffBindingSource.DataSource = Me.ProjectManageDataSet
+        Staff_nameLabel.AutoSize = True
+        Staff_nameLabel.Location = New System.Drawing.Point(23, 67)
+        Staff_nameLabel.Name = "Staff_nameLabel"
+        Staff_nameLabel.Size = New System.Drawing.Size(62, 15)
+        Staff_nameLabel.TabIndex = 3
+        Staff_nameLabel.Text = "スタッフ名"
         '
-        'Tbl_staffTableAdapter
+        'Staff_kanaLabel
         '
-        Me.Tbl_staffTableAdapter.ClearBeforeFill = True
+        Staff_kanaLabel.AutoSize = True
+        Staff_kanaLabel.Location = New System.Drawing.Point(23, 95)
+        Staff_kanaLabel.Name = "Staff_kanaLabel"
+        Staff_kanaLabel.Size = New System.Drawing.Size(85, 15)
+        Staff_kanaLabel.TabIndex = 5
+        Staff_kanaLabel.Text = "スタッフ名カナ"
         '
-        'TableAdapterManager
+        'Staff_sectionLabel
         '
-        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
-        Me.TableAdapterManager.tbl_staffTableAdapter = Me.Tbl_staffTableAdapter
-        Me.TableAdapterManager.UpdateOrder = accdb1.projectManageDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        Staff_sectionLabel.AutoSize = True
+        Staff_sectionLabel.Location = New System.Drawing.Point(23, 151)
+        Staff_sectionLabel.Name = "Staff_sectionLabel"
+        Staff_sectionLabel.Size = New System.Drawing.Size(67, 15)
+        Staff_sectionLabel.TabIndex = 8
+        Staff_sectionLabel.Text = "所属部署"
         '
+        'EmailLabel
+        '
+        EmailLabel.AutoSize = True
+        EmailLabel.Location = New System.Drawing.Point(23, 179)
+        EmailLabel.Name = "EmailLabel"
+        EmailLabel.Size = New System.Drawing.Size(42, 15)
+        EmailLabel.TabIndex = 10
+        EmailLabel.Text = "email:"
+        '
+        'Ext_phoneLabel
+        '
+        Ext_phoneLabel.AutoSize = True
+        Ext_phoneLabel.Location = New System.Drawing.Point(23, 207)
+        Ext_phoneLabel.Name = "Ext_phoneLabel"
+        Ext_phoneLabel.Size = New System.Drawing.Size(67, 15)
+        Ext_phoneLabel.TabIndex = 12
+        Ext_phoneLabel.Text = "内線番号"
+        '
+        'MemoLabel
+        '
+        MemoLabel.AutoSize = True
+        MemoLabel.Location = New System.Drawing.Point(28, 238)
+        MemoLabel.Name = "MemoLabel"
+        MemoLabel.Size = New System.Drawing.Size(37, 15)
+        MemoLabel.TabIndex = 14
+        MemoLabel.Text = "備考"
+        '
+        'Input_dateLabel
+        '
+        Input_dateLabel.AutoSize = True
+        Input_dateLabel.Location = New System.Drawing.Point(23, 380)
+        Input_dateLabel.Name = "Input_dateLabel"
+        Input_dateLabel.Size = New System.Drawing.Size(52, 15)
+        Input_dateLabel.TabIndex = 16
+        Input_dateLabel.Text = "入力日"
+        '
         'Tbl_staffBindingNavigator
         '
         Me.Tbl_staffBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
@@ -110,10 +166,35 @@
         Me.Tbl_staffBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
         Me.Tbl_staffBindingNavigator.Name = "Tbl_staffBindingNavigator"
         Me.Tbl_staffBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
-        Me.Tbl_staffBindingNavigator.Size = New System.Drawing.Size(345, 27)
+        Me.Tbl_staffBindingNavigator.Size = New System.Drawing.Size(398, 27)
         Me.Tbl_staffBindingNavigator.TabIndex = 0
         Me.Tbl_staffBindingNavigator.Text = "BindingNavigator1"
         '
+        'BindingNavigatorAddNewItem
+        '
+        Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
+        Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(24, 24)
+        Me.BindingNavigatorAddNewItem.Text = "新規追加"
+        '
+        'BindingNavigatorCountItem
+        '
+        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
+        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 24)
+        Me.BindingNavigatorCountItem.Text = "/ {0}"
+        Me.BindingNavigatorCountItem.ToolTipText = "項目の総数"
+        '
+        'BindingNavigatorDeleteItem
+        '
+        Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
+        Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(24, 24)
+        Me.BindingNavigatorDeleteItem.Text = "削除"
+        '
         'BindingNavigatorMoveFirstItem
         '
         Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
@@ -120,7 +201,7 @@
         Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
         Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
         Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
-        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(24, 22)
+        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(24, 24)
         Me.BindingNavigatorMoveFirstItem.Text = "最初に移動"
         '
         'BindingNavigatorMovePreviousItem
@@ -129,13 +210,13 @@
         Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
         Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
         Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
-        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(24, 22)
+        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(24, 24)
         Me.BindingNavigatorMovePreviousItem.Text = "前に戻る"
         '
         'BindingNavigatorSeparator
         '
         Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
+        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 27)
         '
         'BindingNavigatorPositionItem
         '
@@ -146,17 +227,10 @@
         Me.BindingNavigatorPositionItem.Text = "0"
         Me.BindingNavigatorPositionItem.ToolTipText = "現在の場所"
         '
-        'BindingNavigatorCountItem
-        '
-        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
-        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 20)
-        Me.BindingNavigatorCountItem.Text = "/ {0}"
-        Me.BindingNavigatorCountItem.ToolTipText = "項目の総数"
-        '
         'BindingNavigatorSeparator1
         '
-        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6)
+        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
+        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 27)
         '
         'BindingNavigatorMoveNextItem
         '
@@ -178,47 +252,21 @@
         '
         'BindingNavigatorSeparator2
         '
-        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator"
-        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6)
+        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
+        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 27)
         '
-        'BindingNavigatorAddNewItem
-        '
-        Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
-        Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
-        Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
-        Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(24, 24)
-        Me.BindingNavigatorAddNewItem.Text = "新規追加"
-        '
-        'BindingNavigatorDeleteItem
-        '
-        Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
-        Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
-        Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
-        Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(24, 24)
-        Me.BindingNavigatorDeleteItem.Text = "削除"
-        '
         'Tbl_staffBindingNavigatorSaveItem
         '
         Me.Tbl_staffBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
         Me.Tbl_staffBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tbl_staffBindingNavigatorSaveItem.Image"), System.Drawing.Image)
         Me.Tbl_staffBindingNavigatorSaveItem.Name = "Tbl_staffBindingNavigatorSaveItem"
-        Me.Tbl_staffBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23)
+        Me.Tbl_staffBindingNavigatorSaveItem.Size = New System.Drawing.Size(24, 24)
         Me.Tbl_staffBindingNavigatorSaveItem.Text = "データの保存"
         '
-        'Staff_codeLabel
-        '
-        Staff_codeLabel.AutoSize = True
-        Staff_codeLabel.Location = New System.Drawing.Point(23, 39)
-        Staff_codeLabel.Name = "Staff_codeLabel"
-        Staff_codeLabel.Size = New System.Drawing.Size(80, 15)
-        Staff_codeLabel.TabIndex = 1
-        Staff_codeLabel.Text = "スタッフコード"
-        '
         'Staff_codeTextBox
         '
         Me.Staff_codeTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "staff_code", True))
+        Me.Staff_codeTextBox.ImeMode = System.Windows.Forms.ImeMode.Off
         Me.Staff_codeTextBox.Location = New System.Drawing.Point(120, 36)
         Me.Staff_codeTextBox.MaxLength = 6
         Me.Staff_codeTextBox.Name = "Staff_codeTextBox"
@@ -225,108 +273,41 @@
         Me.Staff_codeTextBox.Size = New System.Drawing.Size(58, 22)
         Me.Staff_codeTextBox.TabIndex = 2
         '
-        'Staff_nameLabel
-        '
-        Staff_nameLabel.AutoSize = True
-        Staff_nameLabel.Location = New System.Drawing.Point(23, 67)
-        Staff_nameLabel.Name = "Staff_nameLabel"
-        Staff_nameLabel.Size = New System.Drawing.Size(62, 15)
-        Staff_nameLabel.TabIndex = 3
-        Staff_nameLabel.Text = "スタッフ名"
-        '
         'Staff_nameTextBox
         '
         Me.Staff_nameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "staff_name", True))
+        Me.Staff_nameTextBox.ImeMode = System.Windows.Forms.ImeMode.Hiragana
         Me.Staff_nameTextBox.Location = New System.Drawing.Point(120, 64)
         Me.Staff_nameTextBox.Name = "Staff_nameTextBox"
         Me.Staff_nameTextBox.Size = New System.Drawing.Size(119, 22)
         Me.Staff_nameTextBox.TabIndex = 4
         '
-        'Staff_kanaLabel
-        '
-        Staff_kanaLabel.AutoSize = True
-        Staff_kanaLabel.Location = New System.Drawing.Point(23, 95)
-        Staff_kanaLabel.Name = "Staff_kanaLabel"
-        Staff_kanaLabel.Size = New System.Drawing.Size(85, 15)
-        Staff_kanaLabel.TabIndex = 5
-        Staff_kanaLabel.Text = "スタッフ名カナ"
-        '
         'Staff_kanaTextBox
         '
         Me.Staff_kanaTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "staff_kana", True))
+        Me.Staff_kanaTextBox.ImeMode = System.Windows.Forms.ImeMode.Katakana
         Me.Staff_kanaTextBox.Location = New System.Drawing.Point(120, 92)
         Me.Staff_kanaTextBox.Name = "Staff_kanaTextBox"
         Me.Staff_kanaTextBox.Size = New System.Drawing.Size(119, 22)
         Me.Staff_kanaTextBox.TabIndex = 6
         '
-        'Staff_sexLabel
-        '
-        Staff_sexLabel.AutoSize = True
-        Staff_sexLabel.Location = New System.Drawing.Point(23, 123)
-        Staff_sexLabel.Name = "Staff_sexLabel"
-        Staff_sexLabel.Size = New System.Drawing.Size(37, 15)
-        Staff_sexLabel.TabIndex = 7
-        Staff_sexLabel.Text = "性別"
-        '
-        'Staff_sexTextBox
-        '
-        Me.Staff_sexTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "staff_sex", True))
-        Me.Staff_sexTextBox.Location = New System.Drawing.Point(120, 120)
-        Me.Staff_sexTextBox.MaxLength = 1
-        Me.Staff_sexTextBox.Name = "Staff_sexTextBox"
-        Me.Staff_sexTextBox.Size = New System.Drawing.Size(36, 22)
-        Me.Staff_sexTextBox.TabIndex = 8
-        '
-        'Staff_sectionLabel
-        '
-        Staff_sectionLabel.AutoSize = True
-        Staff_sectionLabel.Location = New System.Drawing.Point(23, 151)
-        Staff_sectionLabel.Name = "Staff_sectionLabel"
-        Staff_sectionLabel.Size = New System.Drawing.Size(67, 15)
-        Staff_sectionLabel.TabIndex = 9
-        Staff_sectionLabel.Text = "所属部署"
-        '
-        'Staff_sectionTextBox
-        '
-        Me.Staff_sectionTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "staff_section", True))
-        Me.Staff_sectionTextBox.Location = New System.Drawing.Point(120, 148)
-        Me.Staff_sectionTextBox.Name = "Staff_sectionTextBox"
-        Me.Staff_sectionTextBox.Size = New System.Drawing.Size(58, 22)
-        Me.Staff_sectionTextBox.TabIndex = 10
-        '
-        'EmailLabel
-        '
-        EmailLabel.AutoSize = True
-        EmailLabel.Location = New System.Drawing.Point(23, 179)
-        EmailLabel.Name = "EmailLabel"
-        EmailLabel.Size = New System.Drawing.Size(42, 15)
-        EmailLabel.TabIndex = 11
-        EmailLabel.Text = "email:"
-        '
         'EmailTextBox
         '
         Me.EmailTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "email", True))
+        Me.EmailTextBox.ImeMode = System.Windows.Forms.ImeMode.Off
         Me.EmailTextBox.Location = New System.Drawing.Point(120, 176)
         Me.EmailTextBox.Name = "EmailTextBox"
         Me.EmailTextBox.Size = New System.Drawing.Size(200, 22)
-        Me.EmailTextBox.TabIndex = 12
+        Me.EmailTextBox.TabIndex = 11
         '
-        'Ext_phoneLabel
-        '
-        Ext_phoneLabel.AutoSize = True
-        Ext_phoneLabel.Location = New System.Drawing.Point(23, 207)
-        Ext_phoneLabel.Name = "Ext_phoneLabel"
-        Ext_phoneLabel.Size = New System.Drawing.Size(67, 15)
-        Ext_phoneLabel.TabIndex = 13
-        Ext_phoneLabel.Text = "内線番号"
-        '
         'Ext_phoneTextBox
         '
         Me.Ext_phoneTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "ext_phone", True))
+        Me.Ext_phoneTextBox.ImeMode = System.Windows.Forms.ImeMode.Off
         Me.Ext_phoneTextBox.Location = New System.Drawing.Point(120, 204)
         Me.Ext_phoneTextBox.Name = "Ext_phoneTextBox"
         Me.Ext_phoneTextBox.Size = New System.Drawing.Size(70, 22)
-        Me.Ext_phoneTextBox.TabIndex = 14
+        Me.Ext_phoneTextBox.TabIndex = 13
         '
         'Resign_flagCheckBox
         '
@@ -334,37 +315,20 @@
         Me.Resign_flagCheckBox.Location = New System.Drawing.Point(263, 376)
         Me.Resign_flagCheckBox.Name = "Resign_flagCheckBox"
         Me.Resign_flagCheckBox.Size = New System.Drawing.Size(70, 24)
-        Me.Resign_flagCheckBox.TabIndex = 16
+        Me.Resign_flagCheckBox.TabIndex = 18
         Me.Resign_flagCheckBox.Text = "退社"
         Me.Resign_flagCheckBox.UseVisualStyleBackColor = True
         '
-        'MemoLabel
-        '
-        MemoLabel.AutoSize = True
-        MemoLabel.Location = New System.Drawing.Point(28, 238)
-        MemoLabel.Name = "MemoLabel"
-        MemoLabel.Size = New System.Drawing.Size(37, 15)
-        MemoLabel.TabIndex = 21
-        MemoLabel.Text = "備考"
-        '
         'MemoTextBox
         '
         Me.MemoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.Tbl_staffBindingSource, "memo", True))
+        Me.MemoTextBox.ImeMode = System.Windows.Forms.ImeMode.Hiragana
         Me.MemoTextBox.Location = New System.Drawing.Point(120, 238)
         Me.MemoTextBox.Multiline = True
         Me.MemoTextBox.Name = "MemoTextBox"
         Me.MemoTextBox.Size = New System.Drawing.Size(200, 92)
-        Me.MemoTextBox.TabIndex = 22
+        Me.MemoTextBox.TabIndex = 15
         '
-        'Input_dateLabel
-        '
-        Input_dateLabel.AutoSize = True
-        Input_dateLabel.Location = New System.Drawing.Point(23, 380)
-        Input_dateLabel.Name = "Input_dateLabel"
-        Input_dateLabel.Size = New System.Drawing.Size(52, 15)
-        Input_dateLabel.TabIndex = 25
-        Input_dateLabel.Text = "入力日"
-        '
         'Input_dateDateTimePicker
         '
         Me.Input_dateDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.Tbl_staffBindingSource, "input_date", True))
@@ -371,13 +335,91 @@
         Me.Input_dateDateTimePicker.Location = New System.Drawing.Point(102, 376)
         Me.Input_dateDateTimePicker.Name = "Input_dateDateTimePicker"
         Me.Input_dateDateTimePicker.Size = New System.Drawing.Size(137, 22)
-        Me.Input_dateDateTimePicker.TabIndex = 26
+        Me.Input_dateDateTimePicker.TabIndex = 17
         '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.rbFemale)
+        Me.GroupBox1.Controls.Add(Me.rbMale)
+        Me.GroupBox1.Location = New System.Drawing.Point(256, 36)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(99, 77)
+        Me.GroupBox1.TabIndex = 7
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "性別"
+        '
+        'rbFemale
+        '
+        Me.rbFemale.AutoSize = True
+        Me.rbFemale.Location = New System.Drawing.Point(22, 48)
+        Me.rbFemale.Name = "rbFemale"
+        Me.rbFemale.Size = New System.Drawing.Size(58, 19)
+        Me.rbFemale.TabIndex = 1
+        Me.rbFemale.TabStop = True
+        Me.rbFemale.Text = "女性"
+        Me.rbFemale.UseVisualStyleBackColor = True
+        '
+        'rbMale
+        '
+        Me.rbMale.AutoSize = True
+        Me.rbMale.Location = New System.Drawing.Point(22, 23)
+        Me.rbMale.Name = "rbMale"
+        Me.rbMale.Size = New System.Drawing.Size(58, 19)
+        Me.rbMale.TabIndex = 0
+        Me.rbMale.TabStop = True
+        Me.rbMale.Text = "男性"
+        Me.rbMale.UseVisualStyleBackColor = True
+        '
+        'Tbl_staffBindingSource
+        '
+        Me.Tbl_staffBindingSource.DataMember = "tbl_staff"
+        Me.Tbl_staffBindingSource.DataSource = Me.ProjectManageDataSet
+        '
+        'ProjectManageDataSet
+        '
+        Me.ProjectManageDataSet.DataSetName = "projectManageDataSet"
+        Me.ProjectManageDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'Tbl_staffTableAdapter
+        '
+        Me.Tbl_staffTableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.tbl_sectionTableAdapter = Nothing
+        Me.TableAdapterManager.tbl_staffTableAdapter = Me.Tbl_staffTableAdapter
+        Me.TableAdapterManager.UpdateOrder = accdb1.projectManageDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'Staff_sectionComboBox
+        '
+        Me.Staff_sectionComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.Tbl_staffBindingSource, "staff_section", True))
+        Me.Staff_sectionComboBox.DataSource = Me.Tbl_sectionBindingSource
+        Me.Staff_sectionComboBox.DisplayMember = "section_name"
+        Me.Staff_sectionComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.Staff_sectionComboBox.FormattingEnabled = True
+        Me.Staff_sectionComboBox.Location = New System.Drawing.Point(120, 147)
+        Me.Staff_sectionComboBox.Name = "Staff_sectionComboBox"
+        Me.Staff_sectionComboBox.Size = New System.Drawing.Size(121, 23)
+        Me.Staff_sectionComboBox.TabIndex = 9
+        Me.Staff_sectionComboBox.ValueMember = "section_code"
+        '
+        'Tbl_sectionBindingSource
+        '
+        Me.Tbl_sectionBindingSource.DataMember = "tbl_section"
+        Me.Tbl_sectionBindingSource.DataSource = Me.ProjectManageDataSet
+        '
+        'Tbl_sectionTableAdapter
+        '
+        Me.Tbl_sectionTableAdapter.ClearBeforeFill = True
+        '
         'frmStaff
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(345, 442)
+        Me.ClientSize = New System.Drawing.Size(398, 442)
+        Me.Controls.Add(Me.Staff_sectionComboBox)
+        Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Staff_codeLabel)
         Me.Controls.Add(Me.Staff_codeTextBox)
         Me.Controls.Add(Staff_nameLabel)
@@ -384,10 +426,7 @@
         Me.Controls.Add(Me.Staff_nameTextBox)
         Me.Controls.Add(Staff_kanaLabel)
         Me.Controls.Add(Me.Staff_kanaTextBox)
-        Me.Controls.Add(Staff_sexLabel)
-        Me.Controls.Add(Me.Staff_sexTextBox)
         Me.Controls.Add(Staff_sectionLabel)
-        Me.Controls.Add(Me.Staff_sectionTextBox)
         Me.Controls.Add(EmailLabel)
         Me.Controls.Add(Me.EmailTextBox)
         Me.Controls.Add(Ext_phoneLabel)
@@ -400,11 +439,14 @@
         Me.Controls.Add(Me.Tbl_staffBindingNavigator)
         Me.Name = "frmStaff"
         Me.Text = "スタッフマスタ管理"
-        CType(Me.ProjectManageDataSet, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Tbl_staffBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Tbl_staffBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Tbl_staffBindingNavigator.ResumeLayout(False)
         Me.Tbl_staffBindingNavigator.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.Tbl_staffBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ProjectManageDataSet, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Tbl_sectionBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -430,11 +472,15 @@
     Friend WithEvents Staff_codeTextBox As Windows.Forms.TextBox
     Friend WithEvents Staff_nameTextBox As Windows.Forms.TextBox
     Friend WithEvents Staff_kanaTextBox As Windows.Forms.TextBox
-    Friend WithEvents Staff_sexTextBox As Windows.Forms.TextBox
-    Friend WithEvents Staff_sectionTextBox As Windows.Forms.TextBox
     Friend WithEvents EmailTextBox As Windows.Forms.TextBox
     Friend WithEvents Ext_phoneTextBox As Windows.Forms.TextBox
     Friend WithEvents Resign_flagCheckBox As Windows.Forms.CheckBox
     Friend WithEvents MemoTextBox As Windows.Forms.TextBox
     Friend WithEvents Input_dateDateTimePicker As Windows.Forms.DateTimePicker
+    Friend WithEvents GroupBox1 As Windows.Forms.GroupBox
+    Friend WithEvents rbFemale As Windows.Forms.RadioButton
+    Friend WithEvents rbMale As Windows.Forms.RadioButton
+    Friend WithEvents Staff_sectionComboBox As Windows.Forms.ComboBox
+    Friend WithEvents Tbl_sectionBindingSource As Windows.Forms.BindingSource
+    Friend WithEvents Tbl_sectionTableAdapter As projectManageDataSetTableAdapters.tbl_sectionTableAdapter
 End Class

--- vbdb/accdb1/accdb1/frmStaff.vb	(revision 366)
+++ vbdb/accdb1/accdb1/frmStaff.vb	(revision 367)
@@ -7,8 +7,44 @@
     End Sub
 
     Private Sub frmStaff_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'TODO: このコード行はデータを 'ProjectManageDataSet.tbl_section' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
+        Me.Tbl_sectionTableAdapter.Fill(Me.ProjectManageDataSet.tbl_section)
         'TODO: このコード行はデータを 'ProjectManageDataSet.tbl_staff' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
         Me.Tbl_staffTableAdapter.Fill(Me.ProjectManageDataSet.tbl_staff)
 
     End Sub
+
+    Private Sub rbMale_CheckedChanged(sender As Object, e As EventArgs) Handles rbMale.CheckedChanged
+        If Not rbMale.Checked Then Return
+        commonUtils.Setdrv(Me.Tbl_staffBindingSource.Current, "staff_sex", 1)
+    End Sub
+
+    Private Sub rbFemale_CheckedChanged(sender As Object, e As EventArgs) Handles rbFemale.CheckedChanged
+        If Not rbFemale.Checked Then Return
+        commonUtils.Setdrv(Me.Tbl_staffBindingSource.Current, "staff_sex", 2)
+    End Sub
+
+    Private Sub Tbl_staffBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles Tbl_staffBindingSource.PositionChanged
+        If Me.Tbl_staffBindingSource.Current Is Nothing Then Return
+        Dim drv = Me.Tbl_staffBindingSource.Current
+        If IsDBNull(drv("staff_sex")) Then
+            rbFemale.Checked = False
+            rbMale.Checked = False
+            Exit Sub
+        End If
+        Select Case drv("staff_sex")
+            Case 1
+                rbMale.Checked = True
+            Case 2
+                rbFemale.Checked = True
+        End Select
+    End Sub
+
+    Private Sub frmStaff_Validating(sender As Object, e As ComponentModel.CancelEventArgs) Handles MyBase.Validating
+        If Trim(Staff_codeTextBox.Text) = String.Empty Then
+            MsgBox("スタッフコードを入力してください", MsgBoxStyle.Exclamation, "スタッフコード")
+            e.Cancel = True
+            Exit Sub
+        End If
+    End Sub
 End Class
\ No newline at end of file

--- vbdb/accdb1/accdb1/projectManageDataSet.Designer.vb	(revision 366)
+++ vbdb/accdb1/accdb1/projectManageDataSet.Designer.vb	(revision 367)
@@ -27,6 +27,8 @@
     
     Private tabletbl_staff As tbl_staffDataTable
     
+    Private tabletbl_section As tbl_sectionDataTable
+    
     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -59,6 +61,9 @@
             If (Not (ds.Tables("tbl_staff")) Is Nothing) Then
                 MyBase.Tables.Add(New tbl_staffDataTable(ds.Tables("tbl_staff")))
             End If
+            If (Not (ds.Tables("tbl_section")) Is Nothing) Then
+                MyBase.Tables.Add(New tbl_sectionDataTable(ds.Tables("tbl_section")))
+            End If
             Me.DataSetName = ds.DataSetName
             Me.Prefix = ds.Prefix
             Me.Namespace = ds.Namespace
@@ -88,6 +93,16 @@
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+     Global.System.ComponentModel.Browsable(false),  _
+     Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
+    Public ReadOnly Property tbl_section() As tbl_sectionDataTable
+        Get
+            Return Me.tabletbl_section
+        End Get
+    End Property
+    
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
      Global.System.ComponentModel.BrowsableAttribute(true),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -156,6 +171,9 @@
             If (Not (ds.Tables("tbl_staff")) Is Nothing) Then
                 MyBase.Tables.Add(New tbl_staffDataTable(ds.Tables("tbl_staff")))
             End If
+            If (Not (ds.Tables("tbl_section")) Is Nothing) Then
+                MyBase.Tables.Add(New tbl_sectionDataTable(ds.Tables("tbl_section")))
+            End If
             Me.DataSetName = ds.DataSetName
             Me.Prefix = ds.Prefix
             Me.Namespace = ds.Namespace
@@ -194,6 +212,12 @@
                 Me.tabletbl_staff.InitVars
             End If
         End If
+        Me.tabletbl_section = CType(MyBase.Tables("tbl_section"),tbl_sectionDataTable)
+        If (initTable = true) Then
+            If (Not (Me.tabletbl_section) Is Nothing) Then
+                Me.tabletbl_section.InitVars
+            End If
+        End If
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -206,6 +230,8 @@
         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
         Me.tabletbl_staff = New tbl_staffDataTable()
         MyBase.Tables.Add(Me.tabletbl_staff)
+        Me.tabletbl_section = New tbl_sectionDataTable()
+        MyBase.Tables.Add(Me.tabletbl_section)
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -216,6 +242,12 @@
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+    Private Function ShouldSerializetbl_section() As Boolean
+        Return false
+    End Function
+    
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
             Me.InitVars
@@ -275,6 +307,9 @@
     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
     Public Delegate Sub tbl_staffRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_staffRowChangeEvent)
     
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+    Public Delegate Sub tbl_sectionRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_sectionRowChangeEvent)
+    
     '''<summary>
     '''Represents the strongly named DataTable class.
     '''</summary>
@@ -702,6 +737,282 @@
     End Class
     
     '''<summary>
+    '''Represents the strongly named DataTable class.
+    '''</summary>
+    <Global.System.Serializable(),  _
+     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
+    Partial Public Class tbl_sectionDataTable
+        Inherits Global.System.Data.TypedTableBase(Of tbl_sectionRow)
+        
+        Private columnsection_code As Global.System.Data.DataColumn
+        
+        Private columnsection_name As Global.System.Data.DataColumn
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Sub New()
+            MyBase.New
+            Me.TableName = "tbl_section"
+            Me.BeginInit
+            Me.InitClass
+            Me.EndInit
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Friend Sub New(ByVal table As Global.System.Data.DataTable)
+            MyBase.New
+            Me.TableName = table.TableName
+            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+                Me.CaseSensitive = table.CaseSensitive
+            End If
+            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+                Me.Locale = table.Locale
+            End If
+            If (table.Namespace <> table.DataSet.Namespace) Then
+                Me.Namespace = table.Namespace
+            End If
+            Me.Prefix = table.Prefix
+            Me.MinimumCapacity = table.MinimumCapacity
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
+            MyBase.New(info, context)
+            Me.InitVars
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public ReadOnly Property section_codeColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnsection_code
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public ReadOnly Property section_nameColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnsection_name
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Browsable(false)>  _
+        Public ReadOnly Property Count() As Integer
+            Get
+                Return Me.Rows.Count
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_sectionRow
+            Get
+                Return CType(Me.Rows(index),tbl_sectionRow)
+            End Get
+        End Property
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Event tbl_sectionRowChanging As tbl_sectionRowChangeEventHandler
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Event tbl_sectionRowChanged As tbl_sectionRowChangeEventHandler
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Event tbl_sectionRowDeleting As tbl_sectionRowChangeEventHandler
+        
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Event tbl_sectionRowDeleted As tbl_sectionRowChangeEventHandler
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Overloads Sub Addtbl_sectionRow(ByVal row As tbl_sectionRow)
+            Me.Rows.Add(row)
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Overloads Function Addtbl_sectionRow(ByVal section_code As String, ByVal section_name As String) As tbl_sectionRow
+            Dim rowtbl_sectionRow As tbl_sectionRow = CType(Me.NewRow,tbl_sectionRow)
+            Dim columnValuesArray() As Object = New Object() {section_code, section_name}
+            rowtbl_sectionRow.ItemArray = columnValuesArray
+            Me.Rows.Add(rowtbl_sectionRow)
+            Return rowtbl_sectionRow
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Function FindBysection_code(ByVal section_code As String) As tbl_sectionRow
+            Return CType(Me.Rows.Find(New Object() {section_code}),tbl_sectionRow)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Overrides Function Clone() As Global.System.Data.DataTable
+            Dim cln As tbl_sectionDataTable = CType(MyBase.Clone,tbl_sectionDataTable)
+            cln.InitVars
+            Return cln
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
+            Return New tbl_sectionDataTable()
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Friend Sub InitVars()
+            Me.columnsection_code = MyBase.Columns("section_code")
+            Me.columnsection_name = MyBase.Columns("section_name")
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Private Sub InitClass()
+            Me.columnsection_code = New Global.System.Data.DataColumn("section_code", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnsection_code)
+            Me.columnsection_name = New Global.System.Data.DataColumn("section_name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnsection_name)
+            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnsection_code}, true))
+            Me.columnsection_code.AllowDBNull = false
+            Me.columnsection_code.Unique = true
+            Me.columnsection_code.MaxLength = 4
+            Me.columnsection_name.MaxLength = 20
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Function Newtbl_sectionRow() As tbl_sectionRow
+            Return CType(Me.NewRow,tbl_sectionRow)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
+            Return New tbl_sectionRow(builder)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Overrides Function GetRowType() As Global.System.Type
+            Return GetType(tbl_sectionRow)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowChanged(e)
+            If (Not (Me.tbl_sectionRowChangedEvent) Is Nothing) Then
+                RaiseEvent tbl_sectionRowChanged(Me, New tbl_sectionRowChangeEvent(CType(e.Row,tbl_sectionRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowChanging(e)
+            If (Not (Me.tbl_sectionRowChangingEvent) Is Nothing) Then
+                RaiseEvent tbl_sectionRowChanging(Me, New tbl_sectionRowChangeEvent(CType(e.Row,tbl_sectionRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowDeleted(e)
+            If (Not (Me.tbl_sectionRowDeletedEvent) Is Nothing) Then
+                RaiseEvent tbl_sectionRowDeleted(Me, New tbl_sectionRowChangeEvent(CType(e.Row,tbl_sectionRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
+            MyBase.OnRowDeleting(e)
+            If (Not (Me.tbl_sectionRowDeletingEvent) Is Nothing) Then
+                RaiseEvent tbl_sectionRowDeleting(Me, New tbl_sectionRowChangeEvent(CType(e.Row,tbl_sectionRow), e.Action))
+            End If
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Sub Removetbl_sectionRow(ByVal row As tbl_sectionRow)
+            Me.Rows.Remove(row)
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
+            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
+            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+            Dim ds As projectManageDataSet = New projectManageDataSet()
+            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+            any1.MinOccurs = New Decimal(0)
+            any1.MaxOccurs = Decimal.MaxValue
+            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any1)
+            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+            any2.MinOccurs = New Decimal(1)
+            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any2)
+            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute1.Name = "namespace"
+            attribute1.FixedValue = ds.Namespace
+            type.Attributes.Add(attribute1)
+            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute2.Name = "tableTypeName"
+            attribute2.FixedValue = "tbl_sectionDataTable"
+            type.Attributes.Add(attribute2)
+            type.Particle = sequence
+            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+            If xs.Contains(dsSchema.TargetNamespace) Then
+                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Try 
+                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+                    dsSchema.Write(s1)
+                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+                    Do While schemas.MoveNext
+                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
+                        s2.SetLength(0)
+                        schema.Write(s2)
+                        If (s1.Length = s2.Length) Then
+                            s1.Position = 0
+                            s2.Position = 0
+                            
+                            Do While ((s1.Position <> s1.Length)  _
+                                        AndAlso (s1.ReadByte = s2.ReadByte))
+                                
+                                
+                            Loop
+                            If (s1.Position = s1.Length) Then
+                                Return type
+                            End If
+                        End If
+                        
+                    Loop
+                Finally
+                    If (Not (s1) Is Nothing) Then
+                        s1.Close
+                    End If
+                    If (Not (s2) Is Nothing) Then
+                        s2.Close
+                    End If
+                End Try
+            End If
+            xs.Add(dsSchema)
+            Return type
+        End Function
+    End Class
+    
+    '''<summary>
     '''Represents strongly named DataRow class.
     '''</summary>
     Partial Public Class tbl_staffRow
@@ -1053,6 +1364,60 @@
     End Class
     
     '''<summary>
+    '''Represents strongly named DataRow class.
+    '''</summary>
+    Partial Public Class tbl_sectionRow
+        Inherits Global.System.Data.DataRow
+        
+        Private tabletbl_section As tbl_sectionDataTable
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
+            MyBase.New(rb)
+            Me.tabletbl_section = CType(Me.Table,tbl_sectionDataTable)
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Property section_code() As String
+            Get
+                Return CType(Me(Me.tabletbl_section.section_codeColumn),String)
+            End Get
+            Set
+                Me(Me.tabletbl_section.section_codeColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Property section_name() As String
+            Get
+                Try 
+                    Return CType(Me(Me.tabletbl_section.section_nameColumn),String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("テーブル 'tbl_section' にある列 'section_name' の値は DBNull です。", e)
+                End Try
+            End Get
+            Set
+                Me(Me.tabletbl_section.section_nameColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Function Issection_nameNull() As Boolean
+            Return Me.IsNull(Me.tabletbl_section.section_nameColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Sub Setsection_nameNull()
+            Me(Me.tabletbl_section.section_nameColumn) = Global.System.Convert.DBNull
+        End Sub
+    End Class
+    
+    '''<summary>
     '''Row event argument class
     '''</summary>
     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
@@ -1087,6 +1452,42 @@
             End Get
         End Property
     End Class
+    
+    '''<summary>
+    '''Row event argument class
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+    Public Class tbl_sectionRowChangeEvent
+        Inherits Global.System.EventArgs
+        
+        Private eventRow As tbl_sectionRow
+        
+        Private eventAction As Global.System.Data.DataRowAction
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Sub New(ByVal row As tbl_sectionRow, ByVal action As Global.System.Data.DataRowAction)
+            MyBase.New
+            Me.eventRow = row
+            Me.eventAction = action
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public ReadOnly Property Row() As tbl_sectionRow
+            Get
+                Return Me.eventRow
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public ReadOnly Property Action() As Global.System.Data.DataRowAction
+            Get
+                Return Me.eventAction
+            End Get
+        End Property
+    End Class
 End Class
 
 Namespace projectManageDataSetTableAdapters
@@ -1787,6 +2188,344 @@
     End Class
     
     '''<summary>
+    '''Represents the connection and commands used to retrieve and save data.
+    '''</summary>
+    <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
+     Global.System.ComponentModel.ToolboxItem(true),  _
+     Global.System.ComponentModel.DataObjectAttribute(true),  _
+     Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ 
+        ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"),  _
+     Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
+    Partial Public Class tbl_sectionTableAdapter
+        Inherits Global.System.ComponentModel.Component
+        
+        Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
+        
+        Private _connection As Global.System.Data.OleDb.OleDbConnection
+        
+        Private _transaction As Global.System.Data.OleDb.OleDbTransaction
+        
+        Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
+        
+        Private _clearBeforeFill As Boolean
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Sub New()
+            MyBase.New
+            Me.ClearBeforeFill = true
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
+            Get
+                If (Me._adapter Is Nothing) Then
+                    Me.InitAdapter
+                End If
+                Return Me._adapter
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
+            Get
+                If (Me._connection Is Nothing) Then
+                    Me.InitConnection
+                End If
+                Return Me._connection
+            End Get
+            Set
+                Me._connection = value
+                If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
+                    Me.Adapter.InsertCommand.Connection = value
+                End If
+                If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
+                    Me.Adapter.DeleteCommand.Connection = value
+                End If
+                If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
+                    Me.Adapter.UpdateCommand.Connection = value
+                End If
+                Dim i As Integer = 0
+                Do While (i < Me.CommandCollection.Length)
+                    If (Not (Me.CommandCollection(i)) Is Nothing) Then
+                        CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
+                    End If
+                    i = (i + 1)
+                Loop
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
+            Get
+                Return Me._transaction
+            End Get
+            Set
+                Me._transaction = value
+                Dim i As Integer = 0
+                Do While (i < Me.CommandCollection.Length)
+                    Me.CommandCollection(i).Transaction = Me._transaction
+                    i = (i + 1)
+                Loop
+                If ((Not (Me.Adapter) Is Nothing)  _
+                            AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
+                    Me.Adapter.DeleteCommand.Transaction = Me._transaction
+                End If
+                If ((Not (Me.Adapter) Is Nothing)  _
+                            AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
+                    Me.Adapter.InsertCommand.Transaction = Me._transaction
+                End If
+                If ((Not (Me.Adapter) Is Nothing)  _
+                            AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
+                    Me.Adapter.UpdateCommand.Transaction = Me._transaction
+                End If
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
+            Get
+                If (Me._commandCollection Is Nothing) Then
+                    Me.InitCommandCollection
+                End If
+                Return Me._commandCollection
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Property ClearBeforeFill() As Boolean
+            Get
+                Return Me._clearBeforeFill
+            End Get
+            Set
+                Me._clearBeforeFill = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Private Sub InitAdapter()
+            Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
+            Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
+            tableMapping.SourceTable = "Table"
+            tableMapping.DataSetTable = "tbl_section"
+            tableMapping.ColumnMappings.Add("section_code", "section_code")
+            tableMapping.ColumnMappings.Add("section_name", "section_name")
+            Me._adapter.TableMappings.Add(tableMapping)
+            Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
+            Me._adapter.DeleteCommand.Connection = Me.Connection
+            Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tbl_section` WHERE ((`section_code` = ?) AND ((? = 1 AND `section_na"& _ 
+                "me` IS NULL) OR (`section_name` = ?)))"
+            Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_section_code", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_code", Global.System.Data.DataRowVersion.Original, false, Nothing))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_section_name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_name", Global.System.Data.DataRowVersion.Original, true, Nothing))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_section_name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_name", Global.System.Data.DataRowVersion.Original, false, Nothing))
+            Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
+            Me._adapter.InsertCommand.Connection = Me.Connection
+            Me._adapter.InsertCommand.CommandText = "INSERT INTO `tbl_section` (`section_code`, `section_name`) VALUES (?, ?)"
+            Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("section_code", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_code", Global.System.Data.DataRowVersion.Current, false, Nothing))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("section_name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_name", Global.System.Data.DataRowVersion.Current, false, Nothing))
+            Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
+            Me._adapter.UpdateCommand.Connection = Me.Connection
+            Me._adapter.UpdateCommand.CommandText = "UPDATE `tbl_section` SET `section_code` = ?, `section_name` = ? WHERE ((`section_"& _ 
+                "code` = ?) AND ((? = 1 AND `section_name` IS NULL) OR (`section_name` = ?)))"
+            Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("section_code", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_code", Global.System.Data.DataRowVersion.Current, false, Nothing))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("section_name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_name", Global.System.Data.DataRowVersion.Current, false, Nothing))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_section_code", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_code", Global.System.Data.DataRowVersion.Original, false, Nothing))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_section_name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_name", Global.System.Data.DataRowVersion.Original, true, Nothing))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_section_name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "section_name", Global.System.Data.DataRowVersion.Original, false, Nothing))
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Private Sub InitConnection()
+            Me._connection = New Global.System.Data.OleDb.OleDbConnection()
+            Me._connection.ConnectionString = Global.accdb1.Settings.Default.projectManageConnectionString
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Private Sub InitCommandCollection()
+            Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
+            Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
+            Me._commandCollection(0).Connection = Me.Connection
+            Me._commandCollection(0).CommandText = "SELECT section_code, section_name FROM tbl_section"
+            Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
+        Public Overloads Overridable Function Fill(ByVal dataTable As projectManageDataSet.tbl_sectionDataTable) As Integer
+            Me.Adapter.SelectCommand = Me.CommandCollection(0)
+            If (Me.ClearBeforeFill = true) Then
+                dataTable.Clear
+            End If
+            Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
+            Return returnValue
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
+        Public Overloads Overridable Function GetData() As projectManageDataSet.tbl_sectionDataTable
+            Me.Adapter.SelectCommand = Me.CommandCollection(0)
+            Dim dataTable As projectManageDataSet.tbl_sectionDataTable = New projectManageDataSet.tbl_sectionDataTable()
+            Me.Adapter.Fill(dataTable)
+            Return dataTable
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
+        Public Overloads Overridable Function Update(ByVal dataTable As projectManageDataSet.tbl_sectionDataTable) As Integer
+            Return Me.Adapter.Update(dataTable)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
+        Public Overloads Overridable Function Update(ByVal dataSet As projectManageDataSet) As Integer
+            Return Me.Adapter.Update(dataSet, "tbl_section")
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
+        Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
+            Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
+        Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
+            Return Me.Adapter.Update(dataRows)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
+        Public Overloads Overridable Function Delete(ByVal Original_section_code As String, ByVal Original_section_name As String) As Integer
+            If (Original_section_code Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("Original_section_code")
+            Else
+                Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_section_code,String)
+            End If
+            If (Original_section_name Is Nothing) Then
+                Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
+                Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
+                Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_section_name,String)
+            End If
+            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
+            If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
+                        <> Global.System.Data.ConnectionState.Open) Then
+                Me.Adapter.DeleteCommand.Connection.Open
+            End If
+            Try 
+                Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
+                Return returnValue
+            Finally
+                If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
+                    Me.Adapter.DeleteCommand.Connection.Close
+                End If
+            End Try
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
+        Public Overloads Overridable Function Insert(ByVal section_code As String, ByVal section_name As String) As Integer
+            If (section_code Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("section_code")
+            Else
+                Me.Adapter.InsertCommand.Parameters(0).Value = CType(section_code,String)
+            End If
+            If (section_name Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(1).Value = CType(section_name,String)
+            End If
+            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
+            If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
+                        <> Global.System.Data.ConnectionState.Open) Then
+                Me.Adapter.InsertCommand.Connection.Open
+            End If
+            Try 
+                Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
+                Return returnValue
+            Finally
+                If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
+                    Me.Adapter.InsertCommand.Connection.Close
+                End If
+            End Try
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
+        Public Overloads Overridable Function Update(ByVal section_code As String, ByVal section_name As String, ByVal Original_section_code As String, ByVal Original_section_name As String) As Integer
+            If (section_code Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("section_code")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(0).Value = CType(section_code,String)
+            End If
+            If (section_name Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(1).Value = CType(section_name,String)
+            End If
+            If (Original_section_code Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("Original_section_code")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_section_code,String)
+            End If
+            If (Original_section_name Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(3).Value = CType(1,Object)
+                Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(3).Value = CType(0,Object)
+                Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_section_name,String)
+            End If
+            Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
+            If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
+                        <> Global.System.Data.ConnectionState.Open) Then
+                Me.Adapter.UpdateCommand.Connection.Open
+            End If
+            Try 
+                Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
+                Return returnValue
+            Finally
+                If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
+                    Me.Adapter.UpdateCommand.Connection.Close
+                End If
+            End Try
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
+         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
+        Public Overloads Overridable Function Update(ByVal section_name As String, ByVal Original_section_code As String, ByVal Original_section_name As String) As Integer
+            Return Me.Update(Original_section_code, section_name, Original_section_code, Original_section_name)
+        End Function
+    End Class
+    
+    '''<summary>
     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
     '''</summary>
     <Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
@@ -1801,6 +2540,8 @@
         
         Private _tbl_staffTableAdapter As tbl_staffTableAdapter
         
+        Private _tbl_sectionTableAdapter As tbl_sectionTableAdapter
+        
         Private _backupDataSetBeforeUpdate As Boolean
         
         Private _connection As Global.System.Data.IDbConnection
@@ -1831,6 +2572,20 @@
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 
+            "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ 
+            "a", "System.Drawing.Design.UITypeEditor")>  _
+        Public Property tbl_sectionTableAdapter() As tbl_sectionTableAdapter
+            Get
+                Return Me._tbl_sectionTableAdapter
+            End Get
+            Set
+                Me._tbl_sectionTableAdapter = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
         Public Property BackupDataSetBeforeUpdate() As Boolean
             Get
@@ -1853,6 +2608,10 @@
                             AndAlso (Not (Me._tbl_staffTableAdapter.Connection) Is Nothing)) Then
                     Return Me._tbl_staffTableAdapter.Connection
                 End If
+                If ((Not (Me._tbl_sectionTableAdapter) Is Nothing)  _
+                            AndAlso (Not (Me._tbl_sectionTableAdapter.Connection) Is Nothing)) Then
+                    Return Me._tbl_sectionTableAdapter.Connection
+                End If
                 Return Nothing
             End Get
             Set
@@ -1869,6 +2628,9 @@
                 If (Not (Me._tbl_staffTableAdapter) Is Nothing) Then
                     count = (count + 1)
                 End If
+                If (Not (Me._tbl_sectionTableAdapter) Is Nothing) Then
+                    count = (count + 1)
+                End If
                 Return count
             End Get
         End Property
@@ -1889,6 +2651,15 @@
                     allChangedRows.AddRange(updatedRows)
                 End If
             End If
+            If (Not (Me._tbl_sectionTableAdapter) Is Nothing) Then
+                Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_section.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
+                updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
+                If ((Not (updatedRows) Is Nothing)  _
+                            AndAlso (0 < updatedRows.Length)) Then
+                    result = (result + Me._tbl_sectionTableAdapter.Update(updatedRows))
+                    allChangedRows.AddRange(updatedRows)
+                End If
+            End If
             Return result
         End Function
         
@@ -1907,6 +2678,14 @@
                     allAddedRows.AddRange(addedRows)
                 End If
             End If
+            If (Not (Me._tbl_sectionTableAdapter) Is Nothing) Then
+                Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_section.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
+                If ((Not (addedRows) Is Nothing)  _
+                            AndAlso (0 < addedRows.Length)) Then
+                    result = (result + Me._tbl_sectionTableAdapter.Update(addedRows))
+                    allAddedRows.AddRange(addedRows)
+                End If
+            End If
             Return result
         End Function
         
@@ -1917,6 +2696,14 @@
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
         Private Function UpdateDeletedRows(ByVal dataSet As projectManageDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
             Dim result As Integer = 0
+            If (Not (Me._tbl_sectionTableAdapter) Is Nothing) Then
+                Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_section.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
+                If ((Not (deletedRows) Is Nothing)  _
+                            AndAlso (0 < deletedRows.Length)) Then
+                    result = (result + Me._tbl_sectionTableAdapter.Update(deletedRows))
+                    allChangedRows.AddRange(deletedRows)
+                End If
+            End If
             If (Not (Me._tbl_staffTableAdapter) Is Nothing) Then
                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_staff.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
                 If ((Not (deletedRows) Is Nothing)  _
@@ -1970,6 +2757,10 @@
                         AndAlso (Me.MatchTableAdapterConnection(Me._tbl_staffTableAdapter.Connection) = false)) Then
                 Throw New Global.System.ArgumentException("TableAdapterManager で管理されるすべての TableAdapter は同一の接続文字列を使用する必要があります。")
             End If
+            If ((Not (Me._tbl_sectionTableAdapter) Is Nothing)  _
+                        AndAlso (Me.MatchTableAdapterConnection(Me._tbl_sectionTableAdapter.Connection) = false)) Then
+                Throw New Global.System.ArgumentException("TableAdapterManager で管理されるすべての TableAdapter は同一の接続文字列を使用する必要があります。")
+            End If
             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
             If (workConnection Is Nothing) Then
                 Throw New Global.System.ApplicationException("TableAdapterManager には接続情報がありません。それぞれの TableAdapterManager TableAdapter プロパティを有効な"& _ 
@@ -2010,6 +2801,15 @@
                         adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_staffTableAdapter.Adapter)
                     End If
                 End If
+                If (Not (Me._tbl_sectionTableAdapter) Is Nothing) Then
+                    revertConnections.Add(Me._tbl_sectionTableAdapter, Me._tbl_sectionTableAdapter.Connection)
+                    Me._tbl_sectionTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
+                    Me._tbl_sectionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
+                    If Me._tbl_sectionTableAdapter.Adapter.AcceptChangesDuringUpdate Then
+                        Me._tbl_sectionTableAdapter.Adapter.AcceptChangesDuringUpdate = false
+                        adaptersWithAcceptChangesDuringUpdate.Add(Me._tbl_sectionTableAdapter.Adapter)
+                    End If
+                End If
                 '
                 '---- Perform updates -----------
                 '
@@ -2074,6 +2874,10 @@
                     Me._tbl_staffTableAdapter.Connection = CType(revertConnections(Me._tbl_staffTableAdapter),Global.System.Data.OleDb.OleDbConnection)
                     Me._tbl_staffTableAdapter.Transaction = Nothing
                 End If
+                If (Not (Me._tbl_sectionTableAdapter) Is Nothing) Then
+                    Me._tbl_sectionTableAdapter.Connection = CType(revertConnections(Me._tbl_sectionTableAdapter),Global.System.Data.OleDb.OleDbConnection)
+                    Me._tbl_sectionTableAdapter.Transaction = Nothing
+                End If
                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)

--- vbdb/accdb1/accdb1/projectManageDataSet.xsd	(revision 366)
+++ vbdb/accdb1/accdb1/projectManageDataSet.xsd	(revision 367)
@@ -128,6 +128,54 @@
             </Mappings>
             <Sources />
           </TableAdapter>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="tbl_sectionTableAdapter" GeneratorDataComponentClassName="tbl_sectionTableAdapter" Name="tbl_section" UserDataComponentName="tbl_sectionTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="projectManageConnectionString (Settings)" DbObjectName="tbl_section" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>DELETE FROM `tbl_section` WHERE ((`section_code` = ?) AND ((? = 1 AND `section_name` IS NULL) OR (`section_name` = ?)))</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_section_code" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_code" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_section_name" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="section_name" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_section_name" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_name" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+                <InsertCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>INSERT INTO `tbl_section` (`section_code`, `section_name`) VALUES (?, ?)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="section_code" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_code" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="section_name" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_name" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </InsertCommand>
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>SELECT section_code, section_name FROM tbl_section</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+                <UpdateCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>UPDATE `tbl_section` SET `section_code` = ?, `section_name` = ? WHERE ((`section_code` = ?) AND ((? = 1 AND `section_name` IS NULL) OR (`section_name` = ?)))</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="section_code" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_code" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="section_name" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_name" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_section_code" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_code" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="IsNull_section_name" Precision="0" ProviderType="Integer" Scale="0" Size="0" SourceColumn="section_name" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="Original_section_name" Precision="0" ProviderType="VarWChar" Scale="0" Size="0" SourceColumn="section_name" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="section_code" DataSetColumn="section_code" />
+              <Mapping SourceColumn="section_name" DataSetColumn="section_name" />
+            </Mappings>
+            <Sources />
+          </TableAdapter>
         </Tables>
         <Sources />
       </DataSource>
@@ -136,7 +184,7 @@
   <xs:element name="projectManageDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="projectManageDataSet" msprop:Generator_UserDSName="projectManageDataSet">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="tbl_staff" msprop:Generator_TableClassName="tbl_staffDataTable" msprop:Generator_TableVarName="tabletbl_staff" msprop:Generator_TablePropName="tbl_staff" msprop:Generator_RowDeletingName="tbl_staffRowDeleting" msprop:Generator_RowChangingName="tbl_staffRowChanging" msprop:Generator_RowEvHandlerName="tbl_staffRowChangeEventHandler" msprop:Generator_RowDeletedName="tbl_staffRowDeleted" msprop:Generator_UserTableName="tbl_staff" msprop:Generator_RowChangedName="tbl_staffRowChanged" msprop:Generator_RowEvArgName="tbl_staffRowChangeEvent" msprop:Generator_RowClassName="tbl_staffRow">
+        <xs:element name="tbl_staff" msprop:Generator_TableClassName="tbl_staffDataTable" msprop:Generator_TableVarName="tabletbl_staff" msprop:Generator_RowChangedName="tbl_staffRowChanged" msprop:Generator_TablePropName="tbl_staff" msprop:Generator_RowDeletingName="tbl_staffRowDeleting" msprop:Generator_RowChangingName="tbl_staffRowChanging" msprop:Generator_RowEvHandlerName="tbl_staffRowChangeEventHandler" msprop:Generator_RowDeletedName="tbl_staffRowDeleted" msprop:Generator_RowClassName="tbl_staffRow" msprop:Generator_UserTableName="tbl_staff" msprop:Generator_RowEvArgName="tbl_staffRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="staff_code" msprop:Generator_ColumnVarNameInTable="columnstaff_code" msprop:Generator_ColumnPropNameInRow="staff_code" msprop:Generator_ColumnPropNameInTable="staff_codeColumn" msprop:Generator_UserColumnName="staff_code">
@@ -209,6 +257,26 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
+        <xs:element name="tbl_section" msprop:Generator_TableClassName="tbl_sectionDataTable" msprop:Generator_TableVarName="tabletbl_section" msprop:Generator_TablePropName="tbl_section" msprop:Generator_RowDeletingName="tbl_sectionRowDeleting" msprop:Generator_RowChangingName="tbl_sectionRowChanging" msprop:Generator_RowEvHandlerName="tbl_sectionRowChangeEventHandler" msprop:Generator_RowDeletedName="tbl_sectionRowDeleted" msprop:Generator_UserTableName="tbl_section" msprop:Generator_RowChangedName="tbl_sectionRowChanged" msprop:Generator_RowEvArgName="tbl_sectionRowChangeEvent" msprop:Generator_RowClassName="tbl_sectionRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="section_code" msprop:Generator_ColumnVarNameInTable="columnsection_code" msprop:Generator_ColumnPropNameInRow="section_code" msprop:Generator_ColumnPropNameInTable="section_codeColumn" msprop:Generator_UserColumnName="section_code">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="4" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="section_name" msprop:Generator_ColumnVarNameInTable="columnsection_name" msprop:Generator_ColumnPropNameInRow="section_name" msprop:Generator_ColumnPropNameInTable="section_nameColumn" msprop:Generator_UserColumnName="section_name" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="20" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
       </xs:choice>
     </xs:complexType>
     <xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -215,5 +283,9 @@
       <xs:selector xpath=".//mstns:tbl_staff" />
       <xs:field xpath="mstns:staff_code" />
     </xs:unique>
+    <xs:unique name="tbl_section_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:tbl_section" />
+      <xs:field xpath="mstns:section_code" />
+    </xs:unique>
   </xs:element>
 </xs:schema>
\ No newline at end of file