Jhonas

veja este https://www.scriptbrasil.com.br/forum/lofiv...hp/t111308.html abraço

Voce sabe fazer relacionamento entre tabelas ? exemplo: 1 professor para N turmas 1 turma para N materias etc... Fazendo o relacionamento entre as suas tabelas, voce poderá montar a grade de cursos .... um campo em cada tabela deverá ser usado para fazer este relacionamento

22007 formato inválido para Datetime. A sintaxe da representação de um valor datetime está incorrecto. voce deve usar o formato para o oracle 10g. .. acho que é mm/dd/yyyy 01000 Aviso. Mensagem informativa (a função retorna SQL_SUCCESS_WITH_INFO). http://support.microsoft.com/kb/q286253/ abraço

document.getElementById() este comando deve ter um indice que representa o form da pagina web ( ex: 0, 1, 2 ... etc ) procure no forum ... esse assunto já foi discutido abraço

Coloque no evento OnActive do Form DMConsultas.CDs_ImportaMorador.Active := true; procedure TF_ImportaMorador.DBGrid1CellClick(Column: TColumn); begin if Column.ID = 0 then begin if DMConsultas.Q_ImportaMoradorarquivo.asstring = 'X' then begin DMConsultas.CDs_ImportaMorador.Edit; DMConsultas.CDs_ImportaMoradorarquivo.asstring := ''; DMConsultas.CDs_ImportaMorador.post; DMConsultas.CDs_ImportaMorador.ApplyUpdates(-1); end else begin DMConsultas.CDs_ImportaMorador.Edit; DMConsultas.CDs_ImportaMoradorarquivo.asstring := 'X'; DMConsultas.CDs_ImportaMorador.post; DMConsultas.CDs_ImportaMorador.ApplyUpdates(-1); end; end; end; OBS: Não esqueça de ativar a Query tambem abraço

Falta voce instalar o BDE ou os drives necessarios na máquina cliente ( se voce usar o installshield que vem com o delphi, ele já faz isso ) faça uma pesquisa no forum que voce encontrará outros tópicos relacionados abraço

para bloquear o clique do mouse voce tambem terá que bloquear o teclado se não não funciona veja neste endereço http://www.swissdelphicenter.ch/torry/showcode.php?id=312 abraço

pode ser 2 problemas: 1 - verifique na placa mãe perto do cabo da fonte, existem vários capacitores de igual tamanho enfileirados ( acho de de 1000mf x 16V) .. observe se estão estufados ( olhe por cima dele ) se estiverem estufados provavelmente estão subdimensionados para a voltagem da fonte, podem ter vazado o eletrólito e já não conseguem manter a energia estavel ao circuito ...voce terá que substituí-los 2 - Se o teste de memória é feito e na leitura do hd ele para, verifique se o motor do hd está rodando, verifique o cabo de dados, verifique o conector de energia ( veja se as voltagens 5V e 12V nos pinos estão corretas), tire as memórias e limpe os contatos e recoloque. Verifique a configuração no Setup da BIOS. abraço

como vou fazer pra vincular a image q eu salvar em determinada pasta com os dados no banco de dados no excell Para salvar a imagem em determinada pasta do diretório procedure TForm2.Button5Click(Sender: TObject); begin if SavePictureDialog1.Execute then Image1.Picture.SaveToFile(SavePictureDialog1.FileName); end; Citação: ...a foto aparece no dbimage mas pra salvar essa foto a este produto oque devo fazer,... Para armazenar a imagem eu anteiormente utilizei um campo BLOB no banco e, para ler e gravar, um TMemoryStrem como intermediários. Após ter carregado a imagem para o DBImage através do OpenPictureDialog, você pode executar um procedimento mais ou menos assim:Código: procedure TForm1.GravaImage(Imagem :TDBImage); var MemStream: TMemoryStream; begin MemStream := TMemoryStream.Create; try Imagem.Picture.Graphic.SaveToStream(MemStream); TableName.Edit; TableNameBlobField.LoadFromStream(MemStream); TableName.Post; finally TheStream.Free; end; end; Obs: leve em consideração o fato de sua tabela já estar em edição, daí tem um edit e post que não precisará ser utilizado. Dica do Micheus outros posts relacionados: http://scriptbrasil.com.br/forum/index.php...enpicturedialog abraço

Abra um outro tópico para um novo assunto abraço

Tutorias & Dicas - Delphi, Kylix http://scriptbrasil.com.br/forum/index.php?showforum=69 abraço

Exemplo bem simples: componentes usados DBGrid1: TDBGrid; DBGrid2: TDBGrid; Query1: TQuery; DataSetProvider1: TDataSetProvider; ClientDataSet1: TClientDataSet; DataSource1: TDataSource; ClientDataSet2: TClientDataSet; DataSource2: TDataSource; unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBClient, Provider, DBTables, Grids, DBGrids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; DBGrid1: TDBGrid; DBGrid2: TDBGrid; Query1: TQuery; DataSetProvider1: TDataSetProvider; ClientDataSet1: TClientDataSet; DataSource1: TDataSource; ClientDataSet2: TClientDataSet; DataSource2: TDataSource; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin clientdataset2.Data := ClientDataSet1.Delta; clientdataset2.SaveToFile('c:\teste.xml'); end; end. OBS: O clientdataset2 receberá somente os registros com os campos modificados e será gerado o arquivo XML somente com os campos modificados no clientdataset1 exemplo do arquivo XML gerado com apenas um campo modificado ( RUA ) Observe que o unico campo alterado foi o nome da RUA ... acho que o resto voce sabe fazer ClientDataSet possui dois estados internos. ClientDataSet. Data: contém os dados originais ClientDataSet. Delta: contém os dados que sofreram alteração A peristência na verdade é realizada pelo DataSetProvider de acordo com seu UpdateMode e com as configurações dos ProviderFlags. Tanto o Data quanto o Delta são OleVariants, desta forma você pode criar um array de variants e atribuir o valor, ou utilizar um outro ClientDataSet.Data em tempo de execução. abraço

