• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision80 (tree)
Time2018-07-18 15:58:30
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.Const/MLAppConst.vb (revision 79)
+++ trunk/MLApp.Const/MLAppConst.vb (revision 80)
@@ -24,6 +24,9 @@
2424 ''' <summary>テーブル名定数</summary>
2525 Public Class TableName
2626
27+ '''<Summary>棚卸明細(D180_F)</Summary>
28+ Public Const D180_F As String = "D180_F"
29+
2730 '''<Summary>見積件名(D710_F)</Summary>
2831 Public Const D710_F As String = "D710_F"
2932
--- trunk/MLApp.DataModel/D1_TRNDataSet.Designer.vb (nonexistent)
+++ trunk/MLApp.DataModel/D1_TRNDataSet.Designer.vb (revision 80)
@@ -0,0 +1,865 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' このコードはツールによって生成されました。
4+' ランタイム バージョン:4.0.30319.42000
5+'
6+' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7+' コードが再生成されるときに損失したりします。
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict Off
12+Option Explicit On
13+
14+
15+
16+'''<summary>
17+'''Represents a strongly typed in-memory cache of data.
18+'''</summary>
19+<Global.System.Serializable(), _
20+ Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21+ Global.System.ComponentModel.ToolboxItem(true), _
22+ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23+ Global.System.Xml.Serialization.XmlRootAttribute("D8_TRNDataSet"), _
24+ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25+Partial Public Class D8_TRNDataSet
26+ Inherits Global.System.Data.DataSet
27+
28+ Private tableD180_F As D180_FDataTable
29+
30+ Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
31+
32+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
33+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
34+ Public Sub New()
35+ MyBase.New
36+ Me.BeginInit
37+ Me.InitClass
38+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
39+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
40+ AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
41+ Me.EndInit
42+ End Sub
43+
44+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
45+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
46+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
47+ MyBase.New(info, context, false)
48+ If (Me.IsBinarySerialized(info, context) = true) Then
49+ Me.InitVars(false)
50+ Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
51+ AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
52+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
53+ Return
54+ End If
55+ Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
56+ If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
57+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
58+ ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
59+ If (Not (ds.Tables("D180_F")) Is Nothing) Then
60+ MyBase.Tables.Add(New D180_FDataTable(ds.Tables("D180_F")))
61+ End If
62+ Me.DataSetName = ds.DataSetName
63+ Me.Prefix = ds.Prefix
64+ Me.Namespace = ds.Namespace
65+ Me.Locale = ds.Locale
66+ Me.CaseSensitive = ds.CaseSensitive
67+ Me.EnforceConstraints = ds.EnforceConstraints
68+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
69+ Me.InitVars
70+ Else
71+ Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
72+ End If
73+ Me.GetSerializationData(info, context)
74+ Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
75+ AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
76+ AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
77+ End Sub
78+
79+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
80+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
81+ Global.System.ComponentModel.Browsable(false), _
82+ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
83+ Public ReadOnly Property D180_F() As D180_FDataTable
84+ Get
85+ Return Me.tableD180_F
86+ End Get
87+ End Property
88+
89+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
90+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
91+ Global.System.ComponentModel.BrowsableAttribute(true), _
92+ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
93+ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
94+ Get
95+ Return Me._schemaSerializationMode
96+ End Get
97+ Set
98+ Me._schemaSerializationMode = value
99+ End Set
100+ End Property
101+
102+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
103+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
104+ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
105+ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
106+ Get
107+ Return MyBase.Tables
108+ End Get
109+ End Property
110+
111+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
112+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
113+ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
114+ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
115+ Get
116+ Return MyBase.Relations
117+ End Get
118+ End Property
119+
120+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
121+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
122+ Protected Overrides Sub InitializeDerivedDataSet()
123+ Me.BeginInit
124+ Me.InitClass
125+ Me.EndInit
126+ End Sub
127+
128+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
129+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
130+ Public Overrides Function Clone() As Global.System.Data.DataSet
131+ Dim cln As D8_TRNDataSet = CType(MyBase.Clone,D8_TRNDataSet)
132+ cln.InitVars
133+ cln.SchemaSerializationMode = Me.SchemaSerializationMode
134+ Return cln
135+ End Function
136+
137+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
138+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
139+ Protected Overrides Function ShouldSerializeTables() As Boolean
140+ Return false
141+ End Function
142+
143+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
144+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
145+ Protected Overrides Function ShouldSerializeRelations() As Boolean
146+ Return false
147+ End Function
148+
149+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
150+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
151+ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
152+ If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
153+ Me.Reset
154+ Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
155+ ds.ReadXml(reader)
156+ If (Not (ds.Tables("D180_F")) Is Nothing) Then
157+ MyBase.Tables.Add(New D180_FDataTable(ds.Tables("D180_F")))
158+ End If
159+ Me.DataSetName = ds.DataSetName
160+ Me.Prefix = ds.Prefix
161+ Me.Namespace = ds.Namespace
162+ Me.Locale = ds.Locale
163+ Me.CaseSensitive = ds.CaseSensitive
164+ Me.EnforceConstraints = ds.EnforceConstraints
165+ Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
166+ Me.InitVars
167+ Else
168+ Me.ReadXml(reader)
169+ Me.InitVars
170+ End If
171+ End Sub
172+
173+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
174+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
175+ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
176+ Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
177+ Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
178+ stream.Position = 0
179+ Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
180+ End Function
181+
182+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
183+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
184+ Friend Overloads Sub InitVars()
185+ Me.InitVars(true)
186+ End Sub
187+
188+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
189+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
190+ Friend Overloads Sub InitVars(ByVal initTable As Boolean)
191+ Me.tableD180_F = CType(MyBase.Tables("D180_F"),D180_FDataTable)
192+ If (initTable = true) Then
193+ If (Not (Me.tableD180_F) Is Nothing) Then
194+ Me.tableD180_F.InitVars
195+ End If
196+ End If
197+ End Sub
198+
199+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
200+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
201+ Private Sub InitClass()
202+ Me.DataSetName = "D8_TRNDataSet"
203+ Me.Prefix = ""
204+ Me.Namespace = "http://tempuri.org/D8_TRNDataSet.xsd"
205+ Me.EnforceConstraints = true
206+ Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
207+ Me.tableD180_F = New D180_FDataTable()
208+ MyBase.Tables.Add(Me.tableD180_F)
209+ End Sub
210+
211+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
212+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
213+ Private Function ShouldSerializeD180_F() As Boolean
214+ Return false
215+ End Function
216+
217+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
218+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
219+ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
220+ If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
221+ Me.InitVars
222+ End If
223+ End Sub
224+
225+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
226+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
227+ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
228+ Dim ds As D8_TRNDataSet = New D8_TRNDataSet()
229+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
230+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
231+ Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
232+ any.Namespace = ds.Namespace
233+ sequence.Items.Add(any)
234+ type.Particle = sequence
235+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
236+ If xs.Contains(dsSchema.TargetNamespace) Then
237+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
238+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
239+ Try
240+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
241+ dsSchema.Write(s1)
242+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
243+ Do While schemas.MoveNext
244+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
245+ s2.SetLength(0)
246+ schema.Write(s2)
247+ If (s1.Length = s2.Length) Then
248+ s1.Position = 0
249+ s2.Position = 0
250+
251+ Do While ((s1.Position <> s1.Length) _
252+ AndAlso (s1.ReadByte = s2.ReadByte))
253+
254+
255+ Loop
256+ If (s1.Position = s1.Length) Then
257+ Return type
258+ End If
259+ End If
260+
261+ Loop
262+ Finally
263+ If (Not (s1) Is Nothing) Then
264+ s1.Close
265+ End If
266+ If (Not (s2) Is Nothing) Then
267+ s2.Close
268+ End If
269+ End Try
270+ End If
271+ xs.Add(dsSchema)
272+ Return type
273+ End Function
274+
275+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
276+ Public Delegate Sub D180_FRowChangeEventHandler(ByVal sender As Object, ByVal e As D180_FRowChangeEvent)
277+
278+ '''<summary>
279+ '''Represents the strongly named DataTable class.
280+ '''</summary>
281+ <Global.System.Serializable(), _
282+ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
283+ Partial Public Class D180_FDataTable
284+ Inherits Global.System.Data.TypedTableBase(Of D180_FRow)
285+
286+ Private columnD180_DATE1 As Global.System.Data.DataColumn
287+
288+ Private columnD180_M150CD1 As Global.System.Data.DataColumn
289+
290+ Private columnD180_SURY1 As Global.System.Data.DataColumn
291+
292+ Private columnD180_BIKO1 As Global.System.Data.DataColumn
293+
294+ Private columnD180_KUBN1 As Global.System.Data.DataColumn
295+
296+ Private columnD180_KUBN2 As Global.System.Data.DataColumn
297+
298+ Private columnD180_KUBN3 As Global.System.Data.DataColumn
299+
300+ Private columnD180_UPD1 As Global.System.Data.DataColumn
301+
302+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
303+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
304+ Public Sub New()
305+ MyBase.New
306+ Me.TableName = "D180_F"
307+ Me.BeginInit
308+ Me.InitClass
309+ Me.EndInit
310+ End Sub
311+
312+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
313+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
314+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
315+ MyBase.New
316+ Me.TableName = table.TableName
317+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
318+ Me.CaseSensitive = table.CaseSensitive
319+ End If
320+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
321+ Me.Locale = table.Locale
322+ End If
323+ If (table.Namespace <> table.DataSet.Namespace) Then
324+ Me.Namespace = table.Namespace
325+ End If
326+ Me.Prefix = table.Prefix
327+ Me.MinimumCapacity = table.MinimumCapacity
328+ End Sub
329+
330+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
331+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
332+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
333+ MyBase.New(info, context)
334+ Me.InitVars
335+ End Sub
336+
337+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
338+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
339+ Public ReadOnly Property D180_DATE1Column() As Global.System.Data.DataColumn
340+ Get
341+ Return Me.columnD180_DATE1
342+ End Get
343+ End Property
344+
345+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
346+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
347+ Public ReadOnly Property D180_M150CD1Column() As Global.System.Data.DataColumn
348+ Get
349+ Return Me.columnD180_M150CD1
350+ End Get
351+ End Property
352+
353+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
354+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
355+ Public ReadOnly Property D180_SURY1Column() As Global.System.Data.DataColumn
356+ Get
357+ Return Me.columnD180_SURY1
358+ End Get
359+ End Property
360+
361+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
362+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
363+ Public ReadOnly Property D180_BIKO1Column() As Global.System.Data.DataColumn
364+ Get
365+ Return Me.columnD180_BIKO1
366+ End Get
367+ End Property
368+
369+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
370+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
371+ Public ReadOnly Property D180_KUBN1Column() As Global.System.Data.DataColumn
372+ Get
373+ Return Me.columnD180_KUBN1
374+ End Get
375+ End Property
376+
377+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
378+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
379+ Public ReadOnly Property D180_KUBN2Column() As Global.System.Data.DataColumn
380+ Get
381+ Return Me.columnD180_KUBN2
382+ End Get
383+ End Property
384+
385+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
386+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
387+ Public ReadOnly Property D180_KUBN3Column() As Global.System.Data.DataColumn
388+ Get
389+ Return Me.columnD180_KUBN3
390+ End Get
391+ End Property
392+
393+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
394+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
395+ Public ReadOnly Property D180_UPD1Column() As Global.System.Data.DataColumn
396+ Get
397+ Return Me.columnD180_UPD1
398+ End Get
399+ End Property
400+
401+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
402+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
403+ Global.System.ComponentModel.Browsable(false)> _
404+ Public ReadOnly Property Count() As Integer
405+ Get
406+ Return Me.Rows.Count
407+ End Get
408+ End Property
409+
410+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
411+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
412+ Public Default ReadOnly Property Item(ByVal index As Integer) As D180_FRow
413+ Get
414+ Return CType(Me.Rows(index),D180_FRow)
415+ End Get
416+ End Property
417+
418+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
419+ Public Event D180_FRowChanging As D180_FRowChangeEventHandler
420+
421+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
422+ Public Event D180_FRowChanged As D180_FRowChangeEventHandler
423+
424+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
425+ Public Event D180_FRowDeleting As D180_FRowChangeEventHandler
426+
427+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
428+ Public Event D180_FRowDeleted As D180_FRowChangeEventHandler
429+
430+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
431+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
432+ Public Overloads Sub AddD180_FRow(ByVal row As D180_FRow)
433+ Me.Rows.Add(row)
434+ End Sub
435+
436+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
437+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
438+ Public Overloads Function AddD180_FRow(ByVal D180_DATE1 As Date, ByVal D180_M150CD1 As String, ByVal D180_SURY1 As Decimal, ByVal D180_BIKO1 As String, ByVal D180_KUBN1 As Decimal, ByVal D180_KUBN2 As Decimal, ByVal D180_KUBN3 As Decimal, ByVal D180_UPD1 As String) As D180_FRow
439+ Dim rowD180_FRow As D180_FRow = CType(Me.NewRow,D180_FRow)
440+ Dim columnValuesArray() As Object = New Object() {D180_DATE1, D180_M150CD1, D180_SURY1, D180_BIKO1, D180_KUBN1, D180_KUBN2, D180_KUBN3, D180_UPD1}
441+ rowD180_FRow.ItemArray = columnValuesArray
442+ Me.Rows.Add(rowD180_FRow)
443+ Return rowD180_FRow
444+ End Function
445+
446+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
447+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
448+ Public Function FindByD180_DATE1D180_M150CD1(ByVal D180_DATE1 As Date, ByVal D180_M150CD1 As String) As D180_FRow
449+ Return CType(Me.Rows.Find(New Object() {D180_DATE1, D180_M150CD1}),D180_FRow)
450+ End Function
451+
452+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
453+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
454+ Public Overrides Function Clone() As Global.System.Data.DataTable
455+ Dim cln As D180_FDataTable = CType(MyBase.Clone,D180_FDataTable)
456+ cln.InitVars
457+ Return cln
458+ End Function
459+
460+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
461+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
462+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
463+ Return New D180_FDataTable()
464+ End Function
465+
466+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
467+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
468+ Friend Sub InitVars()
469+ Me.columnD180_DATE1 = MyBase.Columns("D180_DATE1")
470+ Me.columnD180_M150CD1 = MyBase.Columns("D180_M150CD1")
471+ Me.columnD180_SURY1 = MyBase.Columns("D180_SURY1")
472+ Me.columnD180_BIKO1 = MyBase.Columns("D180_BIKO1")
473+ Me.columnD180_KUBN1 = MyBase.Columns("D180_KUBN1")
474+ Me.columnD180_KUBN2 = MyBase.Columns("D180_KUBN2")
475+ Me.columnD180_KUBN3 = MyBase.Columns("D180_KUBN3")
476+ Me.columnD180_UPD1 = MyBase.Columns("D180_UPD1")
477+ End Sub
478+
479+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
480+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
481+ Private Sub InitClass()
482+ Me.columnD180_DATE1 = New Global.System.Data.DataColumn("D180_DATE1", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
483+ MyBase.Columns.Add(Me.columnD180_DATE1)
484+ Me.columnD180_M150CD1 = New Global.System.Data.DataColumn("D180_M150CD1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
485+ MyBase.Columns.Add(Me.columnD180_M150CD1)
486+ Me.columnD180_SURY1 = New Global.System.Data.DataColumn("D180_SURY1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
487+ MyBase.Columns.Add(Me.columnD180_SURY1)
488+ Me.columnD180_BIKO1 = New Global.System.Data.DataColumn("D180_BIKO1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
489+ MyBase.Columns.Add(Me.columnD180_BIKO1)
490+ Me.columnD180_KUBN1 = New Global.System.Data.DataColumn("D180_KUBN1", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
491+ MyBase.Columns.Add(Me.columnD180_KUBN1)
492+ Me.columnD180_KUBN2 = New Global.System.Data.DataColumn("D180_KUBN2", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
493+ MyBase.Columns.Add(Me.columnD180_KUBN2)
494+ Me.columnD180_KUBN3 = New Global.System.Data.DataColumn("D180_KUBN3", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
495+ MyBase.Columns.Add(Me.columnD180_KUBN3)
496+ Me.columnD180_UPD1 = New Global.System.Data.DataColumn("D180_UPD1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
497+ MyBase.Columns.Add(Me.columnD180_UPD1)
498+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnD180_DATE1, Me.columnD180_M150CD1}, true))
499+ Me.columnD180_DATE1.AllowDBNull = false
500+ Me.columnD180_M150CD1.AllowDBNull = false
501+ End Sub
502+
503+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
504+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
505+ Public Function NewD180_FRow() As D180_FRow
506+ Return CType(Me.NewRow,D180_FRow)
507+ End Function
508+
509+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
510+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
511+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
512+ Return New D180_FRow(builder)
513+ End Function
514+
515+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
516+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
517+ Protected Overrides Function GetRowType() As Global.System.Type
518+ Return GetType(D180_FRow)
519+ End Function
520+
521+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
522+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
523+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
524+ MyBase.OnRowChanged(e)
525+ If (Not (Me.D180_FRowChangedEvent) Is Nothing) Then
526+ RaiseEvent D180_FRowChanged(Me, New D180_FRowChangeEvent(CType(e.Row,D180_FRow), e.Action))
527+ End If
528+ End Sub
529+
530+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
531+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
532+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
533+ MyBase.OnRowChanging(e)
534+ If (Not (Me.D180_FRowChangingEvent) Is Nothing) Then
535+ RaiseEvent D180_FRowChanging(Me, New D180_FRowChangeEvent(CType(e.Row,D180_FRow), e.Action))
536+ End If
537+ End Sub
538+
539+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
540+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
541+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
542+ MyBase.OnRowDeleted(e)
543+ If (Not (Me.D180_FRowDeletedEvent) Is Nothing) Then
544+ RaiseEvent D180_FRowDeleted(Me, New D180_FRowChangeEvent(CType(e.Row,D180_FRow), e.Action))
545+ End If
546+ End Sub
547+
548+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
549+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
550+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
551+ MyBase.OnRowDeleting(e)
552+ If (Not (Me.D180_FRowDeletingEvent) Is Nothing) Then
553+ RaiseEvent D180_FRowDeleting(Me, New D180_FRowChangeEvent(CType(e.Row,D180_FRow), e.Action))
554+ End If
555+ End Sub
556+
557+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
558+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
559+ Public Sub RemoveD180_FRow(ByVal row As D180_FRow)
560+ Me.Rows.Remove(row)
561+ End Sub
562+
563+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
564+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
565+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
566+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
567+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
568+ Dim ds As D8_TRNDataSet = New D8_TRNDataSet()
569+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
570+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
571+ any1.MinOccurs = New Decimal(0)
572+ any1.MaxOccurs = Decimal.MaxValue
573+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
574+ sequence.Items.Add(any1)
575+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
576+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
577+ any2.MinOccurs = New Decimal(1)
578+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
579+ sequence.Items.Add(any2)
580+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
581+ attribute1.Name = "namespace"
582+ attribute1.FixedValue = ds.Namespace
583+ type.Attributes.Add(attribute1)
584+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
585+ attribute2.Name = "tableTypeName"
586+ attribute2.FixedValue = "D180_FDataTable"
587+ type.Attributes.Add(attribute2)
588+ type.Particle = sequence
589+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
590+ If xs.Contains(dsSchema.TargetNamespace) Then
591+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
592+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
593+ Try
594+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
595+ dsSchema.Write(s1)
596+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
597+ Do While schemas.MoveNext
598+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
599+ s2.SetLength(0)
600+ schema.Write(s2)
601+ If (s1.Length = s2.Length) Then
602+ s1.Position = 0
603+ s2.Position = 0
604+
605+ Do While ((s1.Position <> s1.Length) _
606+ AndAlso (s1.ReadByte = s2.ReadByte))
607+
608+
609+ Loop
610+ If (s1.Position = s1.Length) Then
611+ Return type
612+ End If
613+ End If
614+
615+ Loop
616+ Finally
617+ If (Not (s1) Is Nothing) Then
618+ s1.Close
619+ End If
620+ If (Not (s2) Is Nothing) Then
621+ s2.Close
622+ End If
623+ End Try
624+ End If
625+ xs.Add(dsSchema)
626+ Return type
627+ End Function
628+ End Class
629+
630+ '''<summary>
631+ '''Represents strongly named DataRow class.
632+ '''</summary>
633+ Partial Public Class D180_FRow
634+ Inherits Global.System.Data.DataRow
635+
636+ Private tableD180_F As D180_FDataTable
637+
638+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
639+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
640+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
641+ MyBase.New(rb)
642+ Me.tableD180_F = CType(Me.Table,D180_FDataTable)
643+ End Sub
644+
645+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
646+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
647+ Public Property D180_DATE1() As Date
648+ Get
649+ Return CType(Me(Me.tableD180_F.D180_DATE1Column),Date)
650+ End Get
651+ Set
652+ Me(Me.tableD180_F.D180_DATE1Column) = value
653+ End Set
654+ End Property
655+
656+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
657+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
658+ Public Property D180_M150CD1() As String
659+ Get
660+ Return CType(Me(Me.tableD180_F.D180_M150CD1Column),String)
661+ End Get
662+ Set
663+ Me(Me.tableD180_F.D180_M150CD1Column) = value
664+ End Set
665+ End Property
666+
667+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
668+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
669+ Public Property D180_SURY1() As Decimal
670+ Get
671+ Try
672+ Return CType(Me(Me.tableD180_F.D180_SURY1Column),Decimal)
673+ Catch e As Global.System.InvalidCastException
674+ Throw New Global.System.Data.StrongTypingException("テーブル 'D180_F' にある列 'D180_SURY1' の値は DBNull です。", e)
675+ End Try
676+ End Get
677+ Set
678+ Me(Me.tableD180_F.D180_SURY1Column) = value
679+ End Set
680+ End Property
681+
682+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
683+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
684+ Public Property D180_BIKO1() As String
685+ Get
686+ Try
687+ Return CType(Me(Me.tableD180_F.D180_BIKO1Column),String)
688+ Catch e As Global.System.InvalidCastException
689+ Throw New Global.System.Data.StrongTypingException("テーブル 'D180_F' にある列 'D180_BIKO1' の値は DBNull です。", e)
690+ End Try
691+ End Get
692+ Set
693+ Me(Me.tableD180_F.D180_BIKO1Column) = value
694+ End Set
695+ End Property
696+
697+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
698+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
699+ Public Property D180_KUBN1() As Decimal
700+ Get
701+ Try
702+ Return CType(Me(Me.tableD180_F.D180_KUBN1Column),Decimal)
703+ Catch e As Global.System.InvalidCastException
704+ Throw New Global.System.Data.StrongTypingException("テーブル 'D180_F' にある列 'D180_KUBN1' の値は DBNull です。", e)
705+ End Try
706+ End Get
707+ Set
708+ Me(Me.tableD180_F.D180_KUBN1Column) = value
709+ End Set
710+ End Property
711+
712+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
713+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
714+ Public Property D180_KUBN2() As Decimal
715+ Get
716+ Try
717+ Return CType(Me(Me.tableD180_F.D180_KUBN2Column),Decimal)
718+ Catch e As Global.System.InvalidCastException
719+ Throw New Global.System.Data.StrongTypingException("テーブル 'D180_F' にある列 'D180_KUBN2' の値は DBNull です。", e)
720+ End Try
721+ End Get
722+ Set
723+ Me(Me.tableD180_F.D180_KUBN2Column) = value
724+ End Set
725+ End Property
726+
727+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
728+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
729+ Public Property D180_KUBN3() As Decimal
730+ Get
731+ Try
732+ Return CType(Me(Me.tableD180_F.D180_KUBN3Column),Decimal)
733+ Catch e As Global.System.InvalidCastException
734+ Throw New Global.System.Data.StrongTypingException("テーブル 'D180_F' にある列 'D180_KUBN3' の値は DBNull です。", e)
735+ End Try
736+ End Get
737+ Set
738+ Me(Me.tableD180_F.D180_KUBN3Column) = value
739+ End Set
740+ End Property
741+
742+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
743+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
744+ Public Property D180_UPD1() As String
745+ Get
746+ Try
747+ Return CType(Me(Me.tableD180_F.D180_UPD1Column),String)
748+ Catch e As Global.System.InvalidCastException
749+ Throw New Global.System.Data.StrongTypingException("テーブル 'D180_F' にある列 'D180_UPD1' の値は DBNull です。", e)
750+ End Try
751+ End Get
752+ Set
753+ Me(Me.tableD180_F.D180_UPD1Column) = value
754+ End Set
755+ End Property
756+
757+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
758+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
759+ Public Function IsD180_SURY1Null() As Boolean
760+ Return Me.IsNull(Me.tableD180_F.D180_SURY1Column)
761+ End Function
762+
763+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
764+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
765+ Public Sub SetD180_SURY1Null()
766+ Me(Me.tableD180_F.D180_SURY1Column) = Global.System.Convert.DBNull
767+ End Sub
768+
769+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
770+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
771+ Public Function IsD180_BIKO1Null() As Boolean
772+ Return Me.IsNull(Me.tableD180_F.D180_BIKO1Column)
773+ End Function
774+
775+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
776+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
777+ Public Sub SetD180_BIKO1Null()
778+ Me(Me.tableD180_F.D180_BIKO1Column) = Global.System.Convert.DBNull
779+ End Sub
780+
781+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
782+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
783+ Public Function IsD180_KUBN1Null() As Boolean
784+ Return Me.IsNull(Me.tableD180_F.D180_KUBN1Column)
785+ End Function
786+
787+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
788+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
789+ Public Sub SetD180_KUBN1Null()
790+ Me(Me.tableD180_F.D180_KUBN1Column) = Global.System.Convert.DBNull
791+ End Sub
792+
793+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
794+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
795+ Public Function IsD180_KUBN2Null() As Boolean
796+ Return Me.IsNull(Me.tableD180_F.D180_KUBN2Column)
797+ End Function
798+
799+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
800+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
801+ Public Sub SetD180_KUBN2Null()
802+ Me(Me.tableD180_F.D180_KUBN2Column) = Global.System.Convert.DBNull
803+ End Sub
804+
805+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
806+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
807+ Public Function IsD180_KUBN3Null() As Boolean
808+ Return Me.IsNull(Me.tableD180_F.D180_KUBN3Column)
809+ End Function
810+
811+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
812+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
813+ Public Sub SetD180_KUBN3Null()
814+ Me(Me.tableD180_F.D180_KUBN3Column) = Global.System.Convert.DBNull
815+ End Sub
816+
817+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
818+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
819+ Public Function IsD180_UPD1Null() As Boolean
820+ Return Me.IsNull(Me.tableD180_F.D180_UPD1Column)
821+ End Function
822+
823+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
824+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
825+ Public Sub SetD180_UPD1Null()
826+ Me(Me.tableD180_F.D180_UPD1Column) = Global.System.Convert.DBNull
827+ End Sub
828+ End Class
829+
830+ '''<summary>
831+ '''Row event argument class
832+ '''</summary>
833+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
834+ Public Class D180_FRowChangeEvent
835+ Inherits Global.System.EventArgs
836+
837+ Private eventRow As D180_FRow
838+
839+ Private eventAction As Global.System.Data.DataRowAction
840+
841+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
842+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
843+ Public Sub New(ByVal row As D180_FRow, ByVal action As Global.System.Data.DataRowAction)
844+ MyBase.New
845+ Me.eventRow = row
846+ Me.eventAction = action
847+ End Sub
848+
849+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
850+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
851+ Public ReadOnly Property Row() As D180_FRow
852+ Get
853+ Return Me.eventRow
854+ End Get
855+ End Property
856+
857+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
858+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
859+ Public ReadOnly Property Action() As Global.System.Data.DataRowAction
860+ Get
861+ Return Me.eventAction
862+ End Get
863+ End Property
864+ End Class
865+End Class
--- trunk/MLApp.DataModel/D1_TRNDataSet.xsd (nonexistent)
+++ trunk/MLApp.DataModel/D1_TRNDataSet.xsd (revision 80)
@@ -0,0 +1,37 @@
1+<?xml version="1.0" encoding="utf-8"?>
2+<xs:schema id="D8_TRNDataSet" targetNamespace="http://tempuri.org/D8_TRNDataSet.xsd" xmlns:mstns="http://tempuri.org/D8_TRNDataSet.xsd" xmlns="http://tempuri.org/D8_TRNDataSet.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
3+ <xs:annotation>
4+ <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
5+ <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
6+ <Connections />
7+ <Tables />
8+ <Sources />
9+ </DataSource>
10+ </xs:appinfo>
11+ </xs:annotation>
12+ <xs:element name="D8_TRNDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="D8_TRNDataSet" msprop:Generator_UserDSName="D8_TRNDataSet">
13+ <xs:complexType>
14+ <xs:choice minOccurs="0" maxOccurs="unbounded">
15+ <xs:element name="D180_F" msprop:Generator_TableClassName="D180_FDataTable" msprop:Generator_TableVarName="tableD180_F" msprop:Generator_TablePropName="D180_F" msprop:Generator_RowDeletingName="D180_FRowDeleting" msprop:Generator_RowChangingName="D180_FRowChanging" msprop:Generator_RowEvHandlerName="D180_FRowChangeEventHandler" msprop:Generator_RowDeletedName="D180_FRowDeleted" msprop:Generator_UserTableName="D180_F" msprop:Generator_RowChangedName="D180_FRowChanged" msprop:Generator_RowEvArgName="D180_FRowChangeEvent" msprop:Generator_RowClassName="D180_FRow">
16+ <xs:complexType>
17+ <xs:sequence>
18+ <xs:element name="D180_DATE1" msprop:Generator_ColumnVarNameInTable="columnD180_DATE1" msprop:Generator_ColumnPropNameInRow="D180_DATE1" msprop:Generator_ColumnPropNameInTable="D180_DATE1Column" msprop:Generator_UserColumnName="D180_DATE1" type="xs:dateTime" />
19+ <xs:element name="D180_M150CD1" msprop:Generator_ColumnVarNameInTable="columnD180_M150CD1" msprop:Generator_ColumnPropNameInRow="D180_M150CD1" msprop:Generator_ColumnPropNameInTable="D180_M150CD1Column" msprop:Generator_UserColumnName="D180_M150CD1" type="xs:string" />
20+ <xs:element name="D180_SURY1" msprop:Generator_ColumnVarNameInTable="columnD180_SURY1" msprop:Generator_ColumnPropNameInRow="D180_SURY1" msprop:Generator_ColumnPropNameInTable="D180_SURY1Column" msprop:Generator_UserColumnName="D180_SURY1" type="xs:decimal" minOccurs="0" />
21+ <xs:element name="D180_BIKO1" msprop:Generator_ColumnVarNameInTable="columnD180_BIKO1" msprop:Generator_ColumnPropNameInRow="D180_BIKO1" msprop:Generator_ColumnPropNameInTable="D180_BIKO1Column" msprop:Generator_UserColumnName="D180_BIKO1" type="xs:string" minOccurs="0" />
22+ <xs:element name="D180_KUBN1" msprop:Generator_ColumnVarNameInTable="columnD180_KUBN1" msprop:Generator_ColumnPropNameInRow="D180_KUBN1" msprop:Generator_ColumnPropNameInTable="D180_KUBN1Column" msprop:Generator_UserColumnName="D180_KUBN1" type="xs:decimal" minOccurs="0" />
23+ <xs:element name="D180_KUBN2" msprop:Generator_ColumnVarNameInTable="columnD180_KUBN2" msprop:Generator_ColumnPropNameInRow="D180_KUBN2" msprop:Generator_ColumnPropNameInTable="D180_KUBN2Column" msprop:Generator_UserColumnName="D180_KUBN2" type="xs:decimal" minOccurs="0" />
24+ <xs:element name="D180_KUBN3" msprop:Generator_ColumnVarNameInTable="columnD180_KUBN3" msprop:Generator_ColumnPropNameInRow="D180_KUBN3" msprop:Generator_ColumnPropNameInTable="D180_KUBN3Column" msprop:Generator_UserColumnName="D180_KUBN3" type="xs:decimal" minOccurs="0" />
25+ <xs:element name="D180_UPD1" msprop:Generator_ColumnVarNameInTable="columnD180_UPD1" msprop:Generator_ColumnPropNameInRow="D180_UPD1" msprop:Generator_ColumnPropNameInTable="D180_UPD1Column" msprop:Generator_UserColumnName="D180_UPD1" type="xs:string" minOccurs="0" />
26+ </xs:sequence>
27+ </xs:complexType>
28+ </xs:element>
29+ </xs:choice>
30+ </xs:complexType>
31+ <xs:unique name="Constraint1" msdata:PrimaryKey="true">
32+ <xs:selector xpath=".//mstns:D180_F" />
33+ <xs:field xpath="mstns:D180_DATE1" />
34+ <xs:field xpath="mstns:D180_M150CD1" />
35+ </xs:unique>
36+ </xs:element>
37+</xs:schema>
\ No newline at end of file
--- trunk/MLApp.TRN5000/TRN5710.Designer.vb (revision 79)
+++ trunk/MLApp.TRN5000/TRN5710.Designer.vb (revision 80)
@@ -74,6 +74,7 @@
7474 '
7575 'cmdF12
7676 '
77+ Me.cmdF12.Enabled = True
7778 Me.cmdF12.Text = "終了"
7879 '
7980 'cmbInventoriesDate
@@ -80,7 +81,7 @@
8081 '
8182 Me.cmbInventoriesDate.AirLineAdd = False
8283 Me.cmbInventoriesDate.CodeVisible = False
83- Me.cmbInventoriesDate.DisplayMember = "M921_KBVAL1"
84+ Me.cmbInventoriesDate.DisplayMember = "D180_DATE1"
8485 Me.cmbInventoriesDate.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
8586 Me.cmbInventoriesDate.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
8687 Me.cmbInventoriesDate.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
@@ -89,9 +90,9 @@
8990 Me.cmbInventoriesDate.ItemHeight = 14
9091 Me.cmbInventoriesDate.Location = New System.Drawing.Point(112, 55)
9192 Me.cmbInventoriesDate.Name = "cmbInventoriesDate"
92- Me.cmbInventoriesDate.Size = New System.Drawing.Size(131, 20)
93- Me.cmbInventoriesDate.TabIndex = 152
94- Me.cmbInventoriesDate.ValueMember = "M921_CODE1"
93+ Me.cmbInventoriesDate.Size = New System.Drawing.Size(116, 20)
94+ Me.cmbInventoriesDate.TabIndex = 10
95+ Me.cmbInventoriesDate.ValueMember = "ROW_NUM"
9596 '
9697 'Uc6Label1
9798 '
--- trunk/MLApp.TRN5000/TRN5710.vb (revision 79)
+++ trunk/MLApp.TRN5000/TRN5710.vb (revision 80)
@@ -1,3 +1,710 @@
1-Public Class TRN5710
1+
2+Imports MLApp.Const.DataTableExtension
3+Imports ML.Common.Extensions.StringExtension
24
5+''' <summary>
6+''' 【クラス名】TRN5710
7+''' 【機能概要】棚卸計算
8+''' </summary>
9+''' <history>
10+''' +------------+-----------+-----+-------------------------------------------+
11+''' |更新者 |日付 |連番 |変更内容 |
12+''' +------------+-----------+-----+-------------------------------------------+
13+''' y.miura 2018.07.18 001 新規作成
14+''' </history>
15+Public Class TRN5710
16+
17+#Region " メンバ変数"
18+
19+#End Region
20+
21+#Region " イベント"
22+
23+ ''' <summary>フォームロード時イベント</summary>
24+ Private Sub TRN5710_Load(sender As Object, e As System.EventArgs) Handles Me.Load
25+
26+ Try
27+
28+ If Me.DesignMode = True Then Exit Sub
29+
30+ Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
31+ Dim rD180 As ML.DBAccess.Base.Rs5
32+ Dim sSQL As String = String.Empty
33+
34+ '' DB-Open
35+ db.Open()
36+
37+ '' D180_DATE1の最大値を画面上に表示する
38+ sSQL = "SELECT MAX(D180_DATE1) D180_DT1_MAX"
39+ sSQL &= " FROM " & MLApp.Const.MLAppConst.TableName.D180_F
40+ sSQL &= " WHERE 1=1"
41+ rD180 = db.OpenRecordset(sSQL)
42+ If Not rD180.EOF Then
43+
44+ If Not rD180.Fields("D180_DT1_MAX").Value Is DBNull.Value Then
45+
46+ Me.cmbInventoriesDate.Text = rD180.Fields("D180_DT1_MAX").Value.ToString
47+
48+ End If
49+
50+ End If
51+ rD180.Close()
52+
53+ '' 棚卸日付の値リスト設定
54+ sSQL = "SELECT "
55+ sSQL &= " ROW_NUMBER() OVER (ORDER BY D180_DATE1) ROW_NUM"
56+ sSQL &= ",FORMAT(D180_DATE1,'yyyy/MM/dd') D180_DATE1"
57+ sSQL &= " FROM ("
58+ sSQL &= "SELECT "
59+ sSQL &= " D180_DATE1"
60+ sSQL &= " FROM " & MLApp.Const.MLAppConst.TableName.D180_F
61+ sSQL &= " GROUP BY D180_DATE1 "
62+ sSQL &= ") MAIN"
63+ sSQL &= " ORDER BY D180_DATE1"
64+ rD180 = db.OpenRecordset(sSQL)
65+ If Not rD180.EOF Then
66+
67+ Me.cmbInventoriesDate.SetValueList(rD180.DataTable)
68+
69+ End If
70+ rD180.Close()
71+
72+ '' DB-Close
73+ db.Close()
74+
75+ '' 実行ボタンの活性/非活性切り替え
76+ If Me.cmbInventoriesDate.Text <> String.Empty Then
77+ Me.cmdF1.Enabled = True
78+ Else
79+ Me.cmdF1.Enabled = False
80+ End If
81+
82+ Catch ex As Exception
83+
84+ '' エラーログを出力する
85+ Me.Logger.WriteErrorLog(ex.Message)
86+
87+ '' エラーメッセージを表示する
88+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
89+
90+ End Try
91+
92+ End Sub
93+
94+ ''' <summary>フォーム表示時イベント</summary>
95+ Private Sub TRN5710_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
96+
97+ '' 初期フォーカスのセット
98+ Me.cmbInventoriesDate.Focus()
99+
100+ End Sub
101+
102+ ''' <summary>実行ボタンクリック時イベント</summary>
103+ Protected Overrides Sub cmdF1_Click(sender As Object, e As System.EventArgs)
104+ Try
105+ '' 実行チェック
106+ If Me.CheckBeforeProc = False Then
107+ Exit Sub
108+ End If
109+
110+ ' '' M120-書込処理
111+ 'If Me.UpdateM120 = False Then
112+
113+ ' '' メッセージ表示
114+ ' Me.Messenger.ErrorOKOnly.Show( _
115+ ' ML.Common.Message.Resource.E.MSG_E_0006, _
116+ ' "更新失敗", _
117+ ' "ユーザーマスタ")
118+
119+ ' Exit Sub
120+
121+ 'Else
122+
123+ ' '' メッセージ表示
124+ ' Me.Messenger.InfoOKOnly.Show( _
125+ ' ML.Common.Message.Resource.I.MSG_I_0001, _
126+ ' "登録完了", _
127+ ' "登録処理")
128+
129+ 'End If
130+
131+ ' '' ユーザーマスタ読込
132+ 'Me.SearchM120()
133+
134+ ' '' 画面モード判定
135+ 'Select Case Me.lblDispMode.Text
136+ ' Case stcDispMode.DispNew
137+
138+ ' '' 新規ボタンクリック処理
139+ ' Me.cmdF4_Click(sender, e)
140+
141+ ' Case Else
142+
143+ ' '' 元に戻す
144+ ' Me.CancelProc()
145+
146+ 'End Select
147+
148+ Catch ex As Exception
149+
150+ '' エラーログを出力する
151+ Me.Logger.WriteErrorLog(ex.Message)
152+
153+ '' エラーメッセージを表示する
154+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
155+
156+ End Try
157+ End Sub
158+
159+ ''' <summary>
160+ ''' 棚卸日付更新後イベント
161+ ''' </summary>
162+ Private Sub cmbInventoriesDate_AfterUpdate(sender As System.Object, e As System.EventArgs) Handles cmbInventoriesDate.AfterUpdate
163+
164+ '' 実行ボタンの活性/非活性切り替え
165+ If Me.cmbInventoriesDate.Text <> String.Empty Then
166+ Me.cmdF1.Enabled = True
167+ Else
168+ Me.cmdF1.Enabled = False
169+ End If
170+
171+ End Sub
172+
173+#End Region
174+
175+#Region " メソッド"
176+
177+ ' ''' <summary>キャンセル処理(元に戻す)</summary>
178+ 'Private Sub CancelProc()
179+ ' Try
180+ ' '' 画面初期化
181+ ' Me.InitDisp()
182+
183+ ' '' 検索ボタン押下処理
184+ ' Me.cmdF5_Click(New Object, New EventArgs)
185+
186+ ' Catch ex As Exception
187+
188+ ' Throw ex
189+
190+ ' End Try
191+
192+ 'End Sub
193+
194+ ' ''' <summary>画面初期化処理</summary>
195+ 'Private Sub InitDisp()
196+ ' Try
197+ ' '' コンボボックス設定
198+ ' Me.SetComboBox()
199+
200+ ' '' 入力フィールド初期化
201+ ' Me.InitInputField()
202+
203+ ' '' 入力フィールドの使用可否設定
204+ ' Me.EnabledInputField(False)
205+
206+ ' '' 検索フィールドの使用可否設定
207+ ' Me.EnalbedSearchField(True)
208+
209+ ' '' ボタンコントロールの使用可否設定
210+ ' Me.ChangeButtonEnabled_Init()
211+
212+ ' '' 検索結果DataGridViewを活性化する
213+ ' Me.dgvTRN8110S1.Enabled = True
214+
215+ ' '' 画面モード初期化
216+ ' Me.lblDispMode.Text = stcDispMode.DispNone
217+
218+ ' '' 初期フォーカスをセットする
219+ ' Me.txtFurigana.Focus()
220+
221+ ' Catch ex As Exception
222+
223+ ' Throw ex
224+
225+ ' End Try
226+ 'End Sub
227+
228+ ' ''' <summary>ボタンコントロール使用可否設定(初期化時)</summary>
229+ 'Private Sub ChangeButtonEnabled_Init()
230+
231+ ' Me.cmdF1.Enabled = False
232+ ' Me.cmdF2.Enabled = False
233+ ' Me.cmdF3.Enabled = True
234+ ' Me.cmdF4.Enabled = True
235+ ' Me.cmdF5.Enabled = True
236+ ' Me.cmdF12.Enabled = True
237+
238+ 'End Sub
239+
240+ ' ''' <summary>ボタンコントロール使用可否設定(新規時)</summary>
241+ 'Private Sub ChangeButtonEnabled_NewMode()
242+
243+ ' Me.cmdF1.Enabled = False
244+ ' Me.cmdF2.Enabled = False
245+ ' Me.cmdF3.Enabled = True
246+ ' Me.cmdF4.Enabled = False
247+ ' Me.cmdF5.Enabled = False
248+ ' Me.cmdF12.Enabled = False
249+
250+ 'End Sub
251+
252+ ' ''' <summary>コンボボックス設定処理</summary>
253+ 'Private Sub SetComboBox()
254+ ' Dim sWHR As String = String.Empty
255+
256+ ' '' グループ(検索)
257+ ' Me.cmbGroup.SetValueList( _
258+ ' (New MLApp.DataModel.M1_TRNDataSet.M110_FDataTable).GetData(sWHR, "M110_ORDER1"))
259+ ' Me.cmbM120_M110CD1.SetValueList( _
260+ ' (New MLApp.DataModel.M1_TRNDataSet.M110_FDataTable).GetData(sWHR, "M110_ORDER1"))
261+
262+ ' '' 権限
263+ ' Me.cmbM120_M912CD1.SetValueList( _
264+ ' (New MLApp.DataModel.M9_TRNDataSet.M912_FDataTable).GetData(sWHR, "M912_ORDER1"))
265+
266+ 'End Sub
267+
268+ ' ''' <summary>入力/検索フィールド初期化処理</summary>
269+ 'Private Sub InitInputField()
270+
271+ ' With Me
272+ ' .txtFurigana.Text = String.Empty
273+ ' .cmbGroup.SelectedValue = String.Empty
274+ ' .txtM120_CODE1.Text = String.Empty
275+ ' .cmbM120_M110CD1.SelectedValue = String.Empty
276+ ' .txtM120_NAME1.Text = String.Empty
277+ ' .txtM120_FURIGANA1.Text = String.Empty
278+ ' .txtM120_PASS1.Text = String.Empty
279+ ' .cmbM120_M912CD1.SelectedValue = String.Empty
280+ ' .txtM120_BIKO1.Text = String.Empty
281+ ' End With
282+
283+ 'End Sub
284+
285+ ' ''' <summary>入力フィールド使用可否設定処理</summary>
286+ 'Private Sub EnabledInputField(bEnabled As Boolean)
287+
288+ ' With Me
289+ ' .txtM120_CODE1.Enabled = bEnabled
290+ ' .cmbM120_M110CD1.Enabled = bEnabled
291+ ' .txtM120_NAME1.Enabled = bEnabled
292+ ' .txtM120_FURIGANA1.Enabled = bEnabled
293+ ' .txtM120_PASS1.Enabled = bEnabled
294+ ' .cmbM120_M912CD1.Enabled = bEnabled
295+ ' .txtM120_BIKO1.Enabled = bEnabled
296+ ' End With
297+
298+ 'End Sub
299+
300+ ' ''' <summary>検索フィールド使用可否設定処理</summary>
301+ 'Private Sub EnalbedSearchField(bEnabled As Boolean)
302+
303+ ' Me.txtFurigana.Enabled = bEnabled
304+ ' Me.cmbGroup.Enabled = bEnabled
305+
306+ 'End Sub
307+
308+ ' ''' <summary>DataGridView選択時処理</summary>
309+ 'Private Sub SelectedDataGridView(iRowIdx As Integer,
310+ ' bFocused As Boolean)
311+
312+ ' If bFocused = False Then
313+
314+ ' '' 選択行の内容を画面上に表示する
315+ ' Me.SetSelectedData(iRowIdx)
316+
317+ ' '' 選択時初期フォーカスをセットする
318+ ' Me.cmbM120_M110CD1.Focus()
319+
320+ ' Exit Sub
321+ ' End If
322+
323+ ' '' 入力項目を活性化させる
324+ ' Me.EnabledInputField(True)
325+
326+ ' '' 主キー項目のみ非活性とする
327+ ' Me.txtM120_CODE1.Enabled = False
328+
329+ ' '' 削除ボタンを活性化する
330+ ' Me.cmdF2.Enabled = True
331+
332+ ' '' フォーカスを画面モードラベルに退避する
333+ ' Me.lblDispMode.Focus()
334+
335+ 'End Sub
336+
337+ ' ''' <summary>選択行の内容を画面上に表示する</summary>
338+ 'Private Sub SetSelectedData(iRowIdx As Integer)
339+
340+ ' '' 選択行の値を画面上に表示する
341+ ' Me.txtM120_CODE1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_CODE1")
342+ ' Me.txtM120_NAME1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_NAME1")
343+ ' Me.cmbM120_M110CD1.SelectedValue = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_M110CD1")
344+ ' Me.txtM120_FURIGANA1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_FURIGANA1")
345+ ' Me.txtM120_PASS1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_PASS1")
346+ ' Me.cmbM120_M912CD1.SelectedValue = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_M912CD1")
347+ ' Me.txtM120_BIKO1.Text = Me.dgvTRN8110S1.GetCellValue(iRowIdx, "M120_BIKO1").ToString
348+
349+ 'End Sub
350+
351+ ' ''' <summary>入力コントロールイベントハンドラ追加処理</summary>
352+ 'Private Sub AddHandlerInputControls()
353+
354+ ' '' Changeイベント
355+ ' AddHandler Me.cmbM120_M110CD1.Change, AddressOf Me.ChangeField
356+ ' AddHandler Me.txtM120_NAME1.Change, AddressOf Me.ChangeField
357+ ' AddHandler Me.txtM120_FURIGANA1.Change, AddressOf Me.ChangeField
358+ ' AddHandler Me.txtM120_PASS1.Change, AddressOf Me.ChangeField
359+ ' AddHandler Me.cmbM120_M912CD1.Change, AddressOf Me.ChangeField
360+ ' AddHandler Me.txtM120_BIKO1.Change, AddressOf Me.ChangeField
361+
362+ ' '' Leaveイベント
363+ ' AddHandler Me.cmbM120_M110CD1.Leave, AddressOf Me.LeaveField
364+ ' AddHandler Me.txtM120_NAME1.Leave, AddressOf Me.LeaveField
365+ ' AddHandler Me.txtM120_FURIGANA1.Leave, AddressOf Me.LeaveField
366+ ' AddHandler Me.txtM120_PASS1.Leave, AddressOf Me.LeaveField
367+ ' AddHandler Me.cmbM120_M912CD1.Leave, AddressOf Me.LeaveField
368+ ' AddHandler Me.txtM120_BIKO1.Leave, AddressOf Me.LeaveField
369+
370+ 'End Sub
371+
372+ ' ''' <summary>入力コントロール値変更時処理</summary>
373+ 'Private Sub ChangeField()
374+
375+ ' With Me
376+
377+ ' '' 新規モードで無い場合は修正モードに変更
378+ ' If .lblDispMode.Text = stcDispMode.DispNone Then
379+ ' .lblDispMode.Text = stcDispMode.DispUpd
380+ ' End If
381+
382+ ' '' ボタン使用可否設定
383+ ' .cmdF1.Enabled = False
384+ ' .cmdF2.Enabled = False
385+ ' .cmdF3.Enabled = False
386+ ' .cmdF4.Enabled = False
387+ ' .cmdF5.Enabled = False
388+ ' .cmdF12.Enabled = False
389+
390+ ' '' 検索結果を非活性にする
391+ ' Me.dgvTRN8110S1.Enabled = False
392+
393+ ' End With
394+
395+ 'End Sub
396+
397+ ' ''' <summary>入力コントロールフォーカス喪失時処理</summary>
398+ 'Private Sub LeaveField()
399+
400+ ' '' 画面モードが通常時以外の場合は登録、元に戻すボタンを活性化する
401+ ' If Me.lblDispMode.Text <> stcDispMode.DispNone Then
402+ ' Me.cmdF1.Enabled = True
403+ ' Me.cmdF3.Enabled = True
404+ ' End If
405+
406+ 'End Sub
407+
408+ ' ''' <summary>更新前チェック</summary>
409+ 'Private Function CheckBeforeProc() As Boolean
410+ ' Dim bRet As Boolean = False
411+
412+ ' Try
413+ ' '' ユーザーコード
414+ ' If Me.txtM120_CODE1.Text = String.Empty Then
415+
416+ ' '' メッセージ表示
417+ ' Me.Messenger.WarnOKOnly.Show( _
418+ ' ML.Common.Message.Resource.W.MSG_W_0001, _
419+ ' "入力エラー", _
420+ ' "ユーザーコード")
421+
422+ ' '' 未登録項目にフォーカスをセットする
423+ ' Me.txtM120_CODE1.Focus()
424+
425+ ' Exit Try
426+ ' End If
427+
428+ ' '' グループ
429+ ' If Me.cmbM120_M110CD1.SelectedValue = String.Empty Then
430+
431+ ' '' メッセージ表示
432+ ' Me.Messenger.WarnOKOnly.Show( _
433+ ' ML.Common.Message.Resource.W.MSG_W_0001, _
434+ ' "入力エラー", _
435+ ' "グループ")
436+
437+ ' '' 未登録項目にフォーカスをセットする
438+ ' Me.cmbM120_M110CD1.Focus()
439+
440+ ' Exit Try
441+ ' End If
442+
443+ ' '' ユーザー名
444+ ' If Me.txtM120_NAME1.Text = String.Empty Then
445+
446+ ' '' メッセージ表示
447+ ' Me.Messenger.WarnOKOnly.Show( _
448+ ' ML.Common.Message.Resource.W.MSG_W_0001, _
449+ ' "入力エラー", _
450+ ' "ユーザー名")
451+
452+ ' '' 未登録項目にフォーカスをセットする
453+ ' Me.txtM120_NAME1.Focus()
454+
455+ ' Exit Try
456+ ' End If
457+
458+ ' '' フリガナ
459+ ' If Me.txtM120_FURIGANA1.Text = String.Empty Then
460+
461+ ' '' メッセージ表示
462+ ' Me.Messenger.WarnOKOnly.Show( _
463+ ' ML.Common.Message.Resource.W.MSG_W_0001, _
464+ ' "入力エラー", _
465+ ' "フリガナ")
466+
467+ ' '' 未登録項目にフォーカスをセットする
468+ ' Me.txtM120_FURIGANA1.Focus()
469+
470+ ' Exit Try
471+ ' End If
472+
473+ ' '' パスワード
474+ ' If Me.txtM120_PASS1.Text = String.Empty Then
475+
476+ ' '' メッセージ表示
477+ ' Me.Messenger.WarnOKOnly.Show( _
478+ ' ML.Common.Message.Resource.W.MSG_W_0001, _
479+ ' "入力エラー", _
480+ ' "パスワード")
481+
482+ ' '' 未登録項目にフォーカスをセットする
483+ ' Me.txtM120_PASS1.Focus()
484+
485+ ' Exit Try
486+ ' End If
487+
488+ ' '' 権限
489+ ' If Me.cmbM120_M912CD1.SelectedValue = String.Empty Then
490+
491+ ' '' メッセージ表示
492+ ' Me.Messenger.WarnOKOnly.Show( _
493+ ' ML.Common.Message.Resource.W.MSG_W_0001, _
494+ ' "入力エラー", _
495+ ' "権限")
496+
497+ ' '' 未登録項目にフォーカスをセットする
498+ ' Me.cmbM120_M912CD1.Focus()
499+
500+ ' Exit Try
501+ ' End If
502+
503+ ' bRet = True
504+
505+ ' Catch ex As Exception
506+
507+ ' '' エラーログを出力する
508+ ' Me.Logger.WriteErrorLog(ex.Message)
509+
510+ ' '' エラーメッセージを表示する
511+ ' Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
512+
513+ ' End Try
514+
515+ ' '' 戻り値を返す
516+ ' Return bRet
517+
518+ 'End Function
519+
520+ ' ''' <summary>ユーザーマスタ登録処理</summary>
521+ 'Private Function UpdateM120() As Boolean
522+ ' Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
523+ ' Dim rM120 As ML.DBAccess.Base.Rs5
524+ ' Dim sSQL As String
525+ ' Dim bRet As Boolean = False
526+
527+ ' Try
528+ ' '' カーソルを待機状態にする
529+ ' Me.Cursor = Windows.Forms.Cursors.WaitCursor
530+
531+ ' '' DB-Open
532+ ' db.Open()
533+
534+ ' '' トランザクション開始
535+ ' db.BeginTrans()
536+
537+ ' '' 最大のオーダー№を取得
538+ ' Dim iMaxOrderNo As Integer = ML.Common.Function.df6.NVL(Me.M1_TRNDataSet.M120_F.DMax("M120_ORDER1")) + 1
539+
540+ ' '' M120-更新
541+ ' sSQL = "SELECT * FROM " & MLApp.Const.MLAppConst.TableName.M120_F
542+ ' sSQL &= " WHERE M120_CODE1=" & Me.txtM120_CODE1.Text.ToTextStr
543+ ' rM120 = db.OpenRecordset(sSQL)
544+ ' If rM120.EOF Then
545+ ' rM120.AddNew()
546+ ' rM120.Fields("M120_CODE1").Value = Me.txtM120_CODE1.Text
547+ ' Else
548+ ' rM120.Edit()
549+ ' End If
550+ ' With rM120
551+
552+ ' .Fields("M120_M110CD1").Value = Me.cmbM120_M110CD1.SelectedValue
553+ ' .Fields("M120_NAME1").Value = Me.txtM120_NAME1.Text
554+ ' .Fields("M120_FURIGANA1").Value = Me.txtM120_FURIGANA1.Text
555+ ' .Fields("M120_PASS1").Value = Me.txtM120_PASS1.Text
556+ ' .Fields("M120_M912CD1").Value = Me.cmbM120_M912CD1.SelectedValue
557+ ' .Fields("M120_BIKO1").Value = Me.txtM120_BIKO1.Text
558+ ' If Me.lblDispMode.Text = stcDispMode.DispNew Then
559+ ' .Fields("M120_ORDER1").Value = iMaxOrderNo
560+ ' End If
561+ ' If Me.lblDispMode.Text = stcDispMode.DispNew Then
562+ ' .Fields("M120_KUBN12").Value = 0 '使用区分
563+ ' .Fields("M120_KUBN13").Value = 0
564+ ' .Fields("M120_KUBN14").Value = 0
565+ ' .Fields("M120_KUBN15").Value = 0
566+ ' End If
567+ ' .Fields("M120_UPD1").Value = Me.m_LInfo.GetUpdInfo
568+ ' .Update()
569+
570+ ' End With
571+ ' rM120.Close()
572+
573+ ' '' コミット
574+ ' db.CommitTrans()
575+
576+ ' '' DB-Close
577+ ' db.Close()
578+
579+ ' '' 処理結果をセットする
580+ ' bRet = True
581+
582+ ' Catch ex As Exception
583+
584+ ' '' ロールバック
585+ ' db.RollBack()
586+
587+ ' '' エラーログを出力する
588+ ' Me.Logger.WriteErrorLog(ex.Message)
589+
590+ ' Finally
591+
592+ ' '' カーソルを元に戻す
593+ ' Me.Cursor = Windows.Forms.Cursors.Default
594+
595+ ' End Try
596+
597+ ' '' 戻り値を返す
598+ ' Return bRet
599+ 'End Function
600+
601+ ' ''' <summary>コードの更新前処理</summary>
602+ 'Private Sub BeforeUpdate_MasterCode(ByRef bCancel As Boolean)
603+
604+ ' '' コード未入力時は処理を抜ける
605+ ' If Me.txtM120_CODE1.Text = String.Empty Then
606+ ' Exit Sub
607+ ' End If
608+
609+ ' '' 既に登録済のコードの場合はエラーメッセージを表示して入力をキャンセルする
610+ ' Dim dtM120 As New MLApp.DataModel.M1_TRNDataSet.M120_FDataTable
611+ ' Dim sWHR As String = String.Empty
612+ ' sWHR = "M120_CODE1=" & Me.txtM120_CODE1.Text.ToTextStr
613+ ' If dtM120.GetData.DCount(sWHR) > 0 Then
614+
615+ ' '' メッセージ表示
616+ ' Me.Messenger.WarnOKOnly.Show( _
617+ ' ML.Common.Message.Resource.W.MSG_W_0003, _
618+ ' "入力エラー", _
619+ ' "コード")
620+
621+ ' '' 入力値をクリアする
622+ ' Me.txtM120_CODE1.Text = String.Empty
623+
624+ ' bCancel = True
625+
626+ ' Exit Sub
627+ ' End If
628+
629+ 'End Sub
630+
631+ ' ''' <summary>検索処理</summary>
632+ 'Private Sub SearchM120()
633+ ' Dim sWHR As String = String.Empty
634+
635+ ' '' 検索条件
636+ ' If Me.ckDelMaster.Checked = False Then
637+ ' sWHR = "M120_KUBN12=0"
638+ ' Else
639+ ' sWHR = "1=1"
640+ ' End If
641+
642+ ' '' フリガナ
643+ ' If Me.txtFurigana.Text <> String.Empty Then
644+ ' sWHR &= " AND M120_FURIGANA1 LIKE('%" & Me.txtFurigana.Text & "%')"
645+ ' End If
646+
647+ ' '' グループ
648+ ' If Me.cmbGroup.SelectedValue <> String.Empty Then
649+ ' sWHR &= " AND M120_M110CD1=" & Me.cmbGroup.SelectedValue.ToString.ToTextStr
650+ ' End If
651+
652+ ' '' M120 - 読み込み
653+ ' Me.M1_TRNDataSet.M120_F.Clear()
654+ ' Me.M1_TRNDataSet.M120_F.GetData(sWHR)
655+
656+ 'End Sub
657+
658+ ' ''' <summary>ユーザーマスタ削除処理</summary>
659+ 'Private Function DeleteM120() As Boolean
660+ ' Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
661+ ' Dim sSQL As String
662+ ' Dim bRet As Boolean = False
663+
664+ ' Try
665+ ' '' カーソルを待機状態にする
666+ ' Me.Cursor = Windows.Forms.Cursors.WaitCursor
667+
668+ ' '' DB-Open
669+ ' db.Open()
670+
671+ ' '' トランザクション開始
672+ ' db.BeginTrans()
673+
674+ ' '' M120_F - 削除フラグ
675+ ' sSQL = "UPDATE " & MLApp.Const.MLAppConst.TableName.M120_F
676+ ' sSQL &= " SET M120_KUBN12=1"
677+ ' sSQL &= " ,M120_UPD1=" & Me.m_LInfo.GetUpdInfo.ToTextStr
678+ ' sSQL &= " WHERE M120_CODE1=" & Me.txtM120_CODE1.Text.ToTextStr
679+ ' db.Execute(sSQL)
680+
681+ ' '' コミット
682+ ' db.CommitTrans()
683+
684+ ' '' DB-Close
685+ ' db.Close()
686+
687+ ' '' 処理結果をセットする
688+ ' bRet = True
689+
690+ ' Catch ex As Exception
691+
692+ ' '' ロールバック
693+ ' db.RollBack()
694+
695+ ' Throw ex
696+
697+ ' Finally
698+
699+ ' '' カーソルを元に戻す
700+ ' Me.Cursor = Windows.Forms.Cursors.Default
701+
702+ ' End Try
703+
704+ ' '' 戻り値を返す
705+ ' Return bRet
706+ 'End Function
707+
708+#End Region
709+
3710 End Class
\ No newline at end of file
Show on old repository browser