marcio.theis
Membros-
Total de itens
9 -
Registro em
-
Última visita
Tudo que marcio.theis postou
-
Podeia me dar um exemplo de configuração qualquer só para eu pegar uma base? Mesmo assim muito obrigado pela ajuda! Claro, fiz um pequeno exemplo... Pode baixar neste link...
-
Outra forma seria usando um arquivo UDL, é um arquivo externo a sua aplicação, nele pode fazer a configuração de acesso, podendo somente informar banco.mdb ou então pasta\banco.mdb, precisando apenas colocar no seu ConnectioString o valor de FILE NAME=Nome_Arquivo.udl
-
Você poderia fazer um controle sobre a data do sistema, sendo que quando acessar o programa você armazena a data do sistema, quando for logar novamente, se a data do sistema for inferior a última armazenada, gera mensagem informando e bloqueia o sistema, desta forma não adianta retroceder a data, pois você vai ter armazenado no seu sistema qual foi o último acesso, onde que somente com data igual ou superior se pode acessar...
-
Provavelmente você deve de ter uma tela de login, basta colocar um item de menu, e quando o usuário acessar, chama a tela de menu deixando sobre o form principal, obrigando assim informar a senha para acessar...
-
(Resolvido) Pesquisa Usando Max, Pesquisar Nome Com Maior Codigo&
pergunta respondeu ao José Rodrigo de marcio.theis em Delphi, Kylix
Tente fazer um where sobre a query pelo nome, restringindo diretamente, algo como: qr_pesquisa.Close; qr_pesquisa.SQL.Clear; dbgrid1.DataSource := ds_pesquisa; qr_pesquisa.SQL.Add('select MAX(Cod) MAXCod, Nome'); qr_pesquisa.SQL.Add('FROM tb_teste'); qr_pesquisa.SQL.Add('where nome = '''+edit1.text+''''); qr_pesquisa.Open; ShowMessage('Código do Cliente: ' + qr_pesquisa.FieldByName('MAXCod').AsString + ' / Nome do Cliente: ' + qr_pesquisa.FieldByName('Nome').AsString); -
Icone No Tray Ao Lado Do Relógio (delphi)
pergunta respondeu ao gsguma de marcio.theis em Delphi, Kylix
Na procedure CriaIcone() você tem a seguinte linha: Application.ShowMainForm:= False; Basta remover a mesma que vai funcionar... -
Dependendo do seu BD, pode usar o UPPER sobre os campos e AnsiUpperCase() no campo a consultar no delphi, fazendo algo desta forma: procedure TfrmConsultaDVD.btGenClick(Sender: TObject); begin qrDVD.Close; qrDVD.SQL.Clear; qrDVD.SQL.Add('Select *'); qrDVD.SQL.Add('From DVD'); qrDVD.SQL.Add('Where upper(GenDVD) = :pGen'); qrDVD.Params[0].AsString := AnsiUpperCase(edtGen.Text); qrDvd.Open; end; Se quiser, pode ainda fazer: procedure TfrmConsultaDVD.btGenClick(Sender: TObject); begin qrDVD.Close; qrDVD.SQL.Clear; qrDVD.SQL.Add('Select *'); qrDVD.SQL.Add('From DVD'); qrDVD.SQL.Add('Where upper(GenDVD) = ''' + AnsiUpperCase(edtGen.Text) + ''''); qrDvd.Open; end; Seria interessante o uso de Like nesta sua pesquisa, podendo assim pesquisar somente por partes do títulos... procedure TfrmConsultaDVD.btGenClick(Sender: TObject); begin qrDVD.Close; qrDVD.SQL.Clear; qrDVD.SQL.Add('Select *'); qrDVD.SQL.Add('From DVD'); qrDVD.SQL.Add('Where upper(GenDVD) like ''%' + AnsiUpperCase(edtGen.Text) + '%'''); qrDvd.Open; end;
-
Como Gerar Codigo De Barras No Delphi?
pergunta respondeu ao Se você esta contente.... de marcio.theis em Delphi, Kylix
Uma das formas mais simples é usando componentes, tem um pacote chamado CJVBarCode, pode ver neste site mais sobre, fica muito simples a geração dos códigos de barras... -
[resolvido]opendialog (nome Do Arquivo, Tamanho)
pergunta respondeu ao schaukoski de marcio.theis em Delphi, Kylix
Com um pouco mais de informação sobre o arquivo: procedure TForm1.BitBtn1Click(Sender: TObject); var info: string; function TamanhoArquivo(arquivo: string): string; const KBYTE = SizeOf(Byte) shl 10; begin with TFileStream.Create(arquivo, fmOpenRead or fmShareExclusive) do try Result:=FloatToStrF(Size / KBYTE,ffNumber,6,2); finally Free; end; end; begin if OpenDialog1.Execute then begin info:='Caminho do Arquivo: ' + OpenDialog1.FileName + #13; info:=info + 'Nome do Arquivo: ' + ExtractFileName(OpenDialog1.FileName) + #13; info:=info + 'Tamanho do Arquivo: ' + TamanhoArquivo(OpenDialog1.FileName) + ' kb'; ShowMessage(info); end; end;