Vivendo&Aprendendo

Olá amigão! Vamos la passo a passo: * Em 1º lugar crie um campo na tabela de clientes do tipo OBJETO OLE ou você poderá criar do tipo texto e guardar nele o caminho da foto, mas vamos ver com o primeiro campo. * O componente a ser usado no form de clientes é o DBImage que está na paleta Data Controls é só adicionar ele no form e vincular as propriedades Data Source (esta recebe o DataSource referente ao cadastro do cliente) e o data field que receberá o campo foto da tabela. * Adicione também um componente OpenPictureDialog no form que está na paleta DIALOGS. * Adicione um botão qualquer em seu form, este será usado para localizar a foto. * No evento OnClick deste botão coloque o seguinte código: OpenPictureDialog.Execute; if OpenPictureDialog.FileName <> '' then ImgFoto.Picture.LoadFromFile(OpenPictureDialog.Filename); Está ai amigão eu utilizo desta maneira e funciona certinho. OBS: utilizo banco access. falou Alexandre

Galera a pesquisa eu consegui fazer com uma select. Agora me respondam uma coisa é possível fazer com que na hora que eu escolher DATA VENCIMENTO no Combobox não seja limpa a grade do grid, pois quando escolho ele limpa todo o grid e só acha o registro depois de estar tudo digitado.

Micheus fiz da seguinte maneira e deu erro na hora que escolho no combo o item da data busca := True; try StrToDate(EdtBusca.Text); if (busca) and (CbbBusca.ItemIndex = 1) then begin ADOContasReceber.Close; ADOContasReceber.SQL.Clear; ADOContasReceber.SQL.Add('Select * From ContasReceber'); ADOContasReceber.SQL.Add('Where Situacao = "A PAGAR" and DataVencimento Like :pDat '); ADOContasReceber.SQL.Add('Order By Cliente'); ADOContasReceber.Parameters[0].Value := EdtBusca.Text + '%'; ADOContasReceber.Open; end; except on EConvertError do busca := False; end; Será que tem como fazer isso de outra maneira? falou

Olá não tenho o componente mas no form tem a propriedade AlphaBlendValue que da o efeito alpha no form antes coloque true na propriedade AlphaBlend...

var busca : Boolean; begin busca := True; try StrToDate(MaskEdit1.Text); except on EConvertError do busca := False; end; if (busca) then begin ... end; end; cara coloquei esse código no OnChange e no OnClick do Combo coloquei para que quando for a DATA e jogar para o editMask a mascara mas da erro dizendo que a data é inválida. Meu código ficou dessa forma: OnClick do combo EdtBusca.SetFocus; If CbbBusca.ItemIndex = 1 Then EdtBusca.EditMask := '##/##/####;1;_' else EdtBusca.Clear; Busca no OnChange do edit busca := True; try StrToDate(EdtBusca.Text); except on EConvertError do busca := False; end; if (busca) and (CbbBusca.ItemIndex = 1) then begin ADOContasReceber.Close; ADOContasReceber.SQL.Clear; ADOContasReceber.SQL.Add('Select * From ContasReceber'); ADOContasReceber.SQL.Add('Where Situacao = "A PAGAR" and DataVencimento Like :pDat '); ADOContasReceber.SQL.Add('Order By Cliente'); ADOContasReceber.Parameters[0].Value := EdtBusca.Text + '%'; ADOContasReceber.Open; end; cara acho que vou ter que fazer isso de outra maneira, não queria deixar sem a mascara. falou

cara estou utilizando o OnChange, mas como ficaria isso com a exceção?

aí galera está resolvido o meu problema... Consegui da seguinte forma: procedure TFrm_Principal.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin IF NOT odd(IBTable1.RecNo) THEN IF NOT (GdSelected IN State) THEN Begin Dbgrid1.Canvas.Brush.Color := $00AABB; Dbgrid1.Canvas.FillRect(rect); Dbgrid1.DefaultDrawDataCell(Rect,column.Field,State); end; end; Funciona direitinho. Coloca o grid de forma zebrada e adiciona as barras somente quando necessário. falou