Sempre que um usuário se conecta a uma base de dados firebird/interbase, sua senha é verificada através de uma senha encriptada, guardada em uma base de dados especial – isc4.gdb, que é comum a todas as bases de dados naquele servidor firebird/ib. http://www.comunidade-firebird.org/cflp/do...s/CFLP_T010.PDF http://www.comunidade-firebird.org/cflp/do...s/CFLP_O037.PDF http://under-linux.org/wiki/index.php/Tuto...-Seguran%C3%A7a abraço

Poste a parte do código onde voce está salvando a imagem abraço

Existem muitas formas ... uma delas seria: procedure TForm1.DBGrid1DblClick(Sender: TObject); begin if DBGrid1.Columns[4].FieldName = 'SERVICOS' then /// Campo Memo showmessage(Query1SERVICOS.Value); end; OBS: Ao dar um duplo click no DBgrid no campo onde se encontra o DBMemo será mostrado o conteudo do memo em um show message abraço

nsouza veja este exemplo http://www.linhadecodigo.com.br/codigos/14/contatos.zip abraço

O TDBLookupCombobox lista um campo especifico da sua tabela onde o item escolhido poderá ser adicionado em uma outra tabela .... veja o que é melhor para usar abraço

Colega.. se voce tiver algo desenvolvido, poste que poderemos lhe ajudar .. se não tiver nada será dificil ... o forum é destinado a tirar dúvidas e não ensinar a programar abraço

Se voce conseguir entender .... outra maneira seria voce criar um componente derivado do TDBgrid com as funcionalidades que voce precisa Neste exemplo está sendo removida a barra de rolagem vertical e horizontal do TDBgrid unit ExtentedDBGrid; interface uses Windows, Messages, SysUtils, Classes, DBGrids, Math, Controls; type TExtendedColumn = class(TColumn) private { Private declarations } FTag: Integer; protected { Protected declarations } published { Published declarations } property Tag: Integer read FTag write FTag; end; TExtendedDBGrid = class(TDBGrid) private { Private declarations } FVerticalBar : Boolean; FHorizontalBar: Boolean; procedure SetVerticalBar(AValue: Boolean); procedure SetHorizontalBar(AValue: Boolean); procedure WMNCCalcSize(var msg: TMessage); message WM_NCCALCSIZE; protected { Protected declarations } function CreateColumns: TDBGridColumns; override; public { Public declarations } constructor Create(AOwner: TComponent); override; destructor Destroy; override; published { Published declarations } property VerticalBar: Boolean read FVerticalBar write SetVerticalBar default True; property HorizontalBar: Boolean read FHorizontalBar write SetHorizontalBar default False; end; procedure Register; implementation uses Grids; procedure Register; begin RegisterComponents('Own Components', [TExtendedDBGrid]); end; { TExtentedDBGrid } constructor TExtendedDBGrid.Create(AOwner: TComponent); begin inherited Create(AOwner); FVerticalBar := True; FHorizontalBar := False; end; function TExtendedDBGrid.CreateColumns: TDBGridColumns; begin Result := TDBGridColumns.Create(Self,TExtendedColumn); end; destructor TExtendedDBGrid.Destroy; begin inherited Destroy; end; procedure TExtendedDBGrid.SetHorizontalBar(AValue: Boolean); begin FHorizontalBar := AValue; RecreateWnd; end; procedure TExtendedDBGrid.SetVerticalBar(AValue: Boolean); begin FVerticalBar := AValue; RecreateWnd; end; procedure TExtendedDBGrid.WMNCCalcSize(var msg: TMessage); var style: Integer; begin style := getWindowLong( handle, GWL_STYLE ); if (style and WS_HSCROLL) <> 0 then if not FHorizontalBar then SetWindowLong( handle, GWL_STYLE, style and not WS_HSCROLL ); if (style and WS_VSCROLL) <> 0 then if not FVerticalBar then SetWindowLong( handle, GWL_STYLE, style and not WS_VSCROLL ); inherited; end; end. abraço

Experimente usar Select Distinct abraço

Acho que voce acabou quebrando internamente o cabo de conexão ou ele esta com mal contato, ou ainda pode ter pinos amassados, pois não encontrou o sistema opercional Solução - reaperte os conectores internos e verifique o contato das memórias - reinicie máquina, ESC e F1 para entrar para entrar no setup da BIOS, desabilite a LAN no laptop. - tire bateria, e recoloque-a caso não funcione tente dar o boot pelo CDRom abraço

Esse problema é de mal contato interno ... a solução é abrir e reapertar todos o conectores internos. abraço

Na propriedade Items do DBCombobox coloque os itens que voce quer: 001 - Proprietário 002 - Inquilino .... Na propriedade DataSource do DBCombobox coloque o DataSource da sua tabela e na propriedade DataField o nome do campo da sua tabela que ira receber uma das opções do DBCombobox abraço

Se voce olhasse um dos posts mais abaixo da lista iria encontrar esse: http://scriptbrasil.com.br/forum/index.php...st&p=555477 abraço

Na propriedade Columns do RadioGroup coloque 2 abraço