Commit MetaInfo
Log Message
(empty log message)
Change Summary
Incremental Difference
| | @@ -1,7 +1,7 @@ | 1 | 1 |
| 2 | 2 | ''' <summary>
| 3 | | -''' 【クラス名】NVL
| 4 | | -''' 【機能概要】ディレクトリ関連の共有メソッド
| | 3 | +''' 【クラス名】df6
| | 4 | +''' 【機能概要】共通メソッド
| 5 | 5 | ''' </summary>
| 6 | 6 | ''' <history>
| 7 | 7 | ''' +------------+-----------+-----+-------------------------------------------+
|
| | @@ -11,7 +11,7 @@ | 11 | 11 | ''' </history>
| 12 | 12 | Public Class df6
| 13 | 13 |
| 14 | | -#Region " NVL"
| | 14 | +#Region " Nothing値変換"
| 15 | 15 |
| 16 | 16 | ''' <summary>
| 17 | 17 | ''' Nothing,DBNull変換(ゼロ値変換)
|
| | @@ -25,8 +25,31 @@ | 25 | 25 | ''' <summary>DataGridViewEditコントロールフラグ</summary>
| 26 | 26 | Protected m_bDataGridViewEditing As Boolean = False
| 27 | 27 |
| | 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 | +
| 28 | 37 | #End Region
| 29 | 38 |
| | 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 | +
| 30 | 53 | #Region " プロパティ"
| 31 | 54 |
| 32 | 55 | ''' <summary>Text</summary>
|
| | @@ -258,9 +281,50 @@ | 258 | 281 |
| 259 | 282 | #Region " イベント"
| 260 | 283 |
| | 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 | +
| 261 | 290 | ''' <summary>ValueChangedイベント</summary>
| 262 | 291 | Public Event ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
| 263 | 292 |
| | 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 | +
| 264 | 328 | ''' <summary>OnValueChangedメソッド</summary>
| 265 | 329 | Protected Overridable Sub OnValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
| 266 | 330 |
|
| | @@ -310,6 +374,22 @@ | 310 | 374 |
| 311 | 375 | End Sub
| 312 | 376 |
| | 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 | +
| 313 | 393 | ''' <summary>txtUc6TextBox_GotFocusイベント</summary>
| 314 | 394 | Private Sub txtUc6TextBox_GotFocus(sender As Object, e As System.EventArgs) Handles txtUc6TextBox.GotFocus
| 315 | 395 |
|
| | @@ -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
|
| | @@ -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 |
| | @@ -4,7 +4,7 @@ | 4 | 4 | <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
| 5 | 5 | <DataSource DefaultConnectionIndex="1" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
| 6 | 6 | <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" />
| 8 | 8 | <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" />
| 9 | 9 | </Connections>
| 10 | 10 | <Tables />
|
| | @@ -15,7 +15,7 @@ | 15 | 15 | <xs:element name="C1_TRNDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="C1_TRNDataSet" msprop:Generator_UserDSName="C1_TRNDataSet">
| 16 | 16 | <xs:complexType>
| 17 | 17 | <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">
| 19 | 19 | <xs:complexType>
| 20 | 20 | <xs:sequence>
| 21 | 21 | <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 @@ | 92 | 92 | </xs:sequence>
| 93 | 93 | </xs:complexType>
| 94 | 94 | </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">
| 96 | 96 | <xs:complexType>
| 97 | 97 | <xs:sequence>
| 98 | 98 | <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 @@ | 109 | 109 | </xs:sequence>
| 110 | 110 | </xs:complexType>
| 111 | 111 | </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">
| 113 | 113 | <xs:complexType>
| 114 | 114 | <xs:sequence>
| 115 | 115 | <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 @@ | 116 | 116 | <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" />
| 117 | 117 | <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" />
| 118 | 118 | <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">
| 120 | 120 | <xs:simpleType>
| 121 | 121 | <xs:restriction base="xs:string">
| 122 | 122 | <xs:maxLength value="40" />
|
| | @@ -126,7 +126,7 @@ | 126 | 126 | </xs:sequence>
| 127 | 127 | </xs:complexType>
| 128 | 128 | </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">
| 130 | 130 | <xs:complexType>
| 131 | 131 | <xs:sequence>
| 132 | 132 | <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 @@ | 144 | 144 | </xs:sequence>
| 145 | 145 | </xs:complexType>
| 146 | 146 | </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">
| 148 | 148 | <xs:complexType>
| 149 | 149 | <xs:sequence>
| 150 | 150 | <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 @@ | 160 | 160 | </xs:sequence>
| 161 | 161 | </xs:complexType>
| 162 | 162 | </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">
| 164 | 164 | <xs:complexType>
| 165 | 165 | <xs:sequence>
| 166 | 166 | <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 @@ | 188 | 188 | </xs:sequence>
| 189 | 189 | </xs:complexType>
| 190 | 190 | </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>
| 191 | 212 | </xs:choice>
| 192 | 213 | </xs:complexType>
| 193 | 214 | <xs:unique name="Constraint1" msdata:PrimaryKey="true">
|
| | @@ -212,5 +233,10 @@ | 212 | 233 | <xs:selector xpath=".//mstns:C111_F" />
| 213 | 234 | <xs:field xpath="mstns:C111_NO1" />
| 214 | 235 | </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>
| 215 | 241 | </xs:element>
| 216 | 242 | </xs:schema> | | | \ No newline at end of file |
| | @@ -37,6 +37,8 @@ | 37 | 37 |
| 38 | 38 | Private tableC110_F As C110_FDataTable
| 39 | 39 |
| | 40 | + Private tableC140_F As C140_FDataTable
| | 41 | +
| 40 | 42 | Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
| 41 | 43 |
| 42 | 44 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
| | @@ -84,6 +86,9 @@ | 84 | 86 | If (Not (ds.Tables("C110_F")) Is Nothing) Then
| 85 | 87 | MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
| 86 | 88 | 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
| 87 | 92 | Me.DataSetName = ds.DataSetName
| 88 | 93 | Me.Prefix = ds.Prefix
| 89 | 94 | Me.Namespace = ds.Namespace
|
| | @@ -163,6 +168,16 @@ | 163 | 168 |
| 164 | 169 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
| 165 | 170 | 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"), _
| 166 | 181 | Global.System.ComponentModel.BrowsableAttribute(true), _
| 167 | 182 | Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
| 168 | 183 | Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
|
| | @@ -246,6 +261,9 @@ | 246 | 261 | If (Not (ds.Tables("C110_F")) Is Nothing) Then
| 247 | 262 | MyBase.Tables.Add(New C110_FDataTable(ds.Tables("C110_F")))
| 248 | 263 | 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
| 249 | 267 | Me.DataSetName = ds.DataSetName
| 250 | 268 | Me.Prefix = ds.Prefix
| 251 | 269 | Me.Namespace = ds.Namespace
|
| | @@ -314,6 +332,12 @@ | 314 | 332 | Me.tableC110_F.InitVars
| 315 | 333 | End If
| 316 | 334 | 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
| 317 | 341 | End Sub
| 318 | 342 |
| 319 | 343 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
| | @@ -336,6 +360,8 @@ | 336 | 360 | MyBase.Tables.Add(Me.tableC111_F)
| 337 | 361 | Me.tableC110_F = New C110_FDataTable()
| 338 | 362 | MyBase.Tables.Add(Me.tableC110_F)
| | 363 | + Me.tableC140_F = New C140_FDataTable()
| | 364 | + MyBase.Tables.Add(Me.tableC140_F)
| 339 | 365 | End Sub
| 340 | 366 |
| 341 | 367 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
| | @@ -376,6 +402,12 @@ | 376 | 402 |
| 377 | 403 | <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
| 378 | 404 | 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")> _
| 379 | 411 | Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
| 380 | 412 | If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
| 381 | 413 | Me.InitVars
|
| | @@ -450,6 +482,9 @@ | 450 | 482 | <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
| 451 | 483 | Public Delegate Sub C110_FRowChangeEventHandler(ByVal sender As Object, ByVal e As C110_FRowChangeEvent)
| 452 | 484 |
| | 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 | +
| 453 | 488 | '''<summary>
| 454 | 489 | '''Represents the strongly named DataTable class.
| 455 | 490 | '''</summary>
|
| | @@ -2108,7 +2143,6 @@ | 2108 | 2143 | Me.columnC130_KEY1.AllowDBNull = false
| 2109 | 2144 | Me.columnC130_KEY1.Unique = true
| 2110 | 2145 | Me.columnC130_DPNO1.AllowDBNull = false
| 2111 | | - Me.columnC130_UPD1.Caption = "C120_UPD1"
| 2112 | 2146 | Me.columnC130_UPD1.MaxLength = 40
| 2113 | 2147 | End Sub
| 2114 | 2148 |
|
| | @@ -3440,6 +3474,372 @@ | 3440 | 3474 | End Class
| 3441 | 3475 |
| 3442 | 3476 | '''<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>
| 3443 | 3843 | '''Represents strongly named DataRow class.
| 3444 | 3844 | '''</summary>
| 3445 | 3845 | Partial Public Class C150_FRow
|
| | @@ -6265,6 +6665,233 @@ | 6265 | 6665 | End Class
| 6266 | 6666 |
| 6267 | 6667 | '''<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>
| 6268 | 6895 | '''Row event argument class
| 6269 | 6896 | '''</summary>
| 6270 | 6897 | <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
| | @@ -6479,4 +7106,40 @@ | 6479 | 7106 | End Get
| 6480 | 7107 | End Property
| 6481 | 7108 | 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
| 6482 | 7145 | End Class
|
| | @@ -100,6 +100,9 @@ | 100 | 100 | '''<Summary>伝票番号設定(C130_F)</Summary>
| 101 | 101 | Public Const C130_F As String = "C130_F"
| 102 | 102 |
| | 103 | + '''<Summary>プリンタ設定(C140_F)</Summary>
| | 104 | + Public Const C140_F As String = "C140_F"
| | 105 | +
| 103 | 106 | End Class
| 104 | 107 |
| 105 | 108 | End Class
|
Show on old repository browser
|