boşlukta arama

ALUCARD · Mesaj gönderen **ALUCARD** » 22 May 2004 01:00

arkadaşlar merhaba

ana sayfada neler oluyor anlamadım ama bu kısmın çalışması iyi en azından.

benım sorunum stok programımda fatura keserken kullanıcı stok sececek.
bu formda sedece grid ve iki tane buton var burda bi arama yaptırmam lazım fakat bir yere edit koymadan yaptırmam lazım böyle bir şey var yapılmış halini gördüm
ama nasıl yapıldığı konusunda bi fikrim yok

yardımcı olursanız sevinirim...

Mesaj gönderen **husonet** » 24 May 2004 09:19

Ben bu tip işlemleri Tuş kodlayarak yapıyorum. Mesala F10 tüşüna basıldığı zaman Stokların dökümanını yeni bir forum halinde ekrana getiriyorum tabii bu arada Gridin hücresindeki verilere en yakın Stok değerine yaklaşıyorum ve seçtiğim kaydı enterladığım zaman Grid'e alıyorum.

Kolay Gelsin...

ALUCARD · Mesaj gönderen **ALUCARD** » 24 May 2004 10:44

hocam yanlış anlattım galiba açılmış bi formun üzernde yazıcam yani
oda yazdığım kelimeye uygun stok adına gidecek

Mesaj gönderen **TRSoft** » 24 May 2004 11:03

hocam grid üzerinde basılan tuşları kontrol eddirebilirsin..
Örneğin dbgrid in onkeypress yordamında tuşları kontrol ettirip işlemini yaptırabilirsin

ALUCARD · Mesaj gönderen **ALUCARD** » 24 May 2004 11:47

hocam belki ayıp olacak ama ufak bir kod yazar mısınız.

inanın kafam durdu

Mesaj gönderen **rsimsek** » 24 May 2004 12:29

Kod: Tümünü seç

procedure TfmKayit.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
procedure Delay(MSecs: Longint);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
    Now := GetTickCount;
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
var
  oldCaption: string;
begin
  if (Key = 8 {VK_BKSP}) and (length(trim(Aranan)) > 0) then
    delete(Aranan, length(trim(Aranan)), 1);
  if Key in [32..126] then
  begin
    Aranan := Aranan + chr(Key);
    if (DBGrid1.DataSource.DataSet is TTable) then
    try    // sayısal tipler; varSmallint, varInteger, varSingle, varDouble .. vs.
      if varType(DM.Uye.IndexFields[0].AsVariant) = varString then
        (DBGrid1.DataSource.DataSet as TTable).FindNearest([Aranan])
      else
        (DBGrid1.DataSource.DataSet as TTable).FindNearest([StrToInt(Aranan)]);
    except
      if length(trim(Aranan)) > 0 then
        delete(Aranan, length(trim(Aranan)), 1);
      Beep;
    end;

  end;
  oldCaption := Caption;
  Caption := Aranan;
  delay(500);
  Caption := oldCaption;
end;

sanırım bu kod işini görür. Aranan değişkenini string tanımlamayı ve OnShow da Aranan := ''; demeyi unutma. bastığın harfleri backspace ile silebilirsin.

ALUCARD · Mesaj gönderen **ALUCARD** » 24 May 2004 01:53

recep hocam teşekkür edrim hemen deneyeceğim

ALUCARD · Mesaj gönderen **ALUCARD** » 27 May 2004 01:26

denemekl için biraz geç kaldım ama olmadı

arama yapmıyor

caption değişiyor.

bu sirada ben advantage kullanıyorum

ben biraz daha bu kod üzerinde çalışıyayım..

be kodu şöyle çevirdim..

Kod: Tümünü seç

///
procedure TSATSTOKSEC_F.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
procedure Delay(MSecs: Longint);
var
  aranan:String;
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
    Now := GetTickCount;
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
var

  oldCaption: string;
