Delphi Forum

whatsup gold diye bir program kullanıyorum.
bizden sadece
to ve from diye iki adres istiyor.
mail server: X.X.X.X diye bir ip giriyoruz.
subject, ve mesaj gireceğimiz bir alan var.
domino server üzerinden to dan from a maili gönderiyor.
mail server i ip ile girebileceğimiz böyle basit bir smtp ...

şu enter problemini çözmem lazım arkadaşlar.
yapacağım uygulama da kullanıcılardan çoğu vt e client bağlanacak.bir iki tanesi admin bağlanacak.
yani client kullanıcılar vt e sadece bilgi girişi yapacak.memo veya richedit kullanarak.client kullanıcı kendi gireceği bilgiyi direkt memo dan şu kodlarla ...

acemiyim demiştim daha. :P

procedure TForm1.Button1Click(Sender: TObject);
begin
ibdataset1.insert;
ibdataset1.fieldbyname('URUN_DEGERLENDIRME').AsString:=memo1.text;
ibdataset1.post;
memo1.clear;
end;

ifadesini kullandım.ama eklenen bilgi vt de gözükmüyordu.
ben de IBTransaction1.CommitRetaining ...

dbedit dbnavigator kullanırsam kullanıcı vt de diğer alanları da inceleyebilir.50 kişinin böyle bağlandığını düşünüyorum.
böyle olmasını istemiyorum.
Aslında öğrenmek istediğim açıkça şu : direkt memodan veya richedit den (dbmemo veya dbrichedit kullanmadan ve dbnavigator kullanmadan )
vt da gerekli ...

procedure TForm1.Button1Click(Sender: TObject);
var
excelPrg,sayfa:variant;
i,d:integer;
r:variant;
begin
IBDataSet1.First;
excelPrg:=createoleobject('excel.application');
excelPrg.workbooks.add;
sayfa:=excelPrg.workbooks[1].worksheets[1]; r:=excelPrg.activeworkbook.worksheets[1].cells[1];
i ...

teşekkür ederim.
forumu inceledim.ilk önce ibquery deneyerek yapmaya çalıştım ama başarılı olamadım.anlatılanları benim uygulamaya aktaramadım.
bu şekilde yapmamın sakıncası var mıdır?
firebird vt , ibdataset , ibdatabase , ibtransaction kullanılan bir uygulamada ibquery ile grid kullanmadan direkt ...

sanırım IBTAble.Next ile ilgili bir sıkıntı vardı.
IBTable i kaldırdım ve kodu şöyle değiştirdim.
Şimdilik sorun çözüldü gibi. :D
Yine de çok teşekkürler.

*********************************
procedure TForm1.Button1Click(Sender: TObject);
var
excelPrg,sayfa:variant;
i,d:integer;
r:variant;
begin ...

firebir vt kullanıyorum.şubelerden bilgileri bir fdb vt e alıyorum.
ibdataset , ibdatabase , ibtransaction , ibevents , ibtable , dbmemo gibi bileşenler kullanıyorum.
fdb vt e kaydedilen bilgileri aşağıda yazdığım gibi excel e aktarmaya çalışıyorum.problem olmuyor ancak sadece birinci record (satır ...

bir kaç kişiden fazla uygulamayı açtığında refresh işlemi ciddi yavaşlamaya neden oluyor.Hepsinde refresh işlemi yapıldığı için.
Bu durum için şunu nasıl yapabiliriz.
3 kişi aynı anda sadece bilgi girişi yapabilsin.Diğerleri o anda beklesin.
boşalan oldukça bilgi girişi yapabilsinler.

Çok sağolun.Dün akşam burdaki bir abinin yardımıyla problemi çözdüm.
Allah razı olsun.
Trigger ları ekledim.
ve ibevents e de HAREKET_VAR olayını girdim ve şunları yazdım.

procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
EventCount: Integer; var CancelAlerts: Boolean ...

vt i ibexpert ile açıyorum.trigger kısmında after insert de yeni bir trigger oluşturuyorum.UYE_AI0 diye bir trigger oluşturuyorum.ismini UYAR yapıyorum.(table nin ismi UYE)
aşağıya kod olarak

CREATE TRIGGER UYAR FOR TBL_UYE
ACTIVE AFTER INSERT POSITION 0
AS
begin
post_event 'HAREKET_VAR';
end ...

tamam.cachedupdates özelliğini false yapınca problem düzeldi.
Yardımlarınız için çok teşekkürler.
Saygılarımı sunuyorum.

local networkteki client lere vereceğim bir uygulamadaki dbedit ler ve dbnavigator sayesinde bir server üzerindeki fdb veri tabanına kayıt yaptıracağım.
Aynı zamanda client larda ve server da bir dbgrid ile de vt üzerinde yapılan değişiklikleri ekrana yansıtmak isityorum.
post , delete , modify olur ...

verdiğiniz link çalışmıyor.
transaction açıp kaptmayı uygulama üzerinde bir butona nasıl bağlayabilirim veya çok kullanıcıda vt üzerinde değişikliklerin ekrana yansıması için daha iyi bir çözüm var mı kullanılan?
bir de aynı anda iki kullanıcının kayıt yapmasını nasıl engelleyebilirim?
birisi kayıt ...

en sonunda çalışan bir tane firebird 1.5 vt uygulaması yapmayı başardım.
bir tane daha yapamıyorum ama.bunun üzerinde uğraşıyorum bende :D
server üzerinde kurulu bir uygulama var.
bu uygulamayı aynen client bir bilgisayara taşıdım.client bilgisayarda da firebird 1.5 kurdum.(tam sürüm)
client te ...