TField

Iz SDMS
Jump to navigationJump to search
Ta stran je trenutno še v izdelavi.

Razred TField vsebuje informacije o poljih za podatkovno plast.

Lastnosti polja

Dim L as TLayer, D As TDataSet, F As TField, I, J As Long
L = [Neka plast]
For I = 0 To L.DataSetCount - 1
  D = L.DataSets (I)
  For J = 0 To D.FieldCount - 1
    Message ("Lastnosti Polja", 
      "Ime: " + F.Name + Line +
      "Dodatno ime: " + F.Alias + Line +
      "Komentar: " + F.Comment + Line +
      "ID: $" + IntToHex (F.ID) + Line +
      "Tip polja: " + IntToStr (F.FieldType) + Line +
      "Format: " + F.Format + Line +
      "Formula: " + F.Formula + Line +
      "Lookup: " + F.Lookup + Line +
      "Niz podatkov: " + F.Parent.Name + Line +
      "Podatkovna plast: " + F.Parent.Parent.Name
    )
  Next
Next

Name

Lastnost Name določa ime polja.

Property TField.Name As String
ResultStringIme polja.

Alias

Lastnost Alias omogoča nastavitev dodatnega imena polja

Property TField.Alias As String
ResultStringDodatno ime.

Comment

Lastnost Comment omogoča zapis komentarja polja.

Property TField.Comment As String
ResultStringKomentar.

ID

Lastnost ID vrne unikatni identifikator, ki se samodejno kreira pri kreiranju polja in se nikdar ne spremeni.

RO Property TField.ID As Long
ResultLong.

Identifikator polja se uporablja interno za reference na polje, tako da niso odvisne od imena. HiWord identifikatorja je podedovan od identifikatorja niza podatkov TField.ID.

FieldType

Lastnost FieldType določa tip polja.

Property TField.FieldType As Long
ResultLongTip polja.

Tip polja je eno od Field Type konstant.

Format

Lastnost Format določa format polja.

Property TField.Format As String
ResultStringFormat polja.

Za numerična polja se lahko uporablja naslednje formate:

  • LongInt - Celoštevilčni tip 4 byte (-2xxx0..2xxx).
  • Integer - Celoštevilčni tip 2 byta (-32xxx..32xxx).
  • Byte - Celoštevilčni tip 1 byte (0..255).
  • 0000 - Celoštevilčni tip 2 byta. Številka se izpiše na šriti mesta z vodilnimi nulami. (0..9999).
  • # - xxx
  • #.## -
  • 0.00 -
  • #,##0.00 -

Za datum polja se lahko uporablja naslednje formate:

  • Date - polje vsebuje samo datum, ne pa tudi čas.
  • Time - ???

Pri ostalih tipih se format ne uporablja.

Formula

Lastnost Formula določa formulo polja.

Property TField.Formula As String
ResultString.

Lookup

Lastnost Lookup določa vrednost relacije za podano polje.

Property TField.Lookup As String
ResultString.

FullName

Lastnost FullName vrne polno ime polja in ime niza podatkov, v katerem se polje nahaja. Če obstaja samo en niz podatkov, se ime niza podatkov ne izpisuje. Ime polja je zapisano v oglatih oklepajih.

RO Property TField.FullName As String
ResultString.

Importance

Lastnost Importance .

Property TField.Importance As Long
ResultLong.

Parent

Lastnost Parent določa niz podatkov, kateremu pripada podano polje.

Property TField.Parent As TDataSet
ResultTDataSet.

InternalFieldType

Lastnost InternalFieldType .

RO Property TField.InternalFieldType As String
ResultString.

InternalFormat

Lastnost InternalFormat .

RO Property TField.InternalFormat As String
ResultString.

Vrednost polja

AsString

Lastnost AsString določa alfanumerično vrednost polja (iz prvega niza podatkov, v primeru večkratnega niza podatkov).

RO Property TField.AsString As String
ResultString.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  F.CurrentRecord = [Neka plast].AllRecords.Items (0)
  Hint (F.AsString)
EndIF

AsNumber

Lastnost AsNumber vrne numerično vrednost polja (iz prvega niza podatkov, v primeru večkratnega niza podatkov).

RO Property TField.AsNumber As Float
ResultFloat.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  F.CurrentRecord = [Neka plast].AllRecords.Items (0)
  Hint (FormatFloat ("#0.0", F.AsNumber))
EndIF

AsBoolean

Lastnost AsBoolean .

RO Property TField.AsBoolean As Boolean
ResultBoolean.

Vrednost polja v večkratnem nizu podatkov

AsLines

Lastnost AsLines določa tekst vseh zapisov, iz večkratnega niza podatkov, zapisanih tako, da je vsak zapis v svoji vrstici.

RO Property TField.AsLines As String
ResultString.
F = [Neka plast].GetField ("ImePolja")
F.CurrentRecord = [Neka plast].ClickedRecords.Items (1)
Hint (F.AsLine)

// v temi besedilo izberite polje (ki je del večkratnega niza podatkov) in za poljem zapišite .AsLine

[SomeField].AsLine

AsDistinctLines

Lastnost AsDistinctLines .

RO Property TField.AsDistinctLines As String
ResultString.

AsSortedLines

Lastnost AsSortedLines .

RO Property TField.AsSortedLines As String
ResultString.

LineCount

Lastnost LineCount določa število zapisov polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineCount As Long
ResultLong.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Število vseh:" + FloatToStr(F.LineCount))
EndIF

