Progr'amador

aí rapaz, Concordo com o Micheus. E você não presica responder se não quizer. Pior que qpostar perguntas mal feitas é postar palavras de baixo calão. somente leitura - fechado.

acho que assim é mais simples: for i := 1 to 15 do vet1[i] := i; Abs. Progr'amador.

procedure TForm1.Button1Click(Sender: TObject); var vet1, vet2, vet3, vet4 : array[1..15] of integer; i, x : integer; begin {1º - escreve 15 números inteiros dentro de um vetor de 15 elementos} for i := 1 to 15 do vet1[i] := i; {2º - Copia todo o seu conteúdo para um segundo vetor (vet2)} for i := 1 to 15 do vet2[i] := vet1[i]; {Copia os elementos na ordem inversa para um terceiro vetor (vet3)} x := 15; for i := 1 to 15 do begin vet3[i] := vet1[x]; x:=x-1; end; Essa eu não entendi, que números negativos são esses??? Exiba no vídeo os elementos de todos os vetores // Exibindo em ListBox for i := 1 to 15 do ListBox1.Items.Add(IntToStr(vet2[i])); for i := 1 to 15 do ListBox2.Items.Add(IntToStr(vet3[i])); end; Abs. Progr'amador.

ele só inverteu: mysqlconfiginstance = MySQLInstanceConfig C:\Arquivos de programas\MySQL\MySQL Server 5.0\bin\MySQLInstanceConfig.exe Iniciar --> Programas --> MySQL --> MySQL Server 5.0 --> MySQL Server Instance Config Wizard

Complementando o que o Thales colocou, ficaria assim: procedure TfrmVLENTR.MaskEdit1KeyPress(Sender: TObject; var Key: Char); begin ValidaKey(MaskEdit1,Key); end; Abs. Progr'amador.

Ops! não falei por mal colega, ;) Só tava descontraindo tambem!!! Esse seção tava precisando dissu!!! vocês tornaram esse fórum bem mais movimentado Sou apenas um mero mortal que tambem estou aprendendo muito com voces: Thales, Micheus, entre outros, sem querer desmerecer minguem. Vlw Abs. Progr'amador. ;)

PUTS!!!! Eu nem tava acompanhando esse tópico, só acompanhei o começo dele, vocês são os maiores flooders que a SB já teve :D Logo aqui na seção de delphi que sempre foi "calminha", nunca deu trabalho, O Thales e Paulo por hora pensavem está no MSN, de forum pra bate-papo :P :D :lol: agora imagine se o Micheus tivesse na ativa, hehehe!!! -- esse tópico está com os seus dias contados, HauHauHAu :ph34r: :ph34r:

Olá, usando o Params seria tipo assim: SQLConnection1.Params.Clear; SQLConnection1.Params.Add('DriverName=MySQL'); SQLConnection1.Params.Add('HostName='+Host); SQLConnection1.Params.Add('Database=DBNAME') SQLConnection1.Params.Add('User_Name='+Usuario); SQLConnection1.Params.Add('Password='+Senha); Abs. Progr'amador.

Tipo: var W0, W1 : integer; begin if DBGrid1.Columns[0].FieldName = 'Codigo' then begin W0 := DBGrid1.Columns[0].Width; W1 := DBGrid1.Columns[1].Width; DBGrid1.Columns[0].FieldName := 'Nome'; DBGrid1.Columns[0].Width := W1; DBGrid1.Columns[1].FieldName := 'Codigo'; DBGrid1.Columns[1].Width := W0; end else begin W0 := DBGrid1.Columns[0].Width; W1 := DBGrid1.Columns[1].Width; DBGrid1.Columns[0].FieldName := 'Codigo'; DBGrid1.Columns[0].Width := W1; DBGrid1.Columns[1].FieldName := 'Nome'; DBGrid1.Columns[1].Width := W0; end; end; Abs. Progr'amador.

aqui, A página está fora do ar <_<

Ola, Remova a configuração e configure novamente com as opções abaixo: - Dedicated MySQL Server Machine - Non-Transactional Database Only - Online Transaction Processing (OLTP) - Enable TPC/IP Networking - Enable Strict Mode - Standard Character Set - Install As Windows options - Include Bin Directory in windows Path - senha do root - Enable root access from remote machines Abs. Progr'amador.

Olá, tenta assim: SELECT distinct c.* FROM cursos c, matricula m, clientes cl WHERE m.codigo_curso = c.codigo and c.dataautomatica = cl.dataauto and cl.nome_cliente = 'marcelo' Abs. Progr'amador.

tipo, UPDATE tabela_X SET campo_X = (SELECT campo_Y FROM tabela_Y WHERE id_Y = 1) WHERE id_X = 1 Entedeu? Abs. Progr'amador.

Olá Cleverson, você pode usar o compoente TQuery, Ex: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT * FROM NOME_TABELA'); Query1.Open; if Query1.RecordCount > 0 then table.delete; Abs. Progr'amador.

O máximo que você vai pagar é a hospedagem (se você optar por isso :) ). O MySQL é totalmente FREE Abs. Progr'amador. ;)

Olá André, Pode usar uma query: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT * FROM contas WHERE usuario = '+''''+ed_usuario.text+''''+' and senha = '+''''+ed_senha.text+''''+''); Query1.Sql.Open; If Query.RecordCount > 0 then begin //verifica se foi encontrado registro //Encontrado registro ...aqui você coloca seu código... end else begin // se não encontrar registro ...aqui você coloca seu código... end; É por aí!!! Entendeu? Abs. Progr'amador. ;)

Acho que isso é meu dificil mesmo, você teria que mudar a configuiração do seu pc :unsure: Abs. Progr'amador.

Ele não pede usuário porque o usuário é root Abs. Progr'amador.

Olá Ricardo, Pesquisando na net encontrei essa resposta, vê se te ajuda: Abs. Progr'amador.

Olá amigo, É a mesma senha pra conectar, lembrando que o usuário é apenas root user: root password: ****** Abs. Progr'amador. ;)

Olá Ricardo, Com RBuilder eu num sei não, mas se você se interessar por QuickReport, posso te ajudar. Abs. Progr'amador. :)

Olá Fábio, Puxa já faz um tempão que vejo isso, essas PROCEDURES... Saldades... HEHHE :) Vamos lá: Esses erros realmente tem que ser analizado com muita cautela eu num entendo muito da linguagem tecnica e tals, mas vouo tentar ajudar. Esse CURSOR que você inseriu no meio do deu código está errado, você deve coloca-lo na parte de cima do seu código, logo abaixo do outro cursor: tenta rodar essa, aí se der outro erro você posta: CREATE OR REPLACE PROCEDURE SP_REL_TAREFA4( P_DATA IN DATE ) AS CURSOR ENTRADA_RECLAMACAO ( P_DATA IN DATE ) IS -- Fila de reclamacao SELECT IDENTIFICACAO, DESCRICAO, COD_DESCRICAO, QUANTIDADE FROM ( SELECT '1' IDENTIFICACAO, RTRIM(TTR.VARDSCTIPORECLAMACAO) DESCRICAO, TTR.NUMIDTIPORECLAMACAO, COUNT (TP.NUMIDPROCESSO) QUANTIDADE FROM TBPROCESSOS TP, TBPROCESSOSRECLAMACAO TPR, TBTIPORECLAMACAO TTR WHERE TP.NUMIDPROCESSO = TPR.NUMIDPROCESSO AND TPR.NUMIDTIPORECLAMACAO = TTR.NUMIDTIPORECLAMACAO AND TP.FLGTIPOPROCESSO = 'R' AND TP.DATABERTURA >= TO_DATE( TO_CHAR((TRUNC(FU_RECUPERA_PERIODO(P_DATA, 1))),'DD/MM/YYYY')||' 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TP.DATABERTURA <= TO_DATE( TO_CHAR((TRUNC(FU_RECUPERA_PERIODO(P_DATA, 2))),'DD/MM/YYYY')||' 23:59:59','DD/MM/YYYY HH24:MI:SS') GROUP BY TTR.VARDSCTIPORECLAMACAO ); E ENTRADA_RECLAMACAO%ROWTYPE; CURSOR RECLAMACAO_PRODUTO ( P_PROCESSOS_DESCRICAO_COD IN NUMBER ) IS -- Fila de reclamacao SELECT IDENTIFICACAO, DESCRICAO, QUANTIDADE FROM ( SELECT '2' IDENTIFICACAO, RTRIM(TPR.VARDSCPRODUTO) DESCRICAO, COUNT(TP.NUMIDPRODUTO) QUANTIDADE FROM TBPROCESSOS TP, TBPRODUTOS TPR, TBPROCESSOSRECLAMACAO TPROCR, TBTIPORECLAMACAO TTR WHERE TP.NUMIDPRODUTO = TPR.NUMIDPRODUTO AND TP.NUMIDPROCESSO = TPROCR.NUMIDPROCESSO AND TPROCR.NUMIDTIPORECLAMACAO = TTR.NUMIDTIPORECLAMACAO AND TTR.NUMIDTIPORECLAMACAO = P_PROCESSOS_DESCRICAO_COD AND TP.DATABERTURA >= TO_DATE( TO_CHAR((TRUNC(FU_RECUPERA_PERIODO(P_DATA, 1))),'DD/MM/YYYY')||' 00:00:00','DD/MM/YYYY HH24:MI:SS') AND TP.DATABERTURA <= TO_DATE( TO_CHAR((TRUNC(FU_RECUPERA_PERIODO(P_DATA, 2))),'DD/MM/YYYY')||' 23:59:59','DD/MM/YYYY HH24:MI:SS') GROUP BY TPR.VARDSCPRODUTO ); R RECLAMACAO_PRODUTO%ROWTYPE; P_PROCESSOS_DESCRICAO VARCHAR2(200); P_PROCESSOS_DESCRICAO_COD NUMBER; P_PROCESSOS_TOT NUMBER; P_IDENTIFICACAO VARCHAR2(1); --P_PROCESSOS_PRODUTO VARCHAR2(200); --P_PROCESSOS_PRODUTOQTD NUMBER; FILE_PATH VARCHAR2(100) := '/spa/relatorios'; FILE_HANDLE UTL_FILE.FILE_TYPE; W_LINHA VARCHAR2(300); W_TRACO0 VARCHAR2(170) := LPAD ( ' ', 170, ' ' ); W_TRACO1 VARCHAR2(170) := LPAD ( ' ', 170, '-' ); W_TRACO2 VARCHAR2(170) := LPAD ( ' ', 170, '=' ); W_CONTACARACTER NUMBER; BEGIN W_CONTACARACTER :=0; FILE_HANDLE := UTL_FILE.FOPEN ( FILE_PATH, 'REL_TAREFA4.TXT', 'w' ); W_LINHA := 'Relatorio consolidado por fila de reclamacao '||LPAD ( ' ', 80, ' ' )|| to_char(sysdate,'DD/MM/YYYY HH24:MI:SS'); UTL_FILE.PUT_LINE ( FILE_HANDLE, W_LINHA ); UTL_FILE.PUT_LINE ( FILE_HANDLE, W_TRACO2 ); UTL_FILE.PUT_LINE(FILE_HANDLE, ''); W_LINHA := 'Fila de reclamacao '||LPAD ( ' ', 80, ' ' )|| 'Produto' ||LPAD ( ' ', 25, ' ' )||'Core'||LPAD ( ' ', 10, ' ' )||'Total por reclamacao'; UTL_FILE.PUT_LINE ( FILE_HANDLE, W_LINHA ); UTL_FILE.PUT_LINE ( FILE_HANDLE, W_TRACO1 ); --UTL_FILE.PUT_LINE(FILE_HANDLE, ''); P_PROCESSOS_TOT :=0; FOR E IN ENTRADA_RECLAMACAO (P_DATA) LOOP P_PROCESSOS_DESCRICAO := E.DESCRICAO; P_PROCESSOS_TOT := E.QUANTIDADE; P_IDENTIFICACAO := E.IDENTIFICACAO; P_PROCESSOS_DESCRICAO_COD := E.COD_DESCRICAO; W_CONTACARACTER := 155 - LENGTH(P_PROCESSOS_DESCRICAO); W_LINHA := P_PROCESSOS_DESCRICAO ||LPAD ( ' ', W_CONTACARACTER, ' ' )||P_PROCESSOS_TOT; UTL_FILE.PUT_LINE ( FILE_HANDLE, W_LINHA ); --Colocar aqui uma nova busca filtrando produto por reclamacao --inicia Cursor para os produtos por reclamacao W_CONTACARACTER :=0; --P_PROCESSOS_TOT :=0; FOR R IN RECLAMACAO_PRODUTO (P_PROCESSOS_DESCRICAO_COD) LOOP P_PROCESSOS_DESCRICAO := R.DESCRICAO; P_PROCESSOS_TOT := R.QUANTIDADE; P_IDENTIFICACAO := R.IDENTIFICACAO; --Impressao W_CONTACARACTER := 155 - LENGTH(P_PROCESSOS_DESCRICAO); W_LINHA := P_PROCESSOS_DESCRICAO ||LPAD ( ' ', W_CONTACARACTER, ' ' )||P_PROCESSOS_TOT; UTL_FILE.PUT_LINE ( FILE_HANDLE, W_LINHA ); P_PROCESSOS_TOT := 0; END LOOP; P_PROCESSOS_TOT := 0; END LOOP; UTL_FILE.FCLOSE ( FILE_HANDLE ); END SP_REL_TAREFA4; Abs. Progr'amador.

Olá Beraldo, Da pra usar um campo Varchar como Data sim, usando a função STR_TO_DATE tipo: Poderia até criar uma função (FUNCTION) pra usar em todas as tabelas e evitar todo esse código "chato": criar a function: executando a select: Abs. Progr'amador. ;)

Olá, Eu num entendo de PHP mas esse tipo de relacionamento você pode implementar na própria instrução SQL. você poderia postar parte de seu código que executa essa tarefa? Ficaria mais fácil pro pessoal te ajudar. ------------------- só uma deixa: você está fazendo referência da tabela OS_ABRE com a tabela Clientes usando o campo NOME nesse caso seria mais aconselhavel que você usasse o campo ID da tabela Clientes para fazer essa referência, até por ser PRIMARY KEY, (igual você fez com a tabela OS_BAIXA). Por NOME pode ser que apareça nomes iguais, o que seria um grande problema pra você. Abs. Progr'amador. ;)

Olá Kindelis, se você não tiver nada contra o BDE, você pode usar o MySQL Connector/ODBC 3.51.12 para conectar com o BDE. o MySQL Connector/ODBC 3.51.12 é FREE e é facil de encontrar no google Já com o zeus eu NÃO sei se é possível. --------Editado---------------------- aí vai o endereço: http://dev.mysql.com/downloads/connector/odbc/3.51.html Abs. Progr'amador. ;)