[(Resolvido) Delphi E Acess]

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

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

[(Resolvido) Delphi E Acess]

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

[Bloquear O Sistema Por Data]

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

[Criar Um Logoff]

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&]

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

Na procedure CriaIcone() você tem a seguinte linha:

Application.ShowMainForm:= False;

Basta remover a mesma que vai funcionar...

[Duvida Com Pesquisa]

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?]

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

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;