Konu: Çalışma Anında Bileşen Oluşturmak ve Takla Attırmak... (Okunma sayısı 2165 defa)

cemaliozan · « : 07 Ağustos 2007 21:10:00 »

Ah fatih ah... Ne olurdu biraz zaman ayırıp şu formun editörünü biraz daha kullanışlısıyla değiştirseydinde bende rahat rahat yazsaydım.

WIN32 platformu için herhangi bir OOP (Nesne yönelimli programlama) diliyle uygulama geliştirenler bilir. Programcının en yaratıcı olduğu an yeni bir nesne tasarlarkenki anıdır. Elinize bir ebeveyn nesne alırsınız. Ondan yeni bir çocuk yapar nufusunuza geçirirsiniz. Tabiki yeni nesnenizin eskisine oranla daha fazla özelliği ve daha fazla metodu olacaktır. Aksi halde yeniye ne hacet ?

Klasik yöntem merkezli (Cobol, pascal,clipper vb.) programlama dillerinden olay merkezli OOP (Java,Delphi,C++ vb.) dillerine geçerken en çok zorlandığım yerdi yeni bir nesne tasarımı. Birde bu işin suyunu çıkaran tasarımı kontrol edecek test modüllerini yazmanın zaman almasıydı. Neyse en sonunda ucundan kıyısından bir şeyler öğrendim.

Bırakın yeni bir nesne tasarımını, mevcut bir nesneyi çalışma anında (RUNTIME) oluşturmak, işi biteni sepetlemek bile ayrı bir dertti. Bu hızlı uygulama geliştirme (Rapid application development) dilleri icat oldu mertlik bozuldu.

İşte bu yazıda ASP.NET tabanında çalışma anında nesne yaratıp kullanmayı tarif edeceğim dilim döndüğünce. Tabiki diğer .NET dillerinde anlatılmışı var, fakat benim burada örnekleyerek anlatacağım tamamen benim kişisel keşif ve tecrübelerimin Delphi ile gerçeklenmiş sonucudur. Sözün bu noktasında bu yazıyı okuyan tüm okuyucuların huzurunda sitemizin medarı iftarı Türkiyede yazılmış ilk delphi ile ASP.NET uygulamaları kitabının yazarı Fatih kardeşime bir kez daha teşekkür etmek istiyorum. Çünkü birazdan anlatacağım algoritmanın temelini onun kitabında satır aralarındaki ip uçlarını birleştirerek oluşturdum. Özellikle ilk fırsat bulduğumda ayrı bir başlıkta detaylı bir VIEWSTATE sunumu yapacağım sizlere.

Çalışma Anında Neden Bileşen Oluşturalım ki ? Tasarım Anı Yetmiyor mu?

Maalesef tasarım anının yetmediği çok zaman oluyor. Örneğin çoktan seçmeli bir test sitesi tasarladığınızı varsayalım. Böyle bir sitede klasik yapının yanında SORULAR ve SORU SEÇENEKLERİ olması kaçınılmaz. Aynı soru bukletinde yer alan ve bir veri tabanında kayıtlı olan aşağıdaki soruları ele alalım.

Soru 1 : Sitemizi nasıl buluyorsunuz ?

Seçenek 1 : Çok iyi
Seçenek 2 : Fena değil
Seçenek 3 : Walla ben bulmuyorum, benim tarayıcı kafayı yemiş ikide bir kendiliğinden açılıyor siteniz

Soru 2 : Sitemizde en çok takip ettiğiniz köşe yazarı aşağıdakilerden hangisidir ?

Seçenek 1 : Tabiki Fatih Hoca
Seçenek 2 : En büyük Goca Türk başka büyük yok
Seçenek 3 : Babahayati baba adam baba yazar
Seçenek 4 : Akrep Kral
Seçenek 5 : Cemoli
Seçenek 6 : Yalnız ben, benden daha iyi yazar varmola ?

Gördünüz değil mi yapıyı. Biraz veri tabanı deseninden bahsedeyim. Sorular bir tabloda, Seçeneklerde sorular tablosuyla tek yönlü ilişkisel olarak bağlı ve ayrı tabloda tutuluyor.

Soru 3 : Peki böyle bir sistemde ne tür web bileşeni/bileşenleri kullanmalıyız ?

Seçenek 1 : RadioButton
Seçenek 2 : RadioButtonList
Seçenek 3 : TextBox
Seçenek 4 : Image

Siz 3 ncü soruyu cevaplaya durun. Ben olaya başka bir boyut kazandırıyım.

Soru 4 : Bu makalenin sonu nasıl bitmeli ?

Seçenek 1 : Bu makale bitmesede olur
Seçenek 2 : Filmin sonunu görebileceğimizi sanmıyorum
Seçenek 3 : Diğer - (Lütfen aşağıdaki kutuya diğer nedir onu giriniz...)

Bu makale epey uzun olacak. Bu yüzden fırsat buldukça editleyerek devam edeceğim. Ancak size bir ipucu vereyim. Bu yazıya konu olan bir site http://www.kisiliktest.com.

