DELPHI-Man32

ele a complicado mesmo, consigui fazer so com o exe mesmo, com db não, eles devem estar na mesma pasta quando adicionados ao prejeto

também acho que você deveria criar a tabela que seria o mapa dos apartamentos tipo: status_apto.db ai você impmentaria um consulta via SQL usando parametros para verificar os apartamentos que estao em determinada situação e quantos são estes apês! vamos supor: Apto1 : status : ocupado: até: 21/05/2004 cunsuta: 'Select * from Apartamentos Where Status = 'Ocupado' and DataSaida = '21/05/2004'' no delphi você usaria uma Query par retornar os dados nu dbgrid por exemplo: begin with Query1 do close; clear; sql.add('select * from aptos'); sql.add('where status :'+combobox.text); sql.add('and datasaida = '+edt1.text); open; if IsEmpty then ShowMessage('Nenhum apartamento '+ combobox.text + 'com saída em '+ edt1.text; end; onde: combobox tem os status dos apartamentos e edt1.text a data informda para a saida do hospede!!! tendeu!!!

dar um forme close nos dois quando o usuario entrar frm_login.close; frm_chamalogin.close; é logico, se o form que chama o login for o principal(main) da aplicação, você não pode dar um close; nele senao seu programa e encerrado!

veja isso, simples de fazer e eficiente! //botao gravar, verifica se já existe o nome digitado no dbedit antes de gravar procedure TForm1.BitBtn1Click(Sender: TObject); var Nome : String; begin Nome := DBEdit2.Text; with Query1 do begin close; SQL.Clear; SQL.Add('Select * from Tabela'); SQL.Add('Where Nome = :Nomep'); ParamByName('Nomep').AsString := Nome; Open; if Query1.IsEmpty then begin Table1.Post; end else begin ShowMessage('O Nome já existe na tabela. A ação será cancelada!'); Table1.Cancel; BitBtn1.Enabled := False; end; end; end; //botao que inseri abre a tabela para um novo registro procedure TForm1.BitBtn2Click(Sender: TObject); begin Table1.Open; Table1.append; DBEdit2.SetFocus; BitBtn1.Enabled := True; end; fiz o exemplo com fontes, se quiser pegar(em DELPHI 6) http://delphiman32.z6.com.br//Teste.zip design_vagner@hotmail.com obs: a Tabela está em Paradox!

tenta assim... var N, C, U : String; begin N := Edit1.text; C := Edit2.text; U := C := Combo1.text; with Query1 do begin close; sql.clear; sql.add('Select * from tabela'); sql.add('where Nome = '+N); sql.add('and Cidade = '+C); sql.add('and Estado = '+U); open; if Query1.IsEmpty then ShowMessage('Nenhum registro encontrado'); end; end; você ainda pode implementar uma clausula "order by" para qualquer um dos campos basta adicionar: sql.add('order by Nome');

o objeto não suporta esta propriedade ou metodo! "RSforum.OpenForum" se você quer incluir os dados no banco, como você faz com com o resto do cod, posta ae!!!

você já tem o programa que faz o download:? tenta fazer isso! pega o valor do tamanho do arquivo converte para integer, armazena numa variavel depois pega esso valor e atrabui ao progress bar como tamanho maximo e incrementa nom while..do while progress.position < x do progress.position := progress.position + x //incremento... if progress.position = x then executa os comandos desejados... sei la se isso da certo... pode ser que sim com um pouca msais de logica, e já vi este seu poste ai e nada de responderem então tenta fazer isso... queima alguns neuros do cerebro para ve depois posta a resposta o q aconteceu.... no MSN estarei as 21:30hs.... pega ai embaixo!!!!

COMIGO também não FUNFO! ACHO QUE não DA CERTO!

encontrei isso no Baboo.com.br Esta dica é destinada para aqueles que possuem um site e desejam que o mesmo informe seu status (Online/Offline). 1. Adicione o usuário msnbot5@bencastricum.nl ao seu messenger. Ele será o responsável por "vigiará" seu status. 2. Abra uma janela de conversa com o referido contato e digite o comando !uid . Você receberá um ID (do tipo 12345 - esse ID é uma seqüência de números bem extensa). 3. Nesta última etapa vamos adicionar a imagem a qual indicará o seu status. Para tal, utilize a seguinte Tag: <img src="http://www.bencastricum.nl/MSN/status.php/SEU_ID.png"> OBS.: Substitua a expressão SEU_ID pelo seu ID, o qual foi obtido no passo 2. Fontes e mais informações: Ben Castrucum | Baboo.com.br (04/02/2005)

da uma olhado no: https://www.scriptbrasil.com.br tem um bom sistema de contador e formail!

da pra fazer sim usando o ASP e um banco de dados Access, na verdade o Front Page é apenas para criar o form, que pode também ser feito usando HTML puro no bloco de notas mesmo, o FP não fara a inclusão dos dados no banco, o asp o fara usando alguns scripts ASP e SQL! ex: Formulário.html <html> <head> <title>Nova pagina 1</title> </head> <body> <form method="POST" action="salvar.asp"> <p><input type="text" name="Nome" size="20"></p> <p><input type="submit" value="Submeter" name="B1"></p> </form> </body> </html> no action do form é chamado o arquivo "salvar.asp" que contem o codigo asp que grava os dados no banco. salvar.asp <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("banco.mdb") Nome = Request.Form("Nome") Set RS = Server.CreateObject("ADODB.Recordset") SQL = "Select * from TabelaAccess" RS.open SQL, Conn, 3,3 RS.addnew RS("Nome") = Nome RS.update Conn.Close Set Conn = Nothing Response.redirect "resposta.asp" %> onde resposta.asp é o arquivo de resposta ao usuario depois que os dados foram adicionados ao banco de dados. ok, e isso, qualquer duvida posta ae!

já deu uma olhada no sistema de ajuda e suporte do windows mesmo!

Personalizar a caixa de mensagem de exceções (erro) do Delphi - Declare um método (procedure) na seção private do form principal conforme abaixo: private procedure ManipulaExcecoes(Sender: TObject; E: Exception); - Vá até a seção implementation e implemente este método, conforme o exemplo: procedure TForm1.ManipulaExcecoes(Sender: TObject; E: Exception); begin MessageDlg(E.Message + #13#13 + 'Suporte técnico:'#13 + 'tecnobyte@ulbrajp.com.br', mtError, [mbOK], 0); end; - No evento OnCreate do Form principal escreva o código abaixo: procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := ManipulaExcecoes; end; === Para testar === - Coloque um Button no form; - No evento OnClick deste botão coloque o código abaixo: procedure TForm1.Button1Click(Sender: TObject); begin StrToInt('ABCD'); { Isto provoca uma exception } end; Observações Cuidado! Não coloque código que possa gerar exceção na rotina que manipula as exceções, pois se ocorrer uma exceção neste rotina, esta será chamada recursivamente até estourar a pilha.

Personalizar a caixa de mensagem de exceções (erro) do Delphi - Declare um método (procedure) na seção private do form principal conforme abaixo: private procedure ManipulaExcecoes(Sender: TObject; E: Exception); - Vá até a seção implementation e implemente este método, conforme o exemplo: procedure TForm1.ManipulaExcecoes(Sender: TObject; E: Exception); begin MessageDlg(E.Message + #13#13 + 'Suporte técnico:'#13 + 'tecnobyte@ulbrajp.com.br', mtError, [mbOK], 0); end; - No evento OnCreate do Form principal escreva o código abaixo: procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := ManipulaExcecoes; end; === Para testar === - Coloque um Button no form; - No evento OnClick deste botão coloque o código abaixo: procedure TForm1.Button1Click(Sender: TObject); begin StrToInt('ABCD'); { Isto provoca uma exception } end; Observações Cuidado! Não coloque código que possa gerar exceção na rotina que manipula as exceções, pois se ocorrer uma exceção neste rotina, esta será chamada recursivamente até estourar a pilha.

Enter funcionando como Tab em toda a aplicação Uses Grids procedure TfrmPri.MudarComEnter(var Msg: TMsg; var Handled: Boolean); begin If not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid) or (Screen.ActiveForm.ClassName = 'TMessageForm')) then begin If Msg.message = WM_KEYDOWN then begin Case Msg.wParam of VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0); VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0); end; end; end; end; no evento OnCreate o Form Principal digite a seguinte linha Application.OnMessage := MudarComEnter;

