• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision60 (tree)
Time2017-03-06 18:47:56
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.TRN0000/TRN0000.Designer.vb (revision 59)
+++ trunk/MLApp.TRN0000/TRN0000.Designer.vb (revision 60)
@@ -44,6 +44,7 @@
4444 Me.tsmiOpenExcelFilePlace = New System.Windows.Forms.ToolStripMenuItem()
4545 Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
4646 Me.tsmiOption = New System.Windows.Forms.ToolStripMenuItem()
47+ Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
4748 Me.StatusStrip.SuspendLayout()
4849 Me.MenuStrip1.SuspendLayout()
4950 Me.SuspendLayout()
@@ -93,7 +94,7 @@
9394 '
9495 'デバッグToolStripMenuItem
9596 '
96- Me.デバッグToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmDebug, Me.ToolStripSeparator1, Me.tsmiAppQuit})
97+ Me.デバッグToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.tsmDebug, Me.ToolStripSeparator1, Me.tsmiAppQuit})
9798 Me.デバッグToolStripMenuItem.Name = "デバッグToolStripMenuItem"
9899 Me.デバッグToolStripMenuItem.Size = New System.Drawing.Size(66, 20)
99100 Me.デバッグToolStripMenuItem.Text = "ファイル(&F)"
@@ -200,6 +201,12 @@
200201 Me.tsmiOption.Size = New System.Drawing.Size(198, 22)
201202 Me.tsmiOption.Text = "オプション"
202203 '
204+ 'ToolStripMenuItem1
205+ '
206+ Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
207+ Me.ToolStripMenuItem1.Size = New System.Drawing.Size(210, 22)
208+ Me.ToolStripMenuItem1.Text = "デバッグ用フォーム2"
209+ '
203210 'TRN0000
204211 '
205212 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -244,4 +251,5 @@
244251 Friend WithEvents tsmiKubunCategoryMaster As System.Windows.Forms.ToolStripMenuItem
245252 Friend WithEvents tsmiKubunGroupMaster As System.Windows.Forms.ToolStripMenuItem
246253 Friend WithEvents tsmiKubunMaster As System.Windows.Forms.ToolStripMenuItem
254+ Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
247255 End Class
--- trunk/MLApp.TRN0000/TRN0000.vb (revision 59)
+++ trunk/MLApp.TRN0000/TRN0000.vb (revision 60)
@@ -178,4 +178,11 @@
178178
179179 End Sub
180180
181+ Private Sub ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem1.Click
182+
183+ Dim frm As New Form2
184+ frm.ShowDialog()
185+
186+ End Sub
187+
181188 End Class
\ No newline at end of file
--- trunk/MLApp.TRN9000/TRN9140.Designer.vb (revision 59)
+++ trunk/MLApp.TRN9000/TRN9140.Designer.vb (revision 60)
@@ -29,8 +29,6 @@
2929 Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
3030 Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
3131 Me.dgvTRN9140S1 = New ML.Controls.uc6DataGridView()
32- Me.C1_TRNDataSet = New MLApp.DataModel.C1_TRNDataSet()
33- Me.lblDispMode = New ML.Controls.uc6Label()
3432 Me.C130_KEY1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3533 Me.C130_KEYNM1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3634 Me.C130_DPNO1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
@@ -37,7 +35,10 @@
3735 Me.C130_UP1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3836 Me.C130_DW1 = New ML.Controls.uc6DataGridViewTextBoxColumn()
3937 Me.C130_UPD1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
38+ Me.C1_TRNDataSet = New MLApp.DataModel.C1_TRNDataSet()
39+ Me.lblDispMode = New ML.Controls.uc6Label()
4040 Me.MenuBtnPanel.SuspendLayout()
41+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).BeginInit()
4142 CType(Me.dgvTRN9140S1, System.ComponentModel.ISupportInitialize).BeginInit()
4243 CType(Me.C1_TRNDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
4344 Me.SuspendLayout()
@@ -44,6 +45,7 @@
4445 '
4546 'cmdF1
4647 '
48+ Me.cmdF1.Enabled = True
4749 Me.cmdF1.Text = "登録"
4850 '
4951 'cmdF11
@@ -126,22 +128,6 @@
126128 Me.dgvTRN9140S1.TabIndex = 108
127129 Me.dgvTRN9140S1.TabStop = False
128130 '
129- 'C1_TRNDataSet
130- '
131- Me.C1_TRNDataSet.DataSetName = "C1_TRNDataSet"
132- Me.C1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
133- '
134- 'lblDispMode
135- '
136- Me.lblDispMode.BackColor = System.Drawing.Color.White
137- Me.lblDispMode.ForeColor = System.Drawing.Color.Black
138- Me.lblDispMode.Location = New System.Drawing.Point(507, 58)
139- Me.lblDispMode.Name = "lblDispMode"
140- Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
141- Me.lblDispMode.TabIndex = 115
142- Me.lblDispMode.Text = "画面モード"
143- Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
144- '
145131 'C130_KEY1
146132 '
147133 Me.C130_KEY1.DataPropertyName = "C130_KEY1"
@@ -216,6 +202,22 @@
216202 Me.C130_UPD1.Name = "C130_UPD1"
217203 Me.C130_UPD1.Visible = False
218204 '
205+ 'C1_TRNDataSet
206+ '
207+ Me.C1_TRNDataSet.DataSetName = "C1_TRNDataSet"
208+ Me.C1_TRNDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
209+ '
210+ 'lblDispMode
211+ '
212+ Me.lblDispMode.BackColor = System.Drawing.Color.White
213+ Me.lblDispMode.ForeColor = System.Drawing.Color.Black
214+ Me.lblDispMode.Location = New System.Drawing.Point(507, 58)
215+ Me.lblDispMode.Name = "lblDispMode"
216+ Me.lblDispMode.Size = New System.Drawing.Size(69, 20)
217+ Me.lblDispMode.TabIndex = 115
218+ Me.lblDispMode.Text = "画面モード"
219+ Me.lblDispMode.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
220+ '
219221 'TRN9140
220222 '
221223 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
@@ -229,8 +231,9 @@
229231 Me.Controls.SetChildIndex(Me.MenuBtnPanel, 0)
230232 Me.Controls.SetChildIndex(Me.dgvTRN9140S1, 0)
231233 Me.Controls.SetChildIndex(Me.lblDispMode, 0)
232- Me.MenuBtnPanel.ResumeLayout(false)
233- CType(Me.dgvTRN9140S1,System.ComponentModel.ISupportInitialize).EndInit
234+ Me.MenuBtnPanel.ResumeLayout(False)
235+ CType(Me.m_dtM9, System.ComponentModel.ISupportInitialize).EndInit()
236+ CType(Me.dgvTRN9140S1, System.ComponentModel.ISupportInitialize).EndInit()
234237 CType(Me.C1_TRNDataSet,System.ComponentModel.ISupportInitialize).EndInit
235238 Me.ResumeLayout(false)
236239 Me.PerformLayout
--- trunk/MLApp.TRN9000/TRN9140.vb (revision 59)
+++ trunk/MLApp.TRN9000/TRN9140.vb (revision 60)
@@ -64,7 +64,7 @@
6464
6565 End If
6666
67- '' 権限別プログラムマスタ読込
67+ '' 伝票番号設定読込
6868 Me.SearchC130()
6969
7070 '' 元に戻す
Show on old repository browser