Bu sitenin grafik arayüzü sizi aldatmasın. Her şeyden önce Delphi ile yazılmıştır. Arkasında çok çok dinamik bir kod sistemi vardır. Bu sitedeki hemen hemen her bileşen çalışma anında yaratılmaktadır.

Bu nedenle bahse konu siteyi yazımı takip edeceklere inceleme ödevi olarak veriyim. Ne yapmışım, nasıl yazmışım. Fikirlerinizi beyan edin. Bende bu yazıda bu sistemi anlatmaya devam edeyim. Devamı var...

hayati · « **Yanıtla #1 :** 08 Ağustos 2007 18:36:57 »

Cemali abi, webden (programcılığından) hiç anlamayan biri olarak ilk cevabı yazan ben olmak istemezdim ama adıgeçen site gerçekten delphi ile yapılmışsa ki bunu iddia ettiğine göre yapılmış, web konusu hobi halkama iyice girmeye başladı, zaten Oktay abi nin IW'i, sizin (sen ve fatih) ASP.NET iniz, benim PHP merakım derken Web in kıyısında köşesinde dolanıp duruyordum, lâkin bu kisiliktest sitesinin delphi ile yapılmıs olması daha dogrusu delphinin buna muktedir olması beni gerçekten cezbetti. yakında google veya youtube gibi bir bomba patlatırsam (cümle düşük oldu o projeler bana ait değil) trilyonyalarımı (YTL cinsinden) sayarken emin olun sizleri anacağım, anmakla kalmayıp kıyakta yapacağım.
demek istiyorumki makale için teşekkürler

akrep · « **Yanıtla #2 :** 20 Eylül 2007 18:00:41 »

Cemali hocam bileşeni nasıl oluşturup takla attıracaksın anlamadık ama bize yeteri kadar takla attırdın sanki

Artık makaleye devam etme zamanı gelmedi mi? Bir textbox'u nasıl çalışma zamanında oluşturacağız? ayrıca benim özellikle merak ettiğim bir konu, html kontrollerini (mesela HtmlInput) çalışma zamanında oluşturabilir miyiz?

Verdiğin linkteki site ilk zamanlar farklıydı, şu anda farklı sanki, testlerden birşey anlaşılmıyor, sanıyorum üzerinde çalışıyorsun. Ama ilk makale parçasındaki söylemek istediklerin anlaşıldı sanıyorum.. Devamını bekliyoruz, kolay gelsin.

cemaliozan · « **Yanıtla #3 :** 20 Eylül 2007 21:14:35 »

Önce kodları vereyim, gözleriniz kodlara alışsın. Bilaharede en kısa zamanda konuyu irdeleyelim.

Soruların basıldığı user control sayfasının kodları...

Kod: (asp) [Seç]

<%@ Control Language="c#" AutoEventWireup="false" Codebehind="sorular.pas" Inherits="sorular.TWebUserControl_Sorular"%>
<script>
<!--
	  // Geri Sayim
	  function _sayac(no,basla){
		 var div   = document.getElementById(no);
		 div.sayi  = basla;
		 div.sayim = function(){
			if(div.sayi >= 0){
			   div.innerHTML = 'Kalan Süre : '+ div.sayi-- +' Sn.';
			   setTimeout('document.getElementById(\''+div.id+'\').sayim()',1000);
			}else
			{
			 window.location="default.aspx";
			}
		 }
		 div.sayim();
	  }
-->
</script>

<style type="text/css">.fixme {
	RIGHT: 250px; BOTTOM: 50px; POSITION: absolute
}
UNKNOWN {
	POSITION: fixed
}
</style>
<!--[if gte IE 5.5]>
<![if lt IE 7]>
<style type="text/css">
div#fixme {
  /* IE5.5+/Win - this is more specific than the IE 5.0 version */
  right: auto; bottom: auto;
  left: expression( ( -20 - fixme.offsetWidth + ( document.documentElement.clientWidth ? document.documentElement.clientWidth : document.body.clientWidth ) + ( ignoreMe2 = document.documentElement.scrollLeft ? document.documentElement.scrollLeft : document.body.scrollLeft ) ) + 'px' );
  top: expression( ( -10 - fixme.offsetHeight + ( document.documentElement.clientHeight ? document.documentElement.clientHeight : document.body.clientHeight ) + ( ignoreMe = document.documentElement.scrollTop ? document.documentElement.scrollTop : document.body.scrollTop ) ) + 'px' );
}
</style>
<![endif]>
<![endif]-->

<script type="text/javascript">
<!--
var depth = 6 // in pixels

// addLoadEvent created by: Simon Willison
// http://simon.incutio.com/archive/2004/05/26/addLoadEvent
function addLoadEvent(func) {
  var oldonload = window.onload;
  if (typeof window.onload != 'function') {
	window.onload = func;
  } else {
	window.onload = function() {
	  if (oldonload) {
		oldonload();
	  }
	  func();
	}
  }
}

