Sayaç Uygulaması

Sayfalar: 1

Sayaç Uygulaması Gönderen: erenalp Tarih: 28 April 2008 21:39:05

Notice: Undefined index: current_action in /home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line 2391
Şimdi ise bir sayaç uygulaması yapalım..
Veri tabanımız yine mdb uzantılı

Sitemizde online kaç kişi var.global.asax dosyamızı açıp şu kodları yazıyoruz.

procedure TGlobal.Application_Start(sender: System.Object; e: EventArgs);
begin
application.Lock;
application['kackisi']:=convert.ToString(0);
application.UnLock;
end;

procedure TGlobal.Session_Start(sender: System.Object; e: EventArgs);
var
kisi:integer;
begin
application.Lock;
kisi:=convert.ToInt32(application['kackisi'])+1;
application['kackisi']:=convert.ToString(kisi);
application.UnLock;
application.Lock;
end;

procedure TGlobal.Session_End(sender: System.Object; e: EventArgs);
var
kisi:integer;
begin
application.Lock;
kisi:=convert.ToInt32(application['kackisi'])-1;
application['kackisi']:=convert.ToString(kisi);
application.UnLock;
application.Lock;
end;
Aşağıdaki gibi bir tasarımla sitemizde online kaç kişi var bugün gelen kişi sayımız toplam ziyaretçi sayısı ve ip adresini bulmak için aşağıdaki kodları yazıyoruz.
Giren Kullanıcı Vt ye Ekleniyor.

online.Text:=application['kackisi'].ToString;
IPAdres.Text:=request.ServerVariables['remote_host'];
baglanti:=oleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+'data source='+Server.MapPath('db\Haberler_Lig.mdb'));
baglanti.Open;
SqlCumlesi :='INSERT INTO Sayac'+
'(IpAdres,Tarih) VALUES '+
'('+#39+IPAdres.Text+#39','+
''+#39+system.DateTime.Today.ToString('dd.MM.yyyy')+#39+');';
komut:=oledbCommand.Create(SqlCumlesi,baglanti);
komut.ExecuteNonQuery;
baglanti.Close;

//Bugün Gelen
baglanti:=oleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+'data source='+Server.MapPath('db\Haberler_Lig.mdb'));
baglanti.Open;
SqlCumlesi :='SELECT COUNT(Sayacid) FROM Sayac Where Tarih='+#39+system.DateTime.Today.ToString('dd.MM.yyyy')+#39;
komut:=oledbCommand.Create(sqlCumlesi,baglanti);
bugungelen:=convert.ToInt32(komut.ExecuteScalar);
bugun.Text:=bugungelen.ToString;
baglanti.Close;

//Toplam Sayaç
baglanti:=oleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+'data source='+Server.MapPath('db\Haberler_Lig.mdb'));
baglanti.Open;
SqlCumlesi :='SELECT COUNT(*) FROM Sayac';
komut:=oledbCommand.Create(sqlCumlesi,baglanti);
toplam:=convert.ToInt32(komut.ExecuteScalar);
toplamSayac.Text:=toplam.ToString;
baglanti.Close;

Ynt: Sayaç Uygulaması Gönderen: kocaturk Tarih: 13 May 2008 00:52:14

Notice: Undefined index: current_action in /home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line 2391
Yeni gördüm Sad

Teşekkürler.

Ynt: Sayaç Uygulaması Gönderen: maximus51 Tarih: 13 May 2008 19:40:16

Notice: Undefined index: current_action in /home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line 2391
Gene döktürmüşsün alper hocam

Ynt: Sayaç Uygulaması Gönderen: erenalp Tarih: 13 May 2008 21:01:08

Notice: Undefined index: current_action in /home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line 2391
aslında yazılacak çok makale var.Konu anlatımında zorlanıyorum.Uygulamalı çok güzel örneklerim var.Ama foruma yazarken çok zorlanıyorum.Tam istediğim gibi olmuyor.İnşallah bu konuda biraz daha kendimi geliştiririm.