-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathCadSensor.dfm
130 lines (130 loc) · 2.47 KB
/
CadSensor.dfm
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
object CSensor: TCSensor
Left = 0
Top = 0
ActiveControl = DBGrid1
BorderStyle = bsDialog
Caption = 'CSensor'
ClientHeight = 396
ClientWidth = 375
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Setor: TLabel
Left = 16
Top = 59
Width = 26
Height = 13
Caption = 'Setor'
end
object Tensão: TLabel
Left = 200
Top = 13
Width = 35
Height = 13
Caption = 'Tens'#227'o'
end
object Sensor: TLabel
Left = 16
Top = 13
Width = 33
Height = 13
Caption = 'Sensor'
end
object Cadastros: TLabel
Left = 152
Top = 113
Width = 49
Height = 13
Caption = 'Cadastros'
end
object DBGrid1: TDBGrid
Left = 8
Top = 191
Width = 353
Height = 197
DataSource = DataSourceSensor
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
object CBRede: TComboBox
Left = 183
Top = 32
Width = 178
Height = 21
Hint = 'Selecione o valor para o calculo'
TabOrder = 1
Text = 'Selecione'
Items.Strings = (
'110'
'220')
end
object EdSetor: TEdit
Left = 16
Top = 32
Width = 153
Height = 21
Hint = 'Nome do setor em que est'#225' o sensor'
TabOrder = 2
end
object EdSensor: TEdit
Left = 16
Top = 78
Width = 153
Height = 21
Hint = 'Nome do Sensor'
TabOrder = 3
end
object Gravar: TBitBtn
Left = 183
Top = 82
Width = 178
Height = 25
Caption = 'Gravar'
TabOrder = 4
OnClick = GravarClick
end
object Pan: TPanel
Left = 8
Top = 131
Width = 353
Height = 41
Caption = 'Pan'
ShowCaption = False
TabOrder = 5
object btnCadEquip: TBitBtn
Left = 10
Top = 8
Width = 153
Height = 25
Caption = 'Cadastrar Equipamentos'
TabOrder = 0
OnClick = btnCadEquipClick
end
object btnCadTipoEquip: TBitBtn
Left = 169
Top = 8
Width = 178
Height = 25
Caption = 'Cadastrar tipos de equipamentos'
TabOrder = 1
OnClick = btnCadTipoEquipClick
end
end
object DataSourceSensor: TDataSource
DataSet = DT_connection.qrySensor
Left = 240
Top = 208
end
end