addLoadEvent(function() {

// Created by: Michael Burt
// http://galaxydefense.ga.funpic.org/
var a = document.all ? document.all : document.getElementsByTagName('*');
for (var i = 0;i < a.length;i++) {
	if (a[i].className == "shadow") {
		for (x = 0;x < depth;x++) {
			var newSd = document.createElement("DIV")
			newSd.className = "shadow2"
			newSd.style.background = a[i].id
			newSd.style.width = a[i].offsetWidth + "px"
			newSd.style.height = a[i].offsetHeight + "px"
			newSd.style.left = a[i].offsetLeft + x + "px"
			newSd.style.top = a[i].offsetTop + x + "px"
			document.body.appendChild(newSd)
			}
		}
	}
}
);
 -->
</script>

<style>.shadow {
	BORDER-RIGHT: silver 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: silver 1px solid; DISPLAY: inline; PADDING-LEFT: 2px; Z-INDEX: 100; BACKGROUND: white; PADDING-BOTTOM: 2px; FONT: 10pt arial; BORDER-LEFT: silver 1px solid; PADDING-TOP: 2px; BORDER-BOTTOM: silver 1px solid; POSITION: relative
}
.shadow2 {
	Z-INDEX: 10; FILTER: alpha(Opacity=15); OVERFLOW: hidden; POSITION: absolute; opacity: 0.1; moz-opacity: 0.2; khtml-opacity: 0.1
}
</style>

<div id="div1" style="FONT-WEIGHT: bold; FONT-SIZE: 14px" class="shadow2 fixme"></div>
<div id="Bitir" style="TEXT-ALIGN: center">
  <ASP:Button id="Button1" runat="server" text="Değerlendir" enableviewstate="False" borderstyle="Solid" borderwidth="1px" bordercolor="#C04000" backcolor="#FFE0C0"></ASP:Button><br>
</div>
	  <div class="sidebarbox-border bg-red02" style="WIDTH: 100%">
		<div class="sidebarbox-title-shading bg-red05" style="WIDTH: 100%; TEXT-ALIGN: center">
		  <ASP:Label id="Label_GrupAdi" runat="server" enableviewstate="False" cssclass="txt-white yazi14">***</ASP:Label>
		</div>
		<p>
		  Değerlendirme için tüm soruların eksiksiz cevaplanması zorunludur...
		</p>
	  </div>

<div id="baslik" style="POSITION: fixed; TEXT-ALIGN: center">
	<ASP:Label id="Label_SureScript" runat="server" enableviewstate="False">Süre Yok</ASP:Label>
</div>

Buda code-behind tarafı....

Kod: (delphi) [Seç]

unit sorular;

interface

uses System.Data, System.Drawing, System.Web, System.Web.UI,
     System.Web.UI.WebControls, System.Web.UI.HtmlControls,
     System.Data.OleDb,KTestSabitler;

type
    /// <summary>
    /// Summary description for WebUserControl1.
    /// </summary>
  TWebUserControl_Sorular = class(System.Web.UI.UserControl)
  {$REGION 'Designer Managed Code'}
  strict private
    procedure InitializeComponent;
    procedure Button1_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict private
    procedure Page_Load(sender: System.Object; e: System.EventArgs);
  strict protected
    Label_SureScript: System.Web.UI.WebControls.Label;
    Button1: System.Web.UI.WebControls.Button;
    Label_GrupAdi: System.Web.UI.WebControls.Label;
    procedure OnInit(e: System.EventArgs); override;
  private
    FRBLSayisi       : Int32;
    FMetinKutuSayisi : Int32;
    FES              : Integer; // Erişim Seviyesi
    FDTipi           : String; // Değerlendirme Tipi
    procedure SecenekleriAyarla(const GrupID, SoruID: String; _Panel: Panel);
    procedure SoruveSecenekleriBas(const GrupID: String);
    procedure SetGrupSureSayaci(const GrupID: String);
    procedure SetGrubESDT(const GrpID: String);
    function MukerrerCevaplamaVarmi(const GrpID,UyeID: String): Boolean;
    procedure CevaplariKaydet(Komutcu: OleDbCommand; Cevap,SecenekID, Puan, SoruID,  GrpID, UyeID,NitelikID: String);
    { Private Declarations }
  public
    { Public Declarations }
  end;

implementation

procedure TWebUserControl_Sorular.SecenekleriAyarla(Const GrupID,SoruID:String;_Panel : Panel);
 Var
    RBL                 : RadioButtonList;
    RBLItem             : ListItem;
    MetinBox            : TextBox;
    Baglantim           : OleDbConnection;
    SecenekKomutcu      : OleDbCommand;
    SecenekOkuyucu      : OleDbDataReader;
    Tbl                 : Table;
    Tblrw               : TableRow;
    TblCl               : TableCell;
    Lbl                 : &Label;
    RBLOlusturuldu      : Boolean;
    ZorunluAlan         : RequiredFieldValidator;
