文件名称:Compras
- 所属分类:
- Dephi控件源码
- 资源属性:
- [Dephi] [Pascal] [源码]
- 上传时间:
- 2012-11-26
- 文件大小:
- 15kb
- 下载次数:
- 0次
- 提 供 者:
- rodrig*******
- 相关连接:
- 无
- 下载说明:
- 别用迅雷下载,失败请重下,重下不扣分!
介绍说明--下载内容均来自于网络,请自行研究使用
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