:: Delphi 2006 ve ASP.NET İle Arşivbank Site Tasarımı -9A-



Misafir sever misiniz ?

Bilirsiniz, internette gezdiğiniz her sitede bir ziyaretçi defteri vardır. Gelen geçen yolcular hani bir şeyler karalasın ister site sahipleri. Sitenin müdavimlerine okuturlar lehteki yazıları. Aleyhteki yazıları yayınlamazlar çoğu kere. İşte bu yazıda arşivbank projesinde kullanmak üzere bir misafir defterinin hazırlanışını anlatacağım dilim döndüğünce, bilgim yettiğince.

Ancak konuya başlamadan yazılarımda kullandığım üslupla ilgili bir kaç not aktarmak istiyorum. Bir okuyucum yazılarımın içeriğini beğenirken, üslubumun küçümseyici ve alaycı olmasından şikayet etti. Alınmadım. Keza ben yılların eğitimciyisiyim. Hangi teknikle ne, nasıl, nerde anlatılır çok şükür bilirim. Zaten bu yaşa kadar neyin nasıl öğretileceğini öğrenemeseydim, yazmazdım bu yazıları. Artı hiç kimseyi hedef almayan yazılarımda kimseyi bağlamaz. Yazılarım için herhangi bir ücrette talep etmiyorum. Yapılan oylamalarıda dikkate almıyorum. Egomuda tatmin etmiyorum. Tamamen tarafsızım yani.Tek bir dileğim var. Bilişime gönül veren yurdum gençleri diğer memleket bilişimcilerinden önde olamasalar bile hiç değilse geri kalmasınlar. Biz bize anlatmassak, öğretmessek daha çok geriden takip ederiz bu teknolojiyi.

Neyse bu kısa açıklamadan sonra konumuza geri dönelim. Düşünün bir siteniz var ve geleniniz gideniniz çok. Bu sanal alemde çay, kahve ikram edemeyebilirsiniz misafirlerinize, ama düşüncelerini, fikirlerini, yorumlarını yazacakları bir ortam sunabilirsiniz. Bu sayede insanlar kendilerini ifade ederek hem size, hem başkalarına faydalı olacaklardır. Diğer yandan ard niyetli bazı kimselerde, salt motivasyon bozmak, kırıcı olmak, terör yaratmak için bir şeyler karalayacaklardır. O halde öyle bir ziyaretçi defteri oluşturalım ki sadece uygun gördüğümüz ve onayladığımız mesaj ve yorumları yayınlayalım. Kalanını sallayalım.

Arşivbank Ziyaretçi Günlüğü

Her şeyden önce ziyaretçilerimizin yorum ve mesajlarını tutacak basit bir tablo tasarımı yaparak başlıyalım işe.

Ziyaretçi Günlüğü Tablosunun yapısı aşağıdaki gibidir.

• `id` bigint(20)
• `tarih` date
• `dogumtarihi` varchar(15)
• `cinsiyet` varchar(5)
• `meslek` varchar(20)
• `sehir` varchar(30)
• `msn` varchar(75)
• `telefon` varchar(30)
• `dil_c` varchar(15)
• `dil_delphi` varchar(15)
• `dil_php` varchar(15)
• `dil_asp` varchar(15)
• `dil_perl` varchar(15)
• `dil_java` varchar(15)
• `dil_js` varchar(15)
• `dil_diger` varchar(15)
• `diger_aciklama` varchar(100)
• `baslik` varchar(100)
• `saat` time
• `isim` varchar(30)
• `eposta` varchar(75)
• `epostagonder` smallint(1)
• `web` varchar(100)
• `mesaj` longtext
• `aktif` smallint(1)
• `tur` smallint(1)
• `ip` varchar(15)

Tablo yapımızdaki bazı alanları daha sonra açıklayacağım üzere özel amaçlar için ekledim. Hangi veri tabanını ve uygulama geliştirme dilini kullanıyorduk ? Unuttunuz değil mi? Veri tabanımız site Host'umuzdan ayrı bir sunucu üzerinde MySQL. Kullandığımız dil ve uygulama geliştirme aracı delphi 2006.

Bu sefer konuyu iki ayrı bölümde ele alarak sizide sıkmadan anlatmak istiyorum. Bu sefer kulağı tersten gösterme methodunu deneyerek ekran görüntüleriyle başlayağım. Umuyorum ki bu tarz anlatım tekniği konuya yabancı olanların kavramasını kolaylaştırsın.

Öncelikle ana sayfadan ziyaretçilerimiz için "Ziyaretçi Günlüğü" etiketli bir bağlantı sunuyoruz.
Önceki yazılarımızdan hatırlayacağınız üzere sol bölüm bir kullanıcı kontrolüydü. Bu kontrolün ascx uzantılı sayfasında ziyaretçi günlüğü bağlantısı aşağıdaki gibi tanımlanmıştır.