begin
  try
    Baglantim                  := OleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+
                                                   'data source='+server.MapPath(kTestSabitler.VT));
    SecenekKomutcu             := OleDbCommand.Create;
    SecenekKomutcu.Connection  := Baglantim;

    SecenekKomutcu.CommandText := 'SELECT * from ktestsecenek where pasif=false and grup_id='+GrupID+' and soru_id='+SoruID;
    Baglantim.Open;
    SecenekOkuyucu        := SecenekKomutcu.ExecuteReader;
    Tbl                   := Table.Create;
    Tbl.CellPadding       := 0;
    Tbl.CellSpacing       := 0;
    Tbl.CssClass          := 'secenektablosu';
    TblRw                 := TableRow.Create;
    TblCl                 := TableCell.Create;
    TblCl.CssClass        := 'secenekhucresi';
    RBLOlusturuldu        := False;
    While SecenekOkuyucu.Read do
    BEGIN
      //******** Seçenek RBL ITEM ise **********//
      if (SecenekOkuyucu.Item['metin'].ToString = 'False') or (SecenekOkuyucu.Item['metin'].ToString = '0') then
      begin
        if Not RBLOlusturuldu then
        begin
          RBLOlusturuldu        := True;
          //* Radiobuttonlist sayısını bir artır *//
          Inc(FRBLSayisi);
          RBL                   := RadioButtonList.Create;
          RBL.CssClass          := 'radiosecenekleri';
          RBL.ID                := 'RBL'+FRBLSayisi.ToString;
          RBL.EnableViewState   := True;
          TblCl.Controls.Add(RBL);
          Tblrw.Controls.Add(TblCl);
          Tbl.Controls.Add(TblRw);

          ZorunluAlan                   :=  RequiredFieldValidator.Create;
          ZorunluAlan.ErrorMessage      := '<img src="img/dikkat1.gif" title="Zorunlu Alan" Alt="Eksik" border="0"/>';
          ZorunluAlan.ControlToValidate := 'RBL'+FRBLSayisi.ToString;
          ZorunluAlan.ID                := 'ZR'+FRBLSayisi.ToString;

          //* Zorunlu Alan Hücresi *//
          TblCl                 := TableCell.Create;
          TblCl.VerticalAlign   := VerticalAlign.Middle;
          TblCl.CssClass        := 'zorunlualanhucresi';
          TblCl.Controls.Add(ZorunluAlan);
          Tblrw.Controls.Add(TblCl);
          Tbl.Controls.Add(TblRw);
        end;

        RBLItem            := ListItem.Create;
        if SecenekOkuyucu.Item['resim'].ToString <> '' then
           RBLItem.Text    := SecenekOkuyucu.Item['secenek'].ToString+'<br>'+SecenekOkuyucu.Item['resim'].ToString
        else
           RBLItem.Text    := SecenekOkuyucu.Item['secenek'].ToString;

        RBLItem.Value := 'R'+SecenekOkuyucu.Item['id'].ToString+'_'+SecenekOkuyucu.Item['puan'].ToString+'['+SoruID+']'+GrupID+'('+SecenekOkuyucu.Item['nitelik_id'].ToString+')';
        RBL.Items.Add(RBLItem);
      end
      //******** Seçenek RBL ITEM ise Sonu **********//
      //******* Seçenek Metinse ********************//
      else
      if (SecenekOkuyucu.Item['metin'].ToString = 'True') or (SecenekOkuyucu.Item['metin'].ToString = '1') then
      begin
        Inc(FMetinKutuSayisi);
        Lbl                   := &Label.Create;
        Lbl.ID                := 'Lbl'+FMetinKutuSayisi.ToString;
        Lbl.EnableViewState   := False;
        Lbl.CssClass          := 'metinkutusuetiketi';

        if SecenekOkuyucu.Item['resim'].ToString <> '' then
           Lbl.Text          := SecenekOkuyucu.Item['secenek'].ToString+'<br>'+SecenekOkuyucu.Item['resim'].ToString
        else
           Lbl.Text          := SecenekOkuyucu.Item['secenek'].ToString;

        //* Etiketin satırı *//
        TblRw             := TableRow.Create;
        Tblcl             := TableCell.Create;
        Tblcl.VerticalAlign := VerticalAlign.Bottom;
        Tblcl.CssClass    := 'metinkutusuetiketi';
        Tblcl.Controls.Add(Lbl);
        Tblrw.Controls.Add(TblCl);
        Tbl.Controls.Add(Tblrw);

        //* Zorunlu Alan Hücresi *//
        TblCl                 := TableCell.Create;
        TblCl.CssClass        := 'zorunlualanhucresi';
        TblCl.Text            := '&nbsp;';
        Tblrw.Controls.Add(TblCl);
        Tbl.Controls.Add(TblRw);

        MetinBox                      := TextBox.Create;
        MetinBox.ID                   := 'M'+FMetinKutuSayisi.ToString;
        MetinBox.EnableViewState      := True;

        ZorunluAlan                   :=  RequiredFieldValidator.Create;
        ZorunluAlan.ErrorMessage      := '<img src="img/dikkat1.gif" title="Zorunlu Alan" Alt="Eksik" border="0"/>';
        ZorunluAlan.ControlToValidate := 'M'+FMetinKutuSayisi.ToString;
        ZorunluAlan.ID                := 'ZM'+FMetinKutuSayisi.ToString;


        //* Metin Kutusunun Hangi grup, soru, seçenek ve puanlamaya tabii olduğunu tutuyoruz *//
        ViewState.Item['M'+FMetinKutuSayisi.ToString]  := SecenekOkuyucu.Item['id'].ToString+'_'+SecenekOkuyucu.Item['puan'].ToString+'['+SoruID+']'+GrupID+'('+SecenekOkuyucu.Item['nitelik_id'].ToString+')';
        MetinBox.CssClass := 'metinkutusu';
        TblRw             := TableRow.Create;
        TblCl             := TableCell.Create;
        TblCl.CssClass    := 'metinkutusuhucresi';
        Tblcl.Controls.Add(MetinBox);
        Tblrw.Controls.Add(TblCl);
        Tbl.Controls.Add(Tblrw);

        //* Zorunlu Alan Hücresi *//
        TblCl                 := TableCell.Create;
        TblCl.CssClass        := 'zorunlualanhucresi';
        TblCl.Controls.Add(ZorunluAlan);
        Tblrw.Controls.Add(TblCl);
        Tbl.Controls.Add(TblRw);
       end;
      //******* Seçenek Metinse Sonu ***************//
    END;
    //* Nesnelere Erişim Sayaçlarını Aklımızda Tutuyoruz *//
    ViewState.Item['MetinKutusuSayisi'] := FMetinKutuSayisi.ToString;
    ViewState.Item['RBLSayisi']         := FRBLSayisi.ToString;
    //* Ayraç koyuyoruz *//
    TblRw             := TableRow.Create;
    TblCl             := TableCell.Create;
    TblCl.Text        := '<img src="img/satirayraci1.gif" border="0" />';
    TblCl.CssClass    := 'sorulararasi';
    Tblrw.Controls.Add(TblCl);
    Tbl.Controls.Add(Tblrw);

    _Panel.Controls.Add(Tbl);
  finally
    SecenekKomutcu.Free;
    Baglantim.Close;
    Baglantim.Free;
  end;
