• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision50 (tree)
Time2017-01-11 22:40:58
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.TRN8000/TRN8931.vb (revision 49)
+++ trunk/MLApp.TRN8000/TRN8931.vb (revision 50)
@@ -431,11 +431,13 @@
431431 AddHandler Me.txtM911_NAME1.Change, AddressOf Me.ChangeField
432432 AddHandler Me.cmbM911_M910CD1.Change, AddressOf Me.ChangeField
433433 AddHandler Me.txtM911_ASEMNM1.Change, AddressOf Me.ChangeField
434+ AddHandler Me.gpM911_ORDER1.SelectedValue_Changed, AddressOf Me.ChangeField
434435
435436 '' Leaveイベント
436437 AddHandler Me.txtM911_NAME1.Leave, AddressOf Me.LeaveField
437438 AddHandler Me.cmbM911_M910CD1.Leave, AddressOf Me.LeaveField
438439 AddHandler Me.txtM911_ASEMNM1.Leave, AddressOf Me.LeaveField
440+ AddHandler Me.gpM911_ORDER1.Leave, AddressOf Me.LeaveField
439441
440442 End Sub
441443
@@ -589,9 +591,10 @@
589591
590592 .Fields("M911_NAME1").Value = Me.txtM911_NAME1.Text
591593 .Fields("M911_ASEMNM1").Value = Me.txtM911_ASEMNM1.Text
592- If Me.lblDispMode.Text = stcDispMode.DispNew Then
593- .Fields("M911_ORDER1").Value = Me.gpM911_ORDER1.SelectedValue
594- End If
594+ 'If Me.lblDispMode.Text = stcDispMode.DispNew Then
595+ ' .Fields("M911_ORDER1").Value = Me.gpM911_ORDER1.SelectedValue
596+ 'End If
597+ .Fields("M911_ORDER1").Value = Me.gpM911_ORDER1.SelectedValue
595598 .Fields("M911_UPD1").Value = Me.m_LInfo.GetUpdInfo
596599 .Update()
597600
--- trunk/MLApp.TRN8000/TRN8210.Designer.vb (revision 49)
+++ trunk/MLApp.TRN8000/TRN8210.Designer.vb (revision 50)
@@ -22,7 +22,7 @@
2222 'コード エディターを使って変更しないでください。
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
25- Me.dgvAMK8210S1 = New ML.Controls.uc6DataGridView()
25+ Me.dgvTRN8210S1 = New ML.Controls.uc6DataGridView()
2626 Me.M130_CODE1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
2727 Me.M130_NAME1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
2828 Me.M130_FURIGANA1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -137,7 +137,7 @@
137137 Me.Uc6GroupBox2 = New ML.Controls.uc6GroupBox()
138138 Me.ckDelMaster = New ML.Controls.uc6CheckBox()
139139 Me.MenuBtnPanel.SuspendLayout()
140- CType(Me.dgvAMK8210S1, System.ComponentModel.ISupportInitialize).BeginInit()
140+ CType(Me.dgvTRN8210S1, System.ComponentModel.ISupportInitialize).BeginInit()
141141 CType(Me.M1_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
142142 Me.Uc6GroupBox1.SuspendLayout()
143143 Me.tbAMK8210S1.SuspendLayout()
@@ -200,32 +200,32 @@
200200 Me.cmdF12.Enabled = True
201201 Me.cmdF12.Text = "終了"
202202 '
203- 'dgvAMK8210S1
203+ 'dgvTRN8210S1
204204 '
205- Me.dgvAMK8210S1.AllowUserToAddRows = False
206- Me.dgvAMK8210S1.AllowUserToDeleteRows = False
207- Me.dgvAMK8210S1.AllowUserToResizeRows = False
208- Me.dgvAMK8210S1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
205+ Me.dgvTRN8210S1.AllowUserToAddRows = False
206+ Me.dgvTRN8210S1.AllowUserToDeleteRows = False
207+ Me.dgvTRN8210S1.AllowUserToResizeRows = False
208+ Me.dgvTRN8210S1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
209209 Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
210- Me.dgvAMK8210S1.AutoGenerateColumns = False
211- Me.dgvAMK8210S1.ColumnHeaderBorderStyle = ML.Controls.uc6DataGridViewBase.HeaderCellBorderStyle.SingleLine
212- Me.dgvAMK8210S1.ColumnHeaderRowCount = 1
213- Me.dgvAMK8210S1.ColumnHeaderRowHeight = 30
214- Me.dgvAMK8210S1.ColumnHeadersHeight = 32
215- Me.dgvAMK8210S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.M130_CODE1, Me.M130_NAME1, Me.M130_FURIGANA1, Me.M130_M120NM1, Me.M130_M120NM2, Me.M130CODE1DataGridViewTextBoxColumn, Me.M130CODE2DataGridViewTextBoxColumn, Me.M130M110CD1DataGridViewTextBoxColumn, Me.M130_M120CD1, Me.M130_M120CD2, Me.M130NAME1DataGridViewTextBoxColumn, Me.M130NAME2DataGridViewTextBoxColumn, Me.M130FURIGANA1DataGridViewTextBoxColumn, Me.M130UBIN1DataGridViewTextBoxColumn, Me.M130JUSHO1DataGridViewTextBoxColumn, Me.M130JUSHO2DataGridViewTextBoxColumn, Me.M130TEL1DataGridViewTextBoxColumn, Me.M130FAX1DataGridViewTextBoxColumn, Me.M130SIME11DataGridViewTextBoxColumn, Me.M130SIME12DataGridViewTextBoxColumn, Me.M130SIME13DataGridViewTextBoxColumn, Me.M130SMDT1DataGridViewTextBoxColumn, Me.M130SIME21DataGridViewTextBoxColumn, Me.M130SIME22DataGridViewTextBoxColumn, Me.M130SIME23DataGridViewTextBoxColumn, Me.M130SMDT2DataGridViewTextBoxColumn, Me.M130SIME31DataGridViewTextBoxColumn, Me.M130SIME32DataGridViewTextBoxColumn, Me.M130SIME33DataGridViewTextBoxColumn, Me.M130MM11DataGridViewTextBoxColumn, Me.M130MM12DataGridViewTextBoxColumn, Me.M130MM13DataGridViewTextBoxColumn, Me.M130MM21DataGridViewTextBoxColumn, Me.M130MM22DataGridViewTextBoxColumn, Me.M130MM23DataGridViewTextBoxColumn, Me.M130MM31DataGridViewTextBoxColumn, Me.M130MM32DataGridViewTextBoxColumn, Me.M130MM33DataGridViewTextBoxColumn, Me.M130DD11DataGridViewTextBoxColumn, Me.M130DD12DataGridViewTextBoxColumn, Me.M130DD13DataGridViewTextBoxColumn, Me.M130DD21DataGridViewTextBoxColumn, Me.M130DD22DataGridViewTextBoxColumn, Me.M130DD23DataGridViewTextBoxColumn, Me.M130DD31DataGridViewTextBoxColumn, Me.M130DD32DataGridViewTextBoxColumn, Me.M130DD33DataGridViewTextBoxColumn, Me.M130SBKB11DataGridViewTextBoxColumn, Me.M130SBKB12DataGridViewTextBoxColumn, Me.M130SBDD11DataGridViewTextBoxColumn, Me.M130SBDD12DataGridViewTextBoxColumn, Me.M130SBKG1DataGridViewTextBoxColumn, Me.M130KUBN11DataGridViewTextBoxColumn, Me.M130KUBN12DataGridViewTextBoxColumn, Me.M130KUBN13DataGridViewTextBoxColumn, Me.M130KUBN14DataGridViewTextBoxColumn, Me.M130KUBN15DataGridViewTextBoxColumn, Me.M130KUBN16DataGridViewTextBoxColumn, Me.M130KUBN17DataGridViewTextBoxColumn, Me.M130KUBN18DataGridViewTextBoxColumn, Me.M130KUBN19DataGridViewTextBoxColumn, Me.M130KUBN21DataGridViewTextBoxColumn, Me.M130KUBN31DataGridViewTextBoxColumn, Me.M130KUBN32DataGridViewTextBoxColumn, Me.M130KUBN33DataGridViewTextBoxColumn, Me.M130_KUBN91, Me.M130DNAME1DataGridViewTextBoxColumn, Me.M130DFURI1DataGridViewTextBoxColumn, Me.M130DYAKU1DataGridViewTextBoxColumn, Me.M130DBIRTH1DataGridViewTextBoxColumn, Me.M130DJUSHO1DataGridViewTextBoxColumn, Me.M130DJUSHO2DataGridViewTextBoxColumn, Me.M130RNAME1DataGridViewTextBoxColumn, Me.M130RFURI1DataGridViewTextBoxColumn, Me.M130RBIRTH1DataGridViewTextBoxColumn, Me.M130RJUSHO1DataGridViewTextBoxColumn, Me.M130RJUSHO2DataGridViewTextBoxColumn, Me.M130RZOKU1DataGridViewTextBoxColumn, Me.M130JSU1DataGridViewTextBoxColumn, Me.M130JSUM1DataGridViewTextBoxColumn, Me.M130JSUF1DataGridViewTextBoxColumn, Me.M130SHKING1DataGridViewTextBoxColumn, Me.M130MMKING1DataGridViewTextBoxColumn, Me.M130YYKING1DataGridViewTextBoxColumn, Me.M130YSKP1DataGridViewTextBoxColumn, Me.M130YSKING1DataGridViewTextBoxColumn, Me.M130YSDATE1DataGridViewTextBoxColumn, Me.M130_BIKO1, Me.M130ORDER1DataGridViewTextBoxColumn, Me.M130UPD1DataGridViewTextBoxColumn})
216- Me.dgvAMK8210S1.DataMember = "M130_F"
217- Me.dgvAMK8210S1.DataSource = Me.M1_TRNDataSet
218- Me.dgvAMK8210S1.Location = New System.Drawing.Point(12, 102)
219- Me.dgvAMK8210S1.MultiSelect = False
220- Me.dgvAMK8210S1.Name = "dgvAMK8210S1"
221- Me.dgvAMK8210S1.ReadOnly = True
222- Me.dgvAMK8210S1.RowTemplate.Height = 21
223- Me.dgvAMK8210S1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
224- Me.dgvAMK8210S1.ShowLineNo = True
225- Me.dgvAMK8210S1.Size = New System.Drawing.Size(845, 138)
226- Me.dgvAMK8210S1.StandardTab = True
227- Me.dgvAMK8210S1.TabIndex = 107
228- Me.dgvAMK8210S1.TabStop = False
210+ Me.dgvTRN8210S1.AutoGenerateColumns = False
211+ Me.dgvTRN8210S1.ColumnHeaderBorderStyle = ML.Controls.uc6DataGridViewBase.HeaderCellBorderStyle.SingleLine
212+ Me.dgvTRN8210S1.ColumnHeaderRowCount = 1
213+ Me.dgvTRN8210S1.ColumnHeaderRowHeight = 30
214+ Me.dgvTRN8210S1.ColumnHeadersHeight = 32
215+ Me.dgvTRN8210S1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.M130_CODE1, Me.M130_NAME1, Me.M130_FURIGANA1, Me.M130_M120NM1, Me.M130_M120NM2, Me.M130CODE1DataGridViewTextBoxColumn, Me.M130CODE2DataGridViewTextBoxColumn, Me.M130M110CD1DataGridViewTextBoxColumn, Me.M130_M120CD1, Me.M130_M120CD2, Me.M130NAME1DataGridViewTextBoxColumn, Me.M130NAME2DataGridViewTextBoxColumn, Me.M130FURIGANA1DataGridViewTextBoxColumn, Me.M130UBIN1DataGridViewTextBoxColumn, Me.M130JUSHO1DataGridViewTextBoxColumn, Me.M130JUSHO2DataGridViewTextBoxColumn, Me.M130TEL1DataGridViewTextBoxColumn, Me.M130FAX1DataGridViewTextBoxColumn, Me.M130SIME11DataGridViewTextBoxColumn, Me.M130SIME12DataGridViewTextBoxColumn, Me.M130SIME13DataGridViewTextBoxColumn, Me.M130SMDT1DataGridViewTextBoxColumn, Me.M130SIME21DataGridViewTextBoxColumn, Me.M130SIME22DataGridViewTextBoxColumn, Me.M130SIME23DataGridViewTextBoxColumn, Me.M130SMDT2DataGridViewTextBoxColumn, Me.M130SIME31DataGridViewTextBoxColumn, Me.M130SIME32DataGridViewTextBoxColumn, Me.M130SIME33DataGridViewTextBoxColumn, Me.M130MM11DataGridViewTextBoxColumn, Me.M130MM12DataGridViewTextBoxColumn, Me.M130MM13DataGridViewTextBoxColumn, Me.M130MM21DataGridViewTextBoxColumn, Me.M130MM22DataGridViewTextBoxColumn, Me.M130MM23DataGridViewTextBoxColumn, Me.M130MM31DataGridViewTextBoxColumn, Me.M130MM32DataGridViewTextBoxColumn, Me.M130MM33DataGridViewTextBoxColumn, Me.M130DD11DataGridViewTextBoxColumn, Me.M130DD12DataGridViewTextBoxColumn, Me.M130DD13DataGridViewTextBoxColumn, Me.M130DD21DataGridViewTextBoxColumn, Me.M130DD22DataGridViewTextBoxColumn, Me.M130DD23DataGridViewTextBoxColumn, Me.M130DD31DataGridViewTextBoxColumn, Me.M130DD32DataGridViewTextBoxColumn, Me.M130DD33DataGridViewTextBoxColumn, Me.M130SBKB11DataGridViewTextBoxColumn, Me.M130SBKB12DataGridViewTextBoxColumn, Me.M130SBDD11DataGridViewTextBoxColumn, Me.M130SBDD12DataGridViewTextBoxColumn, Me.M130SBKG1DataGridViewTextBoxColumn, Me.M130KUBN11DataGridViewTextBoxColumn, Me.M130KUBN12DataGridViewTextBoxColumn, Me.M130KUBN13DataGridViewTextBoxColumn, Me.M130KUBN14DataGridViewTextBoxColumn, Me.M130KUBN15DataGridViewTextBoxColumn, Me.M130KUBN16DataGridViewTextBoxColumn, Me.M130KUBN17DataGridViewTextBoxColumn, Me.M130KUBN18DataGridViewTextBoxColumn, Me.M130KUBN19DataGridViewTextBoxColumn, Me.M130KUBN21DataGridViewTextBoxColumn, Me.M130KUBN31DataGridViewTextBoxColumn, Me.M130KUBN32DataGridViewTextBoxColumn, Me.M130KUBN33DataGridViewTextBoxColumn, Me.M130_KUBN91, Me.M130DNAME1DataGridViewTextBoxColumn, Me.M130DFURI1DataGridViewTextBoxColumn, Me.M130DYAKU1DataGridViewTextBoxColumn, Me.M130DBIRTH1DataGridViewTextBoxColumn, Me.M130DJUSHO1DataGridViewTextBoxColumn, Me.M130DJUSHO2DataGridViewTextBoxColumn, Me.M130RNAME1DataGridViewTextBoxColumn, Me.M130RFURI1DataGridViewTextBoxColumn, Me.M130RBIRTH1DataGridViewTextBoxColumn, Me.M130RJUSHO1DataGridViewTextBoxColumn, Me.M130RJUSHO2DataGridViewTextBoxColumn, Me.M130RZOKU1DataGridViewTextBoxColumn, Me.M130JSU1DataGridViewTextBoxColumn, Me.M130JSUM1DataGridViewTextBoxColumn, Me.M130JSUF1DataGridViewTextBoxColumn, Me.M130SHKING1DataGridViewTextBoxColumn, Me.M130MMKING1DataGridViewTextBoxColumn, Me.M130YYKING1DataGridViewTextBoxColumn, Me.M130YSKP1DataGridViewTextBoxColumn, Me.M130YSKING1DataGridViewTextBoxColumn, Me.M130YSDATE1DataGridViewTextBoxColumn, Me.M130_BIKO1, Me.M130ORDER1DataGridViewTextBoxColumn, Me.M130UPD1DataGridViewTextBoxColumn})
216+ Me.dgvTRN8210S1.DataMember = "M130_F"
217+ Me.dgvTRN8210S1.DataSource = Me.M1_TRNDataSet
218+ Me.dgvTRN8210S1.Location = New System.Drawing.Point(12, 102)
219+ Me.dgvTRN8210S1.MultiSelect = False
220+ Me.dgvTRN8210S1.Name = "dgvTRN8210S1"
221+ Me.dgvTRN8210S1.ReadOnly = True
222+ Me.dgvTRN8210S1.RowTemplate.Height = 21
223+ Me.dgvTRN8210S1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
224+ Me.dgvTRN8210S1.ShowLineNo = True
225+ Me.dgvTRN8210S1.Size = New System.Drawing.Size(845, 138)
226+ Me.dgvTRN8210S1.StandardTab = True
227+ Me.dgvTRN8210S1.TabIndex = 107
228+ Me.dgvTRN8210S1.TabStop = False
229229 '
230230 'M130_CODE1
231231 '
@@ -1238,15 +1238,15 @@
12381238 Me.ControlBox = True
12391239 Me.Controls.Add(Me.Uc6GroupBox2)
12401240 Me.Controls.Add(Me.Uc6GroupBox1)
1241- Me.Controls.Add(Me.dgvAMK8210S1)
1241+ Me.Controls.Add(Me.dgvTRN8210S1)
12421242 Me.Name = "TRN8210"
12431243 Me.Text = "TRN8210"
12441244 Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
1245- Me.Controls.SetChildIndex(Me.dgvAMK8210S1, 0)
1245+ Me.Controls.SetChildIndex(Me.dgvTRN8210S1, 0)
12461246 Me.Controls.SetChildIndex(Me.Uc6GroupBox1, 0)
12471247 Me.Controls.SetChildIndex(Me.Uc6GroupBox2, 0)
12481248 Me.MenuBtnPanel.ResumeLayout(False)
1249- CType(Me.dgvAMK8210S1, System.ComponentModel.ISupportInitialize).EndInit()
1249+ CType(Me.dgvTRN8210S1, System.ComponentModel.ISupportInitialize).EndInit()
12501250 CType(Me.M1_TRNDataSet, System.ComponentModel.ISupportInitialize).EndInit()
12511251 Me.Uc6GroupBox1.ResumeLayout(False)
12521252 Me.tbAMK8210S1.ResumeLayout(False)
@@ -1274,7 +1274,7 @@
12741274 Friend WithEvents Uc6Label8 As ML.Controls.uc6Label
12751275 Friend WithEvents M1_TRNDataSet As MLApp.DataModel.M1_TRNDataSet
12761276 Friend WithEvents lblDispMode As ML.Controls.uc6Label
1277- Friend WithEvents dgvAMK8210S1 As ML.Controls.uc6DataGridView
1277+ Friend WithEvents dgvTRN8210S1 As ML.Controls.uc6DataGridView
12781278 Friend WithEvents txtM130_FURIGANA1 As ML.Controls.uc6TextBox
12791279 Friend WithEvents Uc6Label9 As ML.Controls.uc6Label
12801280 Friend WithEvents ckDelMaster As ML.Controls.uc6CheckBox
--- trunk/MLApp.TRN8000/TRN8210.vb (revision 49)
+++ trunk/MLApp.TRN8000/TRN8210.vb (revision 50)
@@ -11,6 +11,7 @@
1111 ''' |更新者 |日付 |連番 |変更内容 |
1212 ''' +------------+-----------+-----+-------------------------------------------+
1313 ''' y.miura 2016.10.21 001 新規作成
14+''' y.miura 2017.01.11 002 客先担当者を必須入力項目から除外
1415 ''' </history>
1516 Public Class TRN8210
1617
@@ -17,12 +18,10 @@
1718 #Region " メンバ変数"
1819
1920 ''' <summary>ログオン情報クラス</summary>
20- Private m_LInfo As New MLApp.TRNLib.LoginInfo
21+ Private m_LInfo As MLApp.TRNLib.LoginInfo
2122
2223 ''' <summary>DataGridViewにおける未使用データ行の背景色</summary>
23- Private m_DataGridViewUnUseRowBackColor As Drawing.Color = Me.m_cbc.SetMemberVariable(
24- Drawing.Color.LightGray,
25- ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
24+ Private m_DataGridViewUnUseRowBackColor As Drawing.Color
2625
2726 #End Region
2827
@@ -31,6 +30,16 @@
3130 ''' <summary>フォームロード時イベント</summary>
3231 Private Sub TRN8210_Load(sender As Object, e As System.EventArgs) Handles Me.Load
3332
33+ If Me.DesignMode = True Then Exit Sub
34+
35+ '' ログイン情報クラスインスタンス生成
36+ Me.m_LInfo = New MLApp.TRNLib.LoginInfo
37+
38+ '' DataGridViewにおける未使用データ行の背景色取得
39+ Me.m_DataGridViewUnUseRowBackColor = Me.m_cbc.SetMemberVariable(
40+ Drawing.Color.LightGray,
41+ ML.Controls.uc6.enSectionName.DataGridViewUnUseRowBackColor)
42+
3443 '' 元に戻すボタン押下処理
3544 Me.CancelProc()
3645
@@ -183,7 +192,7 @@
183192 Me.txtM130_CODE1.Focus()
184193
185194 '' 検索結果DataGridViewを非活性とする
186- Me.dgvAMK8210S1.Enabled = False
195+ Me.dgvTRN8210S1.Enabled = False
187196
188197 '' ボタンコントロールの使用可否設定
189198 Me.ChangeButtonEnabled_NewMode()
@@ -199,7 +208,7 @@
199208 '' 得意先マスタ読込
200209 Me.SearchM130()
201210
202- If Me.dgvAMK8210S1.RowCount > 0 Then
211+ If Me.dgvTRN8210S1.RowCount > 0 Then
203212
204213 '' 選択行の内容を画面上に表示する
205214 Me.SelectedDataGridView(0, False)
@@ -212,21 +221,21 @@
212221 Protected Overrides Sub cmdF10_Click(sender As Object, e As System.EventArgs)
213222
214223 '' 検索結果が0件の場合は処理を抜ける
215- If Me.dgvAMK8210S1.Rows.Count = 0 Then Exit Sub
224+ If Me.dgvTRN8210S1.Rows.Count = 0 Then Exit Sub
216225
217226 '' 検索結果をExcel出力する
218- Me.dgvAMK8210S1.SaveExcel()
227+ Me.dgvTRN8210S1.SaveExcel()
219228
220229 End Sub
221230
222231 ''' <summary>検索結果:CellFormattingイベント</summary>
223- Private Sub dgvAMK8210S1_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvAMK8210S1.CellFormatting
232+ Private Sub dgvTRN8210S1_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvTRN8210S1.CellFormatting
224233
225234 '' 使用区分の値を取得
226- Dim dgvCellM130KB91 As DataGridViewCell = Me.dgvAMK8210S1.Rows(e.RowIndex).Cells("M130_KUBN91")
235+ Dim dgvCellM130KB91 As DataGridViewCell = Me.dgvTRN8210S1.Rows(e.RowIndex).Cells("M130_KUBN91")
227236
228237 '' 背景色を変更するセルを取得
229- Dim dgvCell As DataGridViewCell = Me.dgvAMK8210S1.Rows(e.RowIndex).Cells(e.ColumnIndex)
238+ Dim dgvCell As DataGridViewCell = Me.dgvTRN8210S1.Rows(e.RowIndex).Cells(e.ColumnIndex)
230239
231240 '' 使用区分判定
232241 If dgvCellM130KB91.Value = ML.Common.Const.En.enUseType.UnUse Then
@@ -239,12 +248,12 @@
239248 End Sub
240249
241250 ''' <summary>検索結果:行選択時イベント</summary>
242- Private Sub dgvAMK8210S1_RowEnter(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvAMK8210S1.RowEnter
251+ Private Sub dgvTRN8210S1_RowEnter(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvTRN8210S1.RowEnter
243252
244253 If e.RowIndex = -1 Then Exit Sub
245254
246255 '' DataGridView選択時処理
247- Me.SelectedDataGridView(e.RowIndex, Me.dgvAMK8210S1.Focused)
256+ Me.SelectedDataGridView(e.RowIndex, Me.dgvTRN8210S1.Focused)
248257
249258 End Sub
250259
@@ -270,7 +279,7 @@
270279 #Region " メソッド"
271280
272281 ''' <summary>キャンセル処理(元に戻す)</summary>
273- Private Sub CancelProc()
282+ Protected Overridable Sub CancelProc()
274283 Try
275284 '' 画面初期化
276285 Me.InitDisp()
@@ -287,7 +296,7 @@
287296 End Sub
288297
289298 ''' <summary>画面初期化処理</summary>
290- Private Sub InitDisp()
299+ Protected Overridable Sub InitDisp()
291300 Try
292301 '' コンボボックス設定
293302 Me.SetComboBox()
@@ -305,7 +314,7 @@
305314 Me.ChangeButtonEnabled_Init()
306315
307316 '' 検索結果DataGridViewを活性化する
308- Me.dgvAMK8210S1.Enabled = True
317+ Me.dgvTRN8210S1.Enabled = True
309318
310319 '' 画面モード初期化
311320 Me.lblDispMode.Text = stcDispMode.DispNone
@@ -321,7 +330,7 @@
321330 End Sub
322331
323332 ''' <summary>ボタンコントロール使用可否設定(初期化時)</summary>
324- Private Sub ChangeButtonEnabled_Init()
333+ Protected Overridable Sub ChangeButtonEnabled_Init()
325334
326335 Me.cmdF1.Enabled = False
327336 Me.cmdF2.Enabled = False
@@ -333,7 +342,7 @@
333342 End Sub
334343
335344 ''' <summary>ボタンコントロール使用可否設定(新規時)</summary>
336- Private Sub ChangeButtonEnabled_NewMode()
345+ Protected Overridable Sub ChangeButtonEnabled_NewMode()
337346
338347 Me.cmdF1.Enabled = False
339348 Me.cmdF2.Enabled = False
@@ -345,7 +354,7 @@
345354 End Sub
346355
347356 ''' <summary>コンボボックス設定処理</summary>
348- Private Sub SetComboBox()
357+ Protected Overridable Sub SetComboBox()
349358 Dim sWHR As String = String.Empty
350359
351360 '' 担当者(検索)
@@ -361,7 +370,7 @@
361370 End Sub
362371
363372 ''' <summary>入力/検索フィールド初期化処理</summary>
364- Private Sub InitInputField()
373+ Protected Overridable Sub InitInputField()
365374
366375 With Me
367376 .cmbTantou.SelectedValue = String.Empty
@@ -377,7 +386,7 @@
377386 End Sub
378387
379388 ''' <summary>入力フィールド使用可否設定処理</summary>
380- Private Sub EnabledInputField(bEnabled As Boolean)
389+ Protected Overridable Sub EnabledInputField(bEnabled As Boolean)
381390
382391 With Me
383392 .txtM130_CODE1.Enabled = bEnabled
@@ -391,7 +400,7 @@
391400 End Sub
392401
393402 ''' <summary>検索フィールド使用可否設定処理</summary>
394- Private Sub EnalbedSearchField(bEnabled As Boolean)
403+ Protected Overridable Sub EnalbedSearchField(bEnabled As Boolean)
395404
396405 Me.cmbTantou.Enabled = bEnabled
397406 Me.txtFurigana.Enabled = bEnabled
@@ -399,7 +408,7 @@
399408 End Sub
400409
401410 ''' <summary>DataGridView選択時処理</summary>
402- Private Sub SelectedDataGridView(iRowIdx As Integer,
411+ Protected Overridable Sub SelectedDataGridView(iRowIdx As Integer,
403412 bFocused As Boolean)
404413
405414 If bFocused = False Then
@@ -428,20 +437,20 @@
428437 End Sub
429438
430439 ''' <summary>選択行の内容を画面上に表示する</summary>
431- Private Sub SetSelectedData(iRowIdx As Integer)
440+ Protected Overridable Sub SetSelectedData(iRowIdx As Integer)
432441
433442 '' 選択行の値を画面上に表示する
434- Me.txtM130_CODE1.Text = Me.dgvAMK8210S1.GetCellValue(iRowIdx, "M130_CODE1")
435- Me.txtM130_NAME1.Text = Me.dgvAMK8210S1.GetCellValue(iRowIdx, "M130_NAME1")
436- Me.cmbM130_M120CD1.SelectedValue = Me.dgvAMK8210S1.GetCellValue(iRowIdx, "M130_M120CD1")
437- Me.cmbM130_M120CD2.SelectedValue = Me.dgvAMK8210S1.GetCellValue(iRowIdx, "M130_M120CD2")
438- Me.txtM130_FURIGANA1.Text = Me.dgvAMK8210S1.GetCellValue(iRowIdx, "M130_FURIGANA1").ToString
439- Me.txtM130_BIKO1.Text = Me.dgvAMK8210S1.GetCellValue(iRowIdx, "M130_BIKO1").ToString
443+ Me.txtM130_CODE1.Text = Me.dgvTRN8210S1.GetCellValue(iRowIdx, "M130_CODE1")
444+ Me.txtM130_NAME1.Text = Me.dgvTRN8210S1.GetCellValue(iRowIdx, "M130_NAME1")
445+ Me.cmbM130_M120CD1.SelectedValue = Me.dgvTRN8210S1.GetCellValue(iRowIdx, "M130_M120CD1")
446+ Me.cmbM130_M120CD2.SelectedValue = Me.dgvTRN8210S1.GetCellValue(iRowIdx, "M130_M120CD2")
447+ Me.txtM130_FURIGANA1.Text = Me.dgvTRN8210S1.GetCellValue(iRowIdx, "M130_FURIGANA1").ToString
448+ Me.txtM130_BIKO1.Text = Me.dgvTRN8210S1.GetCellValue(iRowIdx, "M130_BIKO1").ToString
440449
441450 End Sub
442451
443452 ''' <summary>入力コントロールイベントハンドラ追加処理</summary>
444- Private Sub AddHandlerInputControls()
453+ Protected Overridable Sub AddHandlerInputControls()
445454
446455 '' Changeイベント
447456 AddHandler Me.cmbM130_M120CD1.Change, AddressOf Me.ChangeField
@@ -460,7 +469,7 @@
460469 End Sub
461470
462471 ''' <summary>入力コントロール値変更時処理</summary>
463- Private Sub ChangeField()
472+ Protected Overridable Sub ChangeField()
464473
465474 With Me
466475
@@ -478,7 +487,7 @@
478487 .cmdF12.Enabled = False
479488
480489 '' 検索結果を非活性にする
481- Me.dgvAMK8210S1.Enabled = False
490+ Me.dgvTRN8210S1.Enabled = False
482491
483492 End With
484493
@@ -485,7 +494,7 @@
485494 End Sub
486495
487496 ''' <summary>入力コントロールフォーカス喪失時処理</summary>
488- Private Sub LeaveField()
497+ Protected Overridable Sub LeaveField()
489498
490499 '' 画面モードが通常時以外の場合は登録、元に戻すボタンを活性化する
491500 If Me.lblDispMode.Text <> stcDispMode.DispNone Then
@@ -496,7 +505,7 @@
496505 End Sub
497506
498507 ''' <summary>更新前チェック</summary>
499- Private Function CheckBeforeProc() As Boolean
508+ Protected Overridable Function CheckBeforeProc() As Boolean
500509 Dim bRet As Boolean = False
501510
502511 Try
@@ -530,21 +539,6 @@
530539 Exit Try
531540 End If
532541
533- '' 担当者(客先)
534- If Me.cmbM130_M120CD2.SelectedValue = String.Empty Then
535-
536- '' メッセージ表示
537- Me.Messenger.WarnOKOnly.Show( _
538- ML.Common.Message.Resource.W.MSG_W_0001, _
539- "入力エラー", _
540- "担当者(客先)")
541-
542- '' 未登録項目にフォーカスをセットする
543- Me.cmbM130_M120CD2.Focus()
544-
545- Exit Try
546- End If
547-
548542 '' 得意先名
549543 If Me.txtM130_NAME1.Text = String.Empty Then
550544
@@ -593,7 +587,7 @@
593587 End Function
594588
595589 ''' <summary>得意先マスタ登録処理</summary>
596- Private Function UpdateM130() As Boolean
590+ Protected Overridable Function UpdateM130() As Boolean
597591 Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
598592 Dim rM130 As ML.DBAccess.Base.Rs5
599593 Dim sSQL As String
@@ -683,7 +677,7 @@
683677 End Function
684678
685679 ''' <summary>コードの更新前処理</summary>
686- Private Sub BeforeUpdate_MasterCode(ByRef bCancel As Boolean)
680+ Protected Overridable Sub BeforeUpdate_MasterCode(ByRef bCancel As Boolean)
687681
688682 '' コード未入力時は処理を抜ける
689683 If Me.txtM130_CODE1.Text = String.Empty Then
@@ -713,7 +707,7 @@
713707 End Sub
714708
715709 ''' <summary>検索処理</summary>
716- Private Sub SearchM130()
710+ Protected Overridable Sub SearchM130()
717711 Dim sWHR As String = String.Empty
718712
719713 '' 検索条件
@@ -741,7 +735,7 @@
741735 Me.M1_TRNDataSet.M120_F.GetData()
742736
743737 '' 検索結果の非バインド列を補完する
744- For Each dgvRow As DataGridViewRow In Me.dgvAMK8210S1.Rows
738+ For Each dgvRow As DataGridViewRow In Me.dgvTRN8210S1.Rows
745739 dgvRow.Cells("M130_M120NM1").Value = _
746740 Me.M1_TRNDataSet.M120_F.DLookUp("M120_NAME1", "M120_CODE1=" & dgvRow.Cells("M130_M120CD1").Value.ToString.ToTextStr)
747741 dgvRow.Cells("M130_M120NM2").Value = _
@@ -752,7 +746,7 @@
752746 End Sub
753747
754748 ''' <summary>得意先マスタ削除処理</summary>
755- Private Function DeleteM130() As Boolean
749+ Protected Overridable Function DeleteM130() As Boolean
756750 Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
757751 Dim sSQL As String
758752 Dim bRet As Boolean = False
Show on old repository browser