初始化项目

BLV_Studio/Control/FrmAddDevice.vb

@@ -0,0 +1,49 @@
+Public Class FrmAddDevice
+
+    ''' <summary>
+    ''' 设备列表表名
+    ''' </summary>
+    Private _DevLists As String = $"CSeries_DevLists"
+
+
+    ''' <summary>
+    ''' 保存按键
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If TextIsNull(TextBox1, "设备型号") = False Then Exit Sub
+        If TextIsNull(TextBox2, "设备类型") = False Then Exit Sub
+        If TextIsNull(TextBox3, "设备名称") = False Then Exit Sub
+        If TextIsNull(TextBox4, "协议编号") = False Then Exit Sub
+        If TextIsNull(TextBox5, "波特率") = False Then Exit Sub
+        If TextIsNull(TextBox6, "功能说明") = False Then Exit Sub
+
+        Dim devTypeNumber As String = TextBox1.Text     '设备型号
+        Dim devType As String = TextBox2.Text           '设备类型
+        Dim devName As String = TextBox3.Text           '设备名称
+        Dim devxieyi As String = TextBox4.Text          '协议编号
+        Dim devBaud As String = TextBox5.Text           '波特率
+        Dim functionExplain As String = TextBox5.Text   '功能说明
+        Dim remarks As String = TextBox6.Text           '备注
+
+        Dim conditions As String = $"(DevTypeNumber, DevType, DevName, DevProtocol, DevBaud, FunctionalExplain, Remarks) Values('{devTypeNumber}', '{devType}', '{devName}', '{devxieyi}', '{devBaud}', '{functionExplain}', '{remarks}')"
+        _SqlServer.Add(_DevLists, conditions)
+
+        MsgBox($"新增完成")
+    End Sub
+
+
+    ''' <summary>
+    ''' 关闭窗体按键
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Close()
+    End Sub
+
+
+
+
+End Class