Vivendo&Aprendendo

Olá pessoal Tenho duas tabelas (Historico e Disciplinas) em meu banco de dados (Access) e preciso fazer um relatório da seguinte maneira. - Gerar um relatório pelo nome do Aluno; - Mostrar apenas as matérias que este aluno ainda não fez; Aguardo alguma ajuda. Obrigado

me add ai no MSN: aslalexandre@hotmail.com

Eu uso da seguinte forma: tenho todos os forms em uma tabela e em um form de cadastro de usuários eu atribuo qual tela o usuário terá acesso gravando TRUE para sim e FALSE para caso ele não ter acesso. E ao entrar no sistema faço uma verificação desabilitando o item do menu (Menu.Enabled := False) ou (Menu.Visible := False). Basicamente é isso Abraço

Vá na Unit do projeto (.dpr) e antes da linha Application.Run que chama o form de login coloque O_FORM_DO_LOGIN.ShowModal; Abraço

Olá... Para copiar a foto use este código no seu botão buscar foto: Coloque no uses: ShellApi { - Coloque um botão no form e altere o evento OnClick deste botão conforme abaixo:} procedure TForm1.Button1Click(Sender: TObject); var Dados: TSHFileOpStruct; begin FillChar(Dados,SizeOf(Dados), 0); with Dados do begin wFunc := FO_COPY; pFrom := PChar('c:\teste\*.txt'); pTo := PChar('a:\'); fFlags:= FOF_ALLOWUNDO; end; SHFileOperation(Dados); end; Você deve alterar o código para que busque a imagem no local certo e salve na sua pasta. Para salvar somente o caminho no banco, supondo que você use ADO, e que a tabela e o campo já estejam criados, faça assim... OpenPictureDialog.Execute; TABELA.EDIT; TABELA_CAMPO.Value := OpenPictureDialog.FileName; TABELA.Post; Dessa forma deve funcionar... OBS.: não testei. Abraços

Ou você pode dar um Close e depois um Open na tabela...

Olá Micheus, muito obrigado pelo post indicado, já tinha conseguido resolver... Abraços

Pessoal criei uma tabela Fotos e nela um campo Foto do tipo MediumBlod, no delphi coloquei um OpenPictureDialog e um DBImage. Eu seleciono o foto mas ela não salva no banco. Preciso que ela seja mostrada no DBImage e salva no banco. Como eu faço isso? Me disseram que precisa ter um rotina para salvar imagens no mysql. Abraço

Resolvido... salvei as fotos no banco mesmo.

Galera é o seguinte, tenho um sistema em delphi 7 e banco mysql, o banco fica em um servidor na net (conexão remota) e agora preciso salvar umas fotos também. No banco vou salvar apenas o caminho delas e criar uma pasta no servidor para guardar as fotos. Como eu faço um upload pelo delphi? Ou se houver outra maneira mais facil, qual seria? Alexandre

Olá Micheus... O banco está em um servidor de mysql normal.

Olá Jhonas! A conexão eu faço diretamente pelas propriedades do componente do Zeos. Abraço

Olá pessoal! É o seguinte, tenho uma aplicação em delphi 7, mysql 5 e zeos. O banco de dados está armazenado em um servidor ftp e a aplicação fica na máquina do cliente. Tudo funciona perfeitamente, mas fica muito lento o manuseio do sistema. O que pode estar fazendo isso. A velocidade da internet é 1024 e é para um computador apenas e fica lento do mesmo jeito. Se alguém ai tiver alguma dica eu agradeço. Abraços

Verifica se as propriedades Connection e data field dele estão configuradas corretamente... abraços

Opa Duduh_Capixaba... resolvido o problema, era apenas um mal posicionamento de uma variável. Abraço

Cara tentei usar parametros da forma que você me passou, mas continuou da mesma forma. Ainda no aguardo. Abraço

Olá Duduh_Capixaba Eu fiz esse teste sim, usei uma ferramenta para consulta do mysql e funciona beleza. Não entendo o que pode estar acontecendo. Espero ajuda.... rsrs Abraços

Olá pessoal... mais uma vez recorro a vocês aqui do forum. Tenho um sistema de venda que funciona da seguinte forma: - digito o código do produto e a qtde; - confirmo a venda; - se caso for par do produto ele automáticamente gera outra linha na tabela itens buscando da tabela produtos; - o meu problema esta aqui, quando o banco estava em access funcionaca beleza, mas mudei para mysql pois o banco ficará online agora, e agora parou de funcionar, apenas a primeira venda busca os produtos certos as outras ele adiciona apenas a primeira linha e as demais são salvas no banco mas em branco. Segue abaixo a sql de busca dos produtos caso seja par: Tabela.Close; Tabela.SQL.Clear; Tabela.SQL.Add('Select * From Produtos'); Tabela.SQL.Add('Where (LocalReg = "'+Cidade+'")'); Tabela.SQL.Add(' and (Cor = "'+Cor+'")'); Tabela.SQL.Add(' and (Categoria = "'+Categoria+'")'); Tabela.SQL.Add(' and (Veiculo = "'+Veiculo+'")'); Tabela.SQL.Add(' and (Tipo = "'+Tipo+'")'); Tabela.SQL.Add(' and (LocalPlaca = "'+Local+'")'); Tabela.Open; O que pode ser que esta fazendo dar errado, repito no access ele funciona normalmente, mas no mysql não busca nada, apenas o primeiro produto inserido. Acredito que tenha começado esse erro pois na tabela produtos existem produtos repetidos que são diferenciados apenas pela cidade onde eles estão. O que não consigo entender é porque na primeira venda do sistema funciona certo e depois para de funcionar. Uso delphi 7, mysql 5.0 e Zeos. Abraço

Mas Jhonas como usar ele junto com o banco SQL???

Olá pessoal, estou migrando meus bancos de access para um desses bancos (MySql ou SQL Express) no SQL Express ele importa todos os relacionamentos do access, mas eu queria saber como que eu faço um relacionamento via sql no delphi (1 para muitos) tipo venda e itens da venda? Abraços

Pessoal achei o erro, era uma consulta sql que eu tenho que fazer no evento OnActivate do form: Tabela.Close; Tabela.SQL.Clear; Tabela.SQL.Add('Select * From Tabela); Tabela.SQL.Add('Where LocalReg = "'+Cidade+'"'); Tabela.SQL.Add('Order By Codigo'); Tabela.Open; Essa consulta era no banco access.. Para sql usei a seguinte: Fiz da seguinte forma, mas só me retornou o ultimo registro: Tabela.Close; Tabela.SQL.Clear; Tabela.SQL.Add('Select * From Tabela); Tabela.SQL.Add('Where (LocalReg = '''+Cidade+''')'); Tabela.SQL.Add('Order By Codigo'); Tabela.Open; Abraço

Olá galera Estou fazendo uma aplicação com Delphi 7 e SQL Express, até ai beleza, migrei o banco de access para SQL, fiz os forms, coloquei os campos, tudo certo, mas na hora que abro o form na aplicação da o seguinte erro: Um nome de objeto ou coluna está faltando ou está vazio. Verifique se todas as colunas das instruções SELECT INTO têm nomes. Nas outras instruções, procure nomes de alias vazios. Alias definidos como " " ou [] não são permitidos. Adicione um nome ou um espaço único como nome de alias. Já procurei em tudo que foi lado para ver se descubro o porque deste erro, mas não consigui. Por favor me ajudem. Alexandre

Ok Denis... Muito obrigado pela resposta, e acredito que posso contar com vocês para as sql's abraços

Olá Jothaz estou lendo sim e praticando também... só questionei outra possibilidade mais fácil porque tenho que entregar o sistema logo e ainda não consegui fazer isso, mas obrigado.

Mas Denis Courcy, tem como usar algum aplicativo para fazer os relacionamentos? Eu achei um tutorial sobre o MySql Query Browser sobre como fazer os relacionamentos mas não funcionou. Eu não sou muito bom em sql e se caso tivesse como fazer sem ser por código seria melhor. Se souber como alguardo resposta. Abraço