end;

procedure TWebUserControl_Sorular.SetGrupSureSayaci(Const GrupID:String);
  Var
    Baglantim   : OleDbConnection;
    Komutcu     : OleDbCommand;
    Okuyucu     : OleDbDataReader;
    Sure        : Int32;
begin
  try
    Sure                := 0;
    Baglantim           := OleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+
                                                   'data source='+server.MapPath(kTestSabitler.VT));
    Komutcu             := OleDbCommand.Create;
    Komutcu.Connection  := Baglantim;

    Komutcu.CommandText := 'SELECT sure,grupadi from ktestgrup where pasif=0 and id='+GrupID;
    Baglantim.Open;
    Okuyucu             := Komutcu.ExecuteReader;
    if Okuyucu.Read then
    begin
      Sure              := Okuyucu.GetInt32(0);
      Label_GrupAdi.Text:= Okuyucu.GetString(1);
    end;

    if Sure > 0 then
       Label_SureScript.Text :='<script>_sayac(''div1'','+Convert.ToString(Sure*60)+');</script>';
  finally
    Komutcu.Free;
    Baglantim.Close;
    Baglantim.Free;
  end;
end;

procedure TWebUserControl_Sorular.CevaplariKaydet(Komutcu:OleDbCommand;Cevap,SecenekID,Puan,SoruID,GrpID,UyeID,NitelikID :String);
begin
  Komutcu.CommandText := 'INSERT INTO ktestcevaplar (uye_id, grup_id, soru_id, secenek_id, nitelik_id,puan, cevap,pasif) VALUES('+
                         UyeID+','+
                         GrpID+','+
                         SoruID+','+
                         SecenekID+','+
                         NitelikID+','+
                         Puan+', "'+
                         Duzelt(Cevap)+'",0)';
  Komutcu.ExecuteNonQuery;
end;

procedure TWebUserControl_Sorular.Button1_Click(sender: System.Object; e: System.EventArgs);
 Var
   RBL            : RadioButtonList; //Seçenek Listesi
   RS,MS        : String;
   i              : Integer;
   RBI            : String; // RBL'ye atanan ismi işaret etmek için
   MBI            : String; // MetinBox'a atanan ismi işaret etmek için
   MBW            : String; // İlgili metinbox viewstate inde tutulan Seçenek temel bilgilerine işaret etmek için
   SecenekID,
   SoruID,
   Puan,
   GrpID,
   NitelikID      : Int32;
   MBox           : TextBox; // Eğer seçeneğin cevabı metin olarak istenmişse
   Cevap          : String;
   Baglantim      : OleDbConnection;
   Komutcu        : OleDbCommand;
   CevaplariSakla : Boolean;
   UyeID          : String;
   PuanToplami    : Int32;
   DegerlendirmeLinki : String;
