Rogerblower
-
Total de itens
92 -
Registro em
-
Última visita
Posts postados por Rogerblower
-
-
valeu Morphadron, era isso mesmo.....deu certo aqui,
Obrigado.
-
Ok DELPHI-Man32
Agradeço pela ajuda........
qualquer informaçao que precise to sempre online no ICQ 233490369 se não estou online, mande assim mesmo a msg, porque as vz estou invisivel...hehehe
No mais seria isso, já fiz um programa em ASP, sempre estuadando, pedindo ajuda e tentado como faço agora com Delphi.
o q fiz em asp, foi hum programinha q fiz pra mim, pra administrar minhas despesas de casa, funcionou legal, so que o ASP, so roda no servidor, ae um amigo me pediu o programinha, mas como faria pra insina-lo a conf. o Server IIS do Win, muito complicado.....entendeu.
valeu...
Rogerblower
-
Ola, DELPHI-Man32
Primeiramente, agradeco muito deu interesse em me ajudar, vamos ver se consigo explicar direito o que preciso
Bem meu irmao constroi sobrados para vendas, não é uma construtora, mas quem sabe um dia né... :) .
então; ele faz toda a dministraçao de custos em uma tabela de excel, so que gostaria de fazer um programa pra facilitar as coisas, na verdade não sei se facilitaria ou se complicaria.
Na tabela do excel tem os seguintes campos:
ID, DATA, SOBRADO, MATERIAIS, SERVICOS, FERRAGENS, IDARULICA, CERAMICAS, ABERTURAS, PINTURA, ELETRICA, DIVERSOS, QUANTIDADE, VALOR, VALOR_TOTAL e VALOR DISPONIVEL.
No db teria q ter os campos +- assim, pode até mudar, incluir ou cancelar alguns campos pra facilitar a funcionalidade do programa conforme a opiniao.
Tavez, até aquele lance de pagamento com cheque pré-datado, vencimento e tal....
Nos campos devem ter a possibilidade de inserir, modificar e exluir dados,
não esquecendo q o programa teria q fazer calculos, nas tabelas de quant. valor e valor_total.
E q tenha a possibilidade de imprimir, tipo um relatorio seja semanal e mensal por sobrado, (tipo imprimir relatorio sobrado 1 do dia X ao dia X)
Bem é +- isso que pensei em fazer, se você tiver alguma estrutura ou idéias pra melhorar, agradeço muito....
Rogerblower
obs: O detector de mentiras deu com link quebrado....
-
Ola Pessoal
Sou iniciante em Delphi, estou fazendo o curso aqui na SB, o problema é quando da uns erros é muito dificil descobrir onde é, se alguém puder me ajudar agradeco muito.
o Lance é o seguinte, meu irmao tem uma panilha no excel para administrar seus negocios.
e eu tava afim de fazer um programa que faça a mesma funçao ou mesmo facilitando seu trabalho, e isso me serviria de aprendizado, é coisa simples, tipo:
Data, Quantidade, Sistema Idraulico, Sistema de Esgoto, Servicos, Cobertura, valor unit, valor....
Em Asp eu usaria um db, no Delphi pelo que já estudei da pra fazer em db, e sem db, é isso?
Rogerblower.
-
Ola pessoal
Sou iniciante em delphi, e estou tentando desenvolver um programa, so não achei onde mudo o icone da logo marca, que vem no form do delphi 7.
alguém pode me dar uma dica ae.
Obrigado
Rogerblower
-
Os erros são esses ae.
[Error] MDI_Principal.pas(76): Undeclared identifier: 'TfrmTexto'
[Error] MDI_Principal.pas(77): Missing operator or semicolon
[Error] MDI_Principal.pas(122): ';' expected but '.' found
[Error] MDI_Principal.pas(124): Declaration expected but end of file found
[Fatal Error] P_MDI.dpr(6): Could not compile used unit 'MDI_Principal.pas'
mas a linha selecionada é essa ae abaixo.
application.createForm(TfrmTexto,frmTexto);
Estou começando agora com delphi, se precisarem de mais informaçoes por favor postem ae
Obrigado
Rogerblower
-
Ola pessoal
Estou tendo dificuldades em terminar uma parte do curso q estou fazendo aqui na SB do Delphi.
O problema é o seguinte:
estou desenvolvendo um editor de texto, segui passo a passo já por 3 vzs o que esta no texto do curso, so que na hora de compilar da um erro e não consigo terminar, a linha que esta dando erro é esta aqui!
application.createForm(TfrmTexto,frmTexto);Se alguém puder me ajudar fico muito grato.
Rogerblower
-
valeu ae pessoal
Vou seguir o conselho de vocês e instalar logo um antivirus aqui, fiquei so com uma duvida,
Uso o IIS, e adsl, e desabilitei o firewal do win por causa do ICQ, e jogos online, o q uso muito, um antivirus não feixaria as portas que preciso abertas??
Obrigado.
-
Ola pessoal
Preciso fazer um servidor FTP no meu pc, so q não sei como devo conf. meu site em ASP já ta rodando legal no ISS, mas o FTP nada ainda, minha partiçao é NTFS
se aguem puder dar umas dicas ae agradeço muito..
Rogerblower.
-
oi
não uso antivirus, e a reinstalaçao q sempre faço, primeiro com fdisk, elimino a partiço e depois crio outra, sempre vai tudo bem, so que desta vzs não sei o que esta aconteçendo, penso de seugunda feira, reinstalar novamente.
Rogerblower
-
Ola pessoal
já estou ficando maulo, não sei o q ta acontecendo aqui, ontem sumiu o outlook express, hoje não consigo instalr meus programas para programaçao, delphi 7 que me diz q falta o (mso98.dll) e visual basic 6, sempre da um pau em alguma coisa.
semana passada peguei um tal de viruz do XP, reinstalei o Win e coloquei o tal do path, foi tudo beleza.
so que hoje começou a bagunça de novo, sera que vou ter q instalar tudo de novo?
alguém me ajuda ae!!
valeu .....
-
Ola pessoal
Estou começando agora com a linguagem C++ e apenas instalei o programa para começar a estudar, e já deu pau no meu ICQ.
O que foi que eu fiz de errado.
O Erro= C++ runtime library
Error C:\programas\ICQ\icq.exe
alguém pode me ajudar por favor!
Obrigado
Rogerblower
-
Ola André
Da uma olhada aqui q você vai emcontrar tudo a respeito de configuraçao para o IIS.
-
Ola Pessoal
Conheço um pouco de asp, consegui fazer um programa em asp, q serve para eu administrar minhas despesas, trabalho que o ecxel faz e muito bem, so que fiz esse pra testar, ok, deu certo.
So que a programaçao me atraiu e muito, e gostaria de tentar fazer um programa em C++ ou em outra linguagem.
alguém pode me dar a primeiras coordenadas?
valeu ae pessoal....
-
Fala ae Ademar
Eu tenho um sistema que talves seja isso que você procura, manda teu email que te passo...
Roger.
-
Lucas
Se não me engano, você esta tentando instalar o snitz, eu tive o mesmo problema no IIS do winxp, consegui resolver configurando as autorizaçoes para ecrever no db, e também o DSN do usuario no ODBC.
Qualquer coisa tenho o Snitz Forums 2000 Versao 3.4.03 traduzido por mim para o portugues BR.
da uma olhada aqui na RogerJMJ
o que esta la não esta completo, mas já tenho ele completo no meu IIS, faltam mandar algumas pag. para o servidor.
Roger
-
Ola pessoal
Estou meio perdido, em relaçao a banco de dados, gostaria de saber o q tem haver o SQL com access, access é um banco de dados, ok? e SQL o q é?
Estou perguntando isso porque no meu IIS, começou a dar erro, q dias atras não dava e com o mesmo codigo em ASP.
Quando tento abrir meu site, da um erro tipo:
pagina.asp linha xxx.ok,
Tipo do erro:
Microsoft JET Database Engine (0x80004005)
Para esta operaçao é necessario uma query atualizavel.
Quando vou ver a linha xxx, la esta escrito,
'UPGATE
my_conn.Execute (strSql)
O q é isso??, porque não consigo gravar no db, é algum problema com Origem de dados ODBC?
não sei se é este o forum certo, mas já postei no form de ASP, e não abtive respostas.
já reinstalei o IIS e nada!
Por favor alguém me ajude! já não sei mais onde pedir informaçoes sobre isso.
Rogerblower.
-
Ola pessoal
Estou meio perdido, em relaçao a banco de dados, gostaria de saber o q tem haver o SQL com access, access é um banco de dados, ok? e SQL o q é?
Estou perguntando isso porque no meu IIS, começou a dar erro, q dias atras não dava e com o mesmo codigo em ASP.
Quando tento abrir meu site, da um erro tipo:
pagina.asp linha xxx.ok,
Tipo do erro:
Microsoft JET Database Engine (0x80004005)
Para esta operaçao é necessario uma query atualizavel.
Quando vou ver a linha xxx, la esta escrito,
'UPGATE
my_conn.Execute (strSql)
O q é isso??, porque não consigo gravar no db, é algum problema com Origem de dados ODBC?
não sei se é este o forum certo, mas já postei no form de ASP, e não abtive respostas.
já reinstalei o IIS e nada!
Por favor alguém me ajude! já não sei mais onde pedir informaçoes sobre isso.
Rogerblower.
-
Ola diraol
Ae vai o codigo, e o erro q da é na linha 80
e na linha 80 = adoCon.Execute(strSQL) e quando eu faço assim
'adoCon.Execute(strSQL) abre normal so que não consigo
gravar nada no db, se puder dar uma força ae t agradeço muito...
Rogerblower.
<%
'Include this file on every page on your website, EXCEPT the livesupport pages
'Checks to see if the user is wanted in a chat room by the admin and updates active users table
'You will need to change DB path and name
'Set the script timeout in seconds
Server.ScriptTimeout = 90
'Set Dimension Variables
Dim strDataBasePath 'Holds the path to the database
Dim cString 'Holds the entire connection string
Dim adoCon 'Holds the ado connection
Dim SQL 'Holds SQL statement
Dim strIPAddress 'Holds the current users IP address
Dim rs_Active_Users 'Record sheet for the active users table
Dim chatwanted 'Holds 0 if admin doesnt to chat with them, 5 if the admin does
Dim usrID 'Holds user ID
Set adoCon = Server.CreateObject("ADODB.Connection")
'------------------------------------------------------------------------------------
'Change this value to the path of the database
strDataBasePath = "chat/LiveSupport.mdb"
'------------------------------------------------------------------------------------
dim USER_AGENT, IS_IE, IS_NN
USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")
IS_IE = InStr(USER_AGENT,"MSIE")
IS_NN = InStr(USER_AGENT,"Nav")
Dim strBrowser
if IS_IE then
strBrowser = "IE"
elseif IS_NN then
strBrowser = "NS"
else
strBrowser = "N/A"
end if
'Connection string for the database
'If the following line does not work comment it out with a ' at the start of the line and uncomment another string
cString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)
'Uncomment this connection string if you are using Access Database 2000 or 2002
'cString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath)
'Uncomment this connection string if you are using a DSN (note: DSN is slower than the above connection strings)
'cString = "DSN=NAME_OF_DSN"
'Replace the NAME_OF_DSN with the DSN
'Give the variables some values
strIPAddress = Request.ServerVariables("REMOTE_ADDR") 'Set the variable to hold the value of IP address
'Open the connection to the database path specified at top of page
adoCon.Open cString
'Open the active users record sheet
Set rs_Active_Users = Server.CreateObject("ADODB.Recordset")
'Create a new SQL statement to select the data from the row where users IP equals IP in database
strSQL = "SELECT tblActiveUsers.* From tblActiveUsers WHERE IP='" & strIPAddress & "';"
'Set the cursor and lock types
rs_Active_Users.CursorType = 2
rs_Active_Users.LockType = 3
'Open the record sheets and execute the SQL statement
rs_Active_Users.Open strSQL, CString
'Check the database to see if the user whos online has a field in the database, if not create one
If rs_Active_Users.EOF Then
'Insert the users IP address into a new row in database
strSQL = "INSERT INTO tblActiveUsers (IP, Browser) VALUES ('" & strIPAddress & "','" & strBrowser & "');"
'Write data
adoCon.Execute(strSQL) Linha 80
'If there is a record for the current user then update, dont create new
Else
'Set new SQL statement, set the last active field to the current time
strSQL = "UPDATE tblActiveUsers SET tblActiveUsers.LastActive=Now() WHERE IP='" & strIPAddress & "';"
'Write data
adoCon.Execute(strSQL)
End If
'Delete records older than 10 minuites, they are no longer active
strSQL = "DELETE FROM tblActiveUsers WHERE tblActiveUsers.LastActive < Now() - 0.0070;"
'Write data
adoCon.Execute(strSQL)
'Requery the record sheet to get data up to date
rs_Active_Users.Requery
'Close n' clean!
rs_Active_Users.Close
Set rs_Active_Users = Nothing
adoCon.close
'Open the table tblActiveUsers
set rs_Active_Users = server.createobject("ADODB.RecordSet")
'Create new SQL string
StrSql="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';"
'Open record sheet execute SQL string
rs_Active_Users.open StrSql,cString,3,3
'Take the values from the database field and put them in the variables
chatwanted = rs_Active_Users("ChatRequest")
usrID = rs_Active_Users("ID")
'Close the record sheet and clean up
rs_Active_Users.Close
Set rs_Active_Users = Nothing
%>
<%
'If the field chatwanted is set to something other than 0 Then open chat automaticaly
IF chatwanted <> 0 THEN
%>
<script language="Javascript">
pop1=window.open("chat/default.asp?q=1","pop1",
"width=400, height=300, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, directories=no, status=no");
</script>
<%ELSE%>
<%END IF%>
<%
Dim rsStats
'Open new connection to database
adoCon.Open cString
'Create new SQL string
strsql="SELECT * FROM tblStats"
set rsStats=server.CreateObject("ADODB.Recordset")
rsStats.open strsql,adocon,3,3
Dim intCurrNum
intCurrNum = rsStats.fields("PageViews")
rsStats.fields("PageViews")= intCurrNum + 1
rsStats.Update
%>
-
Ola jissa
Sou iniciante em asp, já fiz o curso aqui na SB, mas na época não entendia nada, agora alguma coisa consigo entender, so q não lembro sobre Application, se você puder dar uma ajuda ae t agradeceria muito.
eu fiz um Application dentro do codigo so q não deu certo.
Obrigado
Rogerblower
<%
Application.Lock
NumeroVisitas = Application.Contents("TotalNaPagina")
NumeroVisitas = NumeroVisitas + 1
Application.Contents("TotalNaPagina") = NumeroVisitas
Application.lock
NumeroVisitas = NumeroVisitas -1
Application.Unlock
%>
<html>
<head>
</head>
<body>
Ola! você é o visitante n°, <%=Application.Contents("TotalNaPagina")%> Obrigado.
</body>
-
Ola pessoal
Estou tendo problemas em rodar certos codigos no meu IIS, tem codigos que rodam legal, mas tem codigos que da esse erro citado abaixo
alguém pode me dizer o que é isso?
Tipo de erro:
Microsoft JET Database Engine (0x80004005)
Para a operação é necessária uma query atualizavel.
Obrigado
Rogerblower
-
Ola jissa
Testei o codigo, esta funcionando sim, so q ele continua contando depois que fecho todas as janelas do navegador, ele so para de contar quando reinicio o PC.....o q pode ser isso??
Obrigado
Rogerblower.
-
-
Ola pessoal
Gostaria de saber como faço para por na pagina inicial do meu site, tipo os ultimos 10 posts do forum?
Obrigado
Rogerblower
Preciso Fazer Um Programa Alguem Me Ajuda
em Delphi, Kylix
Postado
valeu Morphadron
T precisando mesmo, t agradeço muito..
meu ICQ é 233490369 to sempre online...
valeu...
Rogerblower