[Preciso De Ajuda! (Resolvido)]

beleza, mas pra procurar por parte da frase?

[Preciso De Ajuda! (Resolvido)]

criei uma pesquisa com esse codigo

procedure TForm1.Button6Click(Sender: TObject);

begin

Table1.Filtered := False;

    if RadioGroup1.ItemIndex = 0 then

    Table1.Filter := 'Nome ='+ ''''+ Edit1.Text + '''';

      if RadioGroup1.ItemIndex = 1 then

        Table1.Filter := 'Endereco ='+ ''''+ Edit1.Text + '''';

          if RadioGroup1.ItemIndex = 2 then

            Table1.Filter := 'Cidade ='+ ''''+ Edit1.Text + '''';

              if RadioGroup1.ItemIndex = 3 then

                Table1.Filter := 'Uf ='+ ''''+ Edit1.Text + '''';

                  if Edit1.Text <> 'Todos' then Table1.Filtered := True;

               

Table1.Open;

  if Table1.IsEmpty then

    ShowMessage ('Não Encontrado!!!');

end;

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?

[Preciso De Ajuda!]

Primeiro você verifica se o arquivo (pra salvar o nº do HD existe), se não existir:

O programa lê o número do HD e cria/salva no arquivo.. Se o arquivo exitir você só compara.

Mas qual a finalidade de gravar o número serial do HD no próprio HD ?

pois é eu também não entendi!

[Preciso De Ajuda!]

valeu rapaziada, problema resolvido! Muito Obrigado!

[Preciso De Ajuda!]

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

[Preciso De Ajuda!]

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?

[Preciso De Ajuda!]

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 é?

[Preciso De Ajuda!]

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

[Preciso De Ajuda!]

que erro é esse?

[Error] Login.pas(25): Unsatisfied forward or external declaration: 'TLoginfrm.SerialNum'

coloquei no public

Function SerialNum(FDrive:String) :String;

[Preciso De Ajuda!]

onde se cola esse codigo?

[Preciso De Ajuda!]

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

[Preciso De Ajuda!]

Como faço para proteger um programa?

[Preciso De Ajuda! (Resolvido)]

Resolvido!

No evento ONCHANGE do campo CODIGOPRODUTO inseri:

DetalheDoPedidoPrecoUnitario.Value:=ProdutoPrecoUnitario.Value;

[Preciso De Ajuda! (Resolvido)]

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

[Preciso De Ajuda! (Resolvido)]

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?

[Preciso De Ajuda!]

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!

[Urgente! (Resolvido)]

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!

[Urgente! (Resolvido)]

como resolver um problema cujo o erro é o seguinte:

FIELD INDEX OUT OF RANGE.

é urgente!

[Preciso De Ajuda!]

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!

[Preciso De Ajuda!]

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

[(Resolvido) Colocar um checkbox em um DBGrid]

tá dando um esse erro!

Table1: Dataset not in edit or insert mode.

como posso corrigir esse erro?

[(Resolvido) Colocar um checkbox em um DBGrid]

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.

[(Resolvido) Colocar um checkbox em um DBGrid]

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?

[(Resolvido) Colocar um checkbox em um DBGrid]

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

[Preciso De Ajuda!]

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