Jhonas

Meu projeto final de Delphi é fazer um programa de vendas...eu estou muito perdido voce terá que montar o seu projeto..., então vai algum material para pesquisa http://ziggi.uol.com.br/downloads/controle-de-estoque http://www.oficinadanet.com.br/artigo/500/...phi_e_interbase Download de um programa de Cadastro de Clientes http://www.planetadelphi.com.br/download/340 Exemplos de Telas para o seu projeto http://www.activedelphi.com.br/promocao.php abraço

faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ghlite=arquivos veja os titulos dos tópicos abraço

faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=webbrowser http://scriptbrasil.com.br/forum/index.php...hlite=localizar veja os titulos dos tópicos abraço

veja http://delphi.about.com/od/objectpascalide/l/aa042500a.htm se o ingles for problema, traduza a pagina abraço

exemplo: unit UIBSQL; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, IBDatabase, IBCustomDataSet, IBQuery, IBSQL, IBUpdateSQL, DBClient, DBLocal, DBLocalI, ExtCtrls, DBCtrls, StdCtrls, IBTable, IBDatabaseInfo; type TFIBSQL = class(TForm) IBSQL1: TIBSQL; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; DataSource1: TDataSource; DBGrid1: TDBGrid; IBSQL2: TIBSQL; Button1: TButton; IBTable1: TIBTable; IBTable2: TIBTable; DataSource2: TDataSource; DBGrid2: TDBGrid; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var FIBSQL: TFIBSQL; implementation {$R *.dfm} procedure TFIBSQL.Button1Click(Sender: TObject); var Filename : String; RawOutput : TIBOutputRawFile; RawInput : TIBInputRawFile; begin IBSQL1.Sql.Text := 'Select country, currency from country'; IBSQL2.Sql.Text := 'Insert into Newcountry (country, currency) values(:first,:second)'; Filename := 'd:\DataFile.RAW'; //?COUNTRY???????? d:\DataFile.RAW ??? RawOutput:= TIBOutputRawFile.Create; try RawOutput.FileName := FileName; IBSQL1.BatchOutput(RawOutput); finally RawOutput.Free; end; //?d:\DataFile.RAW ?????????NEWCOUNTRY?? RawInput := TIBInputRawFile.Create; try RawInput.FileName := FileName; IBSQL2.BatchInput(RawInput); IBTable2.Close; IBTable2.Open; finally RawInput.Free; end; //???? IBSQL2.Transaction.CommitRetaining; end; procedure TFIBSQL.FormCreate(Sender: TObject); begin IBTable1.Open; IBTable2.Open; end; end. caso ainda tenha duvidas, veja: http://www.sqlmagazine.com.br/Colunistas/L..._exportacao.asp http://qc.embarcadero.com/wc/qcmain.aspx?d=93446 Manual Interbase http://www.gvsnet.nl/Interbase/v80/DevGuide.pdf OBS: procure entender o funcionamento do código abraço

procedure TForm1.Button1Click(Sender: TObject); begin form1.WindowState := wsMinimized; end; abraço

veja se é isso que está querendo ( veja os códigos ) http://www.planetadelphi.com.br/downloading/443 abraço

voce tem que ser mais explicito ... extamente o que voce quer fazer e qual a finalidade abraço

opcao:=MessageBox(Application.Handle , 'Esta Opção Fecha o Ano. Quer continuar?' , 'Explicações SL' , MB_YESNO + MB_ICONQUESTION ); if opcao<>6 then begin NomeFormulario.Close; end; abraço

