[delphi-br] Relacionamento
Ae pessoal.. estou com uma dúvida em relação de um cadastro que estou desenvolvendo : [DB = MySQL] CREATE TABLE ESTADO ( CODIGO INTEGER(5) UNSIGNED NOT NULL AUTO_INCREMENT, UF CHAR(2) NULL, ESTADO VARCHAR(150) NULL, PRIMARY KEY(CODIGO) ) TYPE=InnoDB; INSERT INTO ESTADO VALUES (1,'SC','SANTA CATARINA'), (2,'PR','PARANÁ'), (3,'SP','SÃO PAULO'), (4,'RJ','RIO DE JANEIRO'); CREATE TABLE CIDADE ( CODIGO INTEGER(5) UNSIGNED NOT NULL AUTO_INCREMENT, ESTADO INTEGER(5) UNSIGNED NOT NULL, CIDADE VARCHAR(150) NULL, PRIMARY KEY(CODIGO), INDEX CIDADE_FKIndex1(ESTADO), FOREIGN KEY(ESTADO) REFERENCES ESTADO(CODIGO) ON DELETE CASCADE ON UPDATE CASCADE ) TYPE=InnoDB; INSERT INTO CIDADE (ESTADO,CIDADE) VALUES (1,'BLUMENAU'), (1,'TIMBÓ'), (1,'INDAIAL'), (3,'SÀO PAULO'), (3,'SÃO BERNADO DO CAMPO'), (2,'CURITIBA'), (4,'RIO DE JANEIRO'); CREATE TABLE CLIENTE ( CODCLIENTE INTEGER(5) UNSIGNED NOT NULL AUTO_INCREMENT, ESTADO_DOCTO INTEGER(5) UNSIGNED NOT NULL, CIDADE_NASCIMENTO INTEGER(5) UNSIGNED NOT NULL, CIDADE_RESIDENTE INTEGER(5) UNSIGNED NOT NULL, NOMECLIENTE VARCHAR(150) NULL, DTNASCIMENTO DATE NULL, ATIVO BOOL NULL, PRIMARY KEY(CODCLIENTE), INDEX CLIENTE_FKIndex1(CIDADE_NASCIMENTO), INDEX CLIENTE_FKIndex2(CIDADE_RESIDENTE), INDEX CLIENTE_FKIndex3(ESTADO_DOCTO), FOREIGN KEY(CIDADE_NASCIMENTO) REFERENCES CIDADE(CODIGO) ON DELETE RESTRICT ON UPDATE CASCADE, FOREIGN KEY(CIDADE_RESIDENTE) REFERENCES CIDADE(CODIGO) ON DELETE RESTRICT ON UPDATE CASCADE, FOREIGN KEY(ESTADO_DOCTO) REFERENCES ESTADO(CODIGO) ON DELETE RESTRICT ON UPDATE CASCADE ) TYPE=InnoDB; Eu fiz esse pequeno exemplo ai.. pois tenho mais de um relacionamento com a tabela de cliente, sendo que é somente a tabela de cidade, onde a pessoa informa a cidade onde nasceu e a cidade onde reside. Mas lá no DataModule, tenho como fazer esse relacionamento ??? Como ? Estou usando MySQL Access(MyDAC). Eu utilizo o MasterSource p/ dizer de onde vem os parametros que mencionei no SQL. Como deveria fazer ??? Ali nesse caso tbm se relaciona o estado do documento do cliente, q tbm está relacionado como faria isso tbm ?? Se alguém pudesse me mandar um exemplo p/ me mostrar como fazer esse relacionamento com um componente do interbase/Firebird qualquer um, que é parecido com o MyDAC, eu agradeceria []'s rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] TAB que não funciona
Eu estou com um problema... criei um form dentro de uma DLL e qdo executado o [TAB] para pular de campo a campo nao está funcionando.. parece q o tabstop está false para todos os campos.. ou taborder errado.. algo assim.. mas nao ... estão tudo ok.. pois se coloco o taborder para um campo q está no final do form.. qdo abre o mesmo está setado naquele q indiquei no source. Mas depois disto nao funciona mais... essa é a procedure q utilizo para abrir o form.. e detalhe.. tenho q informar o tamanho do form em tempo de execução pois ele tbm parece q perde essas caracteristicas de qdo estava programando. Procedure ShowFormDCAD00301 (PParentApplication:TApplication;PParentForm:Tform);export;stdcall; var DllProc : Pointer; begin try Application:=PParentApplication; FCAD00301 := TFCAD00301.Create(PParentForm); with FCAD00301 do begin MyParentForm:=PParentForm; MyParentApplication:=PParentApplication; if (PParentForm.FormStyle = fsMDIForm) then begin FormStyle := fsMDIChild; end; Width := 424; Height := 204; Constraints.MaxWidth := Width; Constraints.MinWidth := Width; Constraints.MaxHeight := Height; Constraints.MinHeight := Height; Visible := true; MyConnection1.Connected := true; MyConnection1.StartTransaction; Show; end; except on E : exception do begin ShowMessage('Error ao carregar '+Application.Name+#13+e.Message); end; end; end; Alguém poderia me dar uma ajuda com isso ??? pois isso é péssimo p/ o cliente.. ter q mudar tudo no mouse. valeu ! .rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fechar form
Estou com um FORM - formstyle = fsMDIChild e é um form de cadastro, mas estou inserindo algumas informacoes.. mas antes do usuário fechar a tela eu verifico se ele alterou as informacoes... bom... no onclose do form coloquei algumas verificaçoes deste tipo e aquela pergunta tradicional Desejas salvar as informações alteradas ?[S/N/C] Caso eu informe Cancelar, a janela nao é p/ fechar, e sim ficar ali.. normal mas como é um form filho, ele miniza na aplicaçao, como faço p/ ela ficar ainda ali sem fechar, sem salvar, sem nada valeu ai .rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Posicionar cursor no item desejado
Ae galera... Estou com uma Query(c/ Order by)-DataSource-Dataset Até ai.. tudo normal. A minha tabela (select cod,ped from pedidos order by cod desc) tem a chave primaria que é o código[cod], assim gostaria de poder posicionar o cursor qdo for mencionado o código. Ex.: cod|ped 099|AQA 007|REA 003|VCA 001|SGD Agora eu informo o código = 007, assim gostaria q o cursor se posicionasse no segundo registro, claro sem perder os outros registros (sem filter). result = 2* * é o nº do registro ali encontrado, do select. [recNo] Sds .rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Gerando dll com form
Ae galera... Estou gerando uma DLL com um form, e esta dll qdo a gero, está ficando mto grande, com quase 1Mb ou até mais, teria alguma coisa q faria com q tamanho diminuisse valeu -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Alguém poderia me explicar ....
Alguém poderia me explicar o que significa register pascal cdecl stdcall safecall Pois estou fazendo uns forms dentro de dll's e está sempre dando erro qdo abro pela segunda vez o form, mas a unica coisa q estou fazendo diferente dos modelos q achei na net, é q estou passando um parametro de conexão de banco com esse stdcall, já tentei com cdecl tbm mas sempre o mesmo erro de memória. qualuqer coisa.. mando via pvt os fontes... Obs.: tem q ter o mydac instalado -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ZUpdateSQL1
Alguém poderia me ajudar... ainda não consegui fazer um UPDATE na tabela. ModifySQL := 'update tb_estados set '+ ' tb_estados.UF = :UF, '+ ' tb_estados.DESCRICAO = :DESCRICAO'+ 'where '+ ' tb_estados.CODIGO = :OLD_CODIGO '; quero saber como faço p/ passar o parametro p/ esta string ai e executar Se alguém mostrar com valores fixos tbm ajuda, como por exemplo esse: O CODIGO tem que ser igual a 14 e os valores de descricao será agora 'TT' e UF será 'WW' as unicas coisas pintadas na tela, São o código do estado q desejo alterar e os campos q desejo alterar, então como passo isso p/ dentro da string e ele irá alterar ??? Eu fiz já assim, mas não funcionou. with ZUpdateSQL1 do begin Params.Items[0].Text := 'WW'; Params.Items[1].Text := ''; Params.Items[2].Text := '14'; DataSet.Edit; DataSet.Post; end; Obs.: Estou usando ZeosLib com Mysql,Delphi 6 está pintado na tela: ZConnection1 - conected = true ZTable1 - activate = true Ztable1.UpdateObject := ZUpdateSQL1; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html