Isso mesmo amigão... ele entende que a mascara é algo que foi digitado e que ele deve buscar por um registro igual, mas quando eu digito a data ele faz a busca certinho. falou

Olá galera! Seguinte tenho um form com um DBGrid, um Combo e um EditMask. quando escolho no meu combo DATA VENCIMENTO ele joga para o editmask a mascara ##/##/#### mas ai por ter a mascara ele zera o grid eu preciso usar a mascara mas não está dando certo, pois com ela só aparece o registro que digitei a data de vencimento quando termino de digitar e não como o sql faz trazendo todos os registros parecidos.. Como posso fazer isso? Alexandre

Olá amigão vai ai uma rotina para setar a impressora pelo nome: procedure SetDefaultPrinter(PrinterName: String); var I: Integer; Device : PChar; Driver : Pchar; Port : Pchar; HdeviceMode: Thandle; aPrinter : TPrinter; begin Printer.PrinterIndex := -1; getmem(Device, 255); getmem(Driver, 255); getmem(Port, 255); aPrinter := TPrinter.create; for I := 0 to Printer.printers.Count-1 do begin if Printer.printers[i] = PrinterName then begin aprinter.printerindex := i; aPrinter.getprinter (device, driver, port, HdeviceMode); StrCat(Device, ','); StrCat(Device, Driver ); StrCat(Device, Port ); WriteProfileString('windows', 'device', Device); StrCopy( Device, 'windows' ); SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@Device)); end; end; Freemem(Device, 255); Freemem(Driver, 255); Freemem(Port, 255); aPrinter.Free; end; OBS não testei ela... mas vê ai se serve para ti. abraços Alexandre

cara quando eu tiro a primeira não aparece nenhuma das barras. meu código está assim agora: If odd(ADOInformacoes.RecNo) then begin DBGridInf.Canvas.Font.Color:= clBlack; DBGridInf.Canvas.Brush.Color:= clInfoBk; end else begin DBGridInf.Canvas.Font.Color:= clBlack; DBGridInf.Canvas.Brush.Color:= clSkyBlue; end; DBGridInf.Canvas.FillRect(Rect); DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); // Operações do Canvas SBI.cbSize := SizeOf(SBI); GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_HScroll), SBI); if (SBI.rgstate[0] and $8000) = 0 then ShowScrollBar(DBGridInf.Handle, SB_Horz, true); GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_VScroll), SBI); if (SBI.rgstate[0] and $8000) = 0 then ShowScrollBar(DBGridInf.Handle, SB_Vert, true);

cara to usando o seguinte código no evento OnDrawColumnCell do grid: var SBI:tagSCROLLBARINFO; begin If odd(ADOInformacoes.RecNo) then begin DBGridInf.Canvas.Font.Color:= clBlack; DBGridInf.Canvas.Brush.Color:= clInfoBk; end else begin DBGridInf.Canvas.Font.Color:= clBlack; DBGridInf.Canvas.Brush.Color:= clSkyBlue; end; DBGridInf.Canvas.FillRect(Rect); DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); ShowScrollBar(DBGridInf.Handle, SB_Both, true); // Operações do Canvas SBI.cbSize := SizeOf(SBI); GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_HScroll), SBI); if (SBI.rgstate[0] and $8000) = 0 then ShowScrollBar(DBGridInf.Handle, SB_Horz, true);//quando coloco false aqui fica doidão GetScrollBarInfo(DBGridInf.Handle, Integer(ObjId_VScroll), SBI); if (SBI.rgstate[0] and $8000) = 0 then ShowScrollBar(DBGridInf.Handle, SB_Vert, true); E não funciona fica as duas barras da mesma forma tendo registro ou não e quando coloco false no primeiro if cria um loop muito doido. falou

s3c desculpa a minha ignorancia mas tentei de várias formas aqui e num funcionou como ficaria isso com o código que você me passou?