begin
  TRY
    PuanToplami := 0;
    //* Kayıtlı Üye Cevaplamışsa ki genelde öyle olacak Cevapları Tabloda Sakla *//
    UyeID := '0';
    if Assigned(Page.Session['uid']) then
    begin
      CevaplariSakla := True;
      UyeID          := Page.Session['uid'].ToString;
    end else
      CevaplariSakla := False;
    
    Baglantim           := OleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+
                                                   'data source='+server.MapPath(kTestSabitler.VT));
    Komutcu             := OleDbCommand.Create;
    Komutcu.Connection  := Baglantim;
    Baglantim.Open;


    //* Önce Radiobuttonlist seçeneklerini inceliyoruz *//
    For i:=1 to Convert.ToInt32(ViewState.Item['RBLSayisi'].ToString) do
    begin
      RBI  := 'RBL'+i.ToString;
      RBL  := RadioButtonList(FindControl(RBI));
      if Assigned(RBL) then
      begin
        if RBL.SelectedIndex > -1 then
        begin
          KtestSabitler.GetSecenekPuanSoruGrup(RBL.SelectedValue,SecenekID,Puan,SoruID,GrpID,NitelikID);
          //* Seçenek cevabı radioitem dan alınacaksa *//
          Cevap       := RBL.SelectedItem.Text;
          //* Her seçeneğe en az sıfır puan vermek zorunlu olduğundan hata çıkmaması gerekir *//
          PuanToplami := PuanToplami + Convert.ToInt32(Puan);
          if CevaplariSakla then
             CevaplariKaydet(Komutcu,Cevap,Convert.ToString(SecenekID),Convert.ToString(Puan),Convert.ToString(SoruID),Convert.ToString(GrpID),UyeID,Convert.ToString(NitelikID));
          //RS := RS+'Grp:'+GrpId.ToString+'-Soru ID.:'+SoruID.ToString+'-SecenekID:'+SecenekID.ToString+'-Nitelik ID:'+NitelikID.ToString+'-Puan:'+Puan.ToString+':'+Cevap+'<br>';
        end;
      end;
    end;
    //* Sonra Metin Girişlerini Test Ediyoruz *//
    For i:=1 To Convert.ToInt32(ViewState.Item['MetinKutusuSayisi'].ToString) do
    begin
      MBI   := 'M'+i.ToString;
      MBox  := TextBox(FindControl(MBI));
      if Assigned(MBox) then
      begin
        Cevap   := MBox.Text;
        if Cevap <> '' then
        begin
          MBW     := ViewState.Item[MBI].ToString;
          KTestSabitler.GetSecenekPuanSoruGrup(MBW,SecenekID,Puan,SoruID,GrpID,NitelikID);
          //* Her seçeneğe en az sıfır puan vermek zorunlu olduğundan hata çıkmaması gerekir *//
          PuanToplami := PuanToplami + Convert.ToInt32(Puan);
          if CevaplariSakla then
             CevaplariKaydet(Komutcu,Cevap,Convert.ToString(SecenekID),Convert.ToString(Puan),Convert.ToString(SoruID),Convert.ToString(GrpID),UyeID,Convert.ToString(NitelikID));
          //MS := MS+'Grp:'+GrpId.ToString+'-Soru ID.:'+SoruID.ToString+'-SecenekID:'+SecenekID.ToString+'-Nitelik ID:'+NitelikID.ToString+'-Puan:'+Puan.ToString+':'+Cevap+'<br>';
        end;
      end;
    end;
    //Değerlendirme yapacağız...
  //  Label_GrupAdi.Text := RS+'<hr>'+MS+'<br> Değerlendireceğiz';
  FINALLY
    Komutcu.Free;
    Baglantim.Close;
    Baglantim.Free;
    //Değerlendirme yapacağız...
    if ViewState.Item['DTipi'].ToString <> 'Y' then
    begin
      DegerlendirmeLinki := SEOYap(Label_GrupAdi.Text,'degerlendirme-gid='+Page.Request.Params['gid'].ToString+'-puan='+Convert.ToString(PuanToplami)+'-dt='+ViewState.Item['DTipi'].ToString+'-grp='+Label_GrupAdi.Text+'-s5');
      Response.Redirect(DegerlendirmeLinki);
    end else
      Response.Redirect('default.aspx');
  END;
end;

procedure TWebUserControl_Sorular.SoruveSecenekleriBas(Const GrupID : String);
  Var
    Baglantim       : OleDbConnection;
    SoruKomutcu     : OleDbCommand;
    SoruOkuyucu     : OleDbDataReader;
    SoruSayisi      : Int32;
    _Panel          : Panel;
   Tbl              : Table;
   Tblrw            : Tablerow;
   TblCl            : TableCell;
   BitirBtn         : Button;
