81 lines
2.6 KiB
VB.net
81 lines
2.6 KiB
VB.net
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
|