LineAsString

Lastnost LineAsString .

RO Property TField.LineAsString (Line As Long) As String
LineLong.
ResultString.
// v temi besedilo izberite polje (ki je del večkratnega niza podatkov) in zapišite:
FloatToStr( [Polje].LineAsString(0))

LineAsNumber

Lastnost LineAsNumber določa numerično vrednost polja iz index-tega večkratnega niza podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineAsNumber (Line As Long) As Float
LineLong.
ResultFloat.
// v temi besedilo izberite polje (ki je del večkratnega niza podatkov) in zapišite:
FloatToStr( [Polje].LineAsNumber(0))

LineMin

Lastnost LineMin določa najmanjšo vrednost polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineMin As Float
ResultFloat.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Najmanjša vrednost:" + FloatToStr(F.LineMin))
EndIF

LineMax

Lastnost LineMax določa največjo vrednost polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineMax As Float
ResultFloat.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Največja vrednost:" + FloatToStr(F.LineMax))
EndIf

LineSum

Lastnost LineSum določa vsoto polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineSum As Float
ResultFloat.
Dim F as TField
F = [Nekqa plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Vsota:" + FloatToStr(F.LineSum))
EndIF

LineAvg

Lastnost LineAvg določa povprečno vrednost polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineAvg As Float
ResultFloat.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Povprečje:" + FloatToStr(F.LineAvg))
EndIf

LineSumCondition

Lastnost LineSumCondition .

RO Property TField.LineSumCondition (Condition As String) As Float
ConditionString.
ResultFloat.

Analize liste zapisov

ListLines

Lastnost ListLines .

RO Property TField.ListLines (RL As TRecordList) As String
RLTRecordList.
ResultString.

ListGroupBy

Lastnost ListGroupBy .

RO Property TField.ListGroupBy (RL As TRecordList) As TStringList
RLTRecordList.
ResultTStringList.

ListGroupByLists

Lastnost ListGroupByLists .

RO Property TField.ListGroupByLists (RL As TRecordList) As TStringList
RLTRecordList.
ResultTStringList.

ListMin

Lastnost ListMin določa minimalno vrednost za podano polje iz vseh zapisov.

RO Property TField.ListMin (RL As TRecordList) As Float
RLTRecordList.
ResultFloat.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListMin ([Neka plast].AllRecords)))

ListMax

Lastnost ListMax določa maksimalno vrednost za podano polje iz vseh zapisov.

RO Property TField.ListMax (RL As TRecordList) As Float
RLTRecordList.
ResultFloat.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListMax ([Neka past].AllRecords)))

ListSum

Lastnost ListSum določa vsoto vseh vrednosti za podano polje iz vseh zapisov.

RO Property TField.ListSum (RL As TRecordList) As Float
RLTRecordList.
ResultFloat.
Dim F as TField
F = [Neka palst].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListSum ([Neka plast].AllRecords)))

ListAvg

Lastnost ListAvg določa povprečno vrednost za podano polje iz vseh zapisov in vseh nizov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.ListAvg (RL As TRecordList) As Float
RLTRecordList.
ResultFloat.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListAvg ([Neka palst].AllRecords)))

ListRange

Lastnost ListRange .

RO Property TField.ListRange (RL As TRecordList, RangeCnt As Long) As TNumArray1
RLTRecordList.
RangeCntLong.
ResultTNumArray1.

ListAnalyze

Metoda ListAnalyze analizira vse zapise za podano polje v celotni bazi podatkov, in poda minimalno, maksimalno, povprečno vrednost, ter število zapisov.

Method TField.ListAnalyze (RL As TRecordList, ByRef Min, ByRef Max, ByRef Sum As Float, ByRef Cnt As Long, ByRef IsFloat As Boolean)
RLTRecordListLista zapisov za analizo.
MinByRef FloatMinimalna vrednost.
MaxByRef FloatMaksimalna vrednost.
SumByRef FloatVsota vseh vrednosti.
CntByRef LongŠtevilo analiziranih podatkov, ki se lahko razlikuje od števila vseh zapisov, če je polje v večkratnem nizu podatkov.
IsFloatByRef BooleanVrne vrednost True, če so vsa polja tipa Floating point.
Dim Amin, AMax, ASum As Float, ACount as Long, M As Boolean
Dim F as TField
F = [Neka palst].GetField ("ImePolja")
F.ListAnalyze ([NekaPlast].AllRecords, Amin, Amax, Asum, ACount, M)
Hint ('Minimalna vrednost: ' + FloatToStr (AMin))

CurrentRecord

Lastnost CurrentRecord določa trenutno aktiven zapis, ki se bo izpisal, izrisal,... Vrednost je enako kot v primeru TLayer.CurrentRecord ali TDataSet.CurrentRecord lastnosti. Ko pride do spremembe, se izvede sprememba tudi v ostalih lastnostih. Ta lastnost se uporablja pri lastnostih razreda TField.

Property TField.CurrentRecord As TRecord
ResultTRecord.
Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  F.CurrentRecord = [Neka plast].AllRecords.Items (0)
  Hint (F.AsString)
EndIF

Web

AsHtmlEditor

Lastnost AsHtmlEditor .

RO Property TField.AsHtmlEditor (Name, Class As String) As String
NameString.
ClassString.
ResultString.
Vzpostavljeno iz »https://wiki.sdms.si/index.php?title=TField&oldid=6923«