文件名称:Compras
-
所属分类：
- 标签属性：
- 上传时间：2012-11-16
-
文件大小：14.52kb
-
已下载：0次
-
提 供 者：
-
相关连接：无下载说明：别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容来自于网络，使用问题请自行百度
procedure TTelaPGTipoConta.FormKeyPress(Sender: TObject var Key: Char)
begin
if (Key = #13) then // Se a tecla for <enter>
begin
if (ActiveControl is TwwDBGrid) then { if it is a TDBGrid }
with TwwDBGrid(ActiveControl) do
begin
if (selectedindex < (fieldCount - 1)) then { increment the field }
Begin
selectedindex := selectedindex + 1 // Sempre incrementa, menos no Abort
Key := #0
end
else
begin
DataSource.Dataset.append // Cria novo registro no DB do Grid
selectedindex := 0 // Foco no 1o. registro do grid
Key := #0
end
end
end
end -procedure TTelaPGTipoConta.FormKeyPress(Sender: TObject var Key: Char)
begin
if (Key = #13) then // Se a tecla for <enter>
begin
if (ActiveControl is TwwDBGrid) then { if it is a TDBGrid }
with TwwDBGrid(ActiveControl) do
begin
if (selectedindex < (fieldCount - 1)) then { increment the field }
Begin
selectedindex := selectedindex + 1 // Sempre incrementa, menos no Abort
Key := #0
end
else
begin
DataSource.Dataset.append // Cria novo registro no DB do Grid
selectedindex := 0 // Foco no 1o. registro do grid
Key := #0
end
end
end
end
begin
if (Key = #13) then // Se a tecla for <enter>
begin
if (ActiveControl is TwwDBGrid) then { if it is a TDBGrid }
with TwwDBGrid(ActiveControl) do
begin
if (selectedindex < (fieldCount - 1)) then { increment the field }
Begin
selectedindex := selectedindex + 1 // Sempre incrementa, menos no Abort
Key := #0
end
else
begin
DataSource.Dataset.append // Cria novo registro no DB do Grid
selectedindex := 0 // Foco no 1o. registro do grid
Key := #0
end
end
end
end -procedure TTelaPGTipoConta.FormKeyPress(Sender: TObject var Key: Char)
begin
if (Key = #13) then // Se a tecla for <enter>
begin
if (ActiveControl is TwwDBGrid) then { if it is a TDBGrid }
with TwwDBGrid(ActiveControl) do
begin
if (selectedindex < (fieldCount - 1)) then { increment the field }
Begin
selectedindex := selectedindex + 1 // Sempre incrementa, menos no Abort
Key := #0
end
else
begin
DataSource.Dataset.append // Cria novo registro no DB do Grid
selectedindex := 0 // Foco no 1o. registro do grid
Key := #0
end
end
end
end
(系统自动生成,下载前可以参看下载内容)
下载文件列表
QComprasAquisicaoTerc.pas
QComprasDetalhes.pas
dataCompras.pas
QCompras_ProMinimo.pas
QComprasAberto.pas
QComprasDetalhes.pas
dataCompras.pas
QCompras_ProMinimo.pas
QComprasAberto.pas
本网站为编程资源及源代码搜集、介绍的搜索网站，版权归原作者所有！ 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.