+++ /dev/null
-Partial Class GridColumn\r
-Inherits System.Web.UI.UserControl\r
-\r
-' ----------------------------------------------------\r
-' Properties\r
-' ----------------------------------------------------\r
-\r
-Public DataType as String ' maps to LiveGrid column 'type'\r
-Public canSort as Boolean = True\r
-Public canDrag as Boolean = False\r
-Public canFilter as Boolean = True\r
-Public control as String ' javascript code to create control object\r
-Public format as String\r
-Public visible as Boolean = True\r
-Public ClassName as String\r
-Public filterUI as String\r
-Public filterCol as Integer = -1\r
-Public spec as String\r
-\r
-' number formatting\r
-Public multiplier as Double = 1.0\r
-Public decPlaces as Integer = 0\r
-Public decPoint as String\r
-Public thouSep as String\r
-Public negSign as String\r
-Public prefix as String\r
-Public suffix as String\r
-\r
-' date formatting\r
-Public dateFmt as String\r
-\r
-' LiveGrid Forms\r
-Public pattern as String\r
-Public min as String\r
-Public max as String\r
-Public Help as String\r
-Public TxtAreaRows as Integer = 4\r
-Public TxtAreaCols as Integer = 80\r
-Public ColName as String\r
-Public ColData as String\r
-Public SelectSql as String\r
-Public SelectCtl as String\r
-Public SelectFilter as String\r
-Public SelectValues as String\r
-Public SelectRows as Integer = -1\r
-Public Formula as String\r
-Public TableIdx as Integer = 0\r
-Public FilterFlag as Boolean = False\r
-Public FieldName as String\r
-Public isNullable as Boolean = False\r
-Public Writeable as Boolean = True\r
-Public FixedLength as Boolean\r
-Public isKey as Boolean = False\r
-Public Length as Integer = -1\r
-Public TypeName as String ' .net type\r
-Public panelIdx as Integer = -1\r
-Public ConfirmDeleteColumn as Boolean = False\r
-Public InsertOnly as Boolean = False\r
-Public UpdateOnly as Boolean = False\r
-Public [ReadOnly] as Boolean = False\r
-Public FormView as String\r
-Public AddQuotes as Boolean = True\r
-Public AltTable as String\r
-Public MultiSelect as Boolean = False\r
-Public DescriptionCol as String\r
-Public DescriptionField as String ' should populate automatically based on DescriptionCol\r
-Public noFormBreak as Boolean = False\r
-\r
-Private _EntryType as String\r
-Private _colHeading As String\r
-Private _width As Integer = -1\r
-\r
-\r
-Public Property Heading() As String\r
- Get\r
- Return _colHeading\r
- End Get\r
- Set\r
- _colHeading = value\r
- End Set\r
-End Property\r
-\r
-Public Property Width() As Integer\r
- Get\r
- Return _width\r
- End Get\r
- Set\r
- _width = value\r
- End Set\r
-End Property\r
-\r
-Public Function isLookupField() as Boolean\r
- isLookupField=CBool(mid(_EntryType,2,1)="L")\r
-End Function\r
-\r
-Public Property EntryType() As String\r
- Get\r
- Return _EntryType\r
- End Get\r
- Set\r
- select case value\r
- case "TA","tinyMCE","R","RL","S","SL","CL","N","B","T","I","F":\r
- case "D": DataType="date"\r
- case "DT": DataType="datetime"\r
- case "H": visible=false\r
- case else: Throw New Exception("Invalid EntryType")\r
- end select\r
- _EntryType = value\r
- End Set\r
-End Property\r
-\r
-\r
-Private function FmtBool(b)\r
- if b then FmtBool="true" else FmtBool="false"\r
-end function\r
-\r
-Public ReadOnly Property script() As String\r
- Get\r
- if not IsNothing(Me.spec) then Return "'" & Me.spec & "'"\r
- dim a as New ArrayList()\r
- if not IsNothing(Me.DataType) then a.Add("type: '" & Me.DataType & "'")\r
- if not IsNothing(Me.control) then a.Add("control: " & Me.control)\r
- if not IsNothing(Me.pattern) then a.Add("pattern: '" & Me.pattern & "'")\r
- if not IsNothing(Me.min) then a.Add("min: '" & Me.min & "'")\r
- if not IsNothing(Me.max) then a.Add("max: '" & Me.max & "'")\r
- if not IsNothing(Me.Help) then a.Add("Help: '" & Me.Help & "'")\r
- if not IsNothing(Me.format) then a.Add("format: '" & Me.format & "'")\r
- if not Me.canSort then a.Add("canSort: false")\r
- if Me.canDrag then a.Add("canDrag: true")\r
- if not Me.canFilter then a.Add("canFilter: false")\r
- if not Me.visible then a.Add("visible: false")\r
- if Me._width >= 0 then a.Add("width: " & Me._width)\r
- if not IsNothing(Me.ColName) then a.Add("ColName: '" & Me.ColName & "'")\r
- if not IsNothing(Me.FieldName) then a.Add("FieldName: '" & Me.FieldName & "'")\r
- if not IsNothing(Me.ClassName) then a.Add("ClassName: '" & Me.ClassName & "'")\r
- if not IsNothing(Me.filterUI) then a.Add("filterUI: '" & Me.filterUI & "'")\r
- if Me.filterCol >= 0 then a.Add("filterCol: " & Me.filterCol)\r
-\r
- if Me.multiplier <> 1.0 then a.Add("multiplier: " & Me.multiplier)\r
- if Me.decPlaces > 0 then a.Add("decPlaces: " & Me.decPlaces)\r
- if not IsNothing(Me.decPoint) then a.Add("decPoint: '" & Me.decPoint & "'")\r
- if not IsNothing(Me.thouSep) then a.Add("thouSep: '" & Me.thouSep & "'")\r
- if not IsNothing(Me.negSign) then a.Add("negSign: '" & Me.negSign & "'")\r
- if not IsNothing(Me.prefix) then a.Add("prefix: '" & Me.prefix & "'")\r
- if not IsNothing(Me.suffix) then a.Add("suffix: '" & Me.suffix & "'")\r
- if not IsNothing(Me.dateFmt) then a.Add("dateFmt: '" & Me.dateFmt & "'")\r
- if Me.panelIdx >= 0 then a.Add("panelIdx: " & Me.panelIdx)\r
-\r
- if not IsNothing(Me.EntryType) then\r
- a.Add("EntryType: '" & Me.EntryType & "'")\r
- if Me.EntryType="D" and ucase(Me.ColData)="TODAY" then\r
- a.Add("ColData: '" & DateTime.Today.ToString("s") & "'")\r
- else\r
- a.Add("ColData: '" & replace(Me.ColData,"'","\'") & "'")\r
- end if\r
- if Me.EntryType="TA" or Me.EntryType="tinyMCE" then\r
- a.Add("TxtAreaRows: " & Me.TxtAreaRows)\r
- a.Add("TxtAreaCols: " & Me.TxtAreaCols)\r
- end if\r
- if not IsNothing(Me.FormView) then a.Add("FormView: '" & Me.FormView & "'")\r
- if not IsNothing(Me.SelectCtl) then a.Add("SelectCtl: '" & Me.SelectCtl & "'")\r
- if not IsNothing(Me.SelectValues) then a.Add("SelectValues: '" & Me.SelectValues & "'")\r
- if Me.Length >= 0 then a.Add("Length: " & Me.Length)\r
- if Me.isNullable then a.Add("isNullable: true")\r
- if Me.isKey then a.Add("isKey: true")\r
- a.Add("Writeable: " & FmtBool(Me.Writeable))\r
- if Me.InsertOnly then a.Add("InsertOnly: true")\r
- if Me.UpdateOnly or not IsNothing(AltTable) then a.Add("UpdateOnly: true")\r
- if Me.ReadOnly then a.Add("ReadOnly: true")\r
- if Me.MultiSelect then a.Add("MultiSelect: true")\r
- if Me.noFormBreak then a.Add("noFormBreak: true")\r
- if not IsNothing(Me.DescriptionField) then a.Add("DescriptionField: '" & Me.DescriptionField & "'")\r
- if Me.SelectRows > 0 then a.Add("SelectRows: " & Me.SelectRows)\r
- end if\r
- Return " {" & String.Join("," & vbCrLf & " ", a.ToArray(Type.GetType("System.String"))) & " }"\r
- End Get\r
-End Property\r
-\r
-End Class\r