• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision70 (tree)
Time2018-02-26 14:30:16
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/ML.Common.Function/Class/df6.vb (revision 69)
+++ trunk/ML.Common.Function/Class/df6.vb (revision 70)
@@ -1,7 +1,7 @@
11 
22 ''' <summary>
3-''' 【クラス名】NVL
4-''' 【機能概要】ディレクトリ関連の共有メソッド
3+''' 【クラス名】df6
4+''' 【機能概要】共通メソッド
55 ''' </summary>
66 ''' <history>
77 ''' +------------+-----------+-----+-------------------------------------------+
@@ -11,7 +11,7 @@
1111 ''' </history>
1212 Public Class df6
1313
14-#Region " NVL"
14+#Region " Nothing値変換"
1515
1616 ''' <summary>
1717 ''' Nothing,DBNull変換(ゼロ値変換)
--- trunk/ML.Controls/uc6DateText.vb (revision 69)
+++ trunk/ML.Controls/uc6DateText.vb (revision 70)
@@ -25,8 +25,31 @@
2525 ''' <summary>DataGridViewEditコントロールフラグ</summary>
2626 Protected m_bDataGridViewEditing As Boolean = False
2727
28+ ' ''' <summary>コントロールが保持している値が変更された事を示すフラグ</summary>
29+ 'Private m_Modified As Boolean = False
30+
31+ ' ''' <summary>変更前の値</summary>
32+ 'Private m_sOldData As String = ""
33+
34+ ' ''' <summary>デザインモード</summary>
35+ 'Private m_DesignMode As Boolean
36+
2837 #End Region
2938
39+#Region " コンストラクタ"
40+
41+ ''' <summary>コンストラクタ</summary>
42+ Public Sub New()
43+
44+ '' この呼び出しはデザイナーで必要です。
45+ InitializeComponent()
46+
47+ '' InitializeComponent() 呼び出しの後で初期化を追加します。
48+
49+ End Sub
50+
51+#End Region
52+
3053 #Region " プロパティ"
3154
3255 ''' <summary>Text</summary>
@@ -258,9 +281,50 @@
258281
259282 #Region " イベント"
260283
284+ ''' <summary>BeforeUpdate</summary>
285+ Public Event BeforeUpdate(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
286+
287+ ''' <summary>AfterUpdate</summary>
288+ Public Event AfterUpdate(ByVal sender As Object, ByVal e As System.EventArgs)
289+
261290 ''' <summary>ValueChangedイベント</summary>
262291 Public Event ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
263292
293+ ' ''' <summary>OnEnter</summary>
294+ 'Protected Overrides Sub OnEnter(e As System.EventArgs)
295+
296+ ' '' デザインモードの場合は処理を抜ける
297+ ' If Me.m_DesignMode = True Then Exit Sub
298+
299+ ' '' 値変更フラグ初期化
300+ ' Me.m_Modified = False
301+
302+ ' '' フォーカス取得時の値を退避
303+ ' If Me.Value Is Nothing Then
304+ ' Me.m_sOldData = String.Empty
305+ ' Else
306+ ' Me.m_sOldData = Me.Value.ToString
307+ ' End If
308+
309+ ' '' OnEnterイベントを発生させる
310+ ' MyBase.OnEnter(e)
311+
312+ 'End Sub
313+
314+ ' ''' <summary>OnLeave</summary>
315+ 'Protected Overrides Sub OnLeave(e As System.EventArgs)
316+
317+ ' '' デザインモードの場合は処理を抜ける
318+ ' If Me.m_DesignMode = True Then Exit Sub
319+
320+ ' '' 値変更フラグ初期化
321+ ' Me.m_Modified = False
322+
323+ ' '' OnLeaveイベントを発生させる
324+ ' MyBase.OnLeave(e)
325+
326+ 'End Sub
327+
264328 ''' <summary>OnValueChangedメソッド</summary>
265329 Protected Overridable Sub OnValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
266330
@@ -310,6 +374,22 @@
310374
311375 End Sub
312376
377+ ''' <summary>txtUc6TextBox_BeforeUpdateイベント</summary>
378+ Private Sub txtUc6TextBox_BeforeUpdate(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtUc6TextBox.BeforeUpdate
379+
380+ '' BeforeUpdateイベントを発生させる
381+ RaiseEvent BeforeUpdate(Me, e)
382+
383+ End Sub
384+
385+ ''' <summary>txtUc6TextBox_AfterUpdateイベント</summary>
386+ Private Sub txtUc6TextBox_AfterUpdate(sender As Object, e As System.EventArgs) Handles txtUc6TextBox.AfterUpdate
387+
388+ '' AfterUpdateイベントを発生させる
389+ RaiseEvent AfterUpdate(Me, e)
390+
391+ End Sub
392+
313393 ''' <summary>txtUc6TextBox_GotFocusイベント</summary>
314394 Private Sub txtUc6TextBox_GotFocus(sender As Object, e As System.EventArgs) Handles txtUc6TextBox.GotFocus
315395
--- trunk/MLApp.TRN9000/TRN9150.Designer.vb (revision 0)
+++ trunk/MLApp.TRN9000/TRN9150.Designer.vb (revision 70)
@@ -0,0 +1,254 @@
1+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2+Partial Class TRN9150
3+ Inherits MLApp.Base.TRNBaseForm
4+
5+ 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
6+ <System.Diagnostics.DebuggerNonUserCode()> _
7+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8+ Try
9+ If disposing AndAlso components IsNot Nothing Then
10+ components.Dispose()
11+ End If
12+ Finally
13+ MyBase.Dispose(disposing)
14+ End Try
15+ End Sub
16+
17+ 'Windows フォーム デザイナーで必要です。
18+ Private components As System.ComponentModel.IContainer
19+
20+ 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
21+ 'Windows フォーム デザイナーを使用して変更できます。
22+ 'コード エディターを使って変更しないでください。
23+ <System.Diagnostics.DebuggerStepThrough()> _
24+ Private Sub InitializeComponent()
25+ Me.dgvTRN9150S1 = New ML.Controls.uc6DataGridView()
26+ Me.C1_TRNDataSet = New MLApp.DataModel.C1_TRNDataSet()
27+ Me.lblDispMode = New ML.Controls.uc6Label()
28+ Me.C140_CP1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
29+ Me.C140_REPID = New ML.Controls.uc6DataGridViewTextBoxColumn()
30+ Me.C140_PRTNAME = New System.Windows.Forms.DataGridViewComboBoxColumn()
31+ Me.C140_TOPM = New ML.Controls.uc6DataGridViewNumColumn()
32+ Me.C140_BTMM = New ML.Controls.uc6DataGridViewNumColumn()
33+ Me.C140_LFTM = New ML.Controls.uc6DataGridViewNumColumn()
34+ Me.C140_RGHM = New ML.Controls.uc6DataGridViewNumColumn()
35+ Me.C140UPD1DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
36+ Me.MenuBtnPanel.SuspendLayout()
37+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
38+ CType(Me.dgvTRN9150S1, System.ComponentModel.ISupportInitialize).BeginInit()
39+ CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
40+ Me.SuspendLayout()
41+ '
42+ 'cmdF1
43+ '
44+ Me.cmdF1.Text = "登録"
45+ '
46+ 'cmdF11
47+ '
48+ Me.cmdF11.Text = ""
49+ '
50+ 'cmdF10
51+ '
52+ Me.cmdF10.Text = "Excel"
53+ '
54+ 'cmdF9
55+ '
56+ Me.cmdF9.Text = ""
57+ '
58+ 'cmdF8
59+ '
60+ Me.cmdF8.Text = ""
61+ '
62+ 'cmdF7
63+ '
64+ Me.cmdF7.Text = ""
65+ '
66+ 'cmdF6
67+ '
68+ Me.cmdF6.Text = ""
69+ '
70+ 'cmdF5
71+ '
72+ Me.cmdF5.Text = ""
73+ '
74+ 'cmdF4
75+ '
76+ Me.cmdF4.Text = ""
77+ '
78+ 'cmdF3
79+ '
80+ Me.cmdF3.Text = "元に戻す"
81+ '
82+ 'cmdF2
83+ '
84+ Me.cmdF2.Text = ""
85+ '
86+ 'cmdF12
87+ '
88+ Me.cmdF12.Text = "終了"
89+ '
90+ 'dgvTRN9150S1
91+ '
92+ Me.dgvTRN9150S1.AllowUserToAddRows = False
93+ Me.dgvTRN9150S1.AllowUserToDeleteRows = False
94+ Me.dgvTRN9150S1.AllowUserToResizeRows = False
95+ Me.dgvTRN9150S1.AutoGenerateColumns = False
96+ Me.dgvTRN9150S1.ColumnHeaderBorderStyle = ML.Controls.uc6DataGridViewBase.HeaderCellBorderStyle.SingleLine
97+ Me.dgvTRN9150S1.ColumnHeaderRowCount = 1
98+ Me.dgvTRN9150S1.ColumnHeaderRowHeight = 30
99+ Me.dgvTRN9150S1.ColumnHeadersHeight = 32
100+ 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})
101+ Me.dgvTRN9150S1.DataMember = "C140_F"
102+ Me.dgvTRN9150S1.DataSource = Me.C1_TRNDataSet
103+ Me.dgvTRN9150S1.Location = New System.Drawing.Point(12, 58)
104+ Me.dgvTRN9150S1.MultiSelect = False
105+ Me.dgvTRN9150S1.Name = "dgvTRN9150S1"
106+ Me.dgvTRN9150S1.RowTemplate.Height = 21
107+ Me.dgvTRN9150S1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
108+ Me.dgvTRN9150S1.ShowLineNo = True
109+ Me.dgvTRN9150S1.Size = New System.Drawing.Size(770, 351)
110+ Me.dgvTRN9150S1.StandardTab = True
111+ Me.dgvTRN9150S1.TabIndex = 109
112+ Me.dgvTRN9150S1.TabStop = False
113+ '
114+ 'C1_TRNDataSet
115+ '
116+ Me.C1_TRNDataSet.DataSetName = "C1_TRNDataSet"
117+ Me.C1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
118+ '
119+ 'lblDispMode
120+ '
121+ Me.lblDispMode.BackColor = System.Drawing.Color.White
122+ Me.lblDispMode.ForeColor = System.Drawing.Color.Black
123+ Me.lblDispMode.Location = New System.Drawing.Point(788, 58)
124+ Me.lblDispMode.Name = "lblDispMode"
125+ Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
126+ Me.lblDispMode.TabIndex = 116
127+ Me.lblDispMode.Text = "画面モード"
128+ Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
129+ '
130+ 'C140_CP1
131+ '
132+ Me.C140_CP1.DataPropertyName = "C140_CP1"
133+ Me.C140_CP1.HeaderText = "コンピュータ名"
134+ Me.C140_CP1.ImeMode = System.Windows.Forms.ImeMode.NoControl
135+ Me.C140_CP1.MaxLength = 0
136+ Me.C140_CP1.Name = "C140_CP1"
137+ Me.C140_CP1.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
138+ Me.C140_CP1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
139+ Me.C140_CP1.Visible = False
140+ '
141+ 'C140_REPID
142+ '
143+ Me.C140_REPID.DataPropertyName = "C140_REPID"
144+ Me.C140_REPID.HeaderText = "レポートID"
145+ Me.C140_REPID.ImeMode = System.Windows.Forms.ImeMode.NoControl
146+ Me.C140_REPID.MaxLength = 0
147+ Me.C140_REPID.Name = "C140_REPID"
148+ Me.C140_REPID.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
149+ Me.C140_REPID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
150+ '
151+ 'C140_PRTNAME
152+ '
153+ Me.C140_PRTNAME.DataPropertyName = "C140_PRTNAME"
154+ Me.C140_PRTNAME.HeaderText = "プリンタドライバ名"
155+ Me.C140_PRTNAME.Name = "C140_PRTNAME"
156+ Me.C140_PRTNAME.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
157+ Me.C140_PRTNAME.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
158+ Me.C140_PRTNAME.Width = 270
159+ '
160+ 'C140_TOPM
161+ '
162+ Me.C140_TOPM.AfterDecimalDigits = 1
163+ Me.C140_TOPM.AfterDecimalZeroPadding = False
164+ Me.C140_TOPM.CommaFormat = False
165+ Me.C140_TOPM.DataPropertyName = "C140_TOPM"
166+ Me.C140_TOPM.DecimalDigits = 3
167+ Me.C140_TOPM.HeaderText = "上余白"
168+ Me.C140_TOPM.Name = "C140_TOPM"
169+ Me.C140_TOPM.NegativeSignInput = False
170+ Me.C140_TOPM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
171+ Me.C140_TOPM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
172+ Me.C140_TOPM.Width = 60
173+ '
174+ 'C140_BTMM
175+ '
176+ Me.C140_BTMM.AfterDecimalDigits = 1
177+ Me.C140_BTMM.AfterDecimalZeroPadding = False
178+ Me.C140_BTMM.CommaFormat = False
179+ Me.C140_BTMM.DataPropertyName = "C140_BTMM"
180+ Me.C140_BTMM.DecimalDigits = 3
181+ Me.C140_BTMM.HeaderText = "下余白"
182+ Me.C140_BTMM.Name = "C140_BTMM"
183+ Me.C140_BTMM.NegativeSignInput = False
184+ Me.C140_BTMM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
185+ Me.C140_BTMM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
186+ Me.C140_BTMM.Width = 60
187+ '
188+ 'C140_LFTM
189+ '
190+ Me.C140_LFTM.AfterDecimalDigits = 1
191+ Me.C140_LFTM.AfterDecimalZeroPadding = False
192+ Me.C140_LFTM.CommaFormat = False
193+ Me.C140_LFTM.DataPropertyName = "C140_LFTM"
194+ Me.C140_LFTM.DecimalDigits = 3
195+ Me.C140_LFTM.HeaderText = "左余白"
196+ Me.C140_LFTM.Name = "C140_LFTM"
197+ Me.C140_LFTM.NegativeSignInput = False
198+ Me.C140_LFTM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
199+ Me.C140_LFTM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
200+ Me.C140_LFTM.Width = 60
201+ '
202+ 'C140_RGHM
203+ '
204+ Me.C140_RGHM.AfterDecimalDigits = 1
205+ Me.C140_RGHM.AfterDecimalZeroPadding = False
206+ Me.C140_RGHM.CommaFormat = False
207+ Me.C140_RGHM.DataPropertyName = "C140_RGHM"
208+ Me.C140_RGHM.DecimalDigits = 3
209+ Me.C140_RGHM.HeaderText = "右余白"
210+ Me.C140_RGHM.Name = "C140_RGHM"
211+ Me.C140_RGHM.NegativeSignInput = False
212+ Me.C140_RGHM.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
213+ Me.C140_RGHM.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
214+ Me.C140_RGHM.Width = 60
215+ '
216+ 'C140UPD1DataGridViewTextBoxColumn
217+ '
218+ Me.C140UPD1DataGridViewTextBoxColumn.DataPropertyName = "C140_UPD1"
219+ Me.C140UPD1DataGridViewTextBoxColumn.HeaderText = "C140_UPD1"
220+ Me.C140UPD1DataGridViewTextBoxColumn.Name = "C140UPD1DataGridViewTextBoxColumn"
221+ Me.C140UPD1DataGridViewTextBoxColumn.Visible = False
222+ '
223+ 'TRN9150
224+ '
225+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
226+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
227+ Me.ClientSize = New System.Drawing.Size(859, 434)
228+ Me.Controls.Add(Me.lblDispMode)
229+ Me.Controls.Add(Me.dgvTRN9150S1)
230+ Me.Name = "TRN9150"
231+ Me.Text = "TRN9150"
232+ Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
233+ Me.Controls.SetChildIndex(Me.dgvTRN9150S1, 0)
234+ Me.Controls.SetChildIndex(Me.lblDispMode, 0)
235+ Me.MenuBtnPanel.ResumeLayout(False)
236+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
237+ CType(Me.dgvTRN9150S1, System.ComponentModel.ISupportInitialize).EndInit()
238+ CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).EndInit()
239+ Me.ResumeLayout(False)
240+ Me.PerformLayout()
241+
242+ End Sub
243+ Friend WithEvents dgvTRN9150S1 As ML.Controls.uc6DataGridView
244+ Friend WithEvents C1_TRNDataSet As MLApp.DataModel.C1_TRNDataSet
245+ Friend WithEvents lblDispMode As ML.Controls.uc6Label
246+ Friend WithEvents C140_CP1 As ML.Controls.uc6DataGridViewTextBoxColumn
247+ Friend WithEvents C140_REPID As ML.Controls.uc6DataGridViewTextBoxColumn
248+ Friend WithEvents C140_PRTNAME As System.Windows.Forms.DataGridViewComboBoxColumn
249+ Friend WithEvents C140_TOPM As ML.Controls.uc6DataGridViewNumColumn
250+ Friend WithEvents C140_BTMM As ML.Controls.uc6DataGridViewNumColumn
251+ Friend WithEvents C140_LFTM As ML.Controls.uc6DataGridViewNumColumn
252+ Friend WithEvents C140_RGHM As ML.Controls.uc6DataGridViewNumColumn
253+ Friend WithEvents C140UPD1DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
254+End Class
--- trunk/MLApp.TRN9000/TRN9150.vb (revision 0)
+++ trunk/MLApp.TRN9000/TRN9150.vb (revision 70)
@@ -0,0 +1,217 @@
1+
2+Imports System.Text
3+Imports ML.Common.Extensions.StringExtension
4+
5+''' <summary>
6+''' 【クラス名】TRN9150
7+''' 【機能概要】プリンタ設定
8+''' </summary>
9+''' <history>
10+''' +------------+-----------+-----+-------------------------------------------+
11+''' |更新者 |日付 |連番 |変更内容 |
12+''' +------------+-----------+-----+-------------------------------------------+
13+''' y.miura 2018.02.26 001 新規作成
14+''' </history>
15+Public Class TRN9150
16+
17+ ''' <summary>フォームロード時イベント</summary>
18+ Private Sub TRN9150_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
19+
20+ Try
21+ '' 元に戻すボタン押下処理
22+ Me.CancelProc()
23+
24+ '' 入力項目にイベントハンドラを追加する
25+ Me.AddHandlerInputControls()
26+
27+ Catch ex As Exception
28+
29+ '' エラーログを出力する
30+ Me.Logger.WriteErrorLog(ex.Message)
31+
32+ '' エラーメッセージを表示する
33+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
34+
35+ End Try
36+
37+ End Sub
38+
39+ ''' <summary>元に戻すボタンクリック時イベント</summary>
40+ Protected Overrides Sub cmdF3_Click(sender As Object, e As System.EventArgs)
41+ Try
42+ '' 「元に戻す」処理を実行する
43+ Me.CancelProc()
44+
45+ Catch ex As Exception
46+
47+ '' エラーログを出力する
48+ Me.Logger.WriteErrorLog(ex.Message)
49+
50+ '' エラーメッセージを表示する
51+ Me.m_messenGer.ErrorOKOnly.Show(ex.Message)
52+
53+ End Try
54+ End Sub
55+
56+ ''' <summary>検索処理</summary>
57+ Private Sub SearchC140()
58+ Dim sbSQL As New StringBuilder
59+ Dim DB As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
60+
61+ Try
62+
63+ '' DB-Open
64+ DB.Open()
65+
66+ '' C140-抽出SQL
67+ sbSQL.Length = 0
68+ sbSQL.AppendLine("SELECT ")
69+ sbSQL.AppendLine(" C140.*")
70+ sbSQL.AppendLine(" FROM " & TRNLib.TRNConst.TableName.C.C140_F & " C140")
71+ sbSQL.AppendLine(" WHERE C140_CP1=" & System.Net.Dns.GetHostName().ToTextStr)
72+
73+ '' DataTable取得
74+ 'Dim dtRecS As DataTable
75+ 'dtRecS = DB.Fill(sbSQL.ToString)
76+ Me.C1_TRNDataSet.C140_F.Clear()
77+ DB.Fill(Me.C1_TRNDataSet.C140_F, sbSQL.ToString)
78+
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+
94+ sbSQL.Length = 0
95+ sbSQL.AppendLine("SELECT ")
96+ sbSQL.AppendLine(" C140.*")
97+ sbSQL.AppendLine(" FROM " & TRNLib.TRNConst.TableName.C.C140_F & " C140")
98+ sbSQL.AppendLine(" WHERE C140_CP1='*'")
99+ Dim dtC140Master As New DataModel.C1_TRNDataSet.C140_FDataTable
100+ DB.Fill(dtC140Master, sbSQL.ToString)
101+ For Each dr As DataModel.C1_TRNDataSet.C140_FRow In dtC140Master.Rows
102+
103+ If Me.C1_TRNDataSet.C140_F.Select("C140_REPID=" & dr.C140_REPID.ToString.ToTextStr).Length = 0 Then
104+
105+ Dim drC140NewRow = Me.C1_TRNDataSet.C140_F.NewC140_FRow
106+ drC140NewRow.C140_CP1 = System.Net.Dns.GetHostName()
107+ drC140NewRow.C140_REPID = dr.C140_REPID
108+ drC140NewRow.C140_REPNM = dr.C140_REPNM
109+ drC140NewRow.C140_PRTNAME = dr.C140_PRTNAME
110+ drC140NewRow.C140_TOPM = dr.C140_TOPM
111+ drC140NewRow.C140_BTMM = dr.C140_BTMM
112+ drC140NewRow.C140_LFTM = dr.C140_LFTM
113+ drC140NewRow.C140_RGHM = dr.C140_RGHM
114+ Me.C1_TRNDataSet.C140_F.AddC140_FRow(drC140NewRow)
115+
116+ End If
117+
118+ Next
119+
120+ Catch ex As Exception
121+
122+ Throw ex
123+
124+ Finally
125+
126+ '' DB-Close
127+ DB.Close()
128+
129+ End Try
130+
131+ End Sub
132+
133+ ''' <summary>キャンセル処理(元に戻す)</summary>
134+ Private Sub CancelProc()
135+ Try
136+ '' 画面初期化
137+ Me.InitDisp()
138+
139+ '' C140 - 検索処理
140+ Me.SearchC140()
141+
142+ Catch ex As Exception
143+
144+ Throw ex
145+
146+ End Try
147+
148+ End Sub
149+
150+ ''' <summary>画面初期化処理</summary>
151+ Private Sub InitDisp()
152+ Try
153+
154+ '' ボタンコントロールの使用可否設定
155+ Me.ChangeButtonEnabled_Init()
156+
157+ '' 画面モード初期化
158+ Me.lblDispMode.Text = stcDispMode.DispNone
159+
160+ Catch ex As Exception
161+
162+ Throw ex
163+
164+ End Try
165+ End Sub
166+
167+ ''' <summary>ボタンコントロール使用可否設定(初期化時)</summary>
168+ Private Sub ChangeButtonEnabled_Init()
169+
170+ Me.cmdF1.Enabled = False
171+ Me.cmdF3.Enabled = True
172+ Me.cmdF12.Enabled = True
173+
174+ End Sub
175+
176+ ''' <summary>入力コントロールイベントハンドラ追加処理</summary>
177+ Private Sub AddHandlerInputControls()
178+
179+ '' Changeイベント
180+ AddHandler Me.dgvTRN9150S1.AfterUpdate, AddressOf Me.ChangeField
181+
182+ '' Leaveイベント
183+ AddHandler Me.dgvTRN9150S1.Leave, AddressOf Me.LeaveField
184+
185+ End Sub
186+
187+ ''' <summary>入力コントロール値変更時処理</summary>
188+ Private Sub ChangeField()
189+
190+ With Me
191+
192+ '' 新規モードで無い場合は修正モードに変更
193+ If .lblDispMode.Text = stcDispMode.DispNone Then
194+ .lblDispMode.Text = stcDispMode.DispUpd
195+ End If
196+
197+ '' ボタン使用可否設定
198+ .cmdF1.Enabled = False
199+ .cmdF3.Enabled = False
200+ .cmdF12.Enabled = False
201+
202+ End With
203+
204+ End Sub
205+
206+ ''' <summary>入力コントロールフォーカス喪失時処理</summary>
207+ Private Sub LeaveField()
208+
209+ '' 画面モードが通常時以外の場合は登録、元に戻すボタンを活性化する
210+ If Me.lblDispMode.Text <> stcDispMode.DispNone Then
211+ Me.cmdF1.Enabled = True
212+ Me.cmdF3.Enabled = True
213+ End If
214+
215+ End Sub
216+
217+End Class
\ No newline at end of file
--- trunk/MLApp.DataModel/C1_TRNDataSet.xsd (revision 69)
+++ trunk/MLApp.DataModel/C1_TRNDataSet.xsd (revision 70)
@@ -4,7 +4,7 @@
44 <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
55 <DataSource DefaultConnectionIndex="1" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
66 <Connections>
7- <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="TRNConnectionString" IsAppSettingsProperty="true" Modifier="Assembly" Name="TRNConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.WindowsApplication1.My.MySettings.GlobalReference.Default.TRNConnectionString" Provider="System.Data.SqlClient" />
7+ <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="TRNConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="TRNConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.WindowsApplication1.My.MySettings.GlobalReference.Default.TRNConnectionString" Provider="System.Data.SqlClient" />
88 <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="TRNConnectionString1" IsAppSettingsProperty="true" Modifier="Assembly" Name="TRNConnectionString1 (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.WindowsApplication1.My.MySettings.GlobalReference.Default.TRNConnectionString1" Provider="System.Data.SqlClient" />
99 </Connections>
1010 <Tables />
@@ -15,7 +15,7 @@
1515 <xs:element name="C1_TRNDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="C1_TRNDataSet" msprop:Generator_UserDSName="C1_TRNDataSet">
1616 <xs:complexType>
1717 <xs:choice minOccurs="0" maxOccurs="unbounded">
18- <xs:element name="C150_F" msprop:Generator_TableClassName="C150_FDataTable" msprop:Generator_TableVarName="tableC150_F" msprop:Generator_TablePropName="C150_F" msprop:Generator_RowDeletingName="C150_FRowDeleting" msprop:Generator_RowChangingName="C150_FRowChanging" msprop:Generator_RowEvHandlerName="C150_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C150_FRowDeleted" msprop:Generator_UserTableName="C150_F" msprop:Generator_RowChangedName="C150_FRowChanged" msprop:Generator_RowEvArgName="C150_FRowChangeEvent" msprop:Generator_RowClassName="C150_FRow">
18+ <xs:element name="C150_F" msprop:Generator_TableClassName="C150_FDataTable" msprop:Generator_TableVarName="tableC150_F" msprop:Generator_RowChangedName="C150_FRowChanged" msprop:Generator_TablePropName="C150_F" msprop:Generator_RowDeletingName="C150_FRowDeleting" msprop:Generator_RowChangingName="C150_FRowChanging" msprop:Generator_RowEvHandlerName="C150_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C150_FRowDeleted" msprop:Generator_RowClassName="C150_FRow" msprop:Generator_UserTableName="C150_F" msprop:Generator_RowEvArgName="C150_FRowChangeEvent">
1919 <xs:complexType>
2020 <xs:sequence>
2121 <xs:element name="C150_CALNO" msprop:Generator_ColumnVarNameInTable="columnC150_CALNO" msprop:Generator_ColumnPropNameInRow="C150_CALNO" msprop:Generator_ColumnPropNameInTable="C150_CALNOColumn" msprop:Generator_UserColumnName="C150_CALNO" type="xs:string" />
@@ -92,7 +92,7 @@
9292 </xs:sequence>
9393 </xs:complexType>
9494 </xs:element>
95- <xs:element name="C120_F" msprop:Generator_TableClassName="C120_FDataTable" msprop:Generator_TableVarName="tableC120_F" msprop:Generator_TablePropName="C120_F" msprop:Generator_RowDeletingName="C120_FRowDeleting" msprop:Generator_RowChangingName="C120_FRowChanging" msprop:Generator_RowEvHandlerName="C120_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C120_FRowDeleted" msprop:Generator_UserTableName="C120_F" msprop:Generator_RowChangedName="C120_FRowChanged" msprop:Generator_RowEvArgName="C120_FRowChangeEvent" msprop:Generator_RowClassName="C120_FRow">
95+ <xs:element name="C120_F" msprop:Generator_TableClassName="C120_FDataTable" msprop:Generator_TableVarName="tableC120_F" msprop:Generator_RowChangedName="C120_FRowChanged" msprop:Generator_TablePropName="C120_F" msprop:Generator_RowDeletingName="C120_FRowDeleting" msprop:Generator_RowChangingName="C120_FRowChanging" msprop:Generator_RowEvHandlerName="C120_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C120_FRowDeleted" msprop:Generator_RowClassName="C120_FRow" msprop:Generator_UserTableName="C120_F" msprop:Generator_RowEvArgName="C120_FRowChangeEvent">
9696 <xs:complexType>
9797 <xs:sequence>
9898 <xs:element name="C120_DATE1" msprop:Generator_ColumnVarNameInTable="columnC120_DATE1" msprop:Generator_ColumnPropNameInRow="C120_DATE1" msprop:Generator_ColumnPropNameInTable="C120_DATE1Column" msprop:Generator_UserColumnName="C120_DATE1" type="xs:dateTime" />
@@ -109,7 +109,7 @@
109109 </xs:sequence>
110110 </xs:complexType>
111111 </xs:element>
112- <xs:element name="C130_F" msprop:Generator_TableClassName="C130_FDataTable" msprop:Generator_TableVarName="tableC130_F" msprop:Generator_TablePropName="C130_F" msprop:Generator_RowDeletingName="C130_FRowDeleting" msprop:Generator_RowChangingName="C130_FRowChanging" msprop:Generator_RowEvHandlerName="C130_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C130_FRowDeleted" msprop:Generator_UserTableName="C130_F" msprop:Generator_RowChangedName="C130_FRowChanged" msprop:Generator_RowEvArgName="C130_FRowChangeEvent" msprop:Generator_RowClassName="C130_FRow">
112+ <xs:element name="C130_F" msprop:Generator_TableClassName="C130_FDataTable" msprop:Generator_TableVarName="tableC130_F" msprop:Generator_RowChangedName="C130_FRowChanged" msprop:Generator_TablePropName="C130_F" msprop:Generator_RowDeletingName="C130_FRowDeleting" msprop:Generator_RowChangingName="C130_FRowChanging" msprop:Generator_RowEvHandlerName="C130_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C130_FRowDeleted" msprop:Generator_RowClassName="C130_FRow" msprop:Generator_UserTableName="C130_F" msprop:Generator_RowEvArgName="C130_FRowChangeEvent">
113113 <xs:complexType>
114114 <xs:sequence>
115115 <xs:element name="C130_KEY1" msprop:Generator_ColumnVarNameInTable="columnC130_KEY1" msprop:Generator_ColumnPropNameInRow="C130_KEY1" msprop:Generator_ColumnPropNameInTable="C130_KEY1Column" msprop:Generator_UserColumnName="C130_KEY1" type="xs:string" />
@@ -116,7 +116,7 @@
116116 <xs:element name="C130_DPNO1" msprop:Generator_ColumnVarNameInTable="columnC130_DPNO1" msprop:Generator_ColumnPropNameInRow="C130_DPNO1" msprop:Generator_ColumnPropNameInTable="C130_DPNO1Column" msprop:Generator_UserColumnName="C130_DPNO1" type="xs:decimal" />
117117 <xs:element name="C130_DW1" msprop:Generator_ColumnVarNameInTable="columnC130_DW1" msprop:Generator_ColumnPropNameInRow="C130_DW1" msprop:Generator_ColumnPropNameInTable="C130_DW1Column" msprop:Generator_UserColumnName="C130_DW1" type="xs:decimal" minOccurs="0" />
118118 <xs:element name="C130_UP1" msprop:Generator_ColumnVarNameInTable="columnC130_UP1" msprop:Generator_ColumnPropNameInRow="C130_UP1" msprop:Generator_ColumnPropNameInTable="C130_UP1Column" msprop:Generator_UserColumnName="C130_UP1" type="xs:decimal" minOccurs="0" />
119- <xs:element name="C130_UPD1" msdata:Caption="C120_UPD1" msprop:Generator_ColumnVarNameInTable="columnC130_UPD1" msprop:Generator_ColumnPropNameInRow="C130_UPD1" msprop:Generator_ColumnPropNameInTable="C130_UPD1Column" msprop:Generator_UserColumnName="C130_UPD1" minOccurs="0">
119+ <xs:element name="C130_UPD1" msprop:Generator_ColumnVarNameInTable="columnC130_UPD1" msprop:Generator_ColumnPropNameInRow="C130_UPD1" msprop:Generator_ColumnPropNameInTable="C130_UPD1Column" msprop:Generator_UserColumnName="C130_UPD1" minOccurs="0">
120120 <xs:simpleType>
121121 <xs:restriction base="xs:string">
122122 <xs:maxLength value="40" />
@@ -126,7 +126,7 @@
126126 </xs:sequence>
127127 </xs:complexType>
128128 </xs:element>
129- <xs:element name="TRN9140S1" msprop:Generator_TableClassName="TRN9140S1DataTable" msprop:Generator_TableVarName="tableTRN9140S1" msprop:Generator_TablePropName="TRN9140S1" msprop:Generator_RowDeletingName="TRN9140S1RowDeleting" msprop:Generator_RowChangingName="TRN9140S1RowChanging" msprop:Generator_RowEvHandlerName="TRN9140S1RowChangeEventHandler" msprop:Generator_RowDeletedName="TRN9140S1RowDeleted" msprop:Generator_UserTableName="TRN9140S1" msprop:Generator_RowChangedName="TRN9140S1RowChanged" msprop:Generator_RowEvArgName="TRN9140S1RowChangeEvent" msprop:Generator_RowClassName="TRN9140S1Row">
129+ <xs:element name="TRN9140S1" msprop:Generator_TableClassName="TRN9140S1DataTable" msprop:Generator_TableVarName="tableTRN9140S1" msprop:Generator_RowChangedName="TRN9140S1RowChanged" msprop:Generator_TablePropName="TRN9140S1" msprop:Generator_RowDeletingName="TRN9140S1RowDeleting" msprop:Generator_RowChangingName="TRN9140S1RowChanging" msprop:Generator_RowEvHandlerName="TRN9140S1RowChangeEventHandler" msprop:Generator_RowDeletedName="TRN9140S1RowDeleted" msprop:Generator_RowClassName="TRN9140S1Row" msprop:Generator_UserTableName="TRN9140S1" msprop:Generator_RowEvArgName="TRN9140S1RowChangeEvent">
130130 <xs:complexType>
131131 <xs:sequence>
132132 <xs:element name="C130_KEY1" msprop:Generator_ColumnVarNameInTable="columnC130_KEY1" msprop:Generator_ColumnPropNameInRow="C130_KEY1" msprop:Generator_ColumnPropNameInTable="C130_KEY1Column" msprop:Generator_UserColumnName="C130_KEY1" type="xs:string" />
@@ -144,7 +144,7 @@
144144 </xs:sequence>
145145 </xs:complexType>
146146 </xs:element>
147- <xs:element name="C111_F" msprop:Generator_TableClassName="C111_FDataTable" msprop:Generator_TableVarName="tableC111_F" msprop:Generator_TablePropName="C111_F" msprop:Generator_RowDeletingName="C111_FRowDeleting" msprop:Generator_RowChangingName="C111_FRowChanging" msprop:Generator_RowEvHandlerName="C111_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C111_FRowDeleted" msprop:Generator_UserTableName="C111_F" msprop:Generator_RowChangedName="C111_FRowChanged" msprop:Generator_RowEvArgName="C111_FRowChangeEvent" msprop:Generator_RowClassName="C111_FRow">
147+ <xs:element name="C111_F" msprop:Generator_TableClassName="C111_FDataTable" msprop:Generator_TableVarName="tableC111_F" msprop:Generator_RowChangedName="C111_FRowChanged" msprop:Generator_TablePropName="C111_F" msprop:Generator_RowDeletingName="C111_FRowDeleting" msprop:Generator_RowChangingName="C111_FRowChanging" msprop:Generator_RowEvHandlerName="C111_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C111_FRowDeleted" msprop:Generator_RowClassName="C111_FRow" msprop:Generator_UserTableName="C111_F" msprop:Generator_RowEvArgName="C111_FRowChangeEvent">
148148 <xs:complexType>
149149 <xs:sequence>
150150 <xs:element name="C111_NO1" msprop:Generator_ColumnVarNameInTable="columnC111_NO1" msprop:Generator_ColumnPropNameInRow="C111_NO1" msprop:Generator_ColumnPropNameInTable="C111_NO1Column" msprop:Generator_UserColumnName="C111_NO1" type="xs:decimal" />
@@ -160,7 +160,7 @@
160160 </xs:sequence>
161161 </xs:complexType>
162162 </xs:element>
163- <xs:element name="C110_F" msprop:Generator_TableClassName="C110_FDataTable" msprop:Generator_TableVarName="tableC110_F" msprop:Generator_RowChangedName="C110_FRowChanged" msprop:Generator_TablePropName="C110_F" msprop:Generator_RowDeletingName="C110_FRowDeleting" msprop:Generator_RowChangingName="C110_FRowChanging" msprop:Generator_RowEvHandlerName="C110_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C110_FRowDeleted" msprop:Generator_RowClassName="C110_FRow" msprop:Generator_UserTableName="C110_F" msprop:Generator_RowEvArgName="C110_FRowChangeEvent">
163+ <xs:element name="C110_F" msprop:Generator_TableClassName="C110_FDataTable" msprop:Generator_TableVarName="tableC110_F" msprop:Generator_TablePropName="C110_F" msprop:Generator_RowDeletingName="C110_FRowDeleting" msprop:Generator_RowChangingName="C110_FRowChanging" msprop:Generator_RowEvHandlerName="C110_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C110_FRowDeleted" msprop:Generator_UserTableName="C110_F" msprop:Generator_RowChangedName="C110_FRowChanged" msprop:Generator_RowEvArgName="C110_FRowChangeEvent" msprop:Generator_RowClassName="C110_FRow">
164164 <xs:complexType>
165165 <xs:sequence>
166166 <xs:element name="C110_KEY1" msdata:Caption="キー" msprop:nullValue="_throw" msprop:Generator_ColumnPropNameInRow="C110_KEY1" msprop:Generator_ColumnVarNameInTable="columnC110_KEY1" msprop:Generator_ColumnPropNameInTable="C110_KEY1Column" msprop:Generator_UserColumnName="C110_KEY1" type="xs:decimal" minOccurs="0" />
@@ -188,6 +188,27 @@
188188 </xs:sequence>
189189 </xs:complexType>
190190 </xs:element>
191+ <xs:element name="C140_F" msprop:Generator_TableClassName="C140_FDataTable" msprop:Generator_TableVarName="tableC140_F" msprop:Generator_TablePropName="C140_F" msprop:Generator_RowDeletingName="C140_FRowDeleting" msprop:Generator_RowChangingName="C140_FRowChanging" msprop:Generator_RowEvHandlerName="C140_FRowChangeEventHandler" msprop:Generator_RowDeletedName="C140_FRowDeleted" msprop:Generator_UserTableName="C140_F" msprop:Generator_RowChangedName="C140_FRowChanged" msprop:Generator_RowEvArgName="C140_FRowChangeEvent" msprop:Generator_RowClassName="C140_FRow">
192+ <xs:complexType>
193+ <xs:sequence>
194+ <xs:element name="C140_CP1" msprop:Generator_ColumnVarNameInTable="columnC140_CP1" msprop:Generator_ColumnPropNameInRow="C140_CP1" msprop:Generator_ColumnPropNameInTable="C140_CP1Column" msprop:Generator_UserColumnName="C140_CP1" type="xs:string" />
195+ <xs:element name="C140_REPID" msprop:Generator_ColumnVarNameInTable="columnC140_REPID" msprop:Generator_ColumnPropNameInRow="C140_REPID" msprop:Generator_ColumnPropNameInTable="C140_REPIDColumn" msprop:Generator_UserColumnName="C140_REPID" type="xs:string" />
196+ <xs:element name="C140_REPNM" msprop:Generator_ColumnVarNameInTable="columnC140_REPNM" msprop:Generator_ColumnPropNameInRow="C140_REPNM" msprop:Generator_ColumnPropNameInTable="C140_REPNMColumn" msprop:Generator_UserColumnName="C140_REPNM" type="xs:string" minOccurs="0" />
197+ <xs:element name="C140_PRTNAME" msprop:Generator_ColumnVarNameInTable="columnC140_PRTNAME" msprop:Generator_ColumnPropNameInRow="C140_PRTNAME" msprop:Generator_ColumnPropNameInTable="C140_PRTNAMEColumn" msprop:Generator_UserColumnName="C140_PRTNAME" type="xs:string" minOccurs="0" />
198+ <xs:element name="C140_TOPM" msprop:Generator_ColumnVarNameInTable="columnC140_TOPM" msprop:Generator_ColumnPropNameInRow="C140_TOPM" msprop:Generator_ColumnPropNameInTable="C140_TOPMColumn" msprop:Generator_UserColumnName="C140_TOPM" type="xs:decimal" minOccurs="0" />
199+ <xs:element name="C140_BTMM" msprop:Generator_ColumnVarNameInTable="columnC140_BTMM" msprop:Generator_ColumnPropNameInRow="C140_BTMM" msprop:Generator_ColumnPropNameInTable="C140_BTMMColumn" msprop:Generator_UserColumnName="C140_BTMM" type="xs:decimal" minOccurs="0" />
200+ <xs:element name="C140_LFTM" msprop:Generator_ColumnVarNameInTable="columnC140_LFTM" msprop:Generator_ColumnPropNameInRow="C140_LFTM" msprop:Generator_ColumnPropNameInTable="C140_LFTMColumn" msprop:Generator_UserColumnName="C140_LFTM" type="xs:decimal" minOccurs="0" />
201+ <xs:element name="C140_RGHM" msprop:Generator_ColumnVarNameInTable="columnC140_RGHM" msprop:Generator_ColumnPropNameInRow="C140_RGHM" msprop:Generator_ColumnPropNameInTable="C140_RGHMColumn" msprop:Generator_UserColumnName="C140_RGHM" type="xs:decimal" minOccurs="0" />
202+ <xs:element name="C140_UPD1" msprop:Generator_ColumnVarNameInTable="columnC140_UPD1" msprop:Generator_ColumnPropNameInRow="C140_UPD1" msprop:Generator_ColumnPropNameInTable="C140_UPD1Column" msprop:Generator_UserColumnName="C140_UPD1" minOccurs="0">
203+ <xs:simpleType>
204+ <xs:restriction base="xs:string">
205+ <xs:maxLength value="40" />
206+ </xs:restriction>
207+ </xs:simpleType>
208+ </xs:element>
209+ </xs:sequence>
210+ </xs:complexType>
211+ </xs:element>
191212 </xs:choice>
192213 </xs:complexType>
193214 <xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -212,5 +233,10 @@
212233 <xs:selector xpath=".//mstns:C111_F" />
213234 <xs:field xpath="mstns:C111_NO1" />
214235 </xs:unique>
236+ <xs:unique name="C140_F_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
237+ <xs:selector xpath=".//mstns:C140_F" />
238+ <xs:field xpath="mstns:C140_CP1" />
239+ <xs:field xpath="mstns:C140_REPID" />
240+ </xs:unique>
215241 </xs:element>
216242 </xs:schema>
\ No newline at end of file
--- trunk/MLApp.DataModel/C1_TRNDataSet.Designer.vb (revision 69)
+++ trunk/MLApp.DataModel/C1_TRNDataSet.Designer.vb (revision 70)
@@ -37,6 +37,8 @@
3737
3838 Private tableC110_F As C110_FDataTable
3939
40+ Private tableC140_F As C140_FDataTable
41+
4042 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
4143
4244 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -84,6 +86,9 @@
8486 If (Not (ds.Tables("C110_F")) Is Nothing) Then
8587 MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
8688 End If
89+ If (Not (ds.Tables("C140_F")) Is Nothing) Then
90+ MyBase.Tables.Add(New C140_FDataTable(ds.Tables("C140_F")))
91+ End If
8792 Me.DataSetName = ds.DataSetName
8893 Me.Prefix = ds.Prefix
8994 Me.Namespace = ds.Namespace
@@ -163,6 +168,16 @@
163168
164169 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
165170 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
171+ Global.System.ComponentModel.Browsable(false), _
172+ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
173+ Public ReadOnly Property C140_F() As C140_FDataTable
174+ Get
175+ Return Me.tableC140_F
176+ End Get
177+ End Property
178+
179+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
180+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
166181 Global.System.ComponentModel.BrowsableAttribute(true), _
167182 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
168183 Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -246,6 +261,9 @@
246261 If (Not (ds.Tables("C110_F")) Is Nothing) Then
247262 MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
248263 End If
264+ If (Not (ds.Tables("C140_F")) Is Nothing) Then
265+ MyBase.Tables.Add(New C140_FDataTable(ds.Tables("C140_F")))
266+ End If
249267 Me.DataSetName = ds.DataSetName
250268 Me.Prefix = ds.Prefix
251269 Me.Namespace = ds.Namespace
@@ -314,6 +332,12 @@
314332 Me.tableC110_F.InitVars
315333 End If
316334 End If
335+ Me.tableC140_F = CType(MyBase.Tables("C140_F"),C140_FDataTable)
336+ If (initTable = true) Then
337+ If (Not (Me.tableC140_F) Is Nothing) Then
338+ Me.tableC140_F.InitVars
339+ End If
340+ End If
317341 End Sub
318342
319343 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -336,6 +360,8 @@
336360 MyBase.Tables.Add(Me.tableC111_F)
337361 Me.tableC110_F = New C110_FDataTable()
338362 MyBase.Tables.Add(Me.tableC110_F)
363+ Me.tableC140_F = New C140_FDataTable()
364+ MyBase.Tables.Add(Me.tableC140_F)
339365 End Sub
340366
341367 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -376,6 +402,12 @@
376402
377403 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
378404 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
405+ Private Function ShouldSerializeC140_F() As Boolean
406+ Return false
407+ End Function
408+
409+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
410+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
379411 Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
380412 If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
381413 Me.InitVars
@@ -450,6 +482,9 @@
450482 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
451483 Public Delegate Sub C110_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C110_FRowChangeEvent)
452484
485+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
486+ Public Delegate Sub C140_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C140_FRowChangeEvent)
487+
453488 '''<summary>
454489 '''Represents the strongly named DataTable class.
455490 '''</summary>
@@ -2108,7 +2143,6 @@
21082143 Me.columnC130_KEY1.AllowDBNull = false
21092144 Me.columnC130_KEY1.Unique = true
21102145 Me.columnC130_DPNO1.AllowDBNull = false
2111- Me.columnC130_UPD1.Caption = "C120_UPD1"
21122146 Me.columnC130_UPD1.MaxLength = 40
21132147 End Sub
21142148
@@ -3440,6 +3474,372 @@
34403474 End Class
34413475
34423476 '''<summary>
3477+ '''Represents the strongly named DataTable class.
3478+ '''</summary>
3479+ <Global.System.Serializable(), _
3480+ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3481+ Partial Public Class C140_FDataTable
3482+ Inherits Global.System.Data.TypedTableBase(Of C140_FRow)
3483+
3484+ Private columnC140_CP1 As Global.System.Data.DataColumn
3485+
3486+ Private columnC140_REPID As Global.System.Data.DataColumn
3487+
3488+ Private columnC140_REPNM As Global.System.Data.DataColumn
3489+
3490+ Private columnC140_PRTNAME As Global.System.Data.DataColumn
3491+
3492+ Private columnC140_TOPM As Global.System.Data.DataColumn
3493+
3494+ Private columnC140_BTMM As Global.System.Data.DataColumn
3495+
3496+ Private columnC140_LFTM As Global.System.Data.DataColumn
3497+
3498+ Private columnC140_RGHM As Global.System.Data.DataColumn
3499+
3500+ Private columnC140_UPD1 As Global.System.Data.DataColumn
3501+
3502+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3503+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3504+ Public Sub New()
3505+ MyBase.New
3506+ Me.TableName = "C140_F"
3507+ Me.BeginInit
3508+ Me.InitClass
3509+ Me.EndInit
3510+ End Sub
3511+
3512+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3513+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3514+ Friend Sub New(ByVal table As Global.System.Data.DataTable)
3515+ MyBase.New
3516+ Me.TableName = table.TableName
3517+ If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3518+ Me.CaseSensitive = table.CaseSensitive
3519+ End If
3520+ If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3521+ Me.Locale = table.Locale
3522+ End If
3523+ If (table.Namespace <> table.DataSet.Namespace) Then
3524+ Me.Namespace = table.Namespace
3525+ End If
3526+ Me.Prefix = table.Prefix
3527+ Me.MinimumCapacity = table.MinimumCapacity
3528+ End Sub
3529+
3530+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3531+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3532+ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3533+ MyBase.New(info, context)
3534+ Me.InitVars
3535+ End Sub
3536+
3537+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3538+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3539+ Public ReadOnly Property C140_CP1Column() As Global.System.Data.DataColumn
3540+ Get
3541+ Return Me.columnC140_CP1
3542+ End Get
3543+ End Property
3544+
3545+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3546+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3547+ Public ReadOnly Property C140_REPIDColumn() As Global.System.Data.DataColumn
3548+ Get
3549+ Return Me.columnC140_REPID
3550+ End Get
3551+ End Property
3552+
3553+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3554+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3555+ Public ReadOnly Property C140_REPNMColumn() As Global.System.Data.DataColumn
3556+ Get
3557+ Return Me.columnC140_REPNM
3558+ End Get
3559+ End Property
3560+
3561+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3562+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3563+ Public ReadOnly Property C140_PRTNAMEColumn() As Global.System.Data.DataColumn
3564+ Get
3565+ Return Me.columnC140_PRTNAME
3566+ End Get
3567+ End Property
3568+
3569+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3570+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3571+ Public ReadOnly Property C140_TOPMColumn() As Global.System.Data.DataColumn
3572+ Get
3573+ Return Me.columnC140_TOPM
3574+ End Get
3575+ End Property
3576+
3577+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3578+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3579+ Public ReadOnly Property C140_BTMMColumn() As Global.System.Data.DataColumn
3580+ Get
3581+ Return Me.columnC140_BTMM
3582+ End Get
3583+ End Property
3584+
3585+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3586+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3587+ Public ReadOnly Property C140_LFTMColumn() As Global.System.Data.DataColumn
3588+ Get
3589+ Return Me.columnC140_LFTM
3590+ End Get
3591+ End Property
3592+
3593+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3594+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3595+ Public ReadOnly Property C140_RGHMColumn() As Global.System.Data.DataColumn
3596+ Get
3597+ Return Me.columnC140_RGHM
3598+ End Get
3599+ End Property
3600+
3601+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3602+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3603+ Public ReadOnly Property C140_UPD1Column() As Global.System.Data.DataColumn
3604+ Get
3605+ Return Me.columnC140_UPD1
3606+ End Get
3607+ End Property
3608+
3609+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3610+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3611+ Global.System.ComponentModel.Browsable(false)> _
3612+ Public ReadOnly Property Count() As Integer
3613+ Get
3614+ Return Me.Rows.Count
3615+ End Get
3616+ End Property
3617+
3618+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3619+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3620+ Public Default ReadOnly Property Item(ByVal index As Integer) As C140_FRow
3621+ Get
3622+ Return CType(Me.Rows(index),C140_FRow)
3623+ End Get
3624+ End Property
3625+
3626+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3627+ Public Event C140_FRowChanging As C140_FRowChangeEventHandler
3628+
3629+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3630+ Public Event C140_FRowChanged As C140_FRowChangeEventHandler
3631+
3632+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3633+ Public Event C140_FRowDeleting As C140_FRowChangeEventHandler
3634+
3635+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3636+ Public Event C140_FRowDeleted As C140_FRowChangeEventHandler
3637+
3638+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3639+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3640+ Public Overloads Sub AddC140_FRow(ByVal row As C140_FRow)
3641+ Me.Rows.Add(row)
3642+ End Sub
3643+
3644+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3645+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3646+ Public Overloads Function AddC140_FRow(ByVal C140_CP1 As String, ByVal C140_REPID As String, ByVal C140_REPNM As String, ByVal C140_PRTNAME As String, ByVal C140_TOPM As Decimal, ByVal C140_BTMM As Decimal, ByVal C140_LFTM As Decimal, ByVal C140_RGHM As Decimal, ByVal C140_UPD1 As String) As C140_FRow
3647+ Dim rowC140_FRow As C140_FRow = CType(Me.NewRow,C140_FRow)
3648+ Dim columnValuesArray() As Object = New Object() {C140_CP1, C140_REPID, C140_REPNM, C140_PRTNAME, C140_TOPM, C140_BTMM, C140_LFTM, C140_RGHM, C140_UPD1}
3649+ rowC140_FRow.ItemArray = columnValuesArray
3650+ Me.Rows.Add(rowC140_FRow)
3651+ Return rowC140_FRow
3652+ End Function
3653+
3654+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3655+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3656+ Public Function FindByC140_CP1C140_REPID(ByVal C140_CP1 As String, ByVal C140_REPID As String) As C140_FRow
3657+ Return CType(Me.Rows.Find(New Object() {C140_CP1, C140_REPID}),C140_FRow)
3658+ End Function
3659+
3660+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3661+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3662+ Public Overrides Function Clone() As Global.System.Data.DataTable
3663+ Dim cln As C140_FDataTable = CType(MyBase.Clone,C140_FDataTable)
3664+ cln.InitVars
3665+ Return cln
3666+ End Function
3667+
3668+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3669+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3670+ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3671+ Return New C140_FDataTable()
3672+ End Function
3673+
3674+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3675+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3676+ Friend Sub InitVars()
3677+ Me.columnC140_CP1 = MyBase.Columns("C140_CP1")
3678+ Me.columnC140_REPID = MyBase.Columns("C140_REPID")
3679+ Me.columnC140_REPNM = MyBase.Columns("C140_REPNM")
3680+ Me.columnC140_PRTNAME = MyBase.Columns("C140_PRTNAME")
3681+ Me.columnC140_TOPM = MyBase.Columns("C140_TOPM")
3682+ Me.columnC140_BTMM = MyBase.Columns("C140_BTMM")
3683+ Me.columnC140_LFTM = MyBase.Columns("C140_LFTM")
3684+ Me.columnC140_RGHM = MyBase.Columns("C140_RGHM")
3685+ Me.columnC140_UPD1 = MyBase.Columns("C140_UPD1")
3686+ End Sub
3687+
3688+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3689+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3690+ Private Sub InitClass()
3691+ Me.columnC140_CP1 = New Global.System.Data.DataColumn("C140_CP1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3692+ MyBase.Columns.Add(Me.columnC140_CP1)
3693+ Me.columnC140_REPID = New Global.System.Data.DataColumn("C140_REPID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3694+ MyBase.Columns.Add(Me.columnC140_REPID)
3695+ Me.columnC140_REPNM = New Global.System.Data.DataColumn("C140_REPNM", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3696+ MyBase.Columns.Add(Me.columnC140_REPNM)
3697+ Me.columnC140_PRTNAME = New Global.System.Data.DataColumn("C140_PRTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3698+ MyBase.Columns.Add(Me.columnC140_PRTNAME)
3699+ Me.columnC140_TOPM = New Global.System.Data.DataColumn("C140_TOPM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3700+ MyBase.Columns.Add(Me.columnC140_TOPM)
3701+ Me.columnC140_BTMM = New Global.System.Data.DataColumn("C140_BTMM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3702+ MyBase.Columns.Add(Me.columnC140_BTMM)
3703+ Me.columnC140_LFTM = New Global.System.Data.DataColumn("C140_LFTM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3704+ MyBase.Columns.Add(Me.columnC140_LFTM)
3705+ Me.columnC140_RGHM = New Global.System.Data.DataColumn("C140_RGHM", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3706+ MyBase.Columns.Add(Me.columnC140_RGHM)
3707+ Me.columnC140_UPD1 = New Global.System.Data.DataColumn("C140_UPD1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3708+ MyBase.Columns.Add(Me.columnC140_UPD1)
3709+ Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnC140_CP1, Me.columnC140_REPID}, true))
3710+ Me.columnC140_CP1.AllowDBNull = false
3711+ Me.columnC140_REPID.AllowDBNull = false
3712+ Me.columnC140_UPD1.MaxLength = 40
3713+ End Sub
3714+
3715+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3716+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3717+ Public Function NewC140_FRow() As C140_FRow
3718+ Return CType(Me.NewRow,C140_FRow)
3719+ End Function
3720+
3721+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3722+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3723+ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3724+ Return New C140_FRow(builder)
3725+ End Function
3726+
3727+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3728+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3729+ Protected Overrides Function GetRowType() As Global.System.Type
3730+ Return GetType(C140_FRow)
3731+ End Function
3732+
3733+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3734+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3735+ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3736+ MyBase.OnRowChanged(e)
3737+ If (Not (Me.C140_FRowChangedEvent) Is Nothing) Then
3738+ RaiseEvent C140_FRowChanged(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
3739+ End If
3740+ End Sub
3741+
3742+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3743+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3744+ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3745+ MyBase.OnRowChanging(e)
3746+ If (Not (Me.C140_FRowChangingEvent) Is Nothing) Then
3747+ RaiseEvent C140_FRowChanging(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
3748+ End If
3749+ End Sub
3750+
3751+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3752+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3753+ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3754+ MyBase.OnRowDeleted(e)
3755+ If (Not (Me.C140_FRowDeletedEvent) Is Nothing) Then
3756+ RaiseEvent C140_FRowDeleted(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
3757+ End If
3758+ End Sub
3759+
3760+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3761+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3762+ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3763+ MyBase.OnRowDeleting(e)
3764+ If (Not (Me.C140_FRowDeletingEvent) Is Nothing) Then
3765+ RaiseEvent C140_FRowDeleting(Me, New C140_FRowChangeEvent(CType(e.Row,C140_FRow), e.Action))
3766+ End If
3767+ End Sub
3768+
3769+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3770+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3771+ Public Sub RemoveC140_FRow(ByVal row As C140_FRow)
3772+ Me.Rows.Remove(row)
3773+ End Sub
3774+
3775+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3776+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3777+ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3778+ Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3779+ Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3780+ Dim ds As C1_TRNDataSet = New C1_TRNDataSet()
3781+ Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3782+ any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3783+ any1.MinOccurs = New Decimal(0)
3784+ any1.MaxOccurs = Decimal.MaxValue
3785+ any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3786+ sequence.Items.Add(any1)
3787+ Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3788+ any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3789+ any2.MinOccurs = New Decimal(1)
3790+ any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3791+ sequence.Items.Add(any2)
3792+ Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3793+ attribute1.Name = "namespace"
3794+ attribute1.FixedValue = ds.Namespace
3795+ type.Attributes.Add(attribute1)
3796+ Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3797+ attribute2.Name = "tableTypeName"
3798+ attribute2.FixedValue = "C140_FDataTable"
3799+ type.Attributes.Add(attribute2)
3800+ type.Particle = sequence
3801+ Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3802+ If xs.Contains(dsSchema.TargetNamespace) Then
3803+ Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3804+ Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3805+ Try
3806+ Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3807+ dsSchema.Write(s1)
3808+ Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3809+ Do While schemas.MoveNext
3810+ schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3811+ s2.SetLength(0)
3812+ schema.Write(s2)
3813+ If (s1.Length = s2.Length) Then
3814+ s1.Position = 0
3815+ s2.Position = 0
3816+
3817+ Do While ((s1.Position <> s1.Length) _
3818+ AndAlso (s1.ReadByte = s2.ReadByte))
3819+
3820+
3821+ Loop
3822+ If (s1.Position = s1.Length) Then
3823+ Return type
3824+ End If
3825+ End If
3826+
3827+ Loop
3828+ Finally
3829+ If (Not (s1) Is Nothing) Then
3830+ s1.Close
3831+ End If
3832+ If (Not (s2) Is Nothing) Then
3833+ s2.Close
3834+ End If
3835+ End Try
3836+ End If
3837+ xs.Add(dsSchema)
3838+ Return type
3839+ End Function
3840+ End Class
3841+
3842+ '''<summary>
34433843 '''Represents strongly named DataRow class.
34443844 '''</summary>
34453845 Partial Public Class C150_FRow
@@ -6265,6 +6665,233 @@
62656665 End Class
62666666
62676667 '''<summary>
6668+ '''Represents strongly named DataRow class.
6669+ '''</summary>
6670+ Partial Public Class C140_FRow
6671+ Inherits Global.System.Data.DataRow
6672+
6673+ Private tableC140_F As C140_FDataTable
6674+
6675+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6676+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6677+ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
6678+ MyBase.New(rb)
6679+ Me.tableC140_F = CType(Me.Table,C140_FDataTable)
6680+ End Sub
6681+
6682+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6683+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6684+ Public Property C140_CP1() As String
6685+ Get
6686+ Return CType(Me(Me.tableC140_F.C140_CP1Column),String)
6687+ End Get
6688+ Set
6689+ Me(Me.tableC140_F.C140_CP1Column) = value
6690+ End Set
6691+ End Property
6692+
6693+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6694+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6695+ Public Property C140_REPID() As String
6696+ Get
6697+ Return CType(Me(Me.tableC140_F.C140_REPIDColumn),String)
6698+ End Get
6699+ Set
6700+ Me(Me.tableC140_F.C140_REPIDColumn) = value
6701+ End Set
6702+ End Property
6703+
6704+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6705+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6706+ Public Property C140_REPNM() As String
6707+ Get
6708+ Try
6709+ Return CType(Me(Me.tableC140_F.C140_REPNMColumn),String)
6710+ Catch e As Global.System.InvalidCastException
6711+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_REPNM' の値は DBNull です。", e)
6712+ End Try
6713+ End Get
6714+ Set
6715+ Me(Me.tableC140_F.C140_REPNMColumn) = value
6716+ End Set
6717+ End Property
6718+
6719+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6720+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6721+ Public Property C140_PRTNAME() As String
6722+ Get
6723+ Try
6724+ Return CType(Me(Me.tableC140_F.C140_PRTNAMEColumn),String)
6725+ Catch e As Global.System.InvalidCastException
6726+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_PRTNAME' の値は DBNull です。", e)
6727+ End Try
6728+ End Get
6729+ Set
6730+ Me(Me.tableC140_F.C140_PRTNAMEColumn) = value
6731+ End Set
6732+ End Property
6733+
6734+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6735+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6736+ Public Property C140_TOPM() As Decimal
6737+ Get
6738+ Try
6739+ Return CType(Me(Me.tableC140_F.C140_TOPMColumn),Decimal)
6740+ Catch e As Global.System.InvalidCastException
6741+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_TOPM' の値は DBNull です。", e)
6742+ End Try
6743+ End Get
6744+ Set
6745+ Me(Me.tableC140_F.C140_TOPMColumn) = value
6746+ End Set
6747+ End Property
6748+
6749+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6750+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6751+ Public Property C140_BTMM() As Decimal
6752+ Get
6753+ Try
6754+ Return CType(Me(Me.tableC140_F.C140_BTMMColumn),Decimal)
6755+ Catch e As Global.System.InvalidCastException
6756+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_BTMM' の値は DBNull です。", e)
6757+ End Try
6758+ End Get
6759+ Set
6760+ Me(Me.tableC140_F.C140_BTMMColumn) = value
6761+ End Set
6762+ End Property
6763+
6764+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6765+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6766+ Public Property C140_LFTM() As Decimal
6767+ Get
6768+ Try
6769+ Return CType(Me(Me.tableC140_F.C140_LFTMColumn),Decimal)
6770+ Catch e As Global.System.InvalidCastException
6771+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_LFTM' の値は DBNull です。", e)
6772+ End Try
6773+ End Get
6774+ Set
6775+ Me(Me.tableC140_F.C140_LFTMColumn) = value
6776+ End Set
6777+ End Property
6778+
6779+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6780+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6781+ Public Property C140_RGHM() As Decimal
6782+ Get
6783+ Try
6784+ Return CType(Me(Me.tableC140_F.C140_RGHMColumn),Decimal)
6785+ Catch e As Global.System.InvalidCastException
6786+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_RGHM' の値は DBNull です。", e)
6787+ End Try
6788+ End Get
6789+ Set
6790+ Me(Me.tableC140_F.C140_RGHMColumn) = value
6791+ End Set
6792+ End Property
6793+
6794+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6795+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6796+ Public Property C140_UPD1() As String
6797+ Get
6798+ Try
6799+ Return CType(Me(Me.tableC140_F.C140_UPD1Column),String)
6800+ Catch e As Global.System.InvalidCastException
6801+ Throw New Global.System.Data.StrongTypingException("テーブル 'C140_F' にある列 'C140_UPD1' の値は DBNull です。", e)
6802+ End Try
6803+ End Get
6804+ Set
6805+ Me(Me.tableC140_F.C140_UPD1Column) = value
6806+ End Set
6807+ End Property
6808+
6809+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6810+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6811+ Public Function IsC140_REPNMNull() As Boolean
6812+ Return Me.IsNull(Me.tableC140_F.C140_REPNMColumn)
6813+ End Function
6814+
6815+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6816+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6817+ Public Sub SetC140_REPNMNull()
6818+ Me(Me.tableC140_F.C140_REPNMColumn) = Global.System.Convert.DBNull
6819+ End Sub
6820+
6821+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6822+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6823+ Public Function IsC140_PRTNAMENull() As Boolean
6824+ Return Me.IsNull(Me.tableC140_F.C140_PRTNAMEColumn)
6825+ End Function
6826+
6827+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6828+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6829+ Public Sub SetC140_PRTNAMENull()
6830+ Me(Me.tableC140_F.C140_PRTNAMEColumn) = Global.System.Convert.DBNull
6831+ End Sub
6832+
6833+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6834+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6835+ Public Function IsC140_TOPMNull() As Boolean
6836+ Return Me.IsNull(Me.tableC140_F.C140_TOPMColumn)
6837+ End Function
6838+
6839+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6840+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6841+ Public Sub SetC140_TOPMNull()
6842+ Me(Me.tableC140_F.C140_TOPMColumn) = Global.System.Convert.DBNull
6843+ End Sub
6844+
6845+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6846+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6847+ Public Function IsC140_BTMMNull() As Boolean
6848+ Return Me.IsNull(Me.tableC140_F.C140_BTMMColumn)
6849+ End Function
6850+
6851+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6852+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6853+ Public Sub SetC140_BTMMNull()
6854+ Me(Me.tableC140_F.C140_BTMMColumn) = Global.System.Convert.DBNull
6855+ End Sub
6856+
6857+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6858+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6859+ Public Function IsC140_LFTMNull() As Boolean
6860+ Return Me.IsNull(Me.tableC140_F.C140_LFTMColumn)
6861+ End Function
6862+
6863+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6864+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6865+ Public Sub SetC140_LFTMNull()
6866+ Me(Me.tableC140_F.C140_LFTMColumn) = Global.System.Convert.DBNull
6867+ End Sub
6868+
6869+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6870+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6871+ Public Function IsC140_RGHMNull() As Boolean
6872+ Return Me.IsNull(Me.tableC140_F.C140_RGHMColumn)
6873+ End Function
6874+
6875+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6876+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6877+ Public Sub SetC140_RGHMNull()
6878+ Me(Me.tableC140_F.C140_RGHMColumn) = Global.System.Convert.DBNull
6879+ End Sub
6880+
6881+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6882+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6883+ Public Function IsC140_UPD1Null() As Boolean
6884+ Return Me.IsNull(Me.tableC140_F.C140_UPD1Column)
6885+ End Function
6886+
6887+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6888+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6889+ Public Sub SetC140_UPD1Null()
6890+ Me(Me.tableC140_F.C140_UPD1Column) = Global.System.Convert.DBNull
6891+ End Sub
6892+ End Class
6893+
6894+ '''<summary>
62686895 '''Row event argument class
62696896 '''</summary>
62706897 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
@@ -6479,4 +7106,40 @@
64797106 End Get
64807107 End Property
64817108 End Class
7109+
7110+ '''<summary>
7111+ '''Row event argument class
7112+ '''</summary>
7113+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7114+ Public Class C140_FRowChangeEvent
7115+ Inherits Global.System.EventArgs
7116+
7117+ Private eventRow As C140_FRow
7118+
7119+ Private eventAction As Global.System.Data.DataRowAction
7120+
7121+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7122+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7123+ Public Sub New(ByVal row As C140_FRow, ByVal action As Global.System.Data.DataRowAction)
7124+ MyBase.New
7125+ Me.eventRow = row
7126+ Me.eventAction = action
7127+ End Sub
7128+
7129+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7130+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7131+ Public ReadOnly Property Row() As C140_FRow
7132+ Get
7133+ Return Me.eventRow
7134+ End Get
7135+ End Property
7136+
7137+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7138+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7139+ Public ReadOnly Property Action() As Global.System.Data.DataRowAction
7140+ Get
7141+ Return Me.eventAction
7142+ End Get
7143+ End Property
7144+ End Class
64827145 End Class
--- trunk/MLApp.TRNLib/Class/TRNConst.vb (revision 69)
+++ trunk/MLApp.TRNLib/Class/TRNConst.vb (revision 70)
@@ -100,6 +100,9 @@
100100 '''<Summary>伝票番号設定(C130_F)</Summary>
101101 Public Const C130_F As String = "C130_F"
102102
103+ '''<Summary>プリンタ設定(C140_F)</Summary>
104+ Public Const C140_F As String = "C140_F"
105+
103106 End Class
104107
105108 End Class
--- trunk/MLApp.TRN0000/Form1.Designer.vb (revision 69)
+++ trunk/MLApp.TRN0000/Form1.Designer.vb (revision 70)
@@ -218,6 +218,7 @@
218218 Me.UcSearchBox2.CodeControlText = ""
219219 Me.UcSearchBox2.CodeControlWidth = 120
220220 Me.UcSearchBox2.CodeFieldName = "M110_CODE1"
221+ Me.UcSearchBox2.ConditionSQL = Nothing
221222 Me.UcSearchBox2.FuriganaFieldName = Nothing
222223 Me.UcSearchBox2.Location = New System.Drawing.Point(744, 90)
223224 Me.UcSearchBox2.Name = "UcSearchBox2"
@@ -351,7 +352,7 @@
351352 Me.Uc6DatetimePicker1.Name = "Uc6DatetimePicker1"
352353 Me.Uc6DatetimePicker1.Size = New System.Drawing.Size(150, 20)
353354 Me.Uc6DatetimePicker1.TabIndex = 19
354- Me.Uc6DatetimePicker1.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
355+ Me.Uc6DatetimePicker1.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
355356 '
356357 'Uc6Button4
357358 '
@@ -641,6 +642,7 @@
641642 Me.UcSearchBox1.CodeControlText = ""
642643 Me.UcSearchBox1.CodeControlWidth = 55
643644 Me.UcSearchBox1.CodeFieldName = "M110_CODE1"
645+ Me.UcSearchBox1.ConditionSQL = Nothing
644646 Me.UcSearchBox1.FuriganaFieldName = Nothing
645647 Me.UcSearchBox1.Location = New System.Drawing.Point(12, 265)
646648 Me.UcSearchBox1.Name = "UcSearchBox1"
@@ -694,7 +696,7 @@
694696 Me.Uc6Date2.Name = "Uc6Date2"
695697 Me.Uc6Date2.Size = New System.Drawing.Size(159, 20)
696698 Me.Uc6Date2.TabIndex = 36
697- Me.Uc6Date2.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
699+ Me.Uc6Date2.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
698700 '
699701 'Uc6Date3
700702 '
@@ -706,7 +708,7 @@
706708 Me.Uc6Date3.Name = "Uc6Date3"
707709 Me.Uc6Date3.Size = New System.Drawing.Size(118, 20)
708710 Me.Uc6Date3.TabIndex = 37
709- Me.Uc6Date3.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
711+ Me.Uc6Date3.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
710712 '
711713 'Uc6Date1
712714 '
@@ -717,7 +719,7 @@
717719 Me.Uc6Date1.Name = "Uc6Date1"
718720 Me.Uc6Date1.Size = New System.Drawing.Size(134, 20)
719721 Me.Uc6Date1.TabIndex = 38
720- Me.Uc6Date1.Value = New Date(2017, 5, 25, 0, 0, 0, 0)
722+ Me.Uc6Date1.Value = New Date(2018, 2, 26, 0, 0, 0, 0)
721723 '
722724 'Uc6Button9
723725 '
@@ -791,6 +793,7 @@
791793 Me.UcSearchBox2Line1.CodeControlText = ""
792794 Me.UcSearchBox2Line1.CodeControlWidth = 100
793795 Me.UcSearchBox2Line1.CodeFieldName = "M130_CODE1"
796+ Me.UcSearchBox2Line1.ConditionSQL = Nothing
794797 Me.UcSearchBox2Line1.FuriganaFieldName = Nothing
795798 Me.UcSearchBox2Line1.Location = New System.Drawing.Point(832, 135)
796799 Me.UcSearchBox2Line1.Name = "UcSearchBox2Line1"
--- trunk/MLApp.TRN0000/Form1.vb (revision 69)
+++ trunk/MLApp.TRN0000/Form1.vb (revision 70)
@@ -203,4 +203,8 @@
203203 Me.Uc6DateText1.Value = Nothing
204204 Me.Uc6DateText1.Value = CDate("2017/04/26")
205205 End Sub
206+
207+ Private Sub Uc6DateText1_AfterUpdate(sender As System.Object, e As System.EventArgs) Handles Uc6DateText1.AfterUpdate
208+
209+ End Sub
206210 End Class
\ No newline at end of file
--- trunk/MLApp.TRN0000/Form2.Designer.vb (revision 69)
+++ trunk/MLApp.TRN0000/Form2.Designer.vb (revision 70)
@@ -1,6 +1,6 @@
11 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
22 Partial Class Form2
3- Inherits System.Windows.Forms.Form
3+ Inherits MLApp.Base.TRNBaseForm
44
55 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
66 <System.Diagnostics.DebuggerNonUserCode()> _
@@ -26,11 +26,17 @@
2626 Me.UcSearchBox1 = New MLApp.Base.ucSearchBox()
2727 Me.Uc6Button14 = New ML.Controls.uc6Button()
2828 Me.Uc6DateText1 = New ML.Controls.uc6DateText()
29+ Me.MenuBtnPanel.SuspendLayout()
30+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
2931 Me.SuspendLayout()
3032 '
33+ 'MenuBtnPanel
34+ '
35+ Me.MenuBtnPanel.Size = New System.Drawing.Size(547, 43)
36+ '
3137 'Button1
3238 '
33- Me.Button1.Location = New System.Drawing.Point(50, 133)
39+ Me.Button1.Location = New System.Drawing.Point(50, 166)
3440 Me.Button1.Name = "Button1"
3541 Me.Button1.Size = New System.Drawing.Size(75, 23)
3642 Me.Button1.TabIndex = 1
@@ -45,8 +51,9 @@
4551 Me.UcSearchBox1.CodeControlText = ""
4652 Me.UcSearchBox1.CodeControlWidth = 55
4753 Me.UcSearchBox1.CodeFieldName = Nothing
54+ Me.UcSearchBox1.ConditionSQL = Nothing
4855 Me.UcSearchBox1.FuriganaFieldName = Nothing
49- Me.UcSearchBox1.Location = New System.Drawing.Point(12, 28)
56+ Me.UcSearchBox1.Location = New System.Drawing.Point(12, 61)
5057 Me.UcSearchBox1.Name = "UcSearchBox1"
5158 Me.UcSearchBox1.NameControlEnabled = True
5259 Me.UcSearchBox1.NameControlLengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
@@ -60,7 +67,7 @@
6067 '
6168 'Uc6Button14
6269 '
63- Me.Uc6Button14.Location = New System.Drawing.Point(116, 177)
70+ Me.Uc6Button14.Location = New System.Drawing.Point(116, 210)
6471 Me.Uc6Button14.Name = "Uc6Button14"
6572 Me.Uc6Button14.Size = New System.Drawing.Size(53, 23)
6673 Me.Uc6Button14.TabIndex = 53
@@ -72,7 +79,7 @@
7279 Me.Uc6DateText1.BackColor = System.Drawing.SystemColors.Control
7380 Me.Uc6DateText1.BackColorText = System.Drawing.SystemColors.Window
7481 Me.Uc6DateText1.DateFormat = ""
75- Me.Uc6DateText1.Location = New System.Drawing.Point(18, 178)
82+ Me.Uc6DateText1.Location = New System.Drawing.Point(18, 211)
7683 Me.Uc6DateText1.Name = "Uc6DateText1"
7784 Me.Uc6DateText1.Size = New System.Drawing.Size(97, 20)
7885 Me.Uc6DateText1.TabIndex = 52
@@ -83,7 +90,7 @@
8390 '
8491 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
8592 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
86- Me.ClientSize = New System.Drawing.Size(284, 261)
93+ Me.ClientSize = New System.Drawing.Size(547, 464)
8794 Me.Controls.Add(Me.Uc6Button14)
8895 Me.Controls.Add(Me.Uc6DateText1)
8996 Me.Controls.Add(Me.Button1)
@@ -90,7 +97,15 @@
9097 Me.Controls.Add(Me.UcSearchBox1)
9198 Me.Name = "Form2"
9299 Me.Text = "Form2"
100+ Me.Controls.SetChildIndex(Me.UcSearchBox1, 0)
101+ Me.Controls.SetChildIndex(Me.Button1, 0)
102+ Me.Controls.SetChildIndex(Me.Uc6DateText1, 0)
103+ Me.Controls.SetChildIndex(Me.Uc6Button14, 0)
104+ Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
105+ Me.MenuBtnPanel.ResumeLayout(False)
106+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
93107 Me.ResumeLayout(False)
108+ Me.PerformLayout()
94109
95110 End Sub
96111 Friend WithEvents UcSearchBox1 As MLApp.Base.ucSearchBox
--- trunk/MLApp.TRN0000/Form2.vb (revision 69)
+++ trunk/MLApp.TRN0000/Form2.vb (revision 70)
@@ -9,4 +9,16 @@
99 Me.Uc6DateText1.Value = Nothing
1010 Me.Uc6DateText1.Value = CDate("2017/04/26")
1111 End Sub
12+
13+ Private Sub Uc6DateText1_AfterUpdate(sender As System.Object, e As System.EventArgs) Handles Uc6DateText1.AfterUpdate
14+ Dim i As Integer = 1
15+ End Sub
16+
17+ Private Sub Uc6DateText1_BeforeUpdate(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles Uc6DateText1.BeforeUpdate
18+ If Me.Uc6DateText1.Text = "2018/02/25" Then
19+ MessageBox.Show("a")
20+ e.Cancel = True
21+ Exit Sub
22+ End If
23+ End Sub
1224 End Class
\ No newline at end of file
Show on old repository browser