-
Notifications
You must be signed in to change notification settings - Fork 0
/
editdatafullrec.lfm
71 lines (71 loc) · 1.5 KB
/
editdatafullrec.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
object fmEditDataFullRec: TfmEditDataFullRec
Left = 503
Height = 300
Top = 246
Width = 593
ActiveControl = bbSave
Caption = 'Edit Data Full Record'
ClientHeight = 300
ClientWidth = 593
OnClose = FormClose
Position = poScreenCenter
LCLVersion = '1.2.6.0'
object Label1: TLabel
Left = 258
Height = 16
Top = 27
Width = 59
Caption = 'Record #'
ParentColor = False
end
object laPos: TLabel
Left = 326
Height = 16
Top = 27
Width = 9
Caption = '0'
Font.Color = 11610912
ParentColor = False
ParentFont = False
end
object DBNavigator1: TDBNavigator
Left = 8
Height = 25
Top = 16
Width = 241
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 25
ClientWidth = 241
DataSource = Datasource1
Options = []
TabOrder = 0
end
object bbSave: TBitBtn
Left = 493
Height = 30
Top = 16
Width = 75
Caption = 'Save'
OnClick = bbSaveClick
TabOrder = 1
end
object Datasource1: TDataSource
DataSet = sqEditTable
left = 408
top = 128
end
object sqEditTable: TSQLQuery
FieldDefs = <>
AutoCalcFields = False
AfterScroll = sqEditTableAfterScroll
Params = <>
left = 385
top = 48
end
end