📄 principal.dfm
字号:
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 264
Width = 51
Height = 13
Caption = 'Anota'#231#245'es'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton29: TSpeedButton
Left = 10
Top = 372
Width = 90
Height = 27
Caption = 'Novo'
Flat = True
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FFFFFF000000
7F90BFB0CFFF303F3FD0F0FF9FB0BF6F7F7F6F7F7F9FB0BF6F7F7F7F90BFB0CF
FF8FA0BF000000FFFFFFFFFFFFFFFFFF00000040507F303F3F9FB0BF0000006F
7F7F303F3F6F7F7F9FB0BF202F3F303F3F000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF0000006F7F7F303F3F9FB0BFD0F0FFD0F0FF303F3F6F7F7F000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF303F3F6F7F7FD0F0FFD0
F0FF9FB0BF9FB0FF303F3F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF000000D0F0FFD0F0FF6F7F7F3F3F3F9FB0BF6F7F7F000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000009FB0BFD0F0FFD0F0FF00
00009FB0BFD0F0FFD0F0FF303F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
0000006F7F7FC0DFFF6F7F7FC0DFFF5F607F8FA0BF8FA0BF8FA0BFD0F0FF0000
00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000006F7F7F6F7F7F000000202F3FD0
F0FFD0F0FF0000000000007F90BF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
303F3F9FB0BF6F7F7F0000000000005F607F303F3F00000000000040507F6F7F
7F000000FFFFFFFFFFFFFFFFFFFFFFFF303F3F6F7F7F9FB0BF0000000000006F
7F7F6F7F7F0000000000009FB0BF303F3F000000FFFFFFFFFFFFFFFFFFFFFFFF
000000303F3FD0F0FF8FA0BF6F7F7F6F7F7F6F7F7F6F7F7F8FA0BF6F7F7F0000
00000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000D0F0FF6F7F7F6F7F7F6F
7F7F6F7F7F9FB0BFD0F0FF6F7F7F000000000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000000000000000000000000000000000303F3F303F3F0000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000
0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF000000202020505050000000000000000000000000202020000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000060606060
60607F7F7F606060000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
OnClick = SpeedButton29Click
end
object SpeedButton30: TSpeedButton
Left = 128
Top = 372
Width = 90
Height = 27
Caption = 'Salvar'
Flat = True
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FFFFFF9F9F9F
8040404040404040404040404040404040404040404040404040404040406040
408040409F5F5FDFBFBF8060608020208000008060608040408040409F9F9F80
8080808080808080808080808080804040800000800000BF7F7F804040800000
800000804040800000800000BFBFBF8080808080808080808080808080808040
40800000800000BF7F7F804040800000800000804040800000800000BFBFBF80
8080808080808080808080808080804040800000800000BF7F7F804040800000
8000008040408040408040409F9F9F8080808080808080808080808080808020
20800000800000BF7F7F80404080000080000080000080000080000080000080
0000800000800000800000800000800000800000800000BF7F7F804040800000
8000004000004000004000004000004000004000004000004000004000004000
00800000800000BF7F7F804040800000400000FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF400000800000BF7F7F804040800000
400000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF400000800000BF7F7F804040800000400000FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF400000800000BF7F7F804040800000
400000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF400000800000BF7F7F804040800000400000BFBFBF7F7F7FBFBFBFBFBFBFFF
FFFFFFFFFFBFBFBFBFBFBF7F7F7FBFBFBF400000800000BF7F7F804040400000
400000FFFFFFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FFFFFFFFFFFFFBFBFBFBFBF
BF400000800000BF7F7F8040405F5F5F4000007FBFBF7FFFFF3F7F7F7FBFBF3F
BFBF3FBFBF7FBFBF7FBFBF7FFFFF3F7F7F400000800000BF7F7FBF7F7F800000
40000000FFFF007F7F00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF007F7F00FF
FF400000800000BF7F7FFFFFFFBF7F7F9F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F9F7F7FBF7F7FFFFFFF}
OnClick = SpeedButton30Click
end
object SpeedButton31: TSpeedButton
Left = 246
Top = 372
Width = 90
Height = 27
Caption = 'Excluir'
Flat = True
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF404040606060808080808080808080606060404040FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF20202020206020209F0000BF00
00BF0000BF20209F404080808080606060202020FFFFFFFFFFFFFFFFFFFFFFFF
00002020209F0000FF0000FF0000FF0000FF0000FF0000FF0000FF20209F6060
80808080202020FFFFFFFFFFFF0000200000DF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000DF606080606060FFFFFFFFFFFF00007F
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF20209F8080804040400000400000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FF0000FF40408060606000007F0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF20209F8080800000BF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000BF8080800000BF0000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF0000FF0000BF8080800000BF0000FF7F7FFF7F7FFF7F7FFF7F7FFF7F7FFF7F
7FFF7F7FFF7F7FFF7F7FFF7F7FFF7F7FFF0000FF0000BF60606000007F0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF20209F4040400000400000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FF0000FF202060FFFFFFFFFFFF00007F
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF20209F202020FFFFFFFFFFFF0000200000DF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000DF000020FFFFFFFFFFFFFFFFFFFFFFFF
00002000007F0000FF0000FF0000FF0000FF0000FF0000FF0000FF00007F0000
20FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00004000007F0000BF00
00BF0000BF00007F000040FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
end
object lblOperacao: TLabel
Left = 200
Top = 16
Width = 18
Height = 13
Caption = '000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object lblIdContato: TLabel
Left = 48
Top = 24
Width = 56
Height = 13
Caption = 'lblIdContato'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object edtNome: TEdit
Left = 8
Top = 40
Width = 327
Height = 21
CharCase = ecUpperCase
TabOrder = 0
end
object edtEmpresa: TEdit
Left = 8
Top = 88
Width = 327
Height = 21
CharCase = ecUpperCase
TabOrder = 1
end
object edtTelefone1: TEdit
Left = 8
Top = 136
Width = 129
Height = 21
TabOrder = 2
end
object edtTelefone2: TEdit
Left = 8
Top = 184
Width = 129
Height = 21
TabOrder = 4
end
object edtTelefone3: TEdit
Left = 8
Top = 232
Width = 129
Height = 21
TabOrder = 6
end
object memAnotacoes: TMemo
Left = 8
Top = 280
Width = 327
Height = 81
TabOrder = 8
end
object cmbTipo1: TComboBox
Left = 139
Top = 136
Width = 140
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 3
Items.Strings = (
'Residencial'
'Comercial'
'Celular'
'Recado')
end
object cmbTipo2: TComboBox
Left = 139
Top = 184
Width = 140
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 5
Items.Strings = (
'Residencial'
'Comercial'
'Celular'
'Recado')
end
object cmbTipo3: TComboBox
Left = 139
Top = 232
Width = 140
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 7
Items.Strings = (
'Residencial'
'Comercial'
'Celular'
'Recado')
end
object DBEdit1: TDBEdit
Left = 128
Top = 16
Width = 65
Height = 21
DataField = 'IdContato'
DataSource = dsContatos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
Visible = False
OnChange = DBEdit1Change
end
end
object GroupBox3: TGroupBox
Left = 8
Top = 72
Width = 329
Height = 128
Caption = ' Busca '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Label4: TLabel
Left = 8
Top = 56
Width = 144
Height = 13
Caption = 'Digite aqui a palavra de busca'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton28: TSpeedButton
Left = 232
Top = 16
Width = 89
Height = 27
Caption = 'Localizar'
Flat = True
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF2000007F3F003F00
00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF50505060606060606060606060
6060606060503030DF3F00FFBF007F0000606060606060000000FFFFFFFFFFFF
FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFFFFFFFDFBFBFDF3F00FFBF00BF00007F7F
7FFFFFFFDFDFDF000000FFFFFFFFFFFFFFFFFFBFBFBFFFFFFFDFDFDFDFDFDFCF
AFAFDF3F00FFBF00BF0000707070EFEFEFFFFFFFDFDFDF000000FFFFFFFFFFFF
FFFFFFBFBFBFFFFFFFDFDFDFCFCFCFDF3F00FFBF00BF0000707070DFDFDFEFEF
EFFFFFFFDFDFDF000000FFFFFFFFFFFF0000005F5F5F7F7F7F9F9F9FBFBFBFCF
CF8FBF0000707070DFDFDFDFDFDFEFEFEFFFFFFFDFDFDF000000FFFFFF505050
8F8F30AFAF30AFAF307F7F00505030606060707070DFDFDFDFDFDFDFDFDFEFEF
EFFFFFFFDFDFDF000000404040EFEF6FDFDF9FDFDF60BFBF80AFAF709F9F0040
4040DFDFDFDFDFDFDFDFDFDFDFDFEFEFEFFFFFFFDFDFDF000000BFBF7FFFFF7F
DFDF9FDFDF60BFBF80AFAF70AFAF70404000AFAFAFDFDFDFDFDFDFDFDFDFEFEF
EFFFFFFFDFDFDF000000BFBF7FFFFF7FDFDFDFDFDF60BFBF80AFAF70AFAF7040
4000AFAFAFDFDFDFDFDFDFDFDFDFEFEFEFFFFFFFDFDFDF0000007F7F40FFFF7F
DFDFDFDFDF60DFDF60DFDF60DFDF60404020CFCFCFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFDFDFDF000000202020DFDF9FDFDF9FFFFF7FDFDF60DFDF6070703070
7070DFDFDFDFDFDFFFFFFFFFFFFFFFFFFFFFFFFFDFDFDF000000FFFFFF202020
707070BFBF7FBFBF7F5F5F5F8F8F8FFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF7F7F
7F6F6F6F202020000000FFFFFFFFFFFFFFFFFFBFBFBFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFBFBFBFEFEFEF707070000000FFFFFFFFFFFFFFFFFF
FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF7070
70000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9F9F9FBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBF9F9F9F000000FFFFFFFFFFFFFFFFFF}
OnClick = SpeedButton28Click
end
object rdbNome: TRadioButton
Left = 8
Top = 24
Width = 55
Height = 17
Caption = 'Nome'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
end
object rdbEmpresa: TRadioButton
Left = 80
Top = 24
Width = 66
Height = 17
Caption = 'Empresa'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object edtBusca: TEdit
Left = 8
Top = 72
Width = 313
Height = 21
CharCase = ecUpperCase
TabOrder = 2
end
object chkBuscaInicio: TCheckBox
Left = 8
Top = 104
Width = 241
Height = 17
Caption = 'Buscar em qualquer parte da palavra'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
object GroupBox4: TGroupBox
Left = 8
Top = 224
Width = 329
Height = 255
Caption = ' Lista de Contatos '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object gridLista: TDBGrid
Left = 8
Top = 24
Width = 313
Height = 222
Color = clInfoBk
DataSource = dsContatos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'Nome'
Width = 148
Visible = True
end
item
Expanded = False
FieldName = 'Empresa'
Width = 138
Visible = True
end>
end
end
object Database1: TDatabase
DatabaseName = 'AgendaDC'
DriverName = 'STANDARD'
LoginPrompt = False
Params.Strings = (
'PATH=C:\Arquivos de programas\DCTecnologia\AgendaTelefonica'
'DEFAULT DRIVER=PARADOX'
'ENABLE BCD=FALSE')
SessionName = 'Default'
Left = 640
Top = 64
end
object qryContatos: TQuery
DatabaseName = 'AgendaDC'
SQL.Strings = (
'SELECT * FROM Contatos'
'ORDER BY Nome')
Left = 144
Top = 208
object qryContatosIdContato: TIntegerField
FieldName = 'IdContato'
Origin = 'AGENDADC."Contatos.DB".IdContato'
end
object qryContatosNome: TStringField
FieldName = 'Nome'
Origin = 'AGENDADC."Contatos.DB".Nome'
Size = 50
end
object qryContatosEmpresa: TStringField
FieldName = 'Empresa'
Origin = 'AGENDADC."Contatos.DB".Empresa'
Size = 50
end
object qryContatosTelefone1: TStringField
FieldName = 'Telefone1'
Origin = 'AGENDADC."Contatos.DB".Telefone1'
Size = 15
end
object qryContatosTipo1: TStringField
FieldName = 'Tipo1'
Origin = 'AGENDADC."Contatos.DB".Tipo1'
Size = 15
end
object qryContatosTelefone2: TStringField
FieldName = 'Telefone2'
Origin = 'AGENDADC."Contatos.DB".Telefone2'
Size = 15
end
object qryContatosTipo2: TStringField
FieldName = 'Tipo2'
Origin = 'AGENDADC."Contatos.DB".Tipo2'
Size = 15
end
object qryContatosTelefone3: TStringField
FieldName = 'Telefone3'
Origin = 'AGENDADC."Contatos.DB".Telefone3'
Size = 15
end
object qryContatosTipo3: TStringField
FieldName = 'Tipo3'
Origin = 'AGENDADC."Contatos.DB".Tipo3'
Size = 15
end
object qryContatosAnotacao: TMemoField
FieldName = 'Anotacao'
Origin = 'AGENDADC."Contatos.DB".Anotacao'
BlobType = ftMemo
Size = 10
end
end
object qryExecucao: TQuery
DatabaseName = 'AgendaDC'
SQL.Strings = (
'SELECT * FROM Contatos')
Left = 648
Top = 200
end
object dsContatos: TDataSource
DataSet = qryContatos
Left = 216
Top = 208
end
object XPManifest1: TXPManifest
Left = 504
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -