初始化

WT-DMS/dlg_StoreSelect.vb

@@ -0,0 +1,55 @@
+Imports System.Windows.Forms
+
+Public Class dlg_StoreSelect
+    Dim rTable As New DataTable
+    Dim m_SQL As New CStore
+    Dim m_AddressList As New ArrayList
+    Dim 库位表 As New ArrayList
+    Public m_SelPosName As String = ""
+
+    Private Function GetStoreList() As Boolean
+        combo_Store.Items.Clear()
+        m_AddressList.Clear()
+        库位表.Clear()
+
+        If m_SQL.QueryAll(rTable) = ERROR_CODE.SUCCESS Then
+            For i As Integer = 0 To rTable.Rows.Count - 1
+                combo_Store.Items.Add(rTable.Rows(i).Item(CStore.COLS.仓库名称))
+                m_AddressList.Add(rTable.Rows(i).Item(CStore.COLS.仓库地点))
+                库位表.Add(rTable.Rows(i).Item(CStore.COLS.仓库库位表))
+            Next
+            Return True
+        End If
+
+        Return False
+    End Function
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        If combo_Store.Text.Length = 0 Then
+            MsgBox("请选择仓库!")
+            Return
+        End If
+
+        m_SelPosName = 库位表.Item(combo_Store.SelectedIndex)
+
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Close()
+    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 Sub dlg_StoreSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        GetStoreList()
+    End Sub
+
+    Private Sub combo_Store_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combo_Store.SelectedIndexChanged
+        If combo_Store.SelectedIndex >= 0 Then
+            lblAddress.Text = m_AddressList.Item(combo_Store.SelectedIndex)
+        Else
+            lblAddress.Text = ""
+        End If
+    End Sub
+End Class