perguntas sobre a balança http://www.igara.com.br/faq_toledo_p03.htm simulador de balança toledo http://www.igara.com.br/produto.php?cod_produto=48 P05.dll para comunicação com a balança http://www.fivewin.com.br/exibedicas.asp?id=679 exemplo de componente de comunicação unit UTToledo; interface uses Dialogs, SysUtils, Classes, Controls; function AbrePorta(const Porta, BaudRate, DataBits, Paridade: Integer): Integer; StdCall; External 'P05.DLL'; function PegaPeso(const OpcaoEscrita: Integer; Peso, Local: Pchar): Integer; StdCall; external 'P05.DLL'; function FechaPorta: Integer; StdCall; External 'P05.dll'; type TPorta = (prCOM1, prCOM2, prCOM3, prCOM4, prCOM5, prCOM6, prCOM7, prCOM8, prCOM9); TBaudRate = (br2400, br4800, br9600); TDataBits = (db7Bits, db8Bits); TParidade = (pdNenhuma, pdImpar, pdPar, pdEspaco); TToledo = class(TComponent) protected function GetWeight: Real; private FPorta: TPorta; FBaudRate: TBaudRate; FDataBits: TDataBits; FParidade: TParidade; procedure SetPorta(const Value: TPorta); procedure SetBaudRate(const Value: TBaudRate); procedure SetDataBits(const Value: TDataBits); procedure SetParidade(const Value: TParidade); public function PegarPeso: Real; function AbrirPorta: Integer; published property Porta: TPorta read FPorta write SetPorta; property DataBits: TDataBits read FDataBits write SetDataBits; property Paridade: TParidade read FParidade write SetParidade; property BaudRate: TBaudRate read FBaudRate write SetBaudRate; end; procedure Register; implementation procedure Register; begin RegisterComponents('Anderson', [TToledo]); end; { TToledo } function TToledo.AbrirPorta: Integer; var iPorta: Byte; iBaudRate: Byte; iDataBits: Byte; iParidade: Byte; begin case Porta of prCOM1 : iPorta := 1; prCOM2 : iPorta := 2; prCOM3 : iPorta := 3; prCOM4 : iPorta := 4; prCOM5 : iPorta := 5; prCOM6 : iPorta := 6; prCOM7 : iPorta := 7; prCOM8 : iPorta := 8; prCOM9 : iPorta := 9; else iPorta := 1; end; case BaudRate of br2400 : iBaudRate := 0; br4800 : iBaudRate := 1; br9600 : iBaudRate := 2; else iBaudRate := 2; end; case DataBits of db7Bits : iDataBits := 0; db8Bits : iDataBits := 1; else iDataBits := 0; end; case Paridade of pdNenhuma : iParidade := 0; pdImpar : iParidade := 1; pdPar : iParidade := 2; pdEspaco : iParidade := 3; else iParidade := 3; end; Result := AbrePorta(iPorta, iBaudRate, iDataBits, iParidade ) end; function TToledo.GetWeight: Real; begin Result := StrToFloatDef(InputBox('Peso na balança', 'Informe o peso','0'),0); end; function TToledo.PegarPeso: Real; var Retorno: Integer; Peso: array[0..5]of char; begin repeat Retorno := AbrirPorta; Result := 0; if Retorno <> 1 then MessageDlg('Erro na abertura da porta COM da Balança!',mtError,[mbOk],0) else begin Retorno := PegaPeso( 1, Peso, '' ); if Retorno = 1 then begin Result := StrToFloatDef(StrPas(Peso),0); Result := Result/1000; // Break; end; FechaPorta(); end; if (Result <= 0) or (Retorno <> 1) then begin if MessageDlg('*** ERRO NA LEITURA DO PESO DA BALANÇA *** ' + #13 + #13 + 'O Sistema não conseguiu ler o peso da Balança.' + #13 + 'Você pode retirar o peso e colocar novamente para nova tenta-' + #13 + 'tiva de leitura do peso da balança. Caso não consiga ler o peso'+ #13 + 'da balança, você poder digitar o peso do produto.' + #13 + #13 + #13 + '[SIM] -> Para digitar o peso do produto' + #13 + '[NÃO] -> Para nova tentativa de ler o peso na balança', MtWarning,[mbYes,mbNo],0) = MrYes then begin Result := GetWeight(); Break; end;//-- if MessageDlg('*** ERRO ... end//-- if (Result <= 0) or (Retorno <> 1) then else begin Break; end; until False end; procedure TToledo.SetBaudRate(const Value: TBaudRate); begin FBaudRate := Value; end; procedure TToledo.SetDataBits(const Value: TDataBits); begin FDataBits := Value; end; procedure TToledo.SetParidade(const Value: TParidade); begin FParidade := Value; end; procedure TToledo.SetPorta(const Value: TPorta); begin FPorta := Value; end; end. abraço

voce viu esse ? http://scriptbrasil.com.br/forum/index.php?showtopic=51237 abraço

Erro: 'Não é possível fazer uma janela modal visível' acho que a tradução do erro já te dá uma idéia do que fazer ou faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ghlite=mdi+form abraço

caso lhe interesse... tem mais exemplos prontos neste link http://www.iocomp.com/FileDownloads/Exampl...plesDelphi7.msi estes são para o delphi 7 mas tem para outras versões tambem Vlw abraço

Veja no link abaixo e clique em Datalogic ( perguntas e respostas ) Obs: ao lado tem o link para o manual do aparelho http://www.xpto.com.br/suporte_perguntas_resp_leitores.asp este modelo pega RJ45 no leitor e o mesmo cabo entra no PC como SERIAL (DB9), Talvez voce não tenha comunicação com a porta serial e precise de um componente para isso, então veja o post: http://scriptbrasil.com.br/forum/index.php...amp;hl=tcomport abraço

exatamente ... veja qual é a configuração que voce quer fazer no leitor depois para testar, faça o teste usando o word ... a leirura do código deverá aparecer na tela do word abraço

Documentação http://www.iocomp.com/FileDownloads/Docume...ActiveX_VCL.pdf Links para Download do Pacote de Componentes ( delphi 4, 5, 6, 7, 2005, 2006, 2007, rad 2007 ) http://rs328tl5.rapidshare.com/cgi-bin/rsa...352EEF42B7B3860 https://rs328l33.rapidshare.com/#!downl...62A78540642|0|0 http://www.filecrop.com/7599865/index.html exemplos http://www.iocomp.com/examples abraço

veja http://scriptbrasil.com.br/forum/index.php...osed+Gracefully abraço

veja a partir da pagina 87 dessa monografia ( componente HierCube ) http://www2.unoeste.br/~chico/FIPP/projeto...rnando_2005.pdf abraço

a configuração do leitor é feita pelo proprio manual, onde tem varios códigos de barras que deverão ser lidos em sequencia ( cada configuração contem códigos de barras que ocupam uma pagina do manual ) se o seu não for assim, passe o modelo do seu leitor abraço

o que voce quer fazer não é tão simples, e agora estou envolvido em outro serviço.. então voce terá que pesquisar mais um pouco leia sobre Const http://www.weinrich.eti.br/artigos/segredos.htm mais esses http://www.delphibasics.co.uk/RTL.asp?Name=Const http://read.pudn.com/downloads57/ebook/202...rUnit.pas__.htm abraço

faça um teste de leitura de um código de barras usando o Word se aparecer no word, o problema está no proprio software ( verifique ) se não aparecer no word, o problema está no proprio leitor ( veja as configurações ) abraço

O erro refere-se a que a sentença SQL esta vazia, ou seja, não está sendo atribuida a sentença sql ao componente queryConsultaTelefone.SQL.Add(sql); deveria ser queryConsultaTelefone.SQL.Add(sql2); abraço

ok... mas voce não entendeu. mostre o erro como ele aparece na tela, ou seja, a mensagem de erro que é mostrada em ingles. o seu código mais a mensagem, facilita a correção do erro abraço

agora mostre o erro

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...mp;highlite=voz abraço