nicolasbraz

Versao do Ubuntu ? E onde esta pegando o Lazarus ?

Sem problemas precisar e so falar

Ok Jhonas vou testar e depois falo com voce muito obrigado. Meu erro foi falta de pesquisar e esqueci que o TimeStamp era para Data e Hora.

No site "superdownloads" voce encontra varios anti-virus para downloads. Eu recomendo o Avast.

Estarei mudando o campo para o tipo "data" seria o melhor a fazer?

Jhonas os 3 codigos não consegui fazer funcionar com o primeiro ele roda mas diz que 00/00/0000 não e uma data valida. Os outros não compilam o meu campo esta como "TimeStamp" no banco de dados seria isso causa do problema?

A sim entendi obrigado por exclarecer as duvidas :D

Sim claro entendo perfeitamente isso, gostaria de saber e que não soube me expressar direito. O OO (Open Office) tem o software para banco de dados certo ? eu poderia criar um banco com a mesma extensao .mdb? Acho que agora me expressei melhor.

Resolvi já problema no DataSource

Gostaria de saber sobre as pessoas que usam o vista o porque usam o mesmo? Desenvolvedores e usuarios finais, porque vista?

Consegui instalar o rxLib e o quick report. :D falta so o vclskin mas ele continua dando os mesmos problemas do delphi 7? Ele dava muitos problemas na hora de fechar o projeto ele trava. O RxLib da erro segui esses passos para instalaçao http://seucolega.wordpress.com/2007/07/21/...-o-delphi-2007/ Ele não compila por causa dessas duas Units. RXCtrls, RXDBCtrl.

Jhonas o erro esta aqui .: if datademini.Date = 00/00/0000 then Se eu remover essa parte ele funciona. Eu estava pensando Jhonas em criar um radioGroup no formulario de Consulta com 2 opçoes. Funcionario = item 1 ativo, item 2 inativo. Se ela selecionar o 1 ele cancela o campo e o ignora, se selecionar o 2 ele continua e busca funcionarios demitidos. O que acha?

Ola pessoal gostaria de saber se compensa a migraçao de delphi 7 para 2007, estou finalizando o projeto esta em 80% gostaria de saber se compensar passar ele para o delphi 2007. Uso 2 componentes de terceiros so, VclSkin (que da muitos problemas pensando em não usar mais). RxLib(Esse e essencial para o projeto).