begin
  SoruSayisi      := 0;
  FRBLSayisi      := 0;

  ViewState.Item['GrupID']             := GrupID;
  //* View State başlangıç değerleri hataları önlemek için atanıyor *//
  if Not Page.IsPostBack then
  begin
    ViewState.Item['MetinKutusuSayisi']  := SoruSayisi.ToString; //- 0
    ViewState.Item['RBLSayisi']          := FRBLSayisi.ToString; //- 0
  end;  

  try
    SetGrupSureSayaci(GrupID);
    Baglantim               := OleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+
                                                   'data source='+server.MapPath(kTestSabitler.VT));
    SoruKomutcu             := OleDbCommand.Create;
    SoruKomutcu.Connection  := Baglantim;

    SoruKomutcu.CommandText := 'SELECT * from ktestsorular where pasif=0 and grup_id='+GrupID;

    Baglantim.Open;
    SoruOkuyucu        := SoruKomutcu.ExecuteReader;
    _Panel             := Panel.Create;
    _Panel.ID          := 'sorusecenekpaneli';
    While SoruOkuyucu.Read do
    BEGIN
      Inc(SoruSayisi);
      Tbl              := Table.Create;
      Tbl.CssClass     := 'sorutablosu';
      Tblrw            := Tablerow.Create;
      TblCl            := TableCell.Create;
      TblCl.CssClass   := 'soruhucresi';
      Tblcl.ColumnSpan := 2;
      TblCl.Text  := '<strong><font class="soruno">&nbsp;&nbsp;'+SoruSayisi.ToString+'&nbsp;&nbsp;</font></strong>&nbsp;'+SoruOkuyucu.Item['soru'].ToString;
      Tblrw.Controls.Add(TblCl);
      Tbl.Controls.Add(Tblrw);
      if SoruOkuyucu.Item['resim'].ToString <> '' then
      begin
        Tblrw          := Tablerow.Create;
        TblCl          := TableCell.Create;
        TblCl.CssClass := 'soruhucresi';
        TblCl.Text     := SoruOkuyucu.Item['resim'].ToString;
        Tblrw.Controls.Add(TblCl);
        Tbl.Controls.Add(Tblrw);
      end;
      //Seçenekleri Oluştur
      _Panel.Controls.Add(Tbl);
      SecenekleriAyarla(GrupID,SoruOkuyucu.Item['id'].ToString,_Panel);
    END;
    Controls.Add(_Panel);
    BitirBtn            := Button.Create;
    BitirBtn.ID         := 'BitirBtn';
    BitirBtn.Width      := Button1.Width;
    BitirBtn.BackColor  := Button1.BackColor;
    BitirBtn.ForeColor  := Button1.ForeColor;
    BitirBtn.Text       := Button1.Text;
    BitirBtn.BorderStyle:= Button1.BorderStyle;
    BitirBtn.BorderColor:= Button1.BorderColor;
    BitirBtn.BorderWidth:= Button1.BorderWidth;

    Tbl            := Table.Create;
    Tbl.CssClass   := 'btnbitir';
    Tblrw          := Tablerow.Create;
    TblCl          := TableCell.Create;
    TblCl.CssClass := 'btnbitir';
    TblCl.Controls.Add(BitirBtn);
    Tblrw.Controls.Add(TblCl);
    Tbl.Controls.Add(Tblrw);

    Controls.Add(Tbl);
    include(BitirBtn.Click,Button1_Click);

    ViewState.Item['sorusayisi']  := SoruSayisi.ToString;
  finally
    SoruKomutcu.Free;
    Baglantim.Close;
    Baglantim.Free;
  end;
end;

Procedure TWebUserControl_Sorular.SetGrubESDT(Const GrpID : String);
 Var
    Baglantim   : OleDbConnection;
    Komutcu     : OleDbCommand;
    Okuyucu     : OleDbDataReader;
Begin
  try
    Baglantim           := OleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+
                                                   'data source='+server.MapPath(kTestSabitler.VT));
    Komutcu             := OleDbCommand.Create;
    Komutcu.Connection  := Baglantim;

    Komutcu.CommandText := 'SELECT dtipi,erisim_seviyesi,grupadi from ktestgrup where pasif=0 and id='+GrpID;

    Baglantim.Open;
    Okuyucu        := Komutcu.ExecuteReader;
    if Okuyucu.Read then
    begin
      FDTipi    := Okuyucu.Item['dtipi'].ToString;
      FES       := Okuyucu.GetInt32(1);
      ViewState.Item['DTipi'] := FDTipi;
      ViewState.Item['Es']    := FES.ToString;
      Label_GrupAdi.Text      := Okuyucu.Item['grupadi'].ToString;
    end else
    begin
      ViewState.Item['DTipi'] := 'Y';
      ViewState.Item['Es']    := '9';
    end;
  finally
    Komutcu.Free;
    Baglantim.Close;
    Baglantim.Free;
  end;
End;

Function TWebUserControl_Sorular.MukerrerCevaplamaVarmi(Const GrpID,UyeID : String):Boolean;
 Var
    Baglantim   : OleDbConnection;
    Komutcu     : OleDbCommand;
    Okuyucu     : OleDbDataReader;
