OSDN -- オープンソース・ソフトウェアの開発とダウンロード
日本語の翻訳状況 translation status for ja
  • R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

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


コミットメタ情報

リビジョン373 (tree)
日時2017-10-17 21:58:37
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- vbdb/accdb1/accdb1/frmMenuOfDebug.Designer.vb (revision 372)
+++ vbdb/accdb1/accdb1/frmMenuOfDebug.Designer.vb (revision 373)
@@ -24,6 +24,7 @@
2424 Private Sub InitializeComponent()
2525 Me.Button1 = New System.Windows.Forms.Button()
2626 Me.Button2 = New System.Windows.Forms.Button()
27+ Me.Button3 = New System.Windows.Forms.Button()
2728 Me.SuspendLayout()
2829 '
2930 'Button1
@@ -44,11 +45,21 @@
4445 Me.Button2.Text = "スタッフ管理"
4546 Me.Button2.UseVisualStyleBackColor = True
4647 '
48+ 'Button3
49+ '
50+ Me.Button3.Location = New System.Drawing.Point(31, 67)
51+ Me.Button3.Name = "Button3"
52+ Me.Button3.Size = New System.Drawing.Size(110, 23)
53+ Me.Button3.TabIndex = 1
54+ Me.Button3.Text = "プロジェクト一覧"
55+ Me.Button3.UseVisualStyleBackColor = True
56+ '
4757 'frmMenuOfDebug
4858 '
4959 Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
5060 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
5161 Me.ClientSize = New System.Drawing.Size(282, 253)
62+ Me.Controls.Add(Me.Button3)
5263 Me.Controls.Add(Me.Button2)
5364 Me.Controls.Add(Me.Button1)
5465 Me.Name = "frmMenuOfDebug"
@@ -59,4 +70,5 @@
5970
6071 Friend WithEvents Button1 As Windows.Forms.Button
6172 Friend WithEvents Button2 As Windows.Forms.Button
73+ Friend WithEvents Button3 As Windows.Forms.Button
6274 End Class
--- vbdb/accdb1/accdb1/frmMenuOfDebug.vb (revision 372)
+++ vbdb/accdb1/accdb1/frmMenuOfDebug.vb (revision 373)
@@ -9,4 +9,9 @@
99 Dim frm As New frmCustomer
1010 frm.Show()
1111 End Sub
12+
13+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
14+ Dim frm As New frmProjectList
15+ frm.Show()
16+ End Sub
1217 End Class
\ No newline at end of file
--- vbdb/accdb1/accdb1/frmProjectList.Designer.vb (nonexistent)
+++ vbdb/accdb1/accdb1/frmProjectList.Designer.vb (revision 373)
@@ -0,0 +1,479 @@
1+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2+Partial Class frmProjectList
3+ Inherits System.Windows.Forms.Form
4+
5+ 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
6+ <System.Diagnostics.DebuggerNonUserCode()> _
7+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8+ Try
9+ If disposing AndAlso components IsNot Nothing Then
10+ components.Dispose()
11+ End If
12+ Finally
13+ MyBase.Dispose(disposing)
14+ End Try
15+ End Sub
16+
17+ 'Windows フォーム デザイナーで必要です。
18+ Private components As System.ComponentModel.IContainer
19+
20+ 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
21+ 'Windows フォーム デザイナーを使用して変更できます。
22+ 'コード エディターを使って変更しないでください。
23+ <System.Diagnostics.DebuggerStepThrough()> _
24+ Private Sub InitializeComponent()
25+ Me.components = New System.ComponentModel.Container()
26+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProjectList))
27+ Me.ProjectManageDataSet = New accdb1.projectManageDataSet()
28+ Me.Vw_projectlist_testBindingSource = New System.Windows.Forms.BindingSource(Me.components)
29+ Me.Vw_projectlist_testTableAdapter = New accdb1.projectManageDataSetTableAdapters.vw_projectlist_testTableAdapter()
30+ Me.TableAdapterManager = New accdb1.projectManageDataSetTableAdapters.TableAdapterManager()
31+ Me.Vw_projectlist_testBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
32+ Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
33+ Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
34+ Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
35+ Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
36+ Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
37+ Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
38+ Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
39+ Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
40+ Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
41+ Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
42+ Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
43+ Me.Vw_projectlist_testBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
44+ Me.Vw_projectlist_testDataGridView = New System.Windows.Forms.DataGridView()
45+ Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
46+ Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
47+ Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
48+ Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
49+ Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
50+ Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
51+ Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
52+ Me.Label1 = New System.Windows.Forms.Label()
53+ Me.Label2 = New System.Windows.Forms.Label()
54+ Me.Label3 = New System.Windows.Forms.Label()
55+ Me.chkComplete = New System.Windows.Forms.CheckBox()
56+ Me.cmbCustomer = New System.Windows.Forms.ComboBox()
57+ Me.cmbManager = New System.Windows.Forms.ComboBox()
58+ Me.txtProjectName = New System.Windows.Forms.TextBox()
59+ Me.btnFilter = New System.Windows.Forms.Button()
60+ Me.btnExit = New System.Windows.Forms.Button()
61+ Me.btnNew = New System.Windows.Forms.Button()
62+ Me.btnCard = New System.Windows.Forms.Button()
63+ Me.Tbl_staffBindingSource = New System.Windows.Forms.BindingSource(Me.components)
64+ Me.Tbl_staffTableAdapter = New accdb1.projectManageDataSetTableAdapters.tbl_staffTableAdapter()
65+ Me.Tbl_customerBindingSource = New System.Windows.Forms.BindingSource(Me.components)
66+ Me.Tbl_customerTableAdapter = New accdb1.projectManageDataSetTableAdapters.tbl_customerTableAdapter()
67+ CType(Me.ProjectManageDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
68+ CType(Me.Vw_projectlist_testBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
69+ CType(Me.Vw_projectlist_testBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
70+ Me.Vw_projectlist_testBindingNavigator.SuspendLayout()
71+ CType(Me.Vw_projectlist_testDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
72+ CType(Me.Tbl_staffBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
73+ CType(Me.Tbl_customerBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
74+ Me.SuspendLayout()
75+ '
76+ 'ProjectManageDataSet
77+ '
78+ Me.ProjectManageDataSet.DataSetName = "projectManageDataSet"
79+ Me.ProjectManageDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
80+ '
81+ 'Vw_projectlist_testBindingSource
82+ '
83+ Me.Vw_projectlist_testBindingSource.DataMember = "vw_projectlist_test"
84+ Me.Vw_projectlist_testBindingSource.DataSource = Me.ProjectManageDataSet
85+ '
86+ 'Vw_projectlist_testTableAdapter
87+ '
88+ Me.Vw_projectlist_testTableAdapter.ClearBeforeFill = True
89+ '
90+ 'TableAdapterManager
91+ '
92+ Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
93+ Me.TableAdapterManager.tbl_customerTableAdapter = Me.Tbl_customerTableAdapter
94+ Me.TableAdapterManager.tbl_sectionTableAdapter = Nothing
95+ Me.TableAdapterManager.tbl_staffTableAdapter = Me.Tbl_staffTableAdapter
96+ Me.TableAdapterManager.UpdateOrder = accdb1.projectManageDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
97+ '
98+ 'Vw_projectlist_testBindingNavigator
99+ '
100+ Me.Vw_projectlist_testBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
101+ Me.Vw_projectlist_testBindingNavigator.BindingSource = Me.Vw_projectlist_testBindingSource
102+ Me.Vw_projectlist_testBindingNavigator.CountItem = Me.BindingNavigatorCountItem
103+ Me.Vw_projectlist_testBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
104+ Me.Vw_projectlist_testBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
105+ Me.Vw_projectlist_testBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Vw_projectlist_testBindingNavigatorSaveItem})
106+ Me.Vw_projectlist_testBindingNavigator.Location = New System.Drawing.Point(0, 0)
107+ Me.Vw_projectlist_testBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
108+ Me.Vw_projectlist_testBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
109+ Me.Vw_projectlist_testBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
110+ Me.Vw_projectlist_testBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
111+ Me.Vw_projectlist_testBindingNavigator.Name = "Vw_projectlist_testBindingNavigator"
112+ Me.Vw_projectlist_testBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
113+ Me.Vw_projectlist_testBindingNavigator.Size = New System.Drawing.Size(1015, 27)
114+ Me.Vw_projectlist_testBindingNavigator.TabIndex = 0
115+ Me.Vw_projectlist_testBindingNavigator.Text = "BindingNavigator1"
116+ Me.Vw_projectlist_testBindingNavigator.Visible = False
117+ '
118+ 'BindingNavigatorMoveFirstItem
119+ '
120+ Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
121+ Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
122+ Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
123+ Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
124+ Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(24, 24)
125+ Me.BindingNavigatorMoveFirstItem.Text = "最初に移動"
126+ '
127+ 'BindingNavigatorMovePreviousItem
128+ '
129+ Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
130+ Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
131+ Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
132+ Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
133+ Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(24, 24)
134+ Me.BindingNavigatorMovePreviousItem.Text = "前に戻る"
135+ '
136+ 'BindingNavigatorSeparator
137+ '
138+ Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
139+ Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 27)
140+ '
141+ 'BindingNavigatorPositionItem
142+ '
143+ Me.BindingNavigatorPositionItem.AccessibleName = "位置"
144+ Me.BindingNavigatorPositionItem.AutoSize = False
145+ Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
146+ Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 27)
147+ Me.BindingNavigatorPositionItem.Text = "0"
148+ Me.BindingNavigatorPositionItem.ToolTipText = "現在の場所"
149+ '
150+ 'BindingNavigatorCountItem
151+ '
152+ Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
153+ Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 24)
154+ Me.BindingNavigatorCountItem.Text = "/ {0}"
155+ Me.BindingNavigatorCountItem.ToolTipText = "項目の総数"
156+ '
157+ 'BindingNavigatorSeparator1
158+ '
159+ Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator"
160+ Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 27)
161+ '
162+ 'BindingNavigatorMoveNextItem
163+ '
164+ Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
165+ Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
166+ Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
167+ Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
168+ Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(24, 24)
169+ Me.BindingNavigatorMoveNextItem.Text = "次に移動"
170+ '
171+ 'BindingNavigatorMoveLastItem
172+ '
173+ Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
174+ Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
175+ Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
176+ Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
177+ Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(24, 24)
178+ Me.BindingNavigatorMoveLastItem.Text = "最後に移動"
179+ '
180+ 'BindingNavigatorSeparator2
181+ '
182+ Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator"
183+ Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 27)
184+ '
185+ 'BindingNavigatorAddNewItem
186+ '
187+ Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
188+ Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
189+ Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
190+ Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
191+ Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(24, 24)
192+ Me.BindingNavigatorAddNewItem.Text = "新規追加"
193+ '
194+ 'BindingNavigatorDeleteItem
195+ '
196+ Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
197+ Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
198+ Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
199+ Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
200+ Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(24, 24)
201+ Me.BindingNavigatorDeleteItem.Text = "削除"
202+ '
203+ 'Vw_projectlist_testBindingNavigatorSaveItem
204+ '
205+ Me.Vw_projectlist_testBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
206+ Me.Vw_projectlist_testBindingNavigatorSaveItem.Enabled = False
207+ Me.Vw_projectlist_testBindingNavigatorSaveItem.Image = CType(resources.GetObject("Vw_projectlist_testBindingNavigatorSaveItem.Image"), System.Drawing.Image)
208+ Me.Vw_projectlist_testBindingNavigatorSaveItem.Name = "Vw_projectlist_testBindingNavigatorSaveItem"
209+ Me.Vw_projectlist_testBindingNavigatorSaveItem.Size = New System.Drawing.Size(24, 24)
210+ Me.Vw_projectlist_testBindingNavigatorSaveItem.Text = "データの保存"
211+ '
212+ 'Vw_projectlist_testDataGridView
213+ '
214+ Me.Vw_projectlist_testDataGridView.AllowUserToAddRows = False
215+ Me.Vw_projectlist_testDataGridView.AllowUserToDeleteRows = False
216+ Me.Vw_projectlist_testDataGridView.AutoGenerateColumns = False
217+ Me.Vw_projectlist_testDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
218+ Me.Vw_projectlist_testDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewCheckBoxColumn1})
219+ Me.Vw_projectlist_testDataGridView.DataSource = Me.Vw_projectlist_testBindingSource
220+ Me.Vw_projectlist_testDataGridView.Location = New System.Drawing.Point(2, 81)
221+ Me.Vw_projectlist_testDataGridView.Name = "Vw_projectlist_testDataGridView"
222+ Me.Vw_projectlist_testDataGridView.ReadOnly = True
223+ Me.Vw_projectlist_testDataGridView.RowTemplate.Height = 24
224+ Me.Vw_projectlist_testDataGridView.Size = New System.Drawing.Size(963, 220)
225+ Me.Vw_projectlist_testDataGridView.TabIndex = 1
226+ '
227+ 'DataGridViewTextBoxColumn1
228+ '
229+ Me.DataGridViewTextBoxColumn1.DataPropertyName = "project_code"
230+ Me.DataGridViewTextBoxColumn1.HeaderText = "プロジェクトコード"
231+ Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
232+ Me.DataGridViewTextBoxColumn1.ReadOnly = True
233+ Me.DataGridViewTextBoxColumn1.Width = 80
234+ '
235+ 'DataGridViewTextBoxColumn2
236+ '
237+ Me.DataGridViewTextBoxColumn2.DataPropertyName = "project_name"
238+ Me.DataGridViewTextBoxColumn2.HeaderText = "プロジェクト名"
239+ Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
240+ Me.DataGridViewTextBoxColumn2.ReadOnly = True
241+ Me.DataGridViewTextBoxColumn2.Width = 125
242+ '
243+ 'DataGridViewTextBoxColumn9
244+ '
245+ Me.DataGridViewTextBoxColumn9.DataPropertyName = "customer_name"
246+ Me.DataGridViewTextBoxColumn9.HeaderText = "顧客名"
247+ Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
248+ Me.DataGridViewTextBoxColumn9.ReadOnly = True
249+ Me.DataGridViewTextBoxColumn9.Width = 125
250+ '
251+ 'DataGridViewTextBoxColumn8
252+ '
253+ Me.DataGridViewTextBoxColumn8.DataPropertyName = "staff_name"
254+ Me.DataGridViewTextBoxColumn8.HeaderText = "マネージャー名"
255+ Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
256+ Me.DataGridViewTextBoxColumn8.ReadOnly = True
257+ Me.DataGridViewTextBoxColumn8.Width = 145
258+ '
259+ 'DataGridViewTextBoxColumn5
260+ '
261+ Me.DataGridViewTextBoxColumn5.DataPropertyName = "start_date"
262+ Me.DataGridViewTextBoxColumn5.HeaderText = "開始日"
263+ Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
264+ Me.DataGridViewTextBoxColumn5.ReadOnly = True
265+ Me.DataGridViewTextBoxColumn5.Width = 70
266+ '
267+ 'DataGridViewTextBoxColumn6
268+ '
269+ Me.DataGridViewTextBoxColumn6.DataPropertyName = "end_data"
270+ Me.DataGridViewTextBoxColumn6.HeaderText = "終了日"
271+ Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
272+ Me.DataGridViewTextBoxColumn6.ReadOnly = True
273+ Me.DataGridViewTextBoxColumn6.Width = 70
274+ '
275+ 'DataGridViewCheckBoxColumn1
276+ '
277+ Me.DataGridViewCheckBoxColumn1.DataPropertyName = "complete_flag"
278+ Me.DataGridViewCheckBoxColumn1.HeaderText = "完了"
279+ Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1"
280+ Me.DataGridViewCheckBoxColumn1.ReadOnly = True
281+ Me.DataGridViewCheckBoxColumn1.Width = 40
282+ '
283+ 'Label1
284+ '
285+ Me.Label1.AutoSize = True
286+ Me.Label1.Location = New System.Drawing.Point(21, 9)
287+ Me.Label1.Name = "Label1"
288+ Me.Label1.Size = New System.Drawing.Size(86, 15)
289+ Me.Label1.TabIndex = 2
290+ Me.Label1.Text = "プロジェクト名"
291+ '
292+ 'Label2
293+ '
294+ Me.Label2.AutoSize = True
295+ Me.Label2.Location = New System.Drawing.Point(21, 37)
296+ Me.Label2.Name = "Label2"
297+ Me.Label2.Size = New System.Drawing.Size(37, 15)
298+ Me.Label2.TabIndex = 2
299+ Me.Label2.Text = "顧客"
300+ '
301+ 'Label3
302+ '
303+ Me.Label3.AutoSize = True
304+ Me.Label3.Location = New System.Drawing.Point(294, 39)
305+ Me.Label3.Name = "Label3"
306+ Me.Label3.Size = New System.Drawing.Size(76, 15)
307+ Me.Label3.TabIndex = 2
308+ Me.Label3.Text = "マネージャー"
309+ '
310+ 'chkComplete
311+ '
312+ Me.chkComplete.AutoSize = True
313+ Me.chkComplete.Location = New System.Drawing.Point(297, 12)
314+ Me.chkComplete.Name = "chkComplete"
315+ Me.chkComplete.Size = New System.Drawing.Size(131, 19)
316+ Me.chkComplete.TabIndex = 3
317+ Me.chkComplete.Text = "完了データを含む"
318+ Me.chkComplete.UseVisualStyleBackColor = True
319+ '
320+ 'cmbCustomer
321+ '
322+ Me.cmbCustomer.DataSource = Me.Tbl_customerBindingSource
323+ Me.cmbCustomer.DisplayMember = "customer_name"
324+ Me.cmbCustomer.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
325+ Me.cmbCustomer.FormattingEnabled = True
326+ Me.cmbCustomer.Location = New System.Drawing.Point(90, 36)
327+ Me.cmbCustomer.Name = "cmbCustomer"
328+ Me.cmbCustomer.Size = New System.Drawing.Size(121, 23)
329+ Me.cmbCustomer.TabIndex = 4
330+ Me.cmbCustomer.ValueMember = "customer_code"
331+ '
332+ 'cmbManager
333+ '
334+ Me.cmbManager.AllowDrop = True
335+ Me.cmbManager.DataSource = Me.Tbl_staffBindingSource
336+ Me.cmbManager.DisplayMember = "staff_name"
337+ Me.cmbManager.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
338+ Me.cmbManager.FormattingEnabled = True
339+ Me.cmbManager.Location = New System.Drawing.Point(376, 37)
340+ Me.cmbManager.Name = "cmbManager"
341+ Me.cmbManager.Size = New System.Drawing.Size(121, 23)
342+ Me.cmbManager.TabIndex = 4
343+ Me.cmbManager.ValueMember = "staff_code"
344+ '
345+ 'txtProjectName
346+ '
347+ Me.txtProjectName.Location = New System.Drawing.Point(113, 8)
348+ Me.txtProjectName.Name = "txtProjectName"
349+ Me.txtProjectName.Size = New System.Drawing.Size(100, 22)
350+ Me.txtProjectName.TabIndex = 5
351+ '
352+ 'btnFilter
353+ '
354+ Me.btnFilter.Location = New System.Drawing.Point(641, 18)
355+ Me.btnFilter.Name = "btnFilter"
356+ Me.btnFilter.Size = New System.Drawing.Size(75, 23)
357+ Me.btnFilter.TabIndex = 6
358+ Me.btnFilter.Text = "フィルター実行"
359+ Me.btnFilter.UseVisualStyleBackColor = True
360+ '
361+ 'btnExit
362+ '
363+ Me.btnExit.Location = New System.Drawing.Point(740, 18)
364+ Me.btnExit.Name = "btnExit"
365+ Me.btnExit.Size = New System.Drawing.Size(75, 23)
366+ Me.btnExit.TabIndex = 6
367+ Me.btnExit.Text = "戻る"
368+ Me.btnExit.UseVisualStyleBackColor = True
369+ '
370+ 'btnNew
371+ '
372+ Me.btnNew.Location = New System.Drawing.Point(12, 307)
373+ Me.btnNew.Name = "btnNew"
374+ Me.btnNew.Size = New System.Drawing.Size(75, 23)
375+ Me.btnNew.TabIndex = 6
376+ Me.btnNew.Text = "新規追加"
377+ Me.btnNew.UseVisualStyleBackColor = True
378+ '
379+ 'btnCard
380+ '
381+ Me.btnCard.Location = New System.Drawing.Point(879, 307)
382+ Me.btnCard.Name = "btnCard"
383+ Me.btnCard.Size = New System.Drawing.Size(86, 23)
384+ Me.btnCard.TabIndex = 6
385+ Me.btnCard.Text = "カード表示"
386+ Me.btnCard.UseVisualStyleBackColor = True
387+ '
388+ 'Tbl_staffBindingSource
389+ '
390+ Me.Tbl_staffBindingSource.DataMember = "tbl_staff"
391+ Me.Tbl_staffBindingSource.DataSource = Me.ProjectManageDataSet
392+ '
393+ 'Tbl_staffTableAdapter
394+ '
395+ Me.Tbl_staffTableAdapter.ClearBeforeFill = True
396+ '
397+ 'Tbl_customerBindingSource
398+ '
399+ Me.Tbl_customerBindingSource.DataMember = "tbl_customer"
400+ Me.Tbl_customerBindingSource.DataSource = Me.ProjectManageDataSet
401+ '
402+ 'Tbl_customerTableAdapter
403+ '
404+ Me.Tbl_customerTableAdapter.ClearBeforeFill = True
405+ '
406+ 'frmProjectList
407+ '
408+ Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
409+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
410+ Me.ClientSize = New System.Drawing.Size(1015, 339)
411+ Me.Controls.Add(Me.btnCard)
412+ Me.Controls.Add(Me.btnExit)
413+ Me.Controls.Add(Me.btnNew)
414+ Me.Controls.Add(Me.btnFilter)
415+ Me.Controls.Add(Me.txtProjectName)
416+ Me.Controls.Add(Me.cmbManager)
417+ Me.Controls.Add(Me.cmbCustomer)
418+ Me.Controls.Add(Me.chkComplete)
419+ Me.Controls.Add(Me.Label3)
420+ Me.Controls.Add(Me.Label2)
421+ Me.Controls.Add(Me.Label1)
422+ Me.Controls.Add(Me.Vw_projectlist_testDataGridView)
423+ Me.Controls.Add(Me.Vw_projectlist_testBindingNavigator)
424+ Me.Name = "frmProjectList"
425+ Me.Text = "frmProjectList"
426+ CType(Me.ProjectManageDataSet, System.ComponentModel.ISupportInitialize).EndInit()
427+ CType(Me.Vw_projectlist_testBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
428+ CType(Me.Vw_projectlist_testBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
429+ Me.Vw_projectlist_testBindingNavigator.ResumeLayout(False)
430+ Me.Vw_projectlist_testBindingNavigator.PerformLayout()
431+ CType(Me.Vw_projectlist_testDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
432+ CType(Me.Tbl_staffBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
433+ CType(Me.Tbl_customerBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
434+ Me.ResumeLayout(False)
435+ Me.PerformLayout()
436+
437+ End Sub
438+
439+ Friend WithEvents ProjectManageDataSet As projectManageDataSet
440+ Friend WithEvents Vw_projectlist_testBindingSource As Windows.Forms.BindingSource
441+ Friend WithEvents Vw_projectlist_testTableAdapter As projectManageDataSetTableAdapters.vw_projectlist_testTableAdapter
442+ Friend WithEvents TableAdapterManager As projectManageDataSetTableAdapters.TableAdapterManager
443+ Friend WithEvents Vw_projectlist_testBindingNavigator As Windows.Forms.BindingNavigator
444+ Friend WithEvents BindingNavigatorAddNewItem As Windows.Forms.ToolStripButton
445+ Friend WithEvents BindingNavigatorCountItem As Windows.Forms.ToolStripLabel
446+ Friend WithEvents BindingNavigatorDeleteItem As Windows.Forms.ToolStripButton
447+ Friend WithEvents BindingNavigatorMoveFirstItem As Windows.Forms.ToolStripButton
448+ Friend WithEvents BindingNavigatorMovePreviousItem As Windows.Forms.ToolStripButton
449+ Friend WithEvents BindingNavigatorSeparator As Windows.Forms.ToolStripSeparator
450+ Friend WithEvents BindingNavigatorPositionItem As Windows.Forms.ToolStripTextBox
451+ Friend WithEvents BindingNavigatorSeparator1 As Windows.Forms.ToolStripSeparator
452+ Friend WithEvents BindingNavigatorMoveNextItem As Windows.Forms.ToolStripButton
453+ Friend WithEvents BindingNavigatorMoveLastItem As Windows.Forms.ToolStripButton
454+ Friend WithEvents BindingNavigatorSeparator2 As Windows.Forms.ToolStripSeparator
455+ Friend WithEvents Vw_projectlist_testBindingNavigatorSaveItem As Windows.Forms.ToolStripButton
456+ Friend WithEvents Vw_projectlist_testDataGridView As Windows.Forms.DataGridView
457+ Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
458+ Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
459+ Friend WithEvents DataGridViewTextBoxColumn9 As Windows.Forms.DataGridViewTextBoxColumn
460+ Friend WithEvents DataGridViewTextBoxColumn8 As Windows.Forms.DataGridViewTextBoxColumn
461+ Friend WithEvents DataGridViewTextBoxColumn5 As Windows.Forms.DataGridViewTextBoxColumn
462+ Friend WithEvents DataGridViewTextBoxColumn6 As Windows.Forms.DataGridViewTextBoxColumn
463+ Friend WithEvents DataGridViewCheckBoxColumn1 As Windows.Forms.DataGridViewCheckBoxColumn
464+ Friend WithEvents Tbl_staffTableAdapter As projectManageDataSetTableAdapters.tbl_staffTableAdapter
465+ Friend WithEvents Label1 As Windows.Forms.Label
466+ Friend WithEvents Label2 As Windows.Forms.Label
467+ Friend WithEvents Label3 As Windows.Forms.Label
468+ Friend WithEvents chkComplete As Windows.Forms.CheckBox
469+ Friend WithEvents cmbCustomer As Windows.Forms.ComboBox
470+ Friend WithEvents cmbManager As Windows.Forms.ComboBox
471+ Friend WithEvents txtProjectName As Windows.Forms.TextBox
472+ Friend WithEvents btnFilter As Windows.Forms.Button
473+ Friend WithEvents btnExit As Windows.Forms.Button
474+ Friend WithEvents btnNew As Windows.Forms.Button
475+ Friend WithEvents btnCard As Windows.Forms.Button
476+ Friend WithEvents Tbl_staffBindingSource As Windows.Forms.BindingSource
477+ Friend WithEvents Tbl_customerTableAdapter As projectManageDataSetTableAdapters.tbl_customerTableAdapter
478+ Friend WithEvents Tbl_customerBindingSource As Windows.Forms.BindingSource
479+End Class
--- vbdb/accdb1/accdb1/frmProjectList.vb (nonexistent)
+++ vbdb/accdb1/accdb1/frmProjectList.vb (revision 373)
@@ -0,0 +1,11 @@
1+Public Class frmProjectList
2+ Private Sub frmProjectList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
3+ 'TODO: このコード行はデータを 'ProjectManageDataSet.tbl_customer' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
4+ Me.Tbl_customerTableAdapter.Fill(Me.ProjectManageDataSet.tbl_customer)
5+ 'TODO: このコード行はデータを 'ProjectManageDataSet.tbl_staff' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
6+ Me.Tbl_staffTableAdapter.Fill(Me.ProjectManageDataSet.tbl_staff)
7+ 'TODO: このコード行はデータを 'ProjectManageDataSet.vw_projectlist_test' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
8+ Me.Vw_projectlist_testTableAdapter.Fill(Me.ProjectManageDataSet.vw_projectlist_test)
9+
10+ End Sub
11+End Class
\ No newline at end of file
--- vbdb/accdb1/accdb1/projectManageDataSet.Designer.vb (revision 372)
+++ vbdb/accdb1/accdb1/projectManageDataSet.Designer.vb (revision 373)
@@ -31,6 +31,8 @@
3131
3232 Private tabletbl_customer As tbl_customerDataTable
3333
34+ Private tablevw_projectlist_test As vw_projectlist_testDataTable
35+
3436 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
3537
3638 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -69,6 +71,9 @@
6971 If (Not (ds.Tables("tbl_customer")) Is Nothing) Then
7072 MyBase.Tables.Add(New tbl_customerDataTable(ds.Tables("tbl_customer")))
7173 End If
74+ If (Not (ds.Tables("vw_projectlist_test")) Is Nothing) Then
75+ MyBase.Tables.Add(New vw_projectlist_testDataTable(ds.Tables("vw_projectlist_test")))
76+ End If
7277 Me.DataSetName = ds.DataSetName
7378 Me.Prefix = ds.Prefix
7479 Me.Namespace = ds.Namespace
@@ -118,6 +123,16 @@
118123
119124 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
120125 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
126+ Global.System.ComponentModel.Browsable(false), _
127+ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
128+ Public ReadOnly Property vw_projectlist_test() As vw_projectlist_testDataTable
129+ Get
130+ Return Me.tablevw_projectlist_test
131+ End Get
132+ End Property
133+
134+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
135+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
121136 Global.System.ComponentModel.BrowsableAttribute(true), _
122137 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
123138 Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -192,6 +207,9 @@
192207 If (Not (ds.Tables("tbl_customer")) Is Nothing) Then
193208 MyBase.Tables.Add(New tbl_customerDataTable(ds.Tables("tbl_customer")))
194209 End If
210+ If (Not (ds.Tables("vw_projectlist_test")) Is Nothing) Then
211+ MyBase.Tables.Add(New vw_projectlist_testDataTable(ds.Tables("vw_projectlist_test")))
212+ End If
195213 Me.DataSetName = ds.DataSetName
196214 Me.Prefix = ds.Prefix
197215 Me.Namespace = ds.Namespace
@@ -242,6 +260,12 @@
242260 Me.tabletbl_customer.InitVars
243261 End If
244262 End If
263+ Me.tablevw_projectlist_test = CType(MyBase.Tables("vw_projectlist_test"),vw_projectlist_testDataTable)
264+ If (initTable = true) Then
265+ If (Not (Me.tablevw_projectlist_test) Is Nothing) Then
266+ Me.tablevw_projectlist_test.InitVars
267+ End If
268+ End If
245269 End Sub
246270
247271 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -258,6 +282,8 @@
258282 MyBase.Tables.Add(Me.tabletbl_section)
259283 Me.tabletbl_customer = New tbl_customerDataTable()
260284 MyBase.Tables.Add(Me.tabletbl_customer)
285+ Me.tablevw_projectlist_test = New vw_projectlist_testDataTable()
286+ MyBase.Tables.Add(Me.tablevw_projectlist_test)
261287 End Sub
262288
263289 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -280,6 +306,12 @@
280306
281307 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
282308 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
309+ Private Function ShouldSerializevw_projectlist_test() As Boolean
310+ Return false
311+ End Function
312+
313+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
314+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
283315 Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
284316 If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
285317 Me.InitVars
@@ -345,6 +377,9 @@
345377 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
346378 Public Delegate Sub tbl_customerRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_customerRowChangeEvent)
347379
380+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
381+ Public Delegate Sub vw_projectlist_testRowChangeEventHandler(ByVal sender As Object, ByVal e As vw_projectlist_testRowChangeEvent)
382+
348383 '''<summary>
349384 '''Represents the strongly named DataTable class.
350385 '''</summary>
@@ -1407,6 +1442,382 @@
14071442 End Class
14081443
14091444 '''<summary>
1445+ '''Represents the strongly named DataTable class.
1446+ '''</summary>
1447+ <Global.System.Serializable(), _
1448+ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1449+ Partial Public Class vw_projectlist_testDataTable
1450+ Inherits Global.System.Data.TypedTableBase(Of vw_projectlist_testRow)
1451+
1452+ Private columnproject_code As Global.System.Data.DataColumn
1453+
1454+ Private columnproject_name As Global.System.Data.DataColumn
1455+
1456+ Private columncustomer_code As Global.System.Data.DataColumn
1457+
1458+ Private columnstaff_code As Global.System.Data.DataColumn
1459+
1460+ Private columnstart_date As Global.System.Data.DataColumn
1461+
1462+ Private columnend_data As Global.System.Data.DataColumn
1463+
1464+ Private columnmemo As Global.System.Data.DataColumn
1465+
1466+ Private columncomplete_flag As Global.System.Data.DataColumn
1467+
1468+ Private columnstaff_name As Global.System.Data.DataColumn
1469+
1470+ Private columncustomer_name As Global.System.Data.DataColumn
1471+
1472+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1473+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1474+ Public Sub New()
1475+ MyBase.New
1476+ Me.TableName = "vw_projectlist_test"
1477+ Me.BeginInit
1478+ Me.InitClass
1479+ Me.EndInit
1480+ End Sub
1481+
1482+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1483+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1484+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
1485+ MyBase.New
1486+ Me.TableName = table.TableName
1487+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1488+ Me.CaseSensitive = table.CaseSensitive
1489+ End If
1490+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1491+ Me.Locale = table.Locale
1492+ End If
1493+ If (table.Namespace <> table.DataSet.Namespace) Then
1494+ Me.Namespace = table.Namespace
1495+ End If
1496+ Me.Prefix = table.Prefix
1497+ Me.MinimumCapacity = table.MinimumCapacity
1498+ End Sub
1499+
1500+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1501+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1502+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1503+ MyBase.New(info, context)
1504+ Me.InitVars
1505+ End Sub
1506+
1507+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1508+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1509+ Public ReadOnly Property project_codeColumn() As Global.System.Data.DataColumn
1510+ Get
1511+ Return Me.columnproject_code
1512+ End Get
1513+ End Property
1514+
1515+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1516+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1517+ Public ReadOnly Property project_nameColumn() As Global.System.Data.DataColumn
1518+ Get
1519+ Return Me.columnproject_name
1520+ End Get
1521+ End Property
1522+
1523+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1524+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1525+ Public ReadOnly Property customer_codeColumn() As Global.System.Data.DataColumn
1526+ Get
1527+ Return Me.columncustomer_code
1528+ End Get
1529+ End Property
1530+
1531+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1532+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1533+ Public ReadOnly Property staff_codeColumn() As Global.System.Data.DataColumn
1534+ Get
1535+ Return Me.columnstaff_code
1536+ End Get
1537+ End Property
1538+
1539+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1540+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1541+ Public ReadOnly Property start_dateColumn() As Global.System.Data.DataColumn
1542+ Get
1543+ Return Me.columnstart_date
1544+ End Get
1545+ End Property
1546+
1547+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1548+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1549+ Public ReadOnly Property end_dataColumn() As Global.System.Data.DataColumn
1550+ Get
1551+ Return Me.columnend_data
1552+ End Get
1553+ End Property
1554+
1555+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1556+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1557+ Public ReadOnly Property memoColumn() As Global.System.Data.DataColumn
1558+ Get
1559+ Return Me.columnmemo
1560+ End Get
1561+ End Property
1562+
1563+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1564+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1565+ Public ReadOnly Property complete_flagColumn() As Global.System.Data.DataColumn
1566+ Get
1567+ Return Me.columncomplete_flag
1568+ End Get
1569+ End Property
1570+
1571+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1572+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1573+ Public ReadOnly Property staff_nameColumn() As Global.System.Data.DataColumn
1574+ Get
1575+ Return Me.columnstaff_name
1576+ End Get
1577+ End Property
1578+
1579+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1580+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1581+ Public ReadOnly Property customer_nameColumn() As Global.System.Data.DataColumn
1582+ Get
1583+ Return Me.columncustomer_name
1584+ End Get
1585+ End Property
1586+
1587+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1588+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
1589+ Global.System.ComponentModel.Browsable(false)> _
1590+ Public ReadOnly Property Count() As Integer
1591+ Get
1592+ Return Me.Rows.Count
1593+ End Get
1594+ End Property
1595+
1596+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1597+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1598+ Public Default ReadOnly Property Item(ByVal index As Integer) As vw_projectlist_testRow
1599+ Get
1600+ Return CType(Me.Rows(index),vw_projectlist_testRow)
1601+ End Get
1602+ End Property
1603+
1604+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1605+ Public Event vw_projectlist_testRowChanging As vw_projectlist_testRowChangeEventHandler
1606+
1607+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1608+ Public Event vw_projectlist_testRowChanged As vw_projectlist_testRowChangeEventHandler
1609+
1610+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1611+ Public Event vw_projectlist_testRowDeleting As vw_projectlist_testRowChangeEventHandler
1612+
1613+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1614+ Public Event vw_projectlist_testRowDeleted As vw_projectlist_testRowChangeEventHandler
1615+
1616+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1617+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1618+ Public Overloads Sub Addvw_projectlist_testRow(ByVal row As vw_projectlist_testRow)
1619+ Me.Rows.Add(row)
1620+ End Sub
1621+
1622+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1623+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1624+ Public Overloads Function Addvw_projectlist_testRow(ByVal project_code As String, ByVal project_name As String, ByVal customer_code As String, ByVal staff_code As String, ByVal start_date As Date, ByVal end_data As Date, ByVal memo As String, ByVal complete_flag As Boolean, ByVal staff_name As String, ByVal customer_name As String) As vw_projectlist_testRow
1625+ Dim rowvw_projectlist_testRow As vw_projectlist_testRow = CType(Me.NewRow,vw_projectlist_testRow)
1626+ Dim columnValuesArray() As Object = New Object() {project_code, project_name, customer_code, staff_code, start_date, end_data, memo, complete_flag, staff_name, customer_name}
1627+ rowvw_projectlist_testRow.ItemArray = columnValuesArray
1628+ Me.Rows.Add(rowvw_projectlist_testRow)
1629+ Return rowvw_projectlist_testRow
1630+ End Function
1631+
1632+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1633+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1634+ Public Overrides Function Clone() As Global.System.Data.DataTable
1635+ Dim cln As vw_projectlist_testDataTable = CType(MyBase.Clone,vw_projectlist_testDataTable)
1636+ cln.InitVars
1637+ Return cln
1638+ End Function
1639+
1640+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1641+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1642+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1643+ Return New vw_projectlist_testDataTable()
1644+ End Function
1645+
1646+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1647+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1648+ Friend Sub InitVars()
1649+ Me.columnproject_code = MyBase.Columns("project_code")
1650+ Me.columnproject_name = MyBase.Columns("project_name")
1651+ Me.columncustomer_code = MyBase.Columns("customer_code")
1652+ Me.columnstaff_code = MyBase.Columns("staff_code")
1653+ Me.columnstart_date = MyBase.Columns("start_date")
1654+ Me.columnend_data = MyBase.Columns("end_data")
1655+ Me.columnmemo = MyBase.Columns("memo")
1656+ Me.columncomplete_flag = MyBase.Columns("complete_flag")
1657+ Me.columnstaff_name = MyBase.Columns("staff_name")
1658+ Me.columncustomer_name = MyBase.Columns("customer_name")
1659+ End Sub
1660+
1661+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1662+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1663+ Private Sub InitClass()
1664+ Me.columnproject_code = New Global.System.Data.DataColumn("project_code", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1665+ MyBase.Columns.Add(Me.columnproject_code)
1666+ Me.columnproject_name = New Global.System.Data.DataColumn("project_name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1667+ MyBase.Columns.Add(Me.columnproject_name)
1668+ Me.columncustomer_code = New Global.System.Data.DataColumn("customer_code", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1669+ MyBase.Columns.Add(Me.columncustomer_code)
1670+ Me.columnstaff_code = New Global.System.Data.DataColumn("staff_code", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1671+ MyBase.Columns.Add(Me.columnstaff_code)
1672+ Me.columnstart_date = New Global.System.Data.DataColumn("start_date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1673+ MyBase.Columns.Add(Me.columnstart_date)
1674+ Me.columnend_data = New Global.System.Data.DataColumn("end_data", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1675+ MyBase.Columns.Add(Me.columnend_data)
1676+ Me.columnmemo = New Global.System.Data.DataColumn("memo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1677+ MyBase.Columns.Add(Me.columnmemo)
1678+ Me.columncomplete_flag = New Global.System.Data.DataColumn("complete_flag", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
1679+ MyBase.Columns.Add(Me.columncomplete_flag)
1680+ Me.columnstaff_name = New Global.System.Data.DataColumn("staff_name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1681+ MyBase.Columns.Add(Me.columnstaff_name)
1682+ Me.columncustomer_name = New Global.System.Data.DataColumn("customer_name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1683+ MyBase.Columns.Add(Me.columncustomer_name)
1684+ Me.columnproject_code.MaxLength = 5
1685+ Me.columnproject_name.MaxLength = 50
1686+ Me.columncustomer_code.MaxLength = 7
1687+ Me.columnstaff_code.MaxLength = 6
1688+ Me.columnmemo.MaxLength = 536870910
1689+ Me.columnstaff_name.MaxLength = 20
1690+ Me.columncustomer_name.MaxLength = 50
1691+ End Sub
1692+
1693+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1694+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1695+ Public Function Newvw_projectlist_testRow() As vw_projectlist_testRow
1696+ Return CType(Me.NewRow,vw_projectlist_testRow)
1697+ End Function
1698+
1699+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1700+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1701+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1702+ Return New vw_projectlist_testRow(builder)
1703+ End Function
1704+
1705+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1706+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1707+ Protected Overrides Function GetRowType() As Global.System.Type
1708+ Return GetType(vw_projectlist_testRow)
1709+ End Function
1710+
1711+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1712+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1713+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1714+ MyBase.OnRowChanged(e)
1715+ If (Not (Me.vw_projectlist_testRowChangedEvent) Is Nothing) Then
1716+ RaiseEvent vw_projectlist_testRowChanged(Me, New vw_projectlist_testRowChangeEvent(CType(e.Row,vw_projectlist_testRow), e.Action))
1717+ End If
1718+ End Sub
1719+
1720+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1721+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1722+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1723+ MyBase.OnRowChanging(e)
1724+ If (Not (Me.vw_projectlist_testRowChangingEvent) Is Nothing) Then
1725+ RaiseEvent vw_projectlist_testRowChanging(Me, New vw_projectlist_testRowChangeEvent(CType(e.Row,vw_projectlist_testRow), e.Action))
1726+ End If
1727+ End Sub
1728+
1729+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1730+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1731+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1732+ MyBase.OnRowDeleted(e)
1733+ If (Not (Me.vw_projectlist_testRowDeletedEvent) Is Nothing) Then
1734+ RaiseEvent vw_projectlist_testRowDeleted(Me, New vw_projectlist_testRowChangeEvent(CType(e.Row,vw_projectlist_testRow), e.Action))
1735+ End If
1736+ End Sub
1737+
1738+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1739+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1740+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1741+ MyBase.OnRowDeleting(e)
1742+ If (Not (Me.vw_projectlist_testRowDeletingEvent) Is Nothing) Then
1743+ RaiseEvent vw_projectlist_testRowDeleting(Me, New vw_projectlist_testRowChangeEvent(CType(e.Row,vw_projectlist_testRow), e.Action))
1744+ End If
1745+ End Sub
1746+
1747+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1748+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1749+ Public Sub Removevw_projectlist_testRow(ByVal row As vw_projectlist_testRow)
1750+ Me.Rows.Remove(row)
1751+ End Sub
1752+
1753+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1754+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
1755+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1756+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1757+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1758+ Dim ds As projectManageDataSet = New projectManageDataSet()
1759+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1760+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1761+ any1.MinOccurs = New Decimal(0)
1762+ any1.MaxOccurs = Decimal.MaxValue
1763+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1764+ sequence.Items.Add(any1)
1765+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1766+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1767+ any2.MinOccurs = New Decimal(1)
1768+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1769+ sequence.Items.Add(any2)
1770+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1771+ attribute1.Name = "namespace"
1772+ attribute1.FixedValue = ds.Namespace
1773+ type.Attributes.Add(attribute1)
1774+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1775+ attribute2.Name = "tableTypeName"
1776+ attribute2.FixedValue = "vw_projectlist_testDataTable"
1777+ type.Attributes.Add(attribute2)
1778+ type.Particle = sequence
1779+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1780+ If xs.Contains(dsSchema.TargetNamespace) Then
1781+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1782+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1783+ Try
1784+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1785+ dsSchema.Write(s1)
1786+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1787+ Do While schemas.MoveNext
1788+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1789+ s2.SetLength(0)
1790+ schema.Write(s2)
1791+ If (s1.Length = s2.Length) Then
1792+ s1.Position = 0
1793+ s2.Position = 0
1794+
1795+ Do While ((s1.Position <> s1.Length) _
1796+ AndAlso (s1.ReadByte = s2.ReadByte))
1797+
1798+
1799+ Loop
1800+ If (s1.Position = s1.Length) Then
1801+ Return type
1802+ End If
1803+ End If
1804+
1805+ Loop
1806+ Finally
1807+ If (Not (s1) Is Nothing) Then
1808+ s1.Close
1809+ End If
1810+ If (Not (s2) Is Nothing) Then
1811+ s2.Close
1812+ End If
1813+ End Try
1814+ End If
1815+ xs.Add(dsSchema)
1816+ Return type
1817+ End Function
1818+ End Class
1819+
1820+ '''<summary>
14101821 '''Represents strongly named DataRow class.
14111822 '''</summary>
14121823 Partial Public Class tbl_staffRow
@@ -2028,6 +2439,292 @@
20282439 End Class
20292440
20302441 '''<summary>
2442+ '''Represents strongly named DataRow class.
2443+ '''</summary>
2444+ Partial Public Class vw_projectlist_testRow
2445+ Inherits Global.System.Data.DataRow
2446+
2447+ Private tablevw_projectlist_test As vw_projectlist_testDataTable
2448+
2449+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2450+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2451+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
2452+ MyBase.New(rb)
2453+ Me.tablevw_projectlist_test = CType(Me.Table,vw_projectlist_testDataTable)
2454+ End Sub
2455+
2456+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2457+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2458+ Public Property project_code() As String
2459+ Get
2460+ Try
2461+ Return CType(Me(Me.tablevw_projectlist_test.project_codeColumn),String)
2462+ Catch e As Global.System.InvalidCastException
2463+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'project_code' の値は DBNull です。", e)
2464+ End Try
2465+ End Get
2466+ Set
2467+ Me(Me.tablevw_projectlist_test.project_codeColumn) = value
2468+ End Set
2469+ End Property
2470+
2471+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2472+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2473+ Public Property project_name() As String
2474+ Get
2475+ Try
2476+ Return CType(Me(Me.tablevw_projectlist_test.project_nameColumn),String)
2477+ Catch e As Global.System.InvalidCastException
2478+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'project_name' の値は DBNull です。", e)
2479+ End Try
2480+ End Get
2481+ Set
2482+ Me(Me.tablevw_projectlist_test.project_nameColumn) = value
2483+ End Set
2484+ End Property
2485+
2486+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2487+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2488+ Public Property customer_code() As String
2489+ Get
2490+ Try
2491+ Return CType(Me(Me.tablevw_projectlist_test.customer_codeColumn),String)
2492+ Catch e As Global.System.InvalidCastException
2493+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'customer_code' の値は DBNull です。", e)
2494+ End Try
2495+ End Get
2496+ Set
2497+ Me(Me.tablevw_projectlist_test.customer_codeColumn) = value
2498+ End Set
2499+ End Property
2500+
2501+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2502+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2503+ Public Property staff_code() As String
2504+ Get
2505+ Try
2506+ Return CType(Me(Me.tablevw_projectlist_test.staff_codeColumn),String)
2507+ Catch e As Global.System.InvalidCastException
2508+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'staff_code' の値は DBNull です。", e)
2509+ End Try
2510+ End Get
2511+ Set
2512+ Me(Me.tablevw_projectlist_test.staff_codeColumn) = value
2513+ End Set
2514+ End Property
2515+
2516+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2517+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2518+ Public Property start_date() As Date
2519+ Get
2520+ Try
2521+ Return CType(Me(Me.tablevw_projectlist_test.start_dateColumn),Date)
2522+ Catch e As Global.System.InvalidCastException
2523+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'start_date' の値は DBNull です。", e)
2524+ End Try
2525+ End Get
2526+ Set
2527+ Me(Me.tablevw_projectlist_test.start_dateColumn) = value
2528+ End Set
2529+ End Property
2530+
2531+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2532+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2533+ Public Property end_data() As Date
2534+ Get
2535+ Try
2536+ Return CType(Me(Me.tablevw_projectlist_test.end_dataColumn),Date)
2537+ Catch e As Global.System.InvalidCastException
2538+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'end_data' の値は DBNull です。", e)
2539+ End Try
2540+ End Get
2541+ Set
2542+ Me(Me.tablevw_projectlist_test.end_dataColumn) = value
2543+ End Set
2544+ End Property
2545+
2546+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2547+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2548+ Public Property memo() As String
2549+ Get
2550+ Try
2551+ Return CType(Me(Me.tablevw_projectlist_test.memoColumn),String)
2552+ Catch e As Global.System.InvalidCastException
2553+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'memo' の値は DBNull です。", e)
2554+ End Try
2555+ End Get
2556+ Set
2557+ Me(Me.tablevw_projectlist_test.memoColumn) = value
2558+ End Set
2559+ End Property
2560+
2561+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2562+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2563+ Public Property complete_flag() As Boolean
2564+ Get
2565+ Try
2566+ Return CType(Me(Me.tablevw_projectlist_test.complete_flagColumn),Boolean)
2567+ Catch e As Global.System.InvalidCastException
2568+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'complete_flag' の値は DBNull です。", e)
2569+ End Try
2570+ End Get
2571+ Set
2572+ Me(Me.tablevw_projectlist_test.complete_flagColumn) = value
2573+ End Set
2574+ End Property
2575+
2576+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2577+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2578+ Public Property staff_name() As String
2579+ Get
2580+ Try
2581+ Return CType(Me(Me.tablevw_projectlist_test.staff_nameColumn),String)
2582+ Catch e As Global.System.InvalidCastException
2583+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'staff_name' の値は DBNull です。", e)
2584+ End Try
2585+ End Get
2586+ Set
2587+ Me(Me.tablevw_projectlist_test.staff_nameColumn) = value
2588+ End Set
2589+ End Property
2590+
2591+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2592+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2593+ Public Property customer_name() As String
2594+ Get
2595+ Try
2596+ Return CType(Me(Me.tablevw_projectlist_test.customer_nameColumn),String)
2597+ Catch e As Global.System.InvalidCastException
2598+ Throw New Global.System.Data.StrongTypingException("テーブル 'vw_projectlist_test' にある列 'customer_name' の値は DBNull です。", e)
2599+ End Try
2600+ End Get
2601+ Set
2602+ Me(Me.tablevw_projectlist_test.customer_nameColumn) = value
2603+ End Set
2604+ End Property
2605+
2606+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2607+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2608+ Public Function Isproject_codeNull() As Boolean
2609+ Return Me.IsNull(Me.tablevw_projectlist_test.project_codeColumn)
2610+ End Function
2611+
2612+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2613+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2614+ Public Sub Setproject_codeNull()
2615+ Me(Me.tablevw_projectlist_test.project_codeColumn) = Global.System.Convert.DBNull
2616+ End Sub
2617+
2618+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2619+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2620+ Public Function Isproject_nameNull() As Boolean
2621+ Return Me.IsNull(Me.tablevw_projectlist_test.project_nameColumn)
2622+ End Function
2623+
2624+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2625+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2626+ Public Sub Setproject_nameNull()
2627+ Me(Me.tablevw_projectlist_test.project_nameColumn) = Global.System.Convert.DBNull
2628+ End Sub
2629+
2630+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2631+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2632+ Public Function Iscustomer_codeNull() As Boolean
2633+ Return Me.IsNull(Me.tablevw_projectlist_test.customer_codeColumn)
2634+ End Function
2635+
2636+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2637+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2638+ Public Sub Setcustomer_codeNull()
2639+ Me(Me.tablevw_projectlist_test.customer_codeColumn) = Global.System.Convert.DBNull
2640+ End Sub
2641+
2642+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2643+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2644+ Public Function Isstaff_codeNull() As Boolean
2645+ Return Me.IsNull(Me.tablevw_projectlist_test.staff_codeColumn)
2646+ End Function
2647+
2648+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2649+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2650+ Public Sub Setstaff_codeNull()
2651+ Me(Me.tablevw_projectlist_test.staff_codeColumn) = Global.System.Convert.DBNull
2652+ End Sub
2653+
2654+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2655+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2656+ Public Function Isstart_dateNull() As Boolean
2657+ Return Me.IsNull(Me.tablevw_projectlist_test.start_dateColumn)
2658+ End Function
2659+
2660+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2661+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2662+ Public Sub Setstart_dateNull()
2663+ Me(Me.tablevw_projectlist_test.start_dateColumn) = Global.System.Convert.DBNull
2664+ End Sub
2665+
2666+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2667+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2668+ Public Function Isend_dataNull() As Boolean
2669+ Return Me.IsNull(Me.tablevw_projectlist_test.end_dataColumn)
2670+ End Function
2671+
2672+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2673+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2674+ Public Sub Setend_dataNull()
2675+ Me(Me.tablevw_projectlist_test.end_dataColumn) = Global.System.Convert.DBNull
2676+ End Sub
2677+
2678+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2679+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2680+ Public Function IsmemoNull() As Boolean
2681+ Return Me.IsNull(Me.tablevw_projectlist_test.memoColumn)
2682+ End Function
2683+
2684+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2685+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2686+ Public Sub SetmemoNull()
2687+ Me(Me.tablevw_projectlist_test.memoColumn) = Global.System.Convert.DBNull
2688+ End Sub
2689+
2690+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2691+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2692+ Public Function Iscomplete_flagNull() As Boolean
2693+ Return Me.IsNull(Me.tablevw_projectlist_test.complete_flagColumn)
2694+ End Function
2695+
2696+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2697+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2698+ Public Sub Setcomplete_flagNull()
2699+ Me(Me.tablevw_projectlist_test.complete_flagColumn) = Global.System.Convert.DBNull
2700+ End Sub
2701+
2702+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2703+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2704+ Public Function Isstaff_nameNull() As Boolean
2705+ Return Me.IsNull(Me.tablevw_projectlist_test.staff_nameColumn)
2706+ End Function
2707+
2708+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2709+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2710+ Public Sub Setstaff_nameNull()
2711+ Me(Me.tablevw_projectlist_test.staff_nameColumn) = Global.System.Convert.DBNull
2712+ End Sub
2713+
2714+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2715+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2716+ Public Function Iscustomer_nameNull() As Boolean
2717+ Return Me.IsNull(Me.tablevw_projectlist_test.customer_nameColumn)
2718+ End Function
2719+
2720+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2721+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2722+ Public Sub Setcustomer_nameNull()
2723+ Me(Me.tablevw_projectlist_test.customer_nameColumn) = Global.System.Convert.DBNull
2724+ End Sub
2725+ End Class
2726+
2727+ '''<summary>
20312728 '''Row event argument class
20322729 '''</summary>
20332730 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
@@ -2134,6 +2831,42 @@
21342831 End Get
21352832 End Property
21362833 End Class
2834+
2835+ '''<summary>
2836+ '''Row event argument class
2837+ '''</summary>
2838+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2839+ Public Class vw_projectlist_testRowChangeEvent
2840+ Inherits Global.System.EventArgs
2841+
2842+ Private eventRow As vw_projectlist_testRow
2843+
2844+ Private eventAction As Global.System.Data.DataRowAction
2845+
2846+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2847+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2848+ Public Sub New(ByVal row As vw_projectlist_testRow, ByVal action As Global.System.Data.DataRowAction)
2849+ MyBase.New
2850+ Me.eventRow = row
2851+ Me.eventAction = action
2852+ End Sub
2853+
2854+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2855+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2856+ Public ReadOnly Property Row() As vw_projectlist_testRow
2857+ Get
2858+ Return Me.eventRow
2859+ End Get
2860+ End Property
2861+
2862+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2863+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
2864+ Public ReadOnly Property Action() As Global.System.Data.DataRowAction
2865+ Get
2866+ Return Me.eventAction
2867+ End Get
2868+ End Property
2869+ End Class
21372870 End Class
21382871
21392872 Namespace projectManageDataSetTableAdapters
@@ -3749,6 +4482,189 @@
37494482 End Class
37504483
37514484 '''<summary>
4485+ '''Represents the connection and commands used to retrieve and save data.
4486+ '''</summary>
4487+ <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
4488+ Global.System.ComponentModel.ToolboxItem(true), _
4489+ Global.System.ComponentModel.DataObjectAttribute(true), _
4490+ Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
4491+ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
4492+ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4493+ Partial Public Class vw_projectlist_testTableAdapter
4494+ Inherits Global.System.ComponentModel.Component
4495+
4496+ Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
4497+
4498+ Private _connection As Global.System.Data.OleDb.OleDbConnection
4499+
4500+ Private _transaction As Global.System.Data.OleDb.OleDbTransaction
4501+
4502+ Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
4503+
4504+ Private _clearBeforeFill As Boolean
4505+
4506+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4507+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4508+ Public Sub New()
4509+ MyBase.New
4510+ Me.ClearBeforeFill = true
4511+ End Sub
4512+
4513+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4514+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4515+ Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
4516+ Get
4517+ If (Me._adapter Is Nothing) Then
4518+ Me.InitAdapter
4519+ End If
4520+ Return Me._adapter
4521+ End Get
4522+ End Property
4523+
4524+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4525+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4526+ Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
4527+ Get
4528+ If (Me._connection Is Nothing) Then
4529+ Me.InitConnection
4530+ End If
4531+ Return Me._connection
4532+ End Get
4533+ Set
4534+ Me._connection = value
4535+ If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
4536+ Me.Adapter.InsertCommand.Connection = value
4537+ End If
4538+ If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
4539+ Me.Adapter.DeleteCommand.Connection = value
4540+ End If
4541+ If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
4542+ Me.Adapter.UpdateCommand.Connection = value
4543+ End If
4544+ Dim i As Integer = 0
4545+ Do While (i < Me.CommandCollection.Length)
4546+ If (Not (Me.CommandCollection(i)) Is Nothing) Then
4547+ CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
4548+ End If
4549+ i = (i + 1)
4550+ Loop
4551+ End Set
4552+ End Property
4553+
4554+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4555+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4556+ Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
4557+ Get
4558+ Return Me._transaction
4559+ End Get
4560+ Set
4561+ Me._transaction = value
4562+ Dim i As Integer = 0
4563+ Do While (i < Me.CommandCollection.Length)
4564+ Me.CommandCollection(i).Transaction = Me._transaction
4565+ i = (i + 1)
4566+ Loop
4567+ If ((Not (Me.Adapter) Is Nothing) _
4568+ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
4569+ Me.Adapter.DeleteCommand.Transaction = Me._transaction
4570+ End If
4571+ If ((Not (Me.Adapter) Is Nothing) _
4572+ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
4573+ Me.Adapter.InsertCommand.Transaction = Me._transaction
4574+ End If
4575+ If ((Not (Me.Adapter) Is Nothing) _
4576+ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
4577+ Me.Adapter.UpdateCommand.Transaction = Me._transaction
4578+ End If
4579+ End Set
4580+ End Property
4581+
4582+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4583+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4584+ Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
4585+ Get
4586+ If (Me._commandCollection Is Nothing) Then
4587+ Me.InitCommandCollection
4588+ End If
4589+ Return Me._commandCollection
4590+ End Get
4591+ End Property
4592+
4593+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4594+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4595+ Public Property ClearBeforeFill() As Boolean
4596+ Get
4597+ Return Me._clearBeforeFill
4598+ End Get
4599+ Set
4600+ Me._clearBeforeFill = value
4601+ End Set
4602+ End Property
4603+
4604+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4605+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4606+ Private Sub InitAdapter()
4607+ Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
4608+ Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
4609+ tableMapping.SourceTable = "Table"
4610+ tableMapping.DataSetTable = "vw_projectlist_test"
4611+ tableMapping.ColumnMappings.Add("project_code", "project_code")
4612+ tableMapping.ColumnMappings.Add("project_name", "project_name")
4613+ tableMapping.ColumnMappings.Add("customer_code", "customer_code")
4614+ tableMapping.ColumnMappings.Add("staff_code", "staff_code")
4615+ tableMapping.ColumnMappings.Add("start_date", "start_date")
4616+ tableMapping.ColumnMappings.Add("end_data", "end_data")
4617+ tableMapping.ColumnMappings.Add("memo", "memo")
4618+ tableMapping.ColumnMappings.Add("complete_flag", "complete_flag")
4619+ tableMapping.ColumnMappings.Add("staff_name", "staff_name")
4620+ tableMapping.ColumnMappings.Add("customer_name", "customer_name")
4621+ Me._adapter.TableMappings.Add(tableMapping)
4622+ End Sub
4623+
4624+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4625+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4626+ Private Sub InitConnection()
4627+ Me._connection = New Global.System.Data.OleDb.OleDbConnection()
4628+ Me._connection.ConnectionString = Global.accdb1.Settings.Default.projectManageConnectionString
4629+ End Sub
4630+
4631+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4632+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
4633+ Private Sub InitCommandCollection()
4634+ Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
4635+ Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
4636+ Me._commandCollection(0).Connection = Me.Connection
4637+ Me._commandCollection(0).CommandText = "SELECT project_code, project_name, customer_code, staff_code, start_date, end_dat"& _
4638+ "a, [memo], complete_flag, staff_name, customer_name FROM vw_projectlist_test"
4639+ Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
4640+ End Sub
4641+
4642+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4643+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
4644+ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4645+ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
4646+ Public Overloads Overridable Function Fill(ByVal dataTable As projectManageDataSet.vw_projectlist_testDataTable) As Integer
4647+ Me.Adapter.SelectCommand = Me.CommandCollection(0)
4648+ If (Me.ClearBeforeFill = true) Then
4649+ dataTable.Clear
4650+ End If
4651+ Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
4652+ Return returnValue
4653+ End Function
4654+
4655+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4656+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
4657+ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4658+ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
4659+ Public Overloads Overridable Function GetData() As projectManageDataSet.vw_projectlist_testDataTable
4660+ Me.Adapter.SelectCommand = Me.CommandCollection(0)
4661+ Dim dataTable As projectManageDataSet.vw_projectlist_testDataTable = New projectManageDataSet.vw_projectlist_testDataTable()
4662+ Me.Adapter.Fill(dataTable)
4663+ Return dataTable
4664+ End Function
4665+ End Class
4666+
4667+ '''<summary>
37524668 '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
37534669 '''</summary>
37544670 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
--- vbdb/accdb1/accdb1/projectManageDataSet.xsd (revision 372)
+++ vbdb/accdb1/accdb1/projectManageDataSet.xsd (revision 373)
@@ -279,6 +279,31 @@
279279 </DbSource>
280280 </Sources>
281281 </TableAdapter>
282+ <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="vw_projectlist_testTableAdapter" GeneratorDataComponentClassName="vw_projectlist_testTableAdapter" Name="vw_projectlist_test" UserDataComponentName="vw_projectlist_testTableAdapter">
283+ <MainSource>
284+ <DbSource ConnectionRef="projectManageConnectionString (Settings)" DbObjectName="vw_projectlist_test" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" 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">
285+ <SelectCommand>
286+ <DbCommand CommandType="Text" ModifiedByUser="false">
287+ <CommandText>SELECT project_code, project_name, customer_code, staff_code, start_date, end_data, [memo], complete_flag, staff_name, customer_name FROM vw_projectlist_test</CommandText>
288+ <Parameters />
289+ </DbCommand>
290+ </SelectCommand>
291+ </DbSource>
292+ </MainSource>
293+ <Mappings>
294+ <Mapping SourceColumn="project_code" DataSetColumn="project_code" />
295+ <Mapping SourceColumn="project_name" DataSetColumn="project_name" />
296+ <Mapping SourceColumn="customer_code" DataSetColumn="customer_code" />
297+ <Mapping SourceColumn="staff_code" DataSetColumn="staff_code" />
298+ <Mapping SourceColumn="start_date" DataSetColumn="start_date" />
299+ <Mapping SourceColumn="end_data" DataSetColumn="end_data" />
300+ <Mapping SourceColumn="memo" DataSetColumn="memo" />
301+ <Mapping SourceColumn="complete_flag" DataSetColumn="complete_flag" />
302+ <Mapping SourceColumn="staff_name" DataSetColumn="staff_name" />
303+ <Mapping SourceColumn="customer_name" DataSetColumn="customer_name" />
304+ </Mappings>
305+ <Sources />
306+ </TableAdapter>
282307 </Tables>
283308 <Sources />
284309 </DataSource>
@@ -287,7 +312,7 @@
287312 <xs:element name="projectManageDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="projectManageDataSet" msprop:Generator_UserDSName="projectManageDataSet">
288313 <xs:complexType>
289314 <xs:choice minOccurs="0" maxOccurs="unbounded">
290- <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">
315+ <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">
291316 <xs:complexType>
292317 <xs:sequence>
293318 <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">
@@ -360,7 +385,7 @@
360385 </xs:sequence>
361386 </xs:complexType>
362387 </xs:element>
363- <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">
388+ <xs:element name="tbl_section" msprop:Generator_TableClassName="tbl_sectionDataTable" msprop:Generator_TableVarName="tabletbl_section" msprop:Generator_RowChangedName="tbl_sectionRowChanged" 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_RowClassName="tbl_sectionRow" msprop:Generator_UserTableName="tbl_section" msprop:Generator_RowEvArgName="tbl_sectionRowChangeEvent">
364389 <xs:complexType>
365390 <xs:sequence>
366391 <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">
@@ -380,7 +405,7 @@
380405 </xs:sequence>
381406 </xs:complexType>
382407 </xs:element>
383- <xs:element name="tbl_customer" msprop:Generator_TableClassName="tbl_customerDataTable" msprop:Generator_TableVarName="tabletbl_customer" msprop:Generator_RowChangedName="tbl_customerRowChanged" msprop:Generator_TablePropName="tbl_customer" msprop:Generator_RowDeletingName="tbl_customerRowDeleting" msprop:Generator_RowChangingName="tbl_customerRowChanging" msprop:Generator_RowEvHandlerName="tbl_customerRowChangeEventHandler" msprop:Generator_RowDeletedName="tbl_customerRowDeleted" msprop:Generator_RowClassName="tbl_customerRow" msprop:Generator_UserTableName="tbl_customer" msprop:Generator_RowEvArgName="tbl_customerRowChangeEvent">
408+ <xs:element name="tbl_customer" msprop:Generator_TableClassName="tbl_customerDataTable" msprop:Generator_TableVarName="tabletbl_customer" msprop:Generator_TablePropName="tbl_customer" msprop:Generator_RowDeletingName="tbl_customerRowDeleting" msprop:Generator_RowChangingName="tbl_customerRowChanging" msprop:Generator_RowEvHandlerName="tbl_customerRowChangeEventHandler" msprop:Generator_RowDeletedName="tbl_customerRowDeleted" msprop:Generator_UserTableName="tbl_customer" msprop:Generator_RowChangedName="tbl_customerRowChanged" msprop:Generator_RowEvArgName="tbl_customerRowChangeEvent" msprop:Generator_RowClassName="tbl_customerRow">
384409 <xs:complexType>
385410 <xs:sequence>
386411 <xs:element name="customer_code" msprop:Generator_ColumnVarNameInTable="columncustomer_code" msprop:Generator_ColumnPropNameInRow="customer_code" msprop:Generator_ColumnPropNameInTable="customer_codeColumn" msprop:Generator_UserColumnName="customer_code">
@@ -436,6 +461,64 @@
436461 </xs:sequence>
437462 </xs:complexType>
438463 </xs:element>
464+ <xs:element name="vw_projectlist_test" msprop:Generator_TableClassName="vw_projectlist_testDataTable" msprop:Generator_TableVarName="tablevw_projectlist_test" msprop:Generator_TablePropName="vw_projectlist_test" msprop:Generator_RowDeletingName="vw_projectlist_testRowDeleting" msprop:Generator_RowChangingName="vw_projectlist_testRowChanging" msprop:Generator_RowEvHandlerName="vw_projectlist_testRowChangeEventHandler" msprop:Generator_RowDeletedName="vw_projectlist_testRowDeleted" msprop:Generator_UserTableName="vw_projectlist_test" msprop:Generator_RowChangedName="vw_projectlist_testRowChanged" msprop:Generator_RowEvArgName="vw_projectlist_testRowChangeEvent" msprop:Generator_RowClassName="vw_projectlist_testRow">
465+ <xs:complexType>
466+ <xs:sequence>
467+ <xs:element name="project_code" msprop:Generator_ColumnVarNameInTable="columnproject_code" msprop:Generator_ColumnPropNameInRow="project_code" msprop:Generator_ColumnPropNameInTable="project_codeColumn" msprop:Generator_UserColumnName="project_code" minOccurs="0">
468+ <xs:simpleType>
469+ <xs:restriction base="xs:string">
470+ <xs:maxLength value="5" />
471+ </xs:restriction>
472+ </xs:simpleType>
473+ </xs:element>
474+ <xs:element name="project_name" msprop:Generator_ColumnVarNameInTable="columnproject_name" msprop:Generator_ColumnPropNameInRow="project_name" msprop:Generator_ColumnPropNameInTable="project_nameColumn" msprop:Generator_UserColumnName="project_name" minOccurs="0">
475+ <xs:simpleType>
476+ <xs:restriction base="xs:string">
477+ <xs:maxLength value="50" />
478+ </xs:restriction>
479+ </xs:simpleType>
480+ </xs:element>
481+ <xs:element name="customer_code" msprop:Generator_ColumnVarNameInTable="columncustomer_code" msprop:Generator_ColumnPropNameInRow="customer_code" msprop:Generator_ColumnPropNameInTable="customer_codeColumn" msprop:Generator_UserColumnName="customer_code" minOccurs="0">
482+ <xs:simpleType>
483+ <xs:restriction base="xs:string">
484+ <xs:maxLength value="7" />
485+ </xs:restriction>
486+ </xs:simpleType>
487+ </xs:element>
488+ <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" minOccurs="0">
489+ <xs:simpleType>
490+ <xs:restriction base="xs:string">
491+ <xs:maxLength value="6" />
492+ </xs:restriction>
493+ </xs:simpleType>
494+ </xs:element>
495+ <xs:element name="start_date" msprop:Generator_ColumnVarNameInTable="columnstart_date" msprop:Generator_ColumnPropNameInRow="start_date" msprop:Generator_ColumnPropNameInTable="start_dateColumn" msprop:Generator_UserColumnName="start_date" type="xs:dateTime" minOccurs="0" />
496+ <xs:element name="end_data" msprop:Generator_ColumnVarNameInTable="columnend_data" msprop:Generator_ColumnPropNameInRow="end_data" msprop:Generator_ColumnPropNameInTable="end_dataColumn" msprop:Generator_UserColumnName="end_data" type="xs:dateTime" minOccurs="0" />
497+ <xs:element name="memo" msprop:Generator_ColumnVarNameInTable="columnmemo" msprop:Generator_ColumnPropNameInRow="memo" msprop:Generator_ColumnPropNameInTable="memoColumn" msprop:Generator_UserColumnName="memo" minOccurs="0">
498+ <xs:simpleType>
499+ <xs:restriction base="xs:string">
500+ <xs:maxLength value="536870910" />
501+ </xs:restriction>
502+ </xs:simpleType>
503+ </xs:element>
504+ <xs:element name="complete_flag" msprop:Generator_ColumnVarNameInTable="columncomplete_flag" msprop:Generator_ColumnPropNameInRow="complete_flag" msprop:Generator_ColumnPropNameInTable="complete_flagColumn" msprop:Generator_UserColumnName="complete_flag" type="xs:boolean" minOccurs="0" />
505+ <xs:element name="staff_name" msprop:Generator_ColumnVarNameInTable="columnstaff_name" msprop:Generator_ColumnPropNameInRow="staff_name" msprop:Generator_ColumnPropNameInTable="staff_nameColumn" msprop:Generator_UserColumnName="staff_name" minOccurs="0">
506+ <xs:simpleType>
507+ <xs:restriction base="xs:string">
508+ <xs:maxLength value="20" />
509+ </xs:restriction>
510+ </xs:simpleType>
511+ </xs:element>
512+ <xs:element name="customer_name" msprop:Generator_ColumnVarNameInTable="columncustomer_name" msprop:Generator_ColumnPropNameInRow="customer_name" msprop:Generator_ColumnPropNameInTable="customer_nameColumn" msprop:Generator_UserColumnName="customer_name" minOccurs="0">
513+ <xs:simpleType>
514+ <xs:restriction base="xs:string">
515+ <xs:maxLength value="50" />
516+ </xs:restriction>
517+ </xs:simpleType>
518+ </xs:element>
519+ </xs:sequence>
520+ </xs:complexType>
521+ </xs:element>
439522 </xs:choice>
440523 </xs:complexType>
441524 <xs:unique name="Constraint1" msdata:PrimaryKey="true">