unit UfrmCliente; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, ExtCtrls, Grids, DBGrids, ComCtrls, StdCtrls, Buttons, RXCtrls, RXDBCtrl, DB,Mask, IBCustomDataSet, IBTable, ToolEdit, IBQuery, Menus; type TFrmClientes = class(TForm) PcClientes: TPageControl; TbConsulta: TTabSheet; TbCadastro: TTabSheet; StatusBar1: TStatusBar; DBGrid1: TDBGrid; Panel1: TPanel; StatusBar2: TStatusBar; botao_novo: TBitBtn; botao_alterar: TBitBtn; botao_excluir: TBitBtn; DBStatusLabel1: TDBStatusLabel; botao_cancelar: TBitBtn; botao_salvar: TBitBtn; DBNavigator1: TDBNavigator; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; Label8: TLabel; DBEdit8: TDBEdit; Label9: TLabel; DBEdit9: TDBEdit; Label10: TLabel; DBEdit10: TDBEdit; Label11: TLabel; DBEdit11: TDBEdit; Label12: TLabel; DBEdit12: TDBEdit; Label13: TLabel; DBEdit13: TDBEdit; Label3: TLabel; DBEdit3: TDBEdit; Label4: TLabel; DBEdit4: TDBEdit; Label5: TLabel; DBEdit5: TDBEdit; Label6: TLabel; DBEdit6: TDBEdit; Label7: TLabel; Label14: TLabel; DBEdit14: TDBEdit; Label15: TLabel; DBEdit15: TDBEdit; DBDateEdit1: TDBDateEdit; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure botao_novoClick(Sender: TObject); procedure botao_cancelarClick(Sender: TObject); procedure botao_salvarClick(Sender: TObject); procedure botao_alterarClick(Sender: TObject); procedure botao_excluirClick(Sender: TObject); procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); procedure DBEdit2Change(Sender: TObject); // procedure gera_codigo(sender: TObject); private texto:string; MyMenuItem : TMenuItem; { Private declarations } public { Public declarations } end; var FrmClientes: TFrmClientes; implementation uses UDM_dados; {$R *.dfm} procedure TFrmClientes.FormCreate(Sender: TObject); begin dmdados.tblCliente.Open; dmdados.tblCliente.Active:=true; texto:=''; end; procedure TFrmClientes.FormClose(Sender: TObject; var Action: TCloseAction); begin MyMenuItem.Free; Action := caFree; frmclientes:= nil; Release; end; procedure TFrmClientes.FormShow(Sender: TObject); begin TbConsulta.tabvisible := true; tbcadastro.TabVisible := false; dbgrid1.SetFocus; if (dmdados.TblUsuarioUSU_NIVEL.value = 2) then begin botao_salvar.Enabled:=true; end; if (dmdados.tblusuarioUSU_NIVEL.Value = 3) then begin botao_salvar.Enabled:=true; end; end; procedure TFrmClientes.botao_novoClick(Sender: TObject); var ultcod:integer; begin TbConsulta.TabVisible := false; tbCadastro.TabVisible := true; botao_salvar.Enabled:=false; dmdados.tblcliente.Last; UltCod := dmdados.tblcliente.fieldByName('cli_codigo').AsInteger; dmdados.tblcliente.Insert; Dmdados.tblcliente.fieldByName('cli_codigo').AsInteger := UltCod + 1; dmdados.TblclienteCli_datacad.value:=date; dbedit2.SetFocus; end; procedure TFrmClientes.botao_cancelarClick(Sender: TObject); begin dmdados.tblcliente.Cancel; TbCadastro.TabVisible := false; tbconsulta.TabVisible := true; dbgrid1.SetFocus; end; procedure TFrmClientes.botao_salvarClick(Sender: TObject); begin if dmdados.dsCliente.State in [Dsinsert,DsEdit] then begin if dbedit2.text > '' then begin botao_salvar.Enabled:=true; if messageDlg ('Tem certeza que deseja salvar as alterações?!', MtConfirmation,[MbYes,MbNo],0)=MrYes then dmdados.tblcliente.post; dmdados.IBTrans.CommitRetaining; refresh; TbCadastro.TabVisible:=false; tbconsulta.TabVisible:=true; dbgrid1.SetFocus; end else if dbedit2.Text = ('') then begin showmessage ('Preencha o nome para Salvar') end; end; end; procedure TFrmClientes.botao_alterarClick(Sender: TObject); begin dmdados.tblcliente.Edit; TbConsulta.TabVisible:=false; TbCadastro.TabVisible:=true; dbedit2.SetFocus; botao_salvar.Enabled:=enabled; end; procedure TFrmClientes.botao_excluirClick(Sender: TObject); begin if messageDlg ('Tem certeza que deseja Excluir o Cliente?!',MtConfirmation,[MbYes,MbNo],0)=MrYes then dmdados.tblcliente.Delete; dmdados.IBTrans.CommitRetaining; refresh; end; procedure TFrmClientes.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin if texto > '' then begin dmdados.tblcliente.Locate('cli_nome',texto,[loCaseInsensitive,loPartialKey]); texto:=''; statusbar2.Panels[1].Text:=texto; end else if dmdados.tblcliente.RecordCount > 0 then botao_alterar.Click end else if key = #8 then begin texto := copy(texto, 1, length(texto) -1); statusbar2.Panels[1].text:=texto; end else begin texto := texto + key; statusbar2.Panels[1].text := texto; end; end; procedure TFrmClientes.FormKeyPress(Sender: TObject; var Key: Char); begin if key = #27 then if PcClientes.ActivePageIndex = 0 then close else botao_cancelar.Click; end; procedure TFrmClientes.Button1Click(Sender: TObject); begin dmdados.tblcliente.Insert; end; procedure TFrmClientes.DBEdit2Change(Sender: TObject); begin if dmdados.DsCliente.State in [Dsinsert] then begin if (dmdados.tblCliente.Modified=true) then begin botao_salvar.Enabled:=true; end; end; end; end. http://img144.imageshack.us/img144/8612/clientes.jpg

Ok estarei vendo qualquer coisa posto aqui.

Olá bom dia, O problema e o seguinte tenho o formulario de clientes, so que ele esta praticamente "Travado", so consigo cadastrar e deletar novos registros, na hora de editar não consigo alterar nada exclui o formulario criei outro, acessei o banco de dados pelo Ibexpert e consigui mexer normal.

Que bom fico feliz em saber disso. http://informaticon.com.br/site/mod/resource/view.php?id=8 Esse outro curso usa Acess como banco de dados e possivel fazer ele no linux tambem ? para imprimir ele usa o Ireport / JasperReport. Obrigado gostaria muito de migrar de vez para o linux, e java me ajudaria muito.

Jhonas não estou usando mascara. No banco de dados ele esta assim .: " FUNC_CPF VARCHAR(14) CHARACTER SET NONE" Abraço.