Substituindo TAB pelo ENTER procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then selectedindex := selectedindex +1 else selectedindex := 0; end; Ou então, pode-se tentar o seguinte método: Utilize o evento onkeydown do componente e insira o seguinte comando: if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0); este comando testa a tecla pressionada, se ela for um enter, manda o foco para o componente posterior.

"select Top 1 * from tabela" para banco Access

as pastas ou o banco de dados?

são dos dados da tabela, em Paradox, Interbase, o que?

obs: no caso do InterBase grave imgens *bmp! você deve usar os componentes da peleta InteBase "IBDataBase, IBDataSet, IBTransaction e Um DataSource da Paleta DataAccess.. coloca o erro que dá ae!!

faz assim: Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("banco.mdb") Nome = Request.Form("txtsolicitante") Set RS = Server.CreateObject ("ADODB.Recordset") sql = "select * from tabela" RS.Open sql, conexao, 3,3 RS.AddNew RS("solicitante") = Nome RS.update conexao.Close Set Conexao = Nothing response.redirect "resposta.asp?act="&Nome %> na pagina de resposta você coloca a variavel passado no parametro "act" tipo: <% Nome = request("act") %> <p align="Left">O solicitante <%=UCase(Nome)%> foi cadastrado com sucesso!</p> espero ter ajudao, como noso amigo dark falou, se registra que fica melhor

beleza, kara muito bom efeitos simples mais legais, eu ainda to aprendendo a fazer esses efeitos simples!!! também nu gostei muito no fundo!!! parece coisa de americano, quadriculado!!! abraços, te mais!

tem sim amigo, eu mesmo faço tudo em asp e access pelo front page mesmo, 2000 e 2003! mas post ae o que você quer em detalhes!!

o que você consegue fazer? sabe conectar o banco? mostrar os dados no cliente? fazer consultas usando SQL? se souber ae fica mais facil te ajudar não é?!!!

cara estava com esse erro também, eu estava usando o delphi 7 no windows me, depois instalei o delphi 7 no windows xp, e não deu mais o erro, porem no ME, continua!!! o q vem a ser não posso te dizer, mas no xp funciona legal!