• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision71 (tree)
Time2018-02-26 18:22:58
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.DataModel/Cmn_TRNDataSet.Designer.vb (revision 0)
+++ trunk/MLApp.DataModel/Cmn_TRNDataSet.Designer.vb (revision 71)
@@ -0,0 +1,608 @@
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("Cmn_TRNDataSet"), _
24+ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25+Partial Public Class Cmn_TRNDataSet
26+ Inherits Global.System.Data.DataSet
27+
28+ Private tabledtPrinterName As dtPrinterNameDataTable
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("dtPrinterName")) Is Nothing) Then
60+ MyBase.Tables.Add(New dtPrinterNameDataTable(ds.Tables("dtPrinterName")))
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 dtPrinterName() As dtPrinterNameDataTable
84+ Get
85+ Return Me.tabledtPrinterName
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 Cmn_TRNDataSet = CType(MyBase.Clone,Cmn_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("dtPrinterName")) Is Nothing) Then
157+ MyBase.Tables.Add(New dtPrinterNameDataTable(ds.Tables("dtPrinterName")))
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.tabledtPrinterName = CType(MyBase.Tables("dtPrinterName"),dtPrinterNameDataTable)
192+ If (initTable = true) Then
193+ If (Not (Me.tabledtPrinterName) Is Nothing) Then
194+ Me.tabledtPrinterName.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 = "Cmn_TRNDataSet"
203+ Me.Prefix = ""
204+ Me.Namespace = "http://tempuri.org/Cmn_TRNDataSet.xsd"
205+ Me.EnforceConstraints = true
206+ Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
207+ Me.tabledtPrinterName = New dtPrinterNameDataTable()
208+ MyBase.Tables.Add(Me.tabledtPrinterName)
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 ShouldSerializedtPrinterName() 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 Cmn_TRNDataSet = New Cmn_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 dtPrinterNameRowChangeEventHandler(ByVal sender As Object, ByVal e As dtPrinterNameRowChangeEvent)
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 dtPrinterNameDataTable
284+ Inherits Global.System.Data.TypedTableBase(Of dtPrinterNameRow)
285+
286+ Private columnPrinterName As Global.System.Data.DataColumn
287+
288+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
289+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
290+ Public Sub New()
291+ MyBase.New
292+ Me.TableName = "dtPrinterName"
293+ Me.BeginInit
294+ Me.InitClass
295+ Me.EndInit
296+ End Sub
297+
298+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
299+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
300+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
301+ MyBase.New
302+ Me.TableName = table.TableName
303+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
304+ Me.CaseSensitive = table.CaseSensitive
305+ End If
306+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
307+ Me.Locale = table.Locale
308+ End If
309+ If (table.Namespace <> table.DataSet.Namespace) Then
310+ Me.Namespace = table.Namespace
311+ End If
312+ Me.Prefix = table.Prefix
313+ Me.MinimumCapacity = table.MinimumCapacity
314+ End Sub
315+
316+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
317+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
318+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
319+ MyBase.New(info, context)
320+ Me.InitVars
321+ End Sub
322+
323+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
324+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
325+ Public ReadOnly Property PrinterNameColumn() As Global.System.Data.DataColumn
326+ Get
327+ Return Me.columnPrinterName
328+ End Get
329+ End Property
330+
331+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
332+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
333+ Global.System.ComponentModel.Browsable(false)> _
334+ Public ReadOnly Property Count() As Integer
335+ Get
336+ Return Me.Rows.Count
337+ End Get
338+ End Property
339+
340+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
341+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
342+ Public Default ReadOnly Property Item(ByVal index As Integer) As dtPrinterNameRow
343+ Get
344+ Return CType(Me.Rows(index),dtPrinterNameRow)
345+ End Get
346+ End Property
347+
348+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
349+ Public Event dtPrinterNameRowChanging As dtPrinterNameRowChangeEventHandler
350+
351+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
352+ Public Event dtPrinterNameRowChanged As dtPrinterNameRowChangeEventHandler
353+
354+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
355+ Public Event dtPrinterNameRowDeleting As dtPrinterNameRowChangeEventHandler
356+
357+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
358+ Public Event dtPrinterNameRowDeleted As dtPrinterNameRowChangeEventHandler
359+
360+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
361+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
362+ Public Overloads Sub AdddtPrinterNameRow(ByVal row As dtPrinterNameRow)
363+ Me.Rows.Add(row)
364+ End Sub
365+
366+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
367+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
368+ Public Overloads Function AdddtPrinterNameRow(ByVal PrinterName As String) As dtPrinterNameRow
369+ Dim rowdtPrinterNameRow As dtPrinterNameRow = CType(Me.NewRow,dtPrinterNameRow)
370+ Dim columnValuesArray() As Object = New Object() {PrinterName}
371+ rowdtPrinterNameRow.ItemArray = columnValuesArray
372+ Me.Rows.Add(rowdtPrinterNameRow)
373+ Return rowdtPrinterNameRow
374+ End Function
375+
376+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
377+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
378+ Public Overrides Function Clone() As Global.System.Data.DataTable
379+ Dim cln As dtPrinterNameDataTable = CType(MyBase.Clone,dtPrinterNameDataTable)
380+ cln.InitVars
381+ Return cln
382+ End Function
383+
384+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
385+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
386+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
387+ Return New dtPrinterNameDataTable()
388+ End Function
389+
390+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
391+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
392+ Friend Sub InitVars()
393+ Me.columnPrinterName = MyBase.Columns("PrinterName")
394+ End Sub
395+
396+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
397+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
398+ Private Sub InitClass()
399+ Me.columnPrinterName = New Global.System.Data.DataColumn("PrinterName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
400+ MyBase.Columns.Add(Me.columnPrinterName)
401+ End Sub
402+
403+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
404+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
405+ Public Function NewdtPrinterNameRow() As dtPrinterNameRow
406+ Return CType(Me.NewRow,dtPrinterNameRow)
407+ End Function
408+
409+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
410+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
411+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
412+ Return New dtPrinterNameRow(builder)
413+ End Function
414+
415+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
416+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
417+ Protected Overrides Function GetRowType() As Global.System.Type
418+ Return GetType(dtPrinterNameRow)
419+ End Function
420+
421+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
422+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
423+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
424+ MyBase.OnRowChanged(e)
425+ If (Not (Me.dtPrinterNameRowChangedEvent) Is Nothing) Then
426+ RaiseEvent dtPrinterNameRowChanged(Me, New dtPrinterNameRowChangeEvent(CType(e.Row,dtPrinterNameRow), e.Action))
427+ End If
428+ End Sub
429+
430+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
431+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
432+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
433+ MyBase.OnRowChanging(e)
434+ If (Not (Me.dtPrinterNameRowChangingEvent) Is Nothing) Then
435+ RaiseEvent dtPrinterNameRowChanging(Me, New dtPrinterNameRowChangeEvent(CType(e.Row,dtPrinterNameRow), e.Action))
436+ End If
437+ End Sub
438+
439+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
440+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
441+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
442+ MyBase.OnRowDeleted(e)
443+ If (Not (Me.dtPrinterNameRowDeletedEvent) Is Nothing) Then
444+ RaiseEvent dtPrinterNameRowDeleted(Me, New dtPrinterNameRowChangeEvent(CType(e.Row,dtPrinterNameRow), e.Action))
445+ End If
446+ End Sub
447+
448+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
449+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
450+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
451+ MyBase.OnRowDeleting(e)
452+ If (Not (Me.dtPrinterNameRowDeletingEvent) Is Nothing) Then
453+ RaiseEvent dtPrinterNameRowDeleting(Me, New dtPrinterNameRowChangeEvent(CType(e.Row,dtPrinterNameRow), e.Action))
454+ End If
455+ End Sub
456+
457+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
458+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
459+ Public Sub RemovedtPrinterNameRow(ByVal row As dtPrinterNameRow)
460+ Me.Rows.Remove(row)
461+ End Sub
462+
463+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
464+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
465+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
466+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
467+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
468+ Dim ds As Cmn_TRNDataSet = New Cmn_TRNDataSet()
469+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
470+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
471+ any1.MinOccurs = New Decimal(0)
472+ any1.MaxOccurs = Decimal.MaxValue
473+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
474+ sequence.Items.Add(any1)
475+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
476+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
477+ any2.MinOccurs = New Decimal(1)
478+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
479+ sequence.Items.Add(any2)
480+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
481+ attribute1.Name = "namespace"
482+ attribute1.FixedValue = ds.Namespace
483+ type.Attributes.Add(attribute1)
484+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
485+ attribute2.Name = "tableTypeName"
486+ attribute2.FixedValue = "dtPrinterNameDataTable"
487+ type.Attributes.Add(attribute2)
488+ type.Particle = sequence
489+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
490+ If xs.Contains(dsSchema.TargetNamespace) Then
491+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
492+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
493+ Try
494+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
495+ dsSchema.Write(s1)
496+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
497+ Do While schemas.MoveNext
498+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
499+ s2.SetLength(0)
500+ schema.Write(s2)
501+ If (s1.Length = s2.Length) Then
502+ s1.Position = 0
503+ s2.Position = 0
504+
505+ Do While ((s1.Position <> s1.Length) _
506+ AndAlso (s1.ReadByte = s2.ReadByte))
507+
508+
509+ Loop
510+ If (s1.Position = s1.Length) Then
511+ Return type
512+ End If
513+ End If
514+
515+ Loop
516+ Finally
517+ If (Not (s1) Is Nothing) Then
518+ s1.Close
519+ End If
520+ If (Not (s2) Is Nothing) Then
521+ s2.Close
522+ End If
523+ End Try
524+ End If
525+ xs.Add(dsSchema)
526+ Return type
527+ End Function
528+ End Class
529+
530+ '''<summary>
531+ '''Represents strongly named DataRow class.
532+ '''</summary>
533+ Partial Public Class dtPrinterNameRow
534+ Inherits Global.System.Data.DataRow
535+
536+ Private tabledtPrinterName As dtPrinterNameDataTable
537+
538+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
539+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
540+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
541+ MyBase.New(rb)
542+ Me.tabledtPrinterName = CType(Me.Table,dtPrinterNameDataTable)
543+ End Sub
544+
545+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
546+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
547+ Public Property PrinterName() As String
548+ Get
549+ Try
550+ Return CType(Me(Me.tabledtPrinterName.PrinterNameColumn),String)
551+ Catch e As Global.System.InvalidCastException
552+ Throw New Global.System.Data.StrongTypingException("テーブル 'dtPrinterName' にある列 'PrinterName' の値は DBNull です。", e)
553+ End Try
554+ End Get
555+ Set
556+ Me(Me.tabledtPrinterName.PrinterNameColumn) = value
557+ End Set
558+ End Property
559+
560+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
561+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
562+ Public Function IsPrinterNameNull() As Boolean
563+ Return Me.IsNull(Me.tabledtPrinterName.PrinterNameColumn)
564+ End Function
565+
566+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
567+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
568+ Public Sub SetPrinterNameNull()
569+ Me(Me.tabledtPrinterName.PrinterNameColumn) = Global.System.Convert.DBNull
570+ End Sub
571+ End Class
572+
573+ '''<summary>
574+ '''Row event argument class
575+ '''</summary>
576+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
577+ Public Class dtPrinterNameRowChangeEvent
578+ Inherits Global.System.EventArgs
579+
580+ Private eventRow As dtPrinterNameRow
581+
582+ Private eventAction As Global.System.Data.DataRowAction
583+
584+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
585+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
586+ Public Sub New(ByVal row As dtPrinterNameRow, ByVal action As Global.System.Data.DataRowAction)
587+ MyBase.New
588+ Me.eventRow = row
589+ Me.eventAction = action
590+ End Sub
591+
592+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
593+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
594+ Public ReadOnly Property Row() As dtPrinterNameRow
595+ Get
596+ Return Me.eventRow
597+ End Get
598+ End Property
599+
600+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
601+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
602+ Public ReadOnly Property Action() As Global.System.Data.DataRowAction
603+ Get
604+ Return Me.eventAction
605+ End Get
606+ End Property
607+ End Class
608+End Class
--- trunk/MLApp.DataModel/Cmn_TRNDataSet.xsd (revision 0)
+++ trunk/MLApp.DataModel/Cmn_TRNDataSet.xsd (revision 71)
@@ -0,0 +1,25 @@
1+<?xml version="1.0" encoding="utf-8"?>
2+<xs:schema id="Cmn_TRNDataSet" targetNamespace="http://tempuri.org/Cmn_TRNDataSet.xsd" xmlns:mstns="http://tempuri.org/Cmn_TRNDataSet.xsd" xmlns="http://tempuri.org/Cmn_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="Cmn_TRNDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="Cmn_TRNDataSet" msprop:Generator_UserDSName="Cmn_TRNDataSet">
13+ <xs:complexType>
14+ <xs:choice minOccurs="0" maxOccurs="unbounded">
15+ <xs:element name="dtPrinterName" msprop:Generator_TableClassName="dtPrinterNameDataTable" msprop:Generator_TableVarName="tabledtPrinterName" msprop:Generator_TablePropName="dtPrinterName" msprop:Generator_RowDeletingName="dtPrinterNameRowDeleting" msprop:Generator_RowChangingName="dtPrinterNameRowChanging" msprop:Generator_RowEvHandlerName="dtPrinterNameRowChangeEventHandler" msprop:Generator_RowDeletedName="dtPrinterNameRowDeleted" msprop:Generator_UserTableName="dtPrinterName" msprop:Generator_RowChangedName="dtPrinterNameRowChanged" msprop:Generator_RowEvArgName="dtPrinterNameRowChangeEvent" msprop:Generator_RowClassName="dtPrinterNameRow">
16+ <xs:complexType>
17+ <xs:sequence>
18+ <xs:element name="PrinterName" msprop:Generator_ColumnVarNameInTable="columnPrinterName" msprop:Generator_ColumnPropNameInRow="PrinterName" msprop:Generator_ColumnPropNameInTable="PrinterNameColumn" msprop:Generator_UserColumnName="PrinterName" type="xs:string" minOccurs="0" />
19+ </xs:sequence>
20+ </xs:complexType>
21+ </xs:element>
22+ </xs:choice>
23+ </xs:complexType>
24+ </xs:element>
25+</xs:schema>
\ No newline at end of file
--- trunk/MLApp.Base/TRNBaseForm.vb (revision 70)
+++ trunk/MLApp.Base/TRNBaseForm.vb (revision 71)
@@ -11,6 +11,7 @@
1111 ''' |更新者 |日付 |連番 |変更内容 |
1212 ''' +------------+-----------+-----+-------------------------------------------+
1313 ''' y.miura 2015.05.17 001 新規作成
14+''' y.miura 2018.02.26 002 ロード時にDataGridViewのDefaultCellStyle.Fontを入力コントロールのフォントと同期するよう修正
1415 ''' </history>
1516 Public Class TRNBaseForm
1617
@@ -120,13 +121,30 @@
120121 End If
121122 Next
122123
123- '' DataGridViewの列幅情報XMLを読み込む
124+ '' DataGridView設定変更
124125 For Each c As Control In Me.Controls
125126
126127 If TypeOf c Is ML.Controls.uc6DataGridView Then
127128
129+ '' 列幅設定
128130 CType(c, ML.Controls.uc6DataGridView).LoadColumnSettingXml(Me.Name)
129131
132+ '' ADD 002 Y.MIURA >>
133+
134+ '' フォント名取得
135+ Dim sFontName As String = Me.m_cbc.SetMemberVariable( _
136+ "MS UI Gothic", _
137+ ML.Controls.uc6.enSectionName.InputControlFontName)
138+
139+ '' フォントサイズ取得
140+ Dim sglFontSize As Single = Me.m_cbc.SetMemberVariable( _
141+ 9.5, _
142+ ML.Controls.uc6.enSectionName.InputControlFontSize)
143+ '' DefaultCellStyle.Font設定
144+ CType(c, ML.Controls.uc6DataGridView).DefaultCellStyle.Font = New System.Drawing.Font(sFontName, sglFontSize)
145+
146+ '' ADD 002 Y.MIURA <<
147+
130148 End If
131149
132150 Next
--- trunk/MLApp.TRNLib/Class/BzLogic.vb (revision 70)
+++ trunk/MLApp.TRNLib/Class/BzLogic.vb (revision 71)
@@ -1,4 +1,7 @@
11 
2+Imports MLApp.Const.DataTableExtension
3+Imports ML.Common.Extensions.StringExtension
4+
25 ''' <summary>
36 ''' 【クラス名】BzLogic
47 ''' 【機能概要】ビジネスロジッククラス
@@ -63,4 +66,32 @@
6366 Return sStrVal1 & sConStr & sStrVal2
6467 End Function
6568
69+ ''' <summary>
70+ ''' 基点日から指定したリードタイムを遡った日付を取得する(カレンダー参照)
71+ ''' </summary>
72+ ''' <param name="sCalNo">カレンダーNO</param>
73+ ''' <param name="iReadTime">リードタイム</param>
74+ ''' <param name="dteTargetDate">基点日</param>
75+ ''' <returns>取得した日付</returns>
76+ Public Shared Function GetCalDate(sCalNo As String,
77+ iReadTime As Integer,
78+ dteTargetDate As Date) As Date
79+
80+ '' 基点日の日付を取得
81+ Dim iTargetDD As Integer = CInt(dteTargetDate.ToString("DD"))
82+ Dim iStep As Integer
83+ If iReadTime < 0 Then
84+ iStep = -1
85+ Else
86+ iStep = 1
87+ End If
88+
89+ '' カレンダー設定取得
90+ Dim dtC150 As New DataModel.C1_TRNDataSet.C150_FDataTable
91+ dtC150.GetData("C150_CALNO=" & sCalNo.ToTextStr)
92+
93+ '' 戻り値を返す
94+ Return dteTargetDate
95+ End Function
96+
6697 End Class
--- trunk/MLApp.TRNLib/Class/Printer.vb (revision 0)
+++ trunk/MLApp.TRNLib/Class/Printer.vb (revision 71)
@@ -0,0 +1,36 @@
1+
2+''' <summary>
3+''' 【クラス名】Printer
4+''' 【機能概要】プリンター操作クラス
5+''' </summary>
6+''' <history>
7+''' +------------+-----------+-----+-------------------------------------------+
8+''' |更新者 |日付 |連番 |変更内容 |
9+''' +------------+-----------+-----+-------------------------------------------+
10+''' y.miura 2018.02.26 001 新規作成
11+''' </history>
12+Public Class Printer
13+
14+ ''' <summary>Printing.PrintDocumentインスタンス</summary>
15+ Private m_Pd As New System.Drawing.Printing.PrintDocument
16+
17+ ''' <summary>
18+ ''' 通常使うプリンタ名を返す
19+ ''' </summary>
20+ ''' <returns>通常使うプリンタ名</returns>
21+ Public Function GetDefaultPrinterName() As String
22+ Return Me.m_Pd.PrinterSettings.PrinterName
23+ End Function
24+
25+ ''' <summary>
26+ ''' インストールされているプリンタの一覧をDataTableにセットする
27+ ''' </summary>
28+ Public Sub GetPrinterList(dtPrinters As DataModel.Cmn_TRNDataSet.dtPrinterNameDataTable)
29+ For Each sPrinterName As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
30+ Dim drPrinters = dtPrinters.NewdtPrinterNameRow
31+ drPrinters.PrinterName = sPrinterName
32+ dtPrinters.AdddtPrinterNameRow(drPrinters)
33+ Next sPrinterName
34+ End Sub
35+
36+End Class
--- trunk/ML.Controls/uc6DataGridView.vb (revision 70)
+++ trunk/ML.Controls/uc6DataGridView.vb (revision 71)
@@ -45,6 +45,12 @@
4545 ''' <summary>編集後のセル値</summary>
4646 Private m_CellValueAfter As String = String.Empty
4747
48+ ''' <summary>フォント名</summary>
49+ Private Const FONTNAME_DEFAULT As String = "MS UI Gothic"
50+
51+ ''' <summary>フォントサイズ既定値</summary>
52+ Private Const FONTSIZE_DEFAULT As Single = 9.5
53+
4854 #End Region
4955
5056 #Region " コンストラクタ"
--- trunk/MLApp.TRN9000/TRN9110.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9110.vb (revision 71)
@@ -11,9 +11,6 @@
1111 ''' </history>
1212 Public Class TRN9110
1313
14- '' ''' <summary>ログオン情報クラス</summary>
15- ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
16-
1714 ''' <summary>フォームロード時イベント</summary>
1815 Private Sub TRN9110_Load(sender As Object, e As System.EventArgs) Handles Me.Load
1916
--- trunk/MLApp.TRN9000/TRN9120.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9120.vb (revision 71)
@@ -39,9 +39,6 @@
3939 ''' <summary>処理中フラグ</summary>
4040 Private m_bProcessFlg As Boolean = False
4141
42- '' ''' <summary>ログオン情報クラス</summary>
43- ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
44-
4542 ''' <summary>C150DataTableインスタンス</summary>
4643 Private m_dtC150 As New MLApp.DataModel.C1_TRNDataSet.C150_FDataTable
4744
--- trunk/MLApp.TRN9000/TRN9130.Designer.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9130.Designer.vb (revision 71)
@@ -23,7 +23,8 @@
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
2525 Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26- Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27+ Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
2728 Me.Uc6GroupBox1 = New ML.Controls.uc6GroupBox()
2829 Me.numC111_RITU1 = New ML.Controls.uc6Num()
2930 Me.dteC111_DATE1 = New ML.Controls.uc6Date()
@@ -39,6 +40,7 @@
3940 Me.C111_RITU1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
4041 Me.C111_UPD1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
4142 Me.MenuBtnPanel.SuspendLayout()
43+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
4244 Me.Uc6GroupBox1.SuspendLayout()
4345 CType(Me.dteC111_DATE1, System.ComponentModel.ISupportInitialize).BeginInit()
4446 CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -143,7 +145,7 @@
143145 Me.dteC111_DATE1.Name = "dteC111_DATE1"
144146 Me.dteC111_DATE1.Size = New System.Drawing.Size(112, 20)
145147 Me.dteC111_DATE1.TabIndex = 115
146- Me.dteC111_DATE1.Value = New Date(2017, 1, 13, 0, 0, 0, 0)
148+ Me.dteC111_DATE1.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
147149 '
148150 'Uc6Label1
149151 '
@@ -223,6 +225,14 @@
223225 Me.dgvTRN9130S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.C111_NO1, Me.C111_DATE1, Me.C111_RITU1, Me.C111_UPD1})
224226 Me.dgvTRN9130S1.DataMember = "C111_F"
225227 Me.dgvTRN9130S1.DataSource = Me.C1_TRNDataSet
228+ DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
229+ DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
230+ DataGridViewCellStyle3.Font = New System.Drawing.Font("MS UI Gothic", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
231+ DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
232+ DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
233+ DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
234+ DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
235+ Me.dgvTRN9130S1.DefaultCellStyle = DataGridViewCellStyle3
226236 Me.dgvTRN9130S1.Location = New System.Drawing.Point(12, 49)
227237 Me.dgvTRN9130S1.MultiSelect = False
228238 Me.dgvTRN9130S1.Name = "dgvTRN9130S1"
@@ -246,8 +256,8 @@
246256 'C111_DATE1
247257 '
248258 Me.C111_DATE1.DataPropertyName = "C111_DATE1"
249- DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
250- Me.C111_DATE1.DefaultCellStyle = DataGridViewCellStyle3
259+ DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
260+ Me.C111_DATE1.DefaultCellStyle = DataGridViewCellStyle1
251261 Me.C111_DATE1.HeaderText = "税施行日"
252262 Me.C111_DATE1.Name = "C111_DATE1"
253263 Me.C111_DATE1.ReadOnly = True
@@ -255,8 +265,8 @@
255265 'C111_RITU1
256266 '
257267 Me.C111_RITU1.DataPropertyName = "C111_RITU1"
258- DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
259- Me.C111_RITU1.DefaultCellStyle = DataGridViewCellStyle4
268+ DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
269+ Me.C111_RITU1.DefaultCellStyle = DataGridViewCellStyle2
260270 Me.C111_RITU1.HeaderText = "税率"
261271 Me.C111_RITU1.Name = "C111_RITU1"
262272 Me.C111_RITU1.ReadOnly = True
@@ -284,6 +294,7 @@
284294 Me.Controls.SetChildIndex(Me.dgvTRN9130S1, 0)
285295 Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
286296 Me.MenuBtnPanel.ResumeLayout(False)
297+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
287298 Me.Uc6GroupBox1.ResumeLayout(False)
288299 Me.Uc6GroupBox1.PerformLayout()
289300 CType(Me.dteC111_DATE1, System.ComponentModel.ISupportInitialize).EndInit()
--- trunk/MLApp.TRN9000/TRN9140.Designer.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9140.Designer.vb (revision 71)
@@ -22,13 +22,14 @@
2222 'コード エディターを使って変更しないでください。
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
25+ Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
2526 Dim Uc6DataGridViewHeaderCell1 As ML.Controls.uc6DataGridViewHeaderCell = New ML.Controls.uc6DataGridViewHeaderCell()
2627 Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
2728 Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
2829 Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29- Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30- Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
3130 Me.dgvTRN9140S1 = New ML.Controls.uc6DataGridView()
31+ Me.C1_TRNDataSet = New MLApp.DataModel.C1_TRNDataSet()
32+ Me.lblDispMode = New ML.Controls.uc6Label()
3233 Me.C130_KEY1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3334 Me.C130_KEYNM1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3435 Me.C130_DPNO1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
@@ -35,8 +36,6 @@
3536 Me.C130_UP1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3637 Me.C130_DW1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3738 Me.C130_UPD1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
38- Me.C1_TRNDataSet = New MLApp.DataModel.C1_TRNDataSet()
39- Me.lblDispMode = New ML.Controls.uc6Label()
4039 Me.MenuBtnPanel.SuspendLayout()
4140 CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
4241 CType(Me.dgvTRN9140S1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -107,6 +106,14 @@
107106 Me.dgvTRN9140S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.C130_KEY1, Me.C130_KEYNM1, Me.C130_DPNO1, Me.C130_UP1, Me.C130_DW1, Me.C130_UPD1})
108107 Me.dgvTRN9140S1.DataMember = "TRN9140S1"
109108 Me.dgvTRN9140S1.DataSource = Me.C1_TRNDataSet
109+ DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
110+ DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
111+ DataGridViewCellStyle4.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
112+ DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
113+ DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
114+ DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
115+ DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
116+ Me.dgvTRN9140S1.DefaultCellStyle = DataGridViewCellStyle4
110117 Uc6DataGridViewHeaderCell1.BackGroundColor = System.Drawing.Color.Empty
111118 Uc6DataGridViewHeaderCell1.Column = 0
112119 Uc6DataGridViewHeaderCell1.ColumnSpan = 2
@@ -128,11 +135,25 @@
128135 Me.dgvTRN9140S1.TabIndex = 108
129136 Me.dgvTRN9140S1.TabStop = False
130137 '
138+ 'C1_TRNDataSet
139+ '
140+ Me.C1_TRNDataSet.DataSetName = "C1_TRNDataSet"
141+ Me.C1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
142+ '
143+ 'lblDispMode
144+ '
145+ Me.lblDispMode.BackColor = System.Drawing.Color.White
146+ Me.lblDispMode.ForeColor = System.Drawing.Color.Black
147+ Me.lblDispMode.Location = New System.Drawing.Point(507, 58)
148+ Me.lblDispMode.Name = "lblDispMode"
149+ Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
150+ Me.lblDispMode.TabIndex = 115
151+ Me.lblDispMode.Text = "画面モード"
152+ Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
153+ '
131154 'C130_KEY1
132155 '
133156 Me.C130_KEY1.DataPropertyName = "C130_KEY1"
134- DataGridViewCellStyle1.Font = New System.Drawing.Font("MS ゴシック", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
135- Me.C130_KEY1.DefaultCellStyle = DataGridViewCellStyle1
136157 Me.C130_KEY1.HeaderText = "キー"
137158 Me.C130_KEY1.ImeMode = System.Windows.Forms.ImeMode.NoControl
138159 Me.C130_KEY1.MaxLength = 0
@@ -145,8 +166,6 @@
145166 'C130_KEYNM1
146167 '
147168 Me.C130_KEYNM1.DataPropertyName = "C130_KEYNM1"
148- DataGridViewCellStyle2.Font = New System.Drawing.Font("MS ゴシック", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
149- Me.C130_KEYNM1.DefaultCellStyle = DataGridViewCellStyle2
150169 Me.C130_KEYNM1.HeaderText = "キー名称"
151170 Me.C130_KEYNM1.ImeMode = System.Windows.Forms.ImeMode.NoControl
152171 Me.C130_KEYNM1.MaxLength = 0
@@ -158,9 +177,8 @@
158177 'C130_DPNO1
159178 '
160179 Me.C130_DPNO1.DataPropertyName = "C130_DPNO1"
161- DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
162- DataGridViewCellStyle3.Font = New System.Drawing.Font("MS ゴシック", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
163- Me.C130_DPNO1.DefaultCellStyle = DataGridViewCellStyle3
180+ DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
181+ Me.C130_DPNO1.DefaultCellStyle = DataGridViewCellStyle1
164182 Me.C130_DPNO1.HeaderText = "伝票番号(現在)"
165183 Me.C130_DPNO1.ImeMode = System.Windows.Forms.ImeMode.NoControl
166184 Me.C130_DPNO1.MaxLength = 0
@@ -172,9 +190,8 @@
172190 'C130_UP1
173191 '
174192 Me.C130_UP1.DataPropertyName = "C130_UP1"
175- DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
176- DataGridViewCellStyle4.Font = New System.Drawing.Font("MS ゴシック", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
177- Me.C130_UP1.DefaultCellStyle = DataGridViewCellStyle4
193+ DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
194+ Me.C130_UP1.DefaultCellStyle = DataGridViewCellStyle2
178195 Me.C130_UP1.HeaderText = "下限番号"
179196 Me.C130_UP1.ImeMode = System.Windows.Forms.ImeMode.NoControl
180197 Me.C130_UP1.MaxLength = 0
@@ -185,9 +202,8 @@
185202 'C130_DW1
186203 '
187204 Me.C130_DW1.DataPropertyName = "C130_DW1"
188- DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
189- DataGridViewCellStyle5.Font = New System.Drawing.Font("MS ゴシック", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
190- Me.C130_DW1.DefaultCellStyle = DataGridViewCellStyle5
205+ DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
206+ Me.C130_DW1.DefaultCellStyle = DataGridViewCellStyle3
191207 Me.C130_DW1.HeaderText = "上限番号"
192208 Me.C130_DW1.ImeMode = System.Windows.Forms.ImeMode.NoControl
193209 Me.C130_DW1.MaxLength = 0
@@ -202,22 +218,6 @@
202218 Me.C130_UPD1.Name = "C130_UPD1"
203219 Me.C130_UPD1.Visible = False
204220 '
205- 'C1_TRNDataSet
206- '
207- Me.C1_TRNDataSet.DataSetName = "C1_TRNDataSet"
208- Me.C1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
209- '
210- 'lblDispMode
211- '
212- Me.lblDispMode.BackColor = System.Drawing.Color.White
213- Me.lblDispMode.ForeColor = System.Drawing.Color.Black
214- Me.lblDispMode.Location = New System.Drawing.Point(507, 58)
215- Me.lblDispMode.Name = "lblDispMode"
216- Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
217- Me.lblDispMode.TabIndex = 115
218- Me.lblDispMode.Text = "画面モード"
219- Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
220- '
221221 'TRN9140
222222 '
223223 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
--- trunk/MLApp.TRN9000/TRN9130.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9130.vb (revision 71)
@@ -16,9 +16,6 @@
1616
1717 #Region " メンバ変数"
1818
19- '' ''' <summary>ログオン情報クラス</summary>
20- ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
21-
2219 #End Region
2320
2421 #Region " イベント"
--- trunk/MLApp.TRN9000/TRN9150.Designer.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9150.Designer.vb (revision 71)
@@ -22,7 +22,9 @@
2222 'コード エディターを使って変更しないでください。
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
25+ Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
2526 Me.dgvTRN9150S1 = New ML.Controls.uc6DataGridView()
27+ Me.Cmn_TRNDataSet = New MLApp.DataModel.Cmn_TRNDataSet()
2628 Me.C1_TRNDataSet = New MLApp.DataModel.C1_TRNDataSet()
2729 Me.lblDispMode = New ML.Controls.uc6Label()
2830 Me.C140_CP1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
@@ -36,6 +38,7 @@
3638 Me.MenuBtnPanel.SuspendLayout()
3739 CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
3840 CType(Me.dgvTRN9150S1, System.ComponentModel.ISupportInitialize).BeginInit()
41+ CType(Me.Cmn_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
3942 CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
4043 Me.SuspendLayout()
4144 '
@@ -100,6 +103,14 @@
100103 Me.dgvTRN9150S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.C140_CP1, Me.C140_REPID, Me.C140_PRTNAME, Me.C140_TOPM, Me.C140_BTMM, Me.C140_LFTM, Me.C140_RGHM, Me.C140UPD1DataGridViewTextBoxColumn})
101104 Me.dgvTRN9150S1.DataMember = "C140_F"
102105 Me.dgvTRN9150S1.DataSource = Me.C1_TRNDataSet
106+ DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
107+ DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
108+ DataGridViewCellStyle1.Font = New System.Drawing.Font("MS UI Gothic", 9.5!)
109+ DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
110+ DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
111+ DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
112+ DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
113+ Me.dgvTRN9150S1.DefaultCellStyle = DataGridViewCellStyle1
103114 Me.dgvTRN9150S1.Location = New System.Drawing.Point(12, 58)
104115 Me.dgvTRN9150S1.MultiSelect = False
105116 Me.dgvTRN9150S1.Name = "dgvTRN9150S1"
@@ -111,6 +122,11 @@
111122 Me.dgvTRN9150S1.TabIndex = 109
112123 Me.dgvTRN9150S1.TabStop = False
113124 '
125+ 'Cmn_TRNDataSet
126+ '
127+ Me.Cmn_TRNDataSet.DataSetName = "Cmn_TRNDataSet"
128+ Me.Cmn_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
129+ '
114130 'C1_TRNDataSet
115131 '
116132 Me.C1_TRNDataSet.DataSetName = "C1_TRNDataSet"
@@ -134,6 +150,7 @@
134150 Me.C140_CP1.ImeMode = System.Windows.Forms.ImeMode.NoControl
135151 Me.C140_CP1.MaxLength = 0
136152 Me.C140_CP1.Name = "C140_CP1"
153+ Me.C140_CP1.ReadOnly = True
137154 Me.C140_CP1.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
138155 Me.C140_CP1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
139156 Me.C140_CP1.Visible = False
@@ -145,6 +162,7 @@
145162 Me.C140_REPID.ImeMode = System.Windows.Forms.ImeMode.NoControl
146163 Me.C140_REPID.MaxLength = 0
147164 Me.C140_REPID.Name = "C140_REPID"
165+ Me.C140_REPID.ReadOnly = True
148166 Me.C140_REPID.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
149167 Me.C140_REPID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
150168 '
@@ -151,10 +169,13 @@
151169 'C140_PRTNAME
152170 '
153171 Me.C140_PRTNAME.DataPropertyName = "C140_PRTNAME"
172+ Me.C140_PRTNAME.DataSource = Me.Cmn_TRNDataSet
173+ Me.C140_PRTNAME.DisplayMember = "dtPrinterName.PrinterName"
154174 Me.C140_PRTNAME.HeaderText = "プリンタドライバ名"
155175 Me.C140_PRTNAME.Name = "C140_PRTNAME"
156176 Me.C140_PRTNAME.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
157177 Me.C140_PRTNAME.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
178+ Me.C140_PRTNAME.ValueMember = "dtPrinterName.PrinterName"
158179 Me.C140_PRTNAME.Width = 270
159180 '
160181 'C140_TOPM
@@ -235,6 +256,7 @@
235256 Me.MenuBtnPanel.ResumeLayout(False)
236257 CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
237258 CType(Me.dgvTRN9150S1, System.ComponentModel.ISupportInitialize).EndInit()
259+ CType(Me.Cmn_TRNDataSet, System.ComponentModel.ISupportInitialize).EndInit()
238260 CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).EndInit()
239261 Me.ResumeLayout(False)
240262 Me.PerformLayout()
@@ -243,6 +265,7 @@
243265 Friend WithEvents dgvTRN9150S1 As ML.Controls.uc6DataGridView
244266 Friend WithEvents C1_TRNDataSet As MLApp.DataModel.C1_TRNDataSet
245267 Friend WithEvents lblDispMode As ML.Controls.uc6Label
268+ Friend WithEvents Cmn_TRNDataSet As MLApp.DataModel.Cmn_TRNDataSet
246269 Friend WithEvents C140_CP1 As ML.Controls.uc6DataGridViewTextBoxColumn
247270 Friend WithEvents C140_REPID As ML.Controls.uc6DataGridViewTextBoxColumn
248271 Friend WithEvents C140_PRTNAME As System.Windows.Forms.DataGridViewComboBoxColumn
--- trunk/MLApp.TRN9000/TRN9140.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9140.vb (revision 71)
@@ -14,9 +14,6 @@
1414 ''' </history>
1515 Public Class TRN9140
1616
17- '' ''' <summary>ログオン情報クラス</summary>
18- ''Private m_LInfo As New MLApp.TRNLib.LoginInfo
19-
2017 ''' <summary>フォームロード時イベント</summary>
2118 Private Sub TRN9140_Load(sender As Object, e As System.EventArgs) Handles Me.Load
2219
--- trunk/MLApp.TRN9000/TRN9150.vb (revision 70)
+++ trunk/MLApp.TRN9000/TRN9150.vb (revision 71)
@@ -14,10 +14,20 @@
1414 ''' </history>
1515 Public Class TRN9150
1616
17+#Region " メンバ変数"
18+
19+ ''' <summary>プリンター操作クラスインスタンス</summary>
20+ Private m_Printer As New TRNLib.Printer
21+
22+#End Region
23+
24+#Region " イベント"
25+
1726 ''' <summary>フォームロード時イベント</summary>
1827 Private Sub TRN9150_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
1928
2029 Try
30+
2131 '' 元に戻すボタン押下処理
2232 Me.CancelProc()
2333
@@ -36,6 +46,7 @@
3646
3747 End Sub
3848
49+
3950 ''' <summary>元に戻すボタンクリック時イベント</summary>
4051 Protected Overrides Sub cmdF3_Click(sender As Object, e As System.EventArgs)
4152 Try
@@ -53,6 +64,18 @@
5364 End Try
5465 End Sub
5566
67+#End Region
68+
69+#Region " メソッド"
70+
71+ ''' <summary>コンボボックス設定処理</summary>
72+ Private Sub SetComboBox()
73+
74+ '' プリンター一覧を取得してコンボボックスデータソースとする
75+ Me.m_Printer.GetPrinterList(Me.Cmn_TRNDataSet.dtPrinterName)
76+
77+ End Sub
78+
5679 ''' <summary>検索処理</summary>
5780 Private Sub SearchC140()
5881 Dim sbSQL As New StringBuilder
@@ -63,7 +86,7 @@
6386 '' DB-Open
6487 DB.Open()
6588
66- '' C140-抽出SQL
89+ '' C140-抽出SQL(コンピュータ別設定)
6790 sbSQL.Length = 0
6891 sbSQL.AppendLine("SELECT ")
6992 sbSQL.AppendLine(" C140.*")
@@ -71,26 +94,10 @@
7194 sbSQL.AppendLine(" WHERE C140_CP1=" & System.Net.Dns.GetHostName().ToTextStr)
7295
7396 '' DataTable取得
74- 'Dim dtRecS As DataTable
75- 'dtRecS = DB.Fill(sbSQL.ToString)
7697 Me.C1_TRNDataSet.C140_F.Clear()
7798 DB.Fill(Me.C1_TRNDataSet.C140_F, sbSQL.ToString)
7899
79- 'Dim drTRN9140S1 As MLApp.DataModel.C1_TRNDataSet.TRN9140S1Row
80- 'Me.C1_TRNDataSet.TRN9140S1.Clear()
81- 'For Each dr As DataRow In dtRecS.Rows
82-
83- ' drTRN9140S1 = Me.C1_TRNDataSet.TRN9140S1.NewRow
84- ' drTRN9140S1.C130_KEY1 = dr.Item("C130_KEY1")
85- ' drTRN9140S1.C130_KEYNM1 = dr.Item("C130_KEYNM1").ToString
86- ' drTRN9140S1.C130_DPNO1 = dr.Item("C130_DPNO1")
87- ' drTRN9140S1.C130_DW1 = dr.Item("C130_DW1")
88- ' drTRN9140S1.C130_UP1 = dr.Item("C130_UP1")
89- ' drTRN9140S1.C130_UPD1 = dr.Item("C130_UPD1").ToString
90- ' Me.C1_TRNDataSet.TRN9140S1.AddTRN9140S1Row(drTRN9140S1)
91-
92- 'Next
93-
100+ '' C140-抽出SQL(マスター設定)
94101 sbSQL.Length = 0
95102 sbSQL.AppendLine("SELECT ")
96103 sbSQL.AppendLine(" C140.*")
@@ -106,7 +113,7 @@
106113 drC140NewRow.C140_CP1 = System.Net.Dns.GetHostName()
107114 drC140NewRow.C140_REPID = dr.C140_REPID
108115 drC140NewRow.C140_REPNM = dr.C140_REPNM
109- drC140NewRow.C140_PRTNAME = dr.C140_PRTNAME
116+ drC140NewRow.C140_PRTNAME = Me.m_Printer.GetDefaultPrinterName '' 通常使うプリンタをセット
110117 drC140NewRow.C140_TOPM = dr.C140_TOPM
111118 drC140NewRow.C140_BTMM = dr.C140_BTMM
112119 drC140NewRow.C140_LFTM = dr.C140_LFTM
@@ -150,6 +157,8 @@
150157 ''' <summary>画面初期化処理</summary>
151158 Private Sub InitDisp()
152159 Try
160+ '' コンボボックス設定
161+ Me.SetComboBox()
153162
154163 '' ボタンコントロールの使用可否設定
155164 Me.ChangeButtonEnabled_Init()
@@ -214,4 +223,6 @@
214223
215224 End Sub
216225
226+#End Region
227+
217228 End Class
\ No newline at end of file
Show on old repository browser