Begin
  try
    Baglantim           := OleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+
                                                   'data source='+server.MapPath(kTestSabitler.VT));
    Komutcu             := OleDbCommand.Create;
    Komutcu.Connection  := Baglantim;

    Komutcu.CommandText := 'SELECT count(id) as toplam from uyedegerlendirme where grup_id='+GrpID+' and uye_id='+UyeID;

    Baglantim.Open;
    Okuyucu        := Komutcu.ExecuteReader;
    if Okuyucu.Read then
    begin
      Result := Okuyucu.GetInt32(0) > 0;
    end else
      Result := False;
  finally
    Komutcu.Free;
    Baglantim.Close;
    Baglantim.Free;
  end;
End;

procedure TWebUserControl_Sorular.Page_Load(sender: System.Object; e: System.EventArgs);
 Var
   GrpID      : String;
   ES         : Int32; // ziyaretçinin erişim seviyesi
   Uyemi      : Boolean;
   Mukerrermi : Boolean;
   Go         : String;
begin
  // TODO: Put user code to initialize the page here
  if Assigned(Page.Request.Params['gid']) then
     GrpID  := Page.Request.Params['gid'].ToString
  else
     GrpID  := '0';
  {
    //* Erişim İzinleri Denetimi Yapacağız *//

    Gruplara ait sorular üç tip kullanıcı tarafından cevaplanır
    1. Ziyaretçiler
    2. Kayıtlı Üyeler
    3. 1 nci derece özel üyeler
    4. 2 nci derece özel üyeler

    Soru değerlendirmeleri
     0. Yok - Y
     1. Kısa  - K
     2. Uzun  - U
     3. E-Postaya Kısa - PK
     4. E-Postaya Uzun - PU
  }
  //* Önce Soru Grubuna Erişim Şeklini ve değerlendirme tipini Buluyoruz *//
  SetGrubESDT(GrpID);

  //* Yönlendirme gerekirse adres belli olsun *//
  Go := KTestSabitler.SEOYap(Label_GrupAdi.Text,'sorular-gid'+GrpID+'-s2');  //'default.aspx?p=sorular&gid='+GrpID;
  Page.Session['sayfayagit'] := Go;

  //* Kullanıcının Erişim Düzeyini Buluyoruz *//
  Uyemi       := False;
  Mukerrermi  := False;

  if Assigned(Page.Session['uid']) then
  begin
    Uyemi     := True;
    ES        := Convert.ToInt32(Page.Session['es'].ToString);
    Mukerrermi:= MukerrerCevaplamaVarmi(GrpID,Page.Session['uid'].ToString);
  end else
    ES  := 0;

  //* Erişim İzni Gerekiyorsa ve ziyaretçinin erişim izni grubunkinden küçükse *//
  if (FEs > 0) and (ES < FES) and (Uyemi) then
    Response.Redirect('default.aspx?p=hatapaneli&hatakodu=1&s=100')
  else
  if (FEs > 0) and (ES < FES) and (Not Uyemi) then
    Response.Redirect('default.aspx?p=hatapaneli&hatakodu=0&go=1&s=100')
  else
  if (Uyemi) and (Mukerrermi)  then
    Response.Redirect('default.aspx?p=hatapaneli&hatakodu=2&s=100')
  else
  begin
    SoruveSecenekleriBas(GrpID);
  end;
end;

procedure TWebUserControl_Sorular.OnInit(e: System.EventArgs);
begin
  //
  // Required for Designer support
  //
  InitializeComponent;
  inherited OnInit(e);
end;

{$REGION 'Designer Managed Code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWebUserControl_Sorular.InitializeComponent;
begin
  Include(Self.Button1.Click, Self.Button1_Click);
  Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}


end.

Eeeee kodları verdikten sonra başta akrep olmak üzere bilgili ve tecrübeli arkadaşlarımda bu konuyu irdeleyip açabilir değil mi? Ben fırsat bulunca anlatmaya başlayacağım...

Fatih · « **Yanıtla #4 :** 25 Eylül 2007 12:49:37 »

Programlama da zorlandığım en gıcık konu; yazmadığım kodları analiz etmektir.

Deneme-Yanılma yoluıyla bulmayı tercih ederim.

Kodlama konusunda egemenlik kayıtsız, şartsız benim olmalıdır

Kullanıcı

Sohbet Penceresi

Gönderen Konu: Çalışma Anında Bileşen Oluşturmak ve Takla Attırmak... (Okunma sayısı 2165 defa)

cemaliozan

Çalışma Anında Bileşen Oluşturmak ve Takla Attırmak...

hayati

Ynt: Çalışma Anında Bileşen Oluşturmak ve Takla Attırmak...

akrep

Ynt: Çalışma Anında Bileşen Oluşturmak ve Takla Attırmak...

cemaliozan

Çalışma Anında Bileşen Oluşturmak ve Takla Attırmak...-2-

Fatih

Ynt: Çalışma Anında Bileşen Oluşturmak ve Takla Attırmak...