richedit

[mrmarman]

@Kuri_TLJ

Senin için hazırladığım örnek uygulamaya bu linkten ulaşabilirsin...

- BDE'nin eksik yanlarını ADO ile tamamlamak gerekiyor...

- Paradox veritabanı için ADOConnection String'i şu şekilde oluyor...

Kod: Tümünü seç

    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<veritabani klasörü>;Extended Properties=Paradox 7.x;';

- Paradox veritabanına ADO ile erişim için kullanılacak metod şu şekilde...

Kod: Tümünü seç

Var
  pConnect : String;
begin
  If Not ADOConnection1.Connected then
  begin
    pConnect := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Paradox 7.x;';
    ADOConnection1.ConnectionString := Format(pConnect, [ExtractFilePath(Application.Exename)]);
    ADOConnection1.LoginPrompt := False;
    ADOConnection1.Connected := true;
    if not ADOConnection1.Connected
       then ShowMessage('Veritabanı Bulunamadı !');
  end;

  With AdoQuery1 do
  begin
    Active := False;
    Connection := AdoConnection1;
    SQL.Clear;
    SQL.Add( 'Select * from data.db');
    SQL.Add('Where 1=1');
    SQL.Add('and Konu like '+QuotedStr('%'+Edit1.Text+'%'));
    Active := True;
  end;
end;

[KaBuS]

Bir butona basildiginda rich edit nesnesinde ismin yazacak
ama ismindeki her harfi kontrol edecek ve ayni harfleri
yanyana yazcak lutfen yardimci olurmusunuz.

[sairalper]

Merhaba Arkadaşlar,
Forumun iyi takipçilerindenim. Önemli bir kaynak, bilgisini paylaşan herkese teşekkürler.
Başlıktaki yazışmaları ve benzeri başlıkları taradım ama aradığımı bulamadım.

Peki ne arıyorum:
Kamuda bir sağlık kurumunda çalışıyorum ve burada merkezi sistem var web üzerinde. Hastalar tek tek kaydediliyor ama analiz kısmı çok zayıf... data çekme imkanı da yok.
kullanan arkadaşların istediği iki şey var:
1- x-y tarihleri arasında işlem gören hasta listesi
2-(tercihen) x-y tarihleri arasında şu hasta hangi tarihte işlem görmüş bulunması
tarih, adsoyad,tc şeklinde yapıp verdim arkadaşlara ama hem esas sisteme, hem benim programa girmek zor geldi. sistemdeki günlük listeyi excel’e atıp kullanıyorlar ama belli bir düzen tutturamıyorlar tabi, aramak zor vs.
bir de belirli periyodlarla x-y tarihleri arasındaki işlemlerin bi yerlere gönderilmesi lazım
ben de
tarih, Memo şeklinde bir yapı oluşturup işlemleri oraya kopyalamayı sağladım. (tabi haliyle rtf-richedit olarak atıyor)
şimdilik kaydı ben yapıp test ediyorum ama 2 numaralı seçenekte zorlanıyorum.
sql ile x-y tarihleri arasında richedit alanda nasıl string aratabilirim? Like ile denedim, buluyor belki ama Türkçe karakterleri bulmuyor. mesela Alper Şirvan aratsak bulmuyor da sadece Alper'i buluyor.
Hal böyle olunca farklı bir yöntem dememek istedim ve x-y tarihleri arasındaki işlemleri bir döngüyle TCXRichedit ya da TMemo bileşenine atıp orda string arattırmak istedim.
kodum şu:
//baş
burdaara.Clear;
fm_ana.Sorgum.First;
While not fm_ana.Sorgum.Eof do
begin
burdaara.Text:=burdaara.Text+#13+fm_ana.Sorgumkopya.Value;
fm_ana.Sorgum.Next;
end;
//son
aldığım sonuç ta bu:
\rtf1\ansi\deff0{\fonttbl{\f0\fnil Tahoma;}{\f1\fnil\fcharset0 Tahoma;}{\f2\fnil\fcharset162 Tahoma;}}
nerede hata yapıyorum, anlamadım??