DELPHI 7 - SISTEMA DE SENHAS PARA FILAS
Queria fazer um sistema de filas simples, que desse pra eu usar no quick report, aperta o botão, gera a senha 1 e assim consecutivamente até o 999 e um botão que reseta as senhas, se precisar de db gostaria que fosse acess, E NÂO TENHO IDEIA DE COMO COMEÇAR ISSO TUDO
Herlei Rodrigues
Curtidas 0
Respostas
Ricardo
11/11/2014
Não entendi. Você quer desenvolver ou contratar para desenvolver?
GOSTEI 0
Ricardo
11/11/2014
Não entendi. Você mesmo vai desenvolver ou contratar para desenvolver?
GOSTEI 0
Herlei Rodrigues
11/11/2014
eu gostaria de fazer, tou desenvolvendo um sistema de fastfood e preciso gerar as senhas dos pedidos, me falaram pra usar senha++;
GOSTEI 0
Ricardo
11/11/2014
Seguem um exemplo com dois botões e dois labels. Basta desenvolver o ticket em alguma ferramenta de relatórios e implementar o que achar necessário.
Quanto a usar um banco de dados não vejo a real necessidade, a não ser que seja algo como um agendamento etc...
Quanto a usar um banco de dados não vejo a real necessidade, a não ser que seja algo como um agendamento etc...
var
Form1: TForm1;
senha : Integer = 0;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
senha := senha + 1;
if senha > 10 then
begin
ShowMessage('Senha no limite(999)!');
abort;
end
else
Label2.Caption := FormatFloat('000', senha);;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
senha := 0;
Label2.Caption := FormatFloat('000', senha);
end;GOSTEI 0
Ricardo
11/11/2014
Somente para testar eu usei a linha:
if senha > 10 then
altere para 999
if senha > 10 then
altere para 999
GOSTEI 0
Herlei Rodrigues
11/11/2014
E se eu quisesse usar uma senha dessa no quick report teria jeito ?
GOSTEI 0
Herlei Rodrigues
11/11/2014
Por exemplo eu colocar o valor da label no quick report, apareceria a senha que foi gerada ?
GOSTEI 0
Ricardo
11/11/2014
Sim basta você passar o valor da variável para o QRLabel.
Exemplo:
QrRep.QrLabel.caption : = formatfloat('000', senha);
Exemplo:
QrRep.QrLabel.caption : = formatfloat('000', senha);
GOSTEI 0
Herlei Rodrigues
11/11/2014
puts cara, muito obrigado, exatamente oque faltava, muito obrigado mesmo de coração
GOSTEI 0
Ricardo
11/11/2014
Ficou de acordo? Qualquer coisa só postar que alguém ou até eu mesmo podemos ajudar.
GOSTEI 0
Herlei Rodrigues
11/11/2014
Ficou perfeito, serio mesmo, agora só tou apanhando pra relacionar as tabelas e fazer ela salvar na tabela geral, mais isso dou um jeito kkk'
GOSTEI 0
Herlei Rodrigues
11/11/2014
me confundo muito na parte de caixa, porque alem de salvar tem que ficar tudo sepadado pra impressão, dai me confundo na assosiação das db UEHAUSEHUSE'
GOSTEI 0
Ricardo
11/11/2014
Mas qual seria a razão de armazenar essas senhas em um BD?
GOSTEI 0
Herlei Rodrigues
11/11/2014
não, era noia minha, fiquei muito tempo pensando nisso e acabei fritando na batatinha.
GOSTEI 0
Control Ltda
11/11/2014
Certo Ricardo, e se essa senha precisasse ser exibida num painel de chamadas, você tem algo em mente pra isso? Usaria sockets?
GOSTEI 0