-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmenucadastrocategoria.lfm
158 lines (158 loc) · 4.19 KB
/
menucadastrocategoria.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
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
inherited menuCadastroCategoriaF: TmenuCadastroCategoriaF
Left = 532
Top = 87
Caption = 'Categorias de Produtos'
OnClose = FormClose
OnShow = FormShow
inherited pgControl: TPageControl
ActivePage = tbCadastrar
TabIndex = 1
inherited tbPesquisar: TTabSheet
ClientHeight = 740
inherited tPanelPesquisarBotton: TPanel
Top = 640
Color = clInactiveCaption
ParentBackground = False
ParentColor = False
TabOrder = 1
inherited btnNovo: TBitBtn
OnClick = btnNovoClick
end
inherited btnFechar: TBitBtn
OnClick = btnFecharClick
TabOrder = 3
end
inherited btnEditar: TBitBtn
OnClick = btnEditarClick
ParentFont = True
TabOrder = 1
end
inherited btnImprimir: TBitBtn
OnClick = btnImprimirClick
ParentFont = True
TabOrder = 2
end
end
inherited DBGrid1: TDBGrid
Height = 540
Color = clMenuBar
Columns = <
item
Alignment = taCenter
PickList.Strings = ( )
Title.Alignment = taCenter
Title.Color = clTeal
Title.Caption = 'ID'
Width = 820
FieldName = 'categoriaprodutoid'
end
item
Alignment = taCenter
PickList.Strings = ( )
Title.Alignment = taCenter
Title.Color = clTeal
Title.Caption = 'DESCRIÇÃO'
Width = 1100
FieldName = 'ds_categoria_produto'
end>
DataSource = dataBaseConectionF.dsCategory
TabOrder = 2
end
inherited tPanelPesquisarTop: TPanel
Color = clInactiveCaption
ParentBackground = False
ParentColor = False
TabOrder = 0
inherited btnPesquisar: TBitBtn
Left = 416
Top = 32
OnClick = btnPesquisarClick
TabOrder = 2
end
object cbPesquisa: TComboBox[2]
Left = 100
Height = 23
Top = 40
Width = 100
Color = clCream
ItemHeight = 15
Items.Strings = (
'NOME'
'ID'
'CPF'
)
TabOrder = 0
Text = 'SELECIONE'
end
object edtPesquisar: TEdit[3]
Left = 208
Height = 23
Top = 40
Width = 192
Alignment = taCenter
Color = clCream
TabOrder = 1
end
end
end
inherited tbCadastrar: TTabSheet
ClientHeight = 740
inherited tPanelCadastroBotton: TPanel
Top = 640
Color = clInactiveCaption
ParentBackground = False
ParentColor = False
TabOrder = 2
inherited btnGravar: TBitBtn
OnClick = btnGravarClick
end
inherited btnExcluir: TBitBtn
OnClick = btnExcluirClick
end
inherited btnCancel: TBitBtn
OnClick = btnCancelClick
end
end
object lbCadCadCatId: TLabel[2]
Left = 128
Height = 15
Top = 68
Width = 11
Caption = 'ID'
end
object lbCadCadCatDesc: TLabel[3]
Left = 76
Height = 15
Top = 124
Width = 67
Caption = 'DESCRIÇÃO'
end
object edtIdCategoriaProduto: TDBEdit[4]
Left = 150
Height = 23
Top = 64
Width = 72
DataField = 'categoriaprodutoid'
DataSource = dataBaseConectionF.dsCategory
ReadOnly = True
Alignment = taCenter
Color = clCream
Enabled = False
MaxLength = 0
TabOrder = 0
end
object edtDescCategoriaProduto: TDBEdit[5]
Left = 150
Height = 23
Top = 120
Width = 752
DataField = 'ds_categoria_produto'
DataSource = dataBaseConectionF.dsCategory
Alignment = taCenter
Color = clCream
MaxLength = 0
TabOrder = 1
end
end
end
end