procedure TFrmConFuncionario.FormCreate(Sender: TObject); begin dmdados.SqlConFuncionario.Open; dmdados.tblFuncionario.Open; end; procedure TFrmConFuncionario.FormClose(Sender: TObject; var Action: TCloseAction); begin action := CaFree; frmconFuncionario := nil; release; dmdados.SqlConFuncionario.close; end; procedure TFrmConFuncionario.ImprimirClick(Sender: TObject); var funcionario:TfrmRelConFuncionario; begin Funcionario:=TfrmRelConFuncionario.Create(self); funcionario.QuickRep1.Preview; end; procedure TFrmConFuncionario.BitBtn2Click(Sender: TObject); Begin if datademini.Date = 00/00/0000 then begin dmdados.sqlconfuncionario.close; dmdados.SqlConFuncionario.ParamByName('nome').asstring:='%'+editnome.text+'%'; dmdados.SqlConFuncionario.ParamByName('cidade').AsString:='%'+EditCidade.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cargo').AsString:='%'+ComboBox1.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cpf').AsString:='%'+EditCpf.Text+'%'; dmdados.SqlConFuncionario.ParamByName('dataadmini').AsDate:=dataadmIni.Date; dmdados.SqlConFuncionario.ParamByName('dataadmfin').AsDate:=DataadmFin.Date; dmdados.SqlConFuncionario.Open; end else dmdados.SqlConFuncionario.Close; dmdados.SqlConFuncionario.ParamByName('nome').asstring:='%'+editnome.text+'%'; dmdados.SqlConFuncionario.ParamByName('cidade').AsString:='%'+EditCidade.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cargo').AsString:='%'+ComboBox1.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cpf').AsString:='%'+EditCpf.Text+'%'; dmdados.SqlConFuncionario.ParamByName('dataadmini').AsDate:=dataadmIni.Date; dmdados.SqlConFuncionario.ParamByName('dataadmfin').AsDate:=DataadmFin.Date; dmdados.SqlConFuncionario.ParamByName('datademini').AsDate:=datademini.Date; dmdados.SqlConFuncionario.ParamByName('datademfin').AsDate:=datademfin.Date; dmdados.SqlConFuncionario.Open; end; procedure TFrmConFuncionario.FormKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then bitbtn2.Click; if key = #27 then FrmConFuncionario.Close; end; end. Pronto ...

Zuera Eu não defini ele como ponto flutuante todo codigo esta postado ai.

Para baixar o debian veja antes qual tipo de processador usa e baixe a .iso ideal para seu tipo de processador. :D

Para servidor 1 muito bom seria o Debian. Netbeans tem versao para linux. Delphi se voce não for usar nem API do windows pode se usar Kylix ou Lazarus, para a aplicaçao funcionar no linux e necessario que abra ela com o Kylix ou Lazarus e a recompile no ambiente linux. Debian para desktops tambem seria uma otima.

Eu deixo os 2 DataEdit com os valores 00/00/0000 Para que se alguém não quiser ver pesquisar funcionarios demetidos não mexam nos valores assim ele ignora esse tipo de pesquisa. A ideia seria essa :D o erro e esse http://img2.imageshack.us/img2/7005/veja.jpg

coloquei esse codigo Begin if datademini.Date = 00/00/0000 then begin dmdados.sqlconfuncionario.close; dmdados.SqlConFuncionario.ParamByName('nome').asstring:='%'+editnome.text+'%'; dmdados.SqlConFuncionario.ParamByName('cidade').AsString:='%'+EditCidade.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cargo').AsString:='%'+ComboBox1.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cpf').AsString:='%'+EditCpf.Text+'%'; dmdados.SqlConFuncionario.ParamByName('dataadmini').AsDate:=dataadmIni.Date; dmdados.SqlConFuncionario.ParamByName('dataadmfin').AsDate:=DataadmFin.Date; dmdados.SqlConFuncionario.Open; end else dmdados.SqlConFuncionario.Close; dmdados.SqlConFuncionario.ParamByName('nome').asstring:='%'+editnome.text+'%'; dmdados.SqlConFuncionario.ParamByName('cidade').AsString:='%'+EditCidade.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cargo').AsString:='%'+ComboBox1.Text+'%'; dmdados.SqlConFuncionario.ParamByName('cpf').AsString:='%'+EditCpf.Text+'%'; dmdados.SqlConFuncionario.ParamByName('dataadmini').AsDate:=dataadmIni.Date; dmdados.SqlConFuncionario.ParamByName('dataadmfin').AsDate:=DataadmFin.Date; dmdados.SqlConFuncionario.ParamByName('datademini').AsDate:=datademini.Date; dmdados.SqlConFuncionario.ParamByName('datademfin').AsDate:=datademfin.Date; dmdados.SqlConFuncionario.Open; end; So que ele da erro de ponto flotuante. O que pode estar dando de errado? :S

Obrigado por esclarecer todas as duvidas acima. Gostaria de saber se eu consigo fazer tudo que tem nesse cursod e java Me em linux. http://informaticon.com.br/site/mod/resource/view.php?id=9.