Sub BuildContainer(id As String) As ABMContainer
Dim ItemCont As ABMContainer
ItemCont.Initialize(page, id,"")
ItemCont.AddRowsM(2,False,3,3,"").AddCellsOSMP(1,0,0,0,8,8,8,0,0,16,0,"").AddCellsOSMP(1,0,0,0,4,4,4,0,0,0,0,"cellaligncenter")
ItemCont.BuildGrid
'
Dim inp1 As ABMInput
inp1.Initialize(page, id&"inp1", ABM.INPUT_TEXT, "配方庫名稱", False, "")
ItemCont.Cell(1,1).AddComponent(inp1)
Dim inp2 As ABMInput
inp2.Initialize(page, id&"inp2", ABM.INPUT_TEXT, "配方庫說明", False, "")
ItemCont.Cell(2,1).AddComponent(inp2)
'
Dim btn1 As ABMButton
btn1.InitializeRaised(page, "rptdelete", "mdi-action-delete", ABM.ICONALIGN_LEFT, "刪除", "btndelete")
ItemCont.cell(1,2).AddComponent(btn1)
'
Dim btn2 As ABMButton
btn2.InitializeRaised(page, "rptedit", "mdi-content-save", ABM.ICONALIGN_LEFT, "修改", "")
ItemCont.cell(2,2).AddComponent(btn2)
Return ItemCont
End Sub