marcio.theis

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...

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);

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;

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...

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;