_ Partial Class frmDBInput Inherits System.Windows.Forms.Form 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Windows Form 디자이너에 필요합니다. Private components As System.ComponentModel.IContainer '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. '수정하려면 Windows Form 디자이너를 사용하십시오. '코드 편집기에서는 수정하지 마세요. _ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDBInput)) Me.Label6 = New System.Windows.Forms.Label() Me.txbCurrent = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.txbDateTime = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.txbSN = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.Label6.Location = New System.Drawing.Point(52, 198) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(70, 21) Me.Label6.TabIndex = 19 Me.Label6.Text = "Current" ' 'txbCurrent ' Me.txbCurrent.Font = New System.Drawing.Font("함초롬바탕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.txbCurrent.Location = New System.Drawing.Point(194, 195) Me.txbCurrent.Name = "txbCurrent" Me.txbCurrent.Size = New System.Drawing.Size(262, 35) Me.txbCurrent.TabIndex = 18 Me.txbCurrent.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.Label1.Location = New System.Drawing.Point(52, 119) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(94, 21) Me.Label1.TabIndex = 17 Me.Label1.Text = "측정일자" ' 'txbDateTime ' Me.txbDateTime.Font = New System.Drawing.Font("함초롬바탕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.txbDateTime.Location = New System.Drawing.Point(194, 116) Me.txbDateTime.Name = "txbDateTime" Me.txbDateTime.Size = New System.Drawing.Size(262, 35) Me.txbDateTime.TabIndex = 16 Me.txbDateTime.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.Label2.Location = New System.Drawing.Point(52, 45) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(105, 21) Me.Label2.TabIndex = 21 Me.Label2.Text = "TD 시리얼" ' 'txbSN ' Me.txbSN.Font = New System.Drawing.Font("함초롬바탕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.txbSN.Location = New System.Drawing.Point(194, 42) Me.txbSN.Name = "txbSN" Me.txbSN.Size = New System.Drawing.Size(262, 35) Me.txbSN.TabIndex = 20 Me.txbSN.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Button1 ' Me.Button1.Font = New System.Drawing.Font("굴림", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.Button1.Location = New System.Drawing.Point(56, 277) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(400, 94) Me.Button1.TabIndex = 22 Me.Button1.Text = "입력" Me.Button1.UseVisualStyleBackColor = True ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("굴림", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.Label3.Location = New System.Drawing.Point(191, 154) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(210, 16) Me.Label3.TabIndex = 24 Me.Label3.Text = "(예시 : 2020-05-26 15:11:11)" ' 'frmDBInput ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(517, 392) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.txbSN) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.txbCurrent) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.txbDateTime) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmDBInput" Me.Text = "DB INPUT" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label6 As Label Friend WithEvents txbCurrent As TextBox Friend WithEvents Label1 As Label Friend WithEvents txbDateTime As TextBox Friend WithEvents Label2 As Label Friend WithEvents txbSN As TextBox Friend WithEvents Button1 As Button Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim cmd As String cmd = "update jomtCartridgeTbl set QC_DateTime = '" + txbDateTime.Text + "',QC_Current = '" + txbCurrent.Text + "' where PV_SN = '" + txbSN.Text + "';" DBCommand(cmd) txbDateTime.Clear() txbCurrent.Clear() txbSN.Clear() End Sub Friend WithEvents Label3 As Label End Class