begin
  if (Key = 8 {VK_BKSP}) and (length(trim(Aranan)) > 0) then
    delete(Aranan, length(trim(Aranan)), 3);
  if Key in [32..126] then
  begin
    Aranan := Aranan + chr(Key);
    if (DBGrid1.DataSource.DataSet is TAdsQuery) then
    try    // sayısal tipler; varSmallint, varInteger, varSingle, varDouble .. vs.
      if varType(SECUrunKodu.AsVariant) = varString then
        (DBGrid1.DataSource.DataSet as TAdsTable).FindNearest([Aranan])
      else
        (DBGrid1.DataSource.DataSet as TAdsTable).FindNearest([StrToInt(Aranan)]);
    except
      if length(trim(Aranan)) > 0 then
        delete(Aranan, length(trim(Aranan)), 1);
      Beep;
    end;

  end;
  oldCaption := Caption;
  Caption :='Aranan : '+ Aranan;
  delay(500);
  Caption := oldCaption;


end;

procedure TSATSTOKSEC_F.FormShow(Sender: TObject);
begin
ARANAN:=''
end;


///

ALUCARD · Mesaj gönderen **ALUCARD** » 27 May 2004 01:47

hocam tamam

şimdi oldu ben biraz değişiklik yaptım ama oldu en azından benim işimi gördü

şok teşekkur edrim

Kod: Tümünü seç

procedure TSATSTOKSEC_F.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
procedure Delay(MSecs: Longint);
var
  aranan:String;
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
    Now := GetTickCount;
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
var
 bulunan, metin:string;
  oldCaption: string;
begin
  if (Key = 8 {VK_BKSP}) and (length(trim(Aranan)) > 0) then
    delete(Aranan, length(trim(Aranan)), 3);
  if Key in [32..126] then
  begin
    Aranan := Aranan + chr(Key);

  try
    SEC.Locate('UrunAdi', ARANAN, [loPartialkey, loCaseinsensitive]);
  metin := ARANAN;
  bulunan := sec.FieldValues['UrunAdi'];
  except
      if length(trim(Aranan)) > 0 then
        delete(Aranan, length(trim(Aranan)), 1);
      Beep;
    end;

  end;
  oldCaption := Caption;
  Caption :='Aranan : '+ Aranan;
  delay(500);
  Caption := oldCaption;


end;

procedure TSATSTOKSEC_F.FormShow(Sender: TObject);
begin
ARANAN:=''
end;

ALUCARD · Mesaj gönderen **ALUCARD** » 08 Haz 2004 12:47

bu kodun içinden yontuşlarını nasıl iptal edebilirim

çunku yon tuşlarını da karakter olarak alıyor

sonrada acces violation hatasi veriyor..

Mesaj gönderen **mege** » 08 Haz 2004 12:52

viewtopic.php?p=621#621

burdaki kodlar işinize yarayabilir.

if (Key = VK_LEFT) or .... then
exit;
gibi

ALUCARD · Mesaj gönderen **ALUCARD** » 08 Haz 2004 01:09

kodu

Kod: Tümünü seç

procedure TFaturaStokSecF.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
procedure Delay(MSecs: Longint);
var
  aranan:String;
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
    Now := GetTickCount;
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
var
 bulunan, metin:string;
  oldCaption: string;
begin
  IF  (Key = VK_LEFT) or (Key = VK_RIGHT) OR (KEY=VK_UP) OR (KEY=VK_DOWN) then
      exit ;

  if (Key = 8 {VK_BKSP}) and (length(trim(Aranan)) > 0) then
    delete(Aranan, length(trim(Aranan)), 3);
  if Key in [32..126] then
  begin
    Aranan := Aranan + chr(Key);

  try
    SEC.Locate('UrunAdi', ARANAN, [loPartialkey, loCaseinsensitive]);
  metin := ARANAN;
  bulunan := sec.FieldValues['UrunAdi'];
  except
      if length(trim(Aranan)) > 0 then
        delete(Aranan, length(trim(Aranan)), 1);
      Beep;
    end;

  end;
  oldCaption := Caption;
  Caption :='Aranan : '+ Aranan;
  delay(500);
  Caption := oldCaption;



end;

bu şekilde çevirdim
artık yon tuşlarını almıyor
fakat

arama yapıp seçtiğim zaman yine acess violatin hatası veriyor..