You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
100 lines
2.2 KiB
100 lines
2.2 KiB
inherited frmDigito9: TfrmDigito9
|
|
Caption = 'D'#237'gito 9'
|
|
ExplicitWidth = 384
|
|
ExplicitHeight = 207
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lbl_tel: TLabel [0]
|
|
Left = 176
|
|
Top = 48
|
|
Width = 3
|
|
Height = 13
|
|
Alignment = taCenter
|
|
end
|
|
object lbl_tel2: TLabel [1]
|
|
Left = 192
|
|
Top = 112
|
|
Width = 3
|
|
Height = 13
|
|
Alignment = taCenter
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 8
|
|
Top = 80
|
|
Width = 362
|
|
Height = 17
|
|
TabOrder = 1
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 34
|
|
Top = 131
|
|
Width = 320
|
|
Height = 14
|
|
DataSource = dtsTelefones
|
|
TabOrder = 2
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Visible = False
|
|
end
|
|
object dtsTelefones: TDataSource
|
|
DataSet = qryTelefones
|
|
Left = 320
|
|
Top = 24
|
|
end
|
|
object Timer1: TTimer
|
|
Interval = 1
|
|
OnTimer = Timer1Timer
|
|
Left = 8
|
|
Top = 8
|
|
end
|
|
object qryTelefones: TZQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select * from chg_telefones'
|
|
'where'
|
|
'nr_numero similar to '#39'[6-9]%'#39)
|
|
Params = <>
|
|
Left = 232
|
|
Top = 24
|
|
object qryTelefonesID_TELEFONE: TIntegerField
|
|
FieldName = 'ID_TELEFONE'
|
|
Required = True
|
|
end
|
|
object qryTelefonesID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object qryTelefonesNR_DDD: TWideStringField
|
|
FieldName = 'NR_DDD'
|
|
Size = 4
|
|
end
|
|
object qryTelefonesNR_NUMERO: TWideStringField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object qryTelefonesTP_ATIVO: TWideStringField
|
|
FieldName = 'TP_ATIVO'
|
|
Size = 1
|
|
end
|
|
object qryTelefonesTP_TIPOTEL: TWideStringField
|
|
FieldName = 'TP_TIPOTEL'
|
|
Size = 1
|
|
end
|
|
object qryTelefonesTX_DESC: TWideStringField
|
|
FieldName = 'TX_DESC'
|
|
Size = 100
|
|
end
|
|
object qryTelefonesTX_OBS: TWideMemoField
|
|
FieldName = 'TX_OBS'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object qryTelefonesID_ULTIMO_USUARIO: TIntegerField
|
|
FieldName = 'ID_ULTIMO_USUARIO'
|
|
end
|
|
object qryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField
|
|
FieldName = 'DT_HORA_ULTIMA_ATT'
|
|
end
|
|
end
|
|
end
|