Halan Lopes

beleza, mas pra procurar por parte da frase?

criei uma pesquisa com esse codigo Mas se o nome miturar letras maiusculas e minusculas ele só encontra da forma que foi registrada, por exemplo se registrar "Script Brasil" ele só encontra se digitar o nome completo e da forma que esta, se digitar apenas "script brasil" letras minusculas ele não encontra e se digitar apenas parte tipo "Script" ele também não encontra! Como faço pra realizar a busca sem diferenciar maiuscula e minuscula, e por parte da informação?

pois é eu também não entendi!

valeu rapaziada, problema resolvido! Muito Obrigado!

funcionou mas será que não vai aparecer o numero do HD da outra maquina?

então quando eu aperto CTRL+Space aparece SerialNum() se deixar do jeito que aparece da o seguinte erro: [Error] Login.pas(55): Not enough actual parameters o que se coloca dentro dos parentes?

já tinha, já coloquei o função na Unit Windows, no comando onclick quando aperto Ctrl+Space aparece SerialNum, qual o procedimento do BitBtn1Click, é só : procedure TLoginfrm.BitBtn1Click(Sender: TObject); begin SerialNum(); end; ou como é?

como coloco na procedure TLoginfrm.BitBtn1Click(Sender: TObject);

que erro é esse? [Error] Login.pas(25): Unsatisfied forward or external declaration: 'TLoginfrm.SerialNum' coloquei no public Function SerialNum(FDrive:String) :String;

onde se cola esse codigo?

sei mas como faço, essa é a primeira vez que tento fazer isso!

Como faço para proteger um programa?

Resolvido! No evento ONCHANGE do campo CODIGOPRODUTO inseri: DetalheDoPedidoPrecoUnitario.Value:=ProdutoPrecoUnitario.Value;

só mais uma coisa uso um DBGrid pra a Tabela DetalheDoPedido!

Oi amigos! To com um problema na minha table DetalheDoPedido! é o seguinte, nessa tabela tem os campos: CODIGOPRODUTO PRODUTO QUANTIDADE PRECOUNITARIO consegui fazer com que o produto seja pesquisado na tabela Produtos, tanto pelo codigo quanto pelo nome, mas acontece que não consigo relacionar o PRECOUNITARIO, para que ele seja exibido automaticamente quando eu inserir o produto, fiz ele como campo lookup, até que aparece o valor mas não salva na tabela DetalheDoPedido, por ser um FildKind=fkLookup para que ele possa ser salvo tem que ser um fkData! COMO FAÇO PRA RESOLVER ESSE PROBLEMA?

Descobri a solução! pra mim significou o seguinte: eu estava tentando transformar o mesmo dasource em mastersource em tabelas diferentes por exemplo: Tabelas PEDIDO DETALHE DO PEDIDO PAGAMENTOS eu estava tentando transformar o datasource da Tabela Pedido MasterSource nas outras duas, dai dava o erro, então eu tentei o seguinte! liguei a tabela detalhe do pedido a tabela pedido e a tabela pagamento a tabela detalhe do pedido, já que o codigo do pedido da tabela detalhe do pedido vai ser o mesmo da tabela pedido! vê se você consegue ai! comigo deu certissimo!

Descobri a solução! pra mim significou o seguinte: eu estava tentando transformar o mesmo dasource em mastersource em tabelas diferentes por exemplo: Tabelas PEDIDO DETALHE DO PEDIDO PAGAMENTOS eu estava tentando transformar o datasource da Tabela Pedido MasterSource nas outras duas, dai dava o erro, então eu tentei o seguinte! liguei a tabela detalhe do pedido a tabela pedido e a tabela pagamento a tabela detalhe do pedido, já que o codigo do pedido da tabela detalhe do pedido vai ser o mesmo da tabela pedido! vê se você consegue ai! comigo deu certissimo!

como resolver um problema cujo o erro é o seguinte: FIELD INDEX OUT OF RANGE. é urgente!

tenho dois tables "PAGAMENTO" e "PEDIDO" o table Pagamento tem que ser ligada ao table Pedido, só que quando eu determino do MasterFields da o seguinte erro: Pagamentos: Field index out of range. como corrigir isso!

você pode me mostrar como fazer um filtro no formulário?

tá dando um esse erro! Table1: Dataset not in edit or insert mode. como posso corrigir esse erro?

olha como coloquei o codigo! procedure TfrmPagamento.FormCreate(Sender: TObject); begin DBCheckBox1.ValueChecked:='Pago'; DBCheckBox1.ValueUnchecked:=''; end; procedure TfrmPagamento.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const IsChecked: array[Boolean] of Integer= (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var DrawState: Integer; DrawRect: TRect; begin if (gdFocused in State) then begin if (Column.Field.FieldName = DBCheckBox1.DataField) then begin DBCheckBox1.Left:= Rect.Left+DBGrid1.Left+2; DBCheckBox1.Top:= Rect.Top+DBGrid1.Top+2; DBCheckBox1.Width:=Rect.Right-Rect.Left; DBCheckBox1.Height:=Rect.Bottom-Rect.Top; DBCheckBox1.Visible:=True; end end else begin if(Column.Field.FieldName = DBCheckBox1.DataField) then begin DrawRect:=Rect; InflateRect(DrawRect,-1,-1); DrawState:= IsChecked[Column.Field.AsBoolean]; DBGrid1.Canvas.FillRect(Rect); DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect, DFC_BUTTON, DrawState); end; end; end; procedure TfrmPagamento.DBGrid1ColExit(Sender: TObject); begin if DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField then DBCheckBox1.Visible:=False end; procedure TfrmPagamento.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (Key= chr(9)) then Exit; if (DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField) then begin DBCheckBox1.SetFocus; SendMessage(DBCheckBox1.Handle, WM_CHAR, word(Key), 0); end; end; procedure TfrmPagamento.DBCheckBox1Click(Sender: TObject); begin if DBCheckBox1.Checked then DBCheckBox1.Caption:=DBCheckBox1.ValueChecked else DBCheckBox1.Caption:=DBCheckBox1.ValueUnchecked; end; end.

coloquei o codigo desse site mas deu o seguinte erro! Projeto.exe raised exception class EstackOverflow with message 'Stack overflow'. Process stopped. que erro é esse? e como resolve-lo?

Como colocar um checkbox em um DBGrid sem usar aquele InfoPower?

sql sei fazer, mas eu gostaria de filtrar direto na tabela!