Ir para conteúdo
Fórum Script Brasil

maxley_gyn

Membros
  • Total de itens

    16
  • Registro em

  • Última visita

Sobre maxley_gyn

maxley_gyn's Achievements

0

Reputação

  1. Muito obrigado Jhonas, resolvi aqui com o código abaixo e position mainformcenter, valeu abraços. type TFormFilho = class(TForm) public procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; end; procedure TFormFilho.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); var MainForm: TForm; Rect: TRect; OurWidth: Integer; OurHeight: Integer; begin if Showing then begin MainForm := Application.MainForm; // Obtem o retângulo da área cliente MDI Windows.GetWindowRect(MainForm.ClientHandle, Rect); // Calcular largura e altura da área cliente OurWidth := Rect.Right - Rect.Left; OurHeight := Rect.Bottom - Rect.Top; // Calcula a nova posição ALeft := (OurWidth - Width) div 2; ATop := (OurHeight - Height) div 2; end; inherited SetBounds(ALeft, ATop, AWidth, AHeight); end;
  2. Gostaria de saber como faço para centralizar os formulários mdi child no formulário mdi pai, já tentei posceerncenter e o código abaixo mas não consigo, abraços. procedure TFormFilho.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); var Rect: TRect; OurWidth: Integer; OurHeight: Integer; begin if Showing then begin // Obtem o retângulo da área cliente MDI Windows.GetWindowRect(Application.MainForm.ClientHandle, Rect); // Calcular largura e altura da área cliente OurWidth := Rect.Right - Rect.Left; OurHeight := Rect.Bottom - Rect.Top; // Calcula a nova posição ALeft := (OurWidth - Width) div 2; ATop := (OurHeight - Height) div 2; end; inherited SetBounds(ALeft, ATop, AWidth, AHeight); end;
  3. A versão que utilizo e mysql-5.5.31 O console esta com senha Seguirei os passos que você me falou Me ajudou muito e tirou essas duvidas que me perturbavam Muito Obrigado, Denis
  4. Eu já fiz isso so estou na duvida se alguém entrar pelo prompt de comando e conseguir alterar a senha com os comandos abaixo ou semelhante mysql -u root -h localhost -P 3306 USE mysql; UPDATE mysql.user SET Pasword = PASSWORD('nova-senha') WHERE User = 'root';
  5. Gostaria de saber se tem como bloquear acesso ao root do servidor, quem esta na rede não conseguir entrar no banco pelo root, só pra ficar mais seguro, ou se vocês tem um sugestão melhor pode ser. Abraços
  6. Deu certo aqui fui tentando até conseguir, segue o código abaixo, muito obrigado Jhonas você me ajudou muito, valeu. Backup ShellExecute(handle, 'open', 'cmd.exe', PChar( '/c mysqldump -u root -pmax --database sgf > ' + EdLocalBackup.Text), nil, SW_HIDE); Restore ShellExecute(handle, 'open', 'cmd.exe', PChar( '/c mysql -u root -pmax -h localhost sgf < ' + EdLocalRestaurar.Text), nil, SW_HIDE); Abraços
  7. Deu certo em parte, pois o erro não aparece mais, porem não esta gerando o arquivo sql. Com este código realizo o backup WinExec(PAnsiChar('cmd /c mysqldump -u root -pmax --database sgf > C:\SGF\Backup\backupSGF.sql'), SW_HIDE); Com este realizo a restauração WinExec(PAnsiChar('cmd /c mysql -u root -pmax -h localhost sgf < C:\SGF\Backup\backupSGF.sql'), SW_HIDE); No entanto quero pegar o diretório selecionado pelo usuário tanto para backup como restore, por isso concateno o edit com o código, como eu disse não da erro mas não gera o arquivo sql, com esses códigos acima da tudo certo mas fica definido somente em um diretório. ShowMessage(PAnsiChar('cmd /c mysqldump -u root -pmax --database sgf > '+ EdLocalBackup.Text)); Nesta mensagem acima a saída é apenas a letra c, será isso?
  8. Valeu Jhonas mas ainda tá dando este erro com o código que você me passou [DCC Error] UBackup.pas(101): E2010 Incompatible types: 'Char' and 'AnsiChar'
  9. Boa tarde, Gostaria de saber se tem como converter este tipos string para pansichar, pois entou tentando fazer um backup aqui e esta dando este erro [DCC Error] UBackup.pas(101): E2010 Incompatible types: 'string' and 'PAnsiChar' no código abaixo, já tentei de várias formas, porém ainda não consegui, estou usando o Delphi 2010 e utilizando um opendialog para pegar o diretório e envio para a edit,desde já agradeço obrigado. WinExec('cmd /c mysql -u root -pmax -h localhost sgf < ' + PAnsiChar(AnsiString(EdLocalRestaurar.Text)), SW_HIDE);
  10. Jhonas agradeço demais a sua ajuda, consegui aqui com suas dicas não ficou idêntico o código mas ficou semelhante, muito obrigado.
  11. Jhonas agradeço demais a sua ajuda mas não estou conseguindo implementar a rotina. Preciso do clientdataset ou posso trazer direto do banco? Segue o código que estou tentando. LDocument := TXMLDocument.Create(nil); LDocument.Active := True; LDocument.Encoding := 'ISO-8859-1'; oDaoRelatorios.ExportaVenda(Dt1.DateTime, Dt2.DateTime); { Define o conteudo do documento } RootNode := LDocument.CreateElement('mensagemSGF','urn:sgf-schema'); LDocument.DocumentElement := RootNode; while not DmDados.SpExportaVenda.Eof do begin RootNode := LDocument.CreateElement('codigo',IntToStr(DmDados.SpExportaVendaid_Produto.AsInteger)); LDocument.DocumentElement := RootNode; end; // Coloque aqui a rotina para ler o ClientDataSet e // adicionar ao conteudo do Documento LDocument.SaveToFile('C:\Teste7.xml');
  12. Ainda não consegui, na verdade eu queria salvar no formato do link acima da anvisa, mas estou salvando como no código abaixo e sei muito pouco de xml. <?xml version="1.0" encoding="UTF-8" standalone="true"?> -<DATAPACKET Version="2.0"> -<METADATA> -<FIELDS> <FIELD fieldtype="i4" attrname="CodigoProduto"/> <FIELD fieldtype="i4" attrname="CodigoAvaria"/> <FIELD fieldtype="string" attrname="Descricao" WIDTH="20"/> <FIELD fieldtype="string" attrname="Apresentacao" WIDTH="20"/> <FIELD fieldtype="string" attrname="ClasseTerapeutica" WIDTH="20"/> <FIELD fieldtype="string" attrname="Grupo" WIDTH="20"/> <FIELD fieldtype="i4" attrname="Quantidade"/> <FIELD fieldtype="string" attrname="Lote" WIDTH="20"/> <FIELD fieldtype="date" attrname="Vencimento"/> <FIELD fieldtype="date" attrname="DataAvaria"/> <FIELD fieldtype="string" attrname="Emissor" WIDTH="20"/> <FIELD fieldtype="string" attrname="Transmissor" WIDTH="20"/> </FIELDS> <PARAMS CHANGE_LOG="1 0 4 2 0 4"/> </METADATA> -<ROWDATA> <ROW Transmissor="71604901187" Emissor="17171771236987" DataAvaria="20140822" Vencimento="20130201" Lote="di2020" Quantidade="1" Grupo="Portaria A" ClasseTerapeutica="Analgésico" Apresentacao="20mg 50cpr" Descricao="Dimorf" CodigoAvaria="3" CodigoProduto="6" RowState="4"/> <ROW Transmissor="71604901187" Emissor="17171771236987" DataAvaria="20140822" Vencimento="20140202" Lote="te2020" Quantidade="1" Grupo="Portaria C" ClasseTerapeutica="Antiepileptico" Apresentacao="200mg 20cpr" Descricao="Tegretol" CodigoAvaria="3" CodigoProduto="7" RowState="4"/> </ROWDATA> </DATAPACKET>
  13. Muito obrigado pela ajuda mas ainda não consegui, com o clientdataset salvo em utf-8 muito fácil mas preciso salvar em iso-8859-1, to fazendo um mini programa de farmácia onde cadastro os produtos realizo vendas e exportar estas vendas para xml só que a Anvisa exige o padrão iso-8859-1 como o código do link abaixo. http://www.anvisa.gov.br/sngpc/schemas/sngpc200608v1_0.xml
  14. Gostaria de saber se consigo salvar direto em xml iso-8859-1 com um clientdataset, ou converter de UTF-8? Com o código abaixo salvo em UTF-8 normal mas queria salvar no outro formato citado, sou iniciante e estou fazendo um trabalho para a faculdade, desde já agradeço, muito obrigado. if not (DmDados.SpExportaVenda.IsEmpty) then begin DmDados.SpExportaVenda.First; DmDados.CDSVenda.Open; while not DmDados.SpExportaVenda.Eof do begin DmDados.CDSVenda.Insert; DmDados.CDSVendaCodigoProduto.AsInteger := DmDados.SpExportaVendaid_Produto.AsInteger; DmDados.CDSVendaCodigoVenda.AsInteger := DmDados.SpExportaVendaid_Venda.AsInteger; DmDados.CDSVendaDescricao.AsString := DmDados.SpExportaVendaDs_Produto.AsString; DmDados.CDSVendaApresentacao.AsString := DmDados.SpExportaVendaDs_Apresentacao.AsString; DmDados.CDSVendaGrupo.AsString := DmDados.SpExportaVendaDs_Grupo.AsString; DmDados.CDSVendaQuantidade.AsInteger := DmDados.SpExportaVendaNr_QTD.AsInteger; DmDados.CDSVendaLote.AsString := DmDados.SpExportaVendaDs_Lote.AsString; DmDados.CDSVendaEmissor.AsString := DmDados.SpExportaVendaEmissor.AsString; DmDados.CDSVenda.Post; DmDados.SpExportaVenda.Next; end; DmDados.CDSVenda.SaveToFile( 'C:\sgf\XML\vendacontrolados.xml', dfXMLUTF8); DmDados.CDSVenda.EmptyDataSet; DmDados.CDSVenda.Close;
  15. Muito Obrigado Denis, consegui resolver aqui com o código abaixo, se tiver como da uma olhada pra mim se ficou bom, se pode ser mais enxuto. Tive que declarar variáveis pois o sql não queria concatenar com os parâmetros, não sei o motivo. CREATE PROCEDURE `relatorioVenda`(IN oDs_FormaPagamento VARCHAR(20), IN oDs_Status VARCHAR(10), IN oid_Usuario VARCHAR(10), IN oDtI DATE, IN oDtF DATE) NOT DETERMINISTIC CONTAINS SQL SQL SECURITY DEFINER COMMENT '' BEGIN SET @formapag = oDs_FormaPagamento; SET @status = oDs_Status; SET @usuario = oid_Usuario; SET @meuSQL = "SELECT a.*, b.Ds_FormaPagamento, c.Ds_Login, d.No_Cliente_Rz FROM tb_venda a INNER JOIN tb_formapagamento b ON (a.id_FormaPagamento = b.id_FormaPagamento) INNER JOIN tb_usuario c ON (a.id_Usuario = c.id_Usuario) INNER JOIN tb_cliente d ON (a.id_Cliente = d.id_Cliente) "; IF ((oDs_FormaPagamento <> "") AND (oDs_Status = "") AND (oid_Usuario = "")) THEN SET @meuSQL = CONCAT(@meuSQL, " WHERE b.Ds_FormaPagamento = @formapag"); END IF; IF ((oDs_FormaPagamento <> "") AND (oDs_Status <> "") AND (oid_Usuario = "")) THEN SET @meuSQL = CONCAT(@meuSQL, " WHERE b.Ds_FormaPagamento = @formapag AND a.Ds_Status = @status"); END IF; IF ((oDs_FormaPagamento <> "") AND (oDs_Status <> "") AND (oid_Usuario <> "")) THEN SET @meuSQL = CONCAT(@meuSQL, " WHERE b.Ds_FormaPagamento = @formapag AND a.Ds_Status = @status AND c.id_Usuario = @usuario"); END IF; IF ((oDs_FormaPagamento = "") AND (oDs_Status <> "") AND (oid_Usuario = "")) THEN SET @meuSQL = CONCAT(@meuSQL, " WHERE a.Ds_Status = @status"); END IF; IF ((oDs_FormaPagamento = "") AND (oDs_Status <> "") AND (oid_Usuario <> "")) THEN SET @meuSQL = CONCAT(@meuSQL, " WHERE a.Ds_Status = @status AND c.id_Usuario = @usuario"); END IF; IF ((oDs_FormaPagamento = "") AND (oDs_Status = "") AND (oid_Usuario <> "")) THEN SET @meuSQL = CONCAT(@meuSQL, " WHERE c.id_Usuario = @usuario"); END IF; SET @meuSQL = CONCAT(@meuSQL, " ORDER BY a.id_Venda"); PREPARE stmt FROM @meuSQL; EXECUTE stmt; END;
×
×
  • Criar Novo...