Não deu certo também. Se deixar assim aparece as duas sempre mesmo que não tiver registro no grid. DBGridInf.Canvas.FillRect(Rect); DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); ShowScrollBar(DBGridInf.Handle, SB_Both, true); Se eu tirar essas linhas e colocar essa não aparece nenhuma das duas barras mesmo tendo registro no grid: DBGridInf.DefaultDrawColumnCell(Rect, DataCol, Column, State); falou

cara se o seu campo no banco for Texto basta atribuir o valor do campo para a variável: Valor1 := query.fieldbyname('valor').asString;//Como mencionou o nosso amigo Micheus Edit1.Text := Valor1; Se o campo for Moeda ai você deve fazer a conversão do valor: crie a variável como float ou Curr Valor1 := query.fieldbyname('valor').asFloat; Edit1.Text := FloatToStr(Valor1); falou

Veja se não tem nada como somente leitura...

Você pode ordenar o sue select por Codigo Where Codigo Desc

E como eu faço isso?

E como faço para aparecer somente quando os campos forem maiores do que o limite do grid? por que ta aparecendo sempre falou

Kr ao seu DBEdit vai trazer aquilo que ele esta ligado para trazer essas informações que você deseja basta colocar outros DBEdits e liga-los nesses campos ai que você falou ou colocar Edit e pedit para receber essas informações: Edit1.Text := Informação que você deseja falou E ai JUNIORBOLL deu certo o que você estava querendo? Alexandre

Ok s3c apareceu, mas sabe me dizer o porque que ela sumiu depois de eu usar aquela rotina?

Galera to usando essa rotina para fazer com que o meu grid fique cada linha de uma cor e ta funcionando certinho, o meu problema é que ele ta tirando a barra de rolagem. procedure TFrmAlunos.DBGridInfDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(ADOInformacoes.RecNo) then begin DBGridInf.Canvas.Font.Color:= clBlack; DBGridInf.Canvas.Brush.Color:= clInfoBk; end else begin DBGridInf.Canvas.Font.Color:= clBlack; DBGridInf.Canvas.Brush.Color:= clSkyBlue; end; DBGridInf.Canvas.FillRect(Rect); DBGridInf.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); end; E eu preciso dessa barra. Como fazer para ela aparecer e o grid continuar zebrado? falou

Amigão você deve estar fazendo alguma configuração errada nele... adicione esse componente no form e junto com ele um AdoTabel ou ADOQuery e um Data Source, sete o ado para a tabela que esta cadastrado os valores dos tipos. E depois nas propriedades do LoockUp: List Source - coloque o data source do ado que é do loockup List Field - o campo que você quer listar no loockup key field - os dois campos código das duas tabelas Data Source - o data source da tabela que é referente ao form cara basicamente é isso qualquer coisa me adiciona ai no MSN que te ajudarei melhor, mas as dúvidas posta aki no forum mesmo falou

Se você tem um cadastro de TIPOS e um form para mostrar os tipos cadastrados onde é escolhido um desses tipos você poderia utilizar o DbLoockUp.. para listar os tipos. falou

Tipo: Você adiciona em seu form um ComboBox com os items já cadastrados nele como: camiseta, camisa, calça, etc. Coloque também um edit do lado do combobox Ai é só criar uma consulta sql para cada item. No evento OnChange do Edit coloque o código abaixo: If Combobox.ItemIndex = 0 then begin Tabela.Close; Tabela.SQL.Clear; Tabela.SQL.Add('Select * From NOME_DA_TABELA_DO_PRODUTO'); Tabela.SQL.Add('Where CAMPO_ONDE_ESTA_O_TIPO_DA_ROUPA Like :pCod '); Tabela.SQL.Add('Order By Codigo'); Tabela.Parameters[0].Value := Edit1.Text + '%'; Tabela.Open; end; é mais ou menos isso... testa ai e qualquer coisa posta ai o erro ou duvida falou