初始化

WT-DMS/dlg_AddSupplier.vb

@@ -0,0 +1,80 @@
+Imports System.Windows.Forms
+
+Public Class dlg_AddSupplier
+    Dim m_Supplier As New CSupplier
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        If Save() = True Then
+            Me.DialogResult = System.Windows.Forms.DialogResult.OK
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    '获取所有表对应的字段名称列表
+    Private Function GetSectionNameList() As Boolean
+        Dim rTable As New Data.DataTable
+        Dim result As Boolean = True
+
+        rTable.Columns.Clear()
+        rTable.Rows.Clear()
+        rTable.Clear()
+
+        Grid1.Cols = 2
+        Grid1.Rows = 1
+        Grid1.Column(0).Width = 200
+        Grid1.Column(1).Width = 200
+        Grid1.Column(0).Alignment = FlexCell.AlignmentEnum.LeftCenter
+        Grid1.Column(1).Alignment = FlexCell.AlignmentEnum.LeftCenter
+
+        Grid1.Cell(0, 0).Text = "字段名称"
+        Grid1.Cell(0, 1).Text = "值"
+        If SQL_Query(COL_RIGHTS.供应商管理, "SELECT * FROM `" & CSupplier.cst_TABLE_NAME & "` WHERE 0", rTable) = True Then
+            Dim rowindex As Integer = 1
+            For i As Integer = 0 To rTable.Columns.Count - 1
+                Grid1.Rows += 1
+                Grid1.Cell(rowindex, 0).Text = rTable.Columns.Item(i).ColumnName
+                rowindex += 1
+            Next
+
+            If Grid1.Rows > 1 Then
+                Grid1.Cell(1, 1).Locked = True
+            End If
+        Else
+            result = False
+        End If
+
+        Return result
+    End Function
+
+    Private Sub dlg_AddSupplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        GetSectionNameList()
+    End Sub
+
+    Private Function Save() As Boolean
+        Dim RowCount As Integer = Grid1.Rows - 2
+        Dim SectionName(RowCount) As String
+        Dim Values(RowCount) As String
+
+        Dim tableindex As Integer = 1
+        For row As Integer = 0 To RowCount
+            SectionName(row) = Grid1.Cell(tableindex, 0).Text
+            Values(row) = Grid1.Cell(tableindex, 1).Text
+            tableindex += 1
+        Next
+
+        Dim result As ERROR_CODE = m_Supplier.AddItem(SectionName, Values)
+        If result = ERROR_CODE.SUCCESS Then
+            Return True
+        Else
+            MsgBox(GetErrorCodeString(result))
+        End If
+
+        Return False
+    End Function
+
+End Class