Campo com Tamanho certo
16/08/2004
0
Ai galera tenho este seguinte código.
Quando eu digito o ANO ele verifica se ja existe, se existir ele da o aviso e que existe e da o focu no editdiv.text se não ele gera o ano, so que ele se eu por imcompleto tipo 200 ele gera dívida com ano 200, quero que ele so aceite se estiver co os quatro dígitos nem mais nem menos.
Quero que ele so aceite se for assim com o 4 dígitos 2004.
var
i : integer;
ano : integer;
begin
if querydivida.Locate(´ANO´, anodiv.Text, [lopartialkey, locaseinsensitive]) then
begin
ShowMessage(´Ano ja Cálculado´);
anodiv.SetFocus;
end
else
begin
ano := strtoint(anodiv.text);
FrmCadastro.ADOQueryClientes.open;
FrmCadastro.ADOQueryClientes.first;
while not FrmCadastro.ADOQueryClientes.eof do
begin
for i := 1 to 12 do
begin
querydivida.insert;
querydividaANO.Value := (ano);
querydividaCOD_CLI.value := FrmCadastro.ADOQueryClientesCOD_CLI.value;
querydividaTAXA.value := FrmCadastro.ADOQueryClientesTAXA_CLI.value;
querydividaMES.value := i ;
querydivida.post; // grave da forma que achar melhor
// etc...
end;
FrmCadastro.ADOQueryClientes.next;
end;
end;
end;
Quando eu digito o ANO ele verifica se ja existe, se existir ele da o aviso e que existe e da o focu no editdiv.text se não ele gera o ano, so que ele se eu por imcompleto tipo 200 ele gera dívida com ano 200, quero que ele so aceite se estiver co os quatro dígitos nem mais nem menos.
Quero que ele so aceite se for assim com o 4 dígitos 2004.
var
i : integer;
ano : integer;
begin
if querydivida.Locate(´ANO´, anodiv.Text, [lopartialkey, locaseinsensitive]) then
begin
ShowMessage(´Ano ja Cálculado´);
anodiv.SetFocus;
end
else
begin
ano := strtoint(anodiv.text);
FrmCadastro.ADOQueryClientes.open;
FrmCadastro.ADOQueryClientes.first;
while not FrmCadastro.ADOQueryClientes.eof do
begin
for i := 1 to 12 do
begin
querydivida.insert;
querydividaANO.Value := (ano);
querydividaCOD_CLI.value := FrmCadastro.ADOQueryClientesCOD_CLI.value;
querydividaTAXA.value := FrmCadastro.ADOQueryClientesTAXA_CLI.value;
querydividaMES.value := i ;
querydivida.post; // grave da forma que achar melhor
// etc...
end;
FrmCadastro.ADOQueryClientes.next;
end;
end;
end;
Uoquisala
Curtir tópico
+ 0
Responder
Posts
16/08/2004
Weber
If (StrToInt(Trim(editdiv.text)) < 1900) and (StrToInt(Trim(editdiv.text)) > 2100) then ShowMessage(´Ano inválido´);
Responder
Clique aqui para fazer login e interagir na Comunidade :)