TForm
Razred TForm vsebuje informacije o maskah, katere omogočajo pregled, vnos ali korekturo podatkov.
Osnovna uporaba
Dim F As Tform, Plast As Tlayer
Plast = [Neka plast]
F = Plast.Form
F.Clear
If F.Edit Then
F.Name = 'ImeMaske'
F.Alias = 'DrugoImeMaske'
F.Comment = 'ComentarMaske'
F.Save ('ImeMaske')
EndIf
F.Load ('ImeMaske')
Plast.Filter.Execute
Plast.Form.Open
Plast.Form.OpenList(Plast.Filteredrecords)Edit
Metoda Edit odpre urejevalnik mask.
| Method TForm.Edit As Boolean | ||
| Result | Optional Boolean | True, če je bila maska odprta, sicer pa je rezultat False. |
Execute
Metoda Execute .
| Method TForm.Execute |
ExecuteList
Metoda ExecuteList .
| Method TForm.ExecuteList (List As TRecordList) | ||
| List | TRecordList | . |
Open
Metoda Open odpre masko za opredeljeno plast. Osnovna lista zapisov je lista filtriranih podatkov (TLayer.FilteredRecords).
| Method TForm.Open |
OpenList
Metoda OpenList odpre masko za opredeljeno plast. Osnovna lista zapisov ni lista filtriranih podatkov, pač pa lista zapisov, definirana z imenom.
| Method TForm.OpenList (List As TRecordList) | ||
| List | TRecordList | TRecordList objekt, ki vsebuje seznam zapisov. |
Skupne lastnosti
Name
Lastnost Name določa ime objekta.
| Property TForm.Name As String | ||
| Result | String | . |
Alias
Lastnost Alias omogoča nastavitev drugega imena objekta tipa TForm. Drugo ime se lahko uporablja pri sklicevanju na ta objekt.
| Property TForm.Alias As String | ||
| Result | String | . |
Comment
Lastnost Comment .
| Property TForm.Comment As String | ||
| Result | String | . |
Parent
Lastnost Parent .
| RO Property TForm.Parent As TLayer | ||
| Result | TLayer | . |
StoredNames
Lastnost StoredNames .
| RO Property TForm.StoredNames As String | ||
| Result | String | . |
Lastnosti maske
AutoCenter
Lastnost AutoCenter .
| Property TForm.AutoCenter As Boolean | ||
| Result | Boolean | . |
FlashObject
Lastnost FlashObject .
| Property TForm.FlashObject As Boolean | ||
| Result | Boolean | . |
GeoVisible
Lastnost GeoVisible .
| Property TForm.GeoVisible As Boolean | ||
| Result | Boolean | . |
GeoWidth
Lastnost GeoWidth .
| Property TForm.GeoWidth As Long | ||
| Result | Long | . |
ShowInsDelButtons
Lastnost ShowInsDelButtons .
| Property TForm.ShowInsDelButtons As Boolean | ||
| Result | Boolean | . |
ViewAs
Lastnost ViewAs .
| Property TForm.ViewAs As Long | ||
| Result | Long | . |
ShowMenu
Lastnost ShowMenu omogoča prikaz ali skritje menijev v maski.
| Property TForm.ShowMenu As Boolean | ||
| Result | Boolean | . |
CurLayer.Form.ShowMenu = TrueShowToolbar
Lastnost ShowToolbar omogoča prikaz ali skritje orodjarne (toolbara) v maski.
| Property TForm.ShowToolbar As Boolean | ||
| Result | Boolean | . |
CurLayer.Form.ShowToolbar = TrueListField1
Lastnost ListField1 .
| Property TForm.ListField1 As TField | ||
| Result | TField | . |
ListField2
Lastnost ListField2 .
| Property TForm.ListField2 As TField | ||
| Result | TField | . |
ListField3
Lastnost ListField3 .
| Property TForm.ListField3 As TField | ||
| Result | TField | . |
ListVisible
Lastnost ListVisible .
| Property TForm.ListVisible As Boolean | ||
| Result | Boolean | . |
ListWidth
Lastnost ListWidth .
| Property TForm.ListWidth As Long | ||
| Result | Long | . |
ControlCount
Lastnost ControlCount .
| RO Property TForm.ControlCount As Long | ||
| Result | Long | . |
Controls
Lastnost Controls .
| RO Property TForm.Controls (Idx As Long) As TFormControl | ||
| Idx | Long | . |
| Result | TFormControl | . |
Skupne metode
Load
Metoda Load naloži predhodno določene maske.
| Method TForm.Load (Name As String) As Boolean | ||
| Name | String | Ime shranjene maske. |
| Result | Optional Boolean | . |
Save
Metoda Save shrani nastavitev objekta TForm.
| Method TForm.Save (Name As String) | ||
| Name | String | Ime maske. |
Clear
Metoda Clear briše vse nastavitve maske v pod objektu TForm za podatkovno plast.
| Method TForm.Clear |
CopyFrom
Metoda CopyFrom .
| Method TForm.CopyFrom (L As TForm) | ||
| L | TForm | . |
Delete
Metoda Delete .
| Method TForm.Delete (Name As String) | ||
| Name | String | . |
DeleteAll
Metoda DeleteAll .
| Method TForm.DeleteAll |
Metode maske
AddRecord
Metoda AddRecord .
| Method TForm.AddRecord As Boolean | ||
| Result | Optional Boolean | . |
Close
Metoda Close zapre aktivno masko in opozori, v primeru, če je prišlo do spremembe v podatkih.
| Method TForm.Close |
[SomeLayer].Form.CloseClose2
Metoda Close2 .
| Method TForm.Close2 |
CurrentDaS
Lastnost CurrentDaS .
| Property TForm.CurrentDaS (F As TField) As Long | ||
| F | TField | . |
| Result | Long | . |
CurrentDataset
Lastnost CurrentDataset .
| Property TForm.CurrentDataset (DasIndex As Long) As Long | ||
| DasIndex | Long | . |
| Result | Long | . |
CurrentRecordIndex
Lastnost CurrentRecordIndex se uporablja za določanje izbranega zapisa v listi zapisov na maski.
| Property TForm.CurrentRecordIndex As Long | ||
| Result | Long | Index izbranega zapisa. Prvi zapis ima index 0. |
//Uporaba na maski na gumbu Naslednji zapis - Ukaz
CurLyr.Form.CurrentRecordIndex = CurLyr.Form.CurrentRecordIndex + 1
//Uporaba na maski na gumbu Naslednji zapis - Aktiven
Result = Assigned (CurLyr.Form.CurrentRecordlist)
If Result Then
Result = CurLyr.Form.CurrentRecordIndex < CurLyr.Form.CurrentRecordlist.Count - 1
EndIf
//Uporaba na maski na gumbu Prejšni zapis - Ukaz
CurLyr.Form.CurrentRecordIndex = CurLyr.Form.CurrentRecordIndex - 1
//Uporaba na maski na gumbu Prejšni zapis - Aktiven
CurLyr.Form.CurrentRecordIndex > 0CurrentRecordlist
Lastnost CurrentRecordlist .
| Property TForm.CurrentRecordlist As TRecordList | ||
| Result | TRecordList | . |
EditRecord
Lastnost EditRecord kaže na trenutni zapis, ki se editira. Lastnost se potrebuje za dostop do polj in ostalih vrednosti za tekoči zapis.
| RO Property TForm.EditRecord As TEditRecord | ||
| Result | TEditRecord | . |
IsOpened
Lastnost IsOpened določa ali je Maska odprta.
| RO Property TForm.IsOpened As Boolean | ||
| Result | Boolean | . |
Hide
Metoda Hide skrije aktivno masko. Medtem lahko uporabnik izvede grafični vnos. Za ponovno aktiviranje vidnosti masko uporabite metodo Show.
| Method TForm.Hide |
Show
Metoda Show pokaže masko, katera je bila predhodno skrita z Hide metodo.
| Method TForm.Show |
SetFocus
Metoda SetFocus .
| Method TForm.SetFocus (F As TField) | ||
| F | TField | . |
Update
Metoda Update osveži vrednosti polj v maski. Ob klicu te metode se tudi ponovno inicializirajo navidezni nizi podatkov, tako da se lahko podatki osvežijo tudi ob spremembi v relaciji.
| Method TForm.Update |
If CurLyr.Form.EditRecord.IsChanged Then
CurLyr.Form.Update
EndIf