<a href="default.aspx?p=4&s=0">Ziyaretçi Günlüğü</a>
Ziyaretçi bu bağlantıyı tıkladığında "p" ve "s" QueryString parametreleriyle tarayıcının adres alanından uygulamaya iki adet değer gönderilmektedir. bu parametreler orta yazı şablonu isimli kullanıcı kontrolü sayfasında değerlendirilmekte ve istenen sayfa ziyaretçiye gösterilmektedir.

procedure TWebUserControl1.Page_Load(sender: System.Object;
e: System.EventArgs);
Var
osyf : Integer;
S : String;
begin
osyf := 0;
if (Assigned(Page.Request.Params['p'])) AND (Page.Request.Params['p'] <> '') then
osyf := Int32.Parse(Page.Request.Params['p'].ToString)
else
osyf := 0;

case osyf of
...............
4 : // Ziyaretciler için yorum mesaj listeleme sayfası
begin
Label1.Text :='';
Label2.Text :='Ziyaretçi Günlüğü';
PlaceHolder_Yazi.Controls.Add(Page.LoadControl('Yo rumListele.ascx'));
end;
............... Orta yazı şablonu pas dosyasında tarayıcan gelen querystring parametrelerine uygun sayfayı PlaceHolder nesnesine atayan kod..


Buraya kadar yazdıklarımız ziyaretçi günlüğü sayfasının ana sayfaya dahil edilmesiyle ilgiliydi. Ziyaretçi günlüğüne yazılan yazılar bir dizi fonksiyonla bir ASP.NET web bileşeni olan Label nesnesinin TEXT özelliğine akıtılarak ekranda gösteriliyor. Bundan önce ziyaretçi günlüğü kullanıcı kontrolü sayfasının (YorumListele.ascx)
tasarım anındaki ekran görüntüsünü verelim. Ekrana sığdırmak için görünümü ikiye böldüm.



Yukarıdaki resimlerde görüldüğü üzere ziyaretçi günlüğünün varsayılan sayfası, daha önceden girilmiş ve onaylanmış yorum ve mesajların listelenmesini içermektedir. Bu tasarımda kullandığım css ile ilgili bir hizalama probleminin önüne geçebilmek ve veri tabanından okunan kayıtları tablo içinde gösterebilmek için tüm denetimleri bir HTML tablosu (Table) içine yerleştirdim.

Bu denetimlerin yerleştirildiği YorumListele.ascx sayfasının kaynağı ;

<%@ Control Language="c#" AutoEventWireup="false" Codebehind="YorumListele.pas" Inherits="YorumListele.TWebUserControl_YorumListel e"%>
<div class="sidebarbox-title-shading bg-grey01" align="right">
<ASP:Label id="Label_Mesaj" runat="server" visible="False" enableviewstate="False" cssclass="txt-green08" font-size="Small" font-bold="True">Gönderiniz alınmıştır.</ASP:Label>
<img src="images/arrow1.gif" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" _fcksavedurl=""images/arrow1.gif"" width="4" height="8" alt="" />
<ASP:HyperLink id="HyperLink1" runat="server" enableviewstate="False" navigateurl="default.aspx?p=4&amp;y=1" tooltip="Yeni mesaj veya yorum eklemek için tıklayınız..." target="_self">Yeni Mesaj/Yorum Ekle</ASP:HyperLink><br>
</div>
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td>
<asp:Label id="lb_yorumlar" runat="server"></asp:Label></td><a name="yorumkismi"></a>
</tr>
</tbody>
</table>
<ASP:PlaceHolder id="PlaceHolder_YeniYorum" runat="server"></ASP:PlaceHolder>
<div class="sidebarbox-title-shading bg-grey01" align="right">
<img src="images/arrow1.gif" width="4" height="8" alt="" />
<ASP:HyperLink id="HyperLink2" runat="server" enableviewstate="False" navigateurl="default.aspx?p=4&amp;y=1" tooltip="Yeni mesaj veya yorum eklemek için tıklayınız..." target="_self">Yeni Mesaj/Yorum Ekle</ASP:HyperLink><br>
</div>
Eğer burada kullanılan ASP.NET denetimlerinin neler olduğunu merak ediyorsanız...

• İki adet Label nesnesi. Biri veri tabanından çekilen yorum ve mesaj bilgilerini ekrana basmak için, diğeri ikinci bölümde göreceğimiz yeni yorum ve mesaj girişinde ziyaretçiye işlem sonucunu bildirmek için.
• Bir adet PlaceHolder nesnesi. Yeni yorum ve mesaj ekleneceği zaman ilgili sayfa tasarımını atamak için.
• Altlı üstlü yerleştirilmiş iki adet HyperLink nesnesi.

14.07.2006