! CODEBANK 2012 !
İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.
ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);varMyConnect:oleDbConnection;MyAdapter:oleDbDataAdapter;MyDataset:DataSet;begin//Bağlantıyı oluşturMyConnect:=oleDbConnection.Create;MyConnect.ConnectionString:='Provider=microsoft.Jet.OLEDB.4. 0;'+'data source='+Server.MapPath('/MyProc/Data.mdb');//Tabloya bağlanMyAdapter:=oleDbDataAdapter.Create('Select * From TBL_LISTE',MyConnect);//Seçilen Tabloyu DataSete AktarMyDataset:=Dataset.Create;MyAdapter.Fill(MyDataset,'TBL_LISTE');MyGrid.DataSource:=MyDataset.Tables['TBL_LISTE'];//verilemizi bağlıyoruz.(PostBack değilse)if not (IsPostBack) thenMyGrid.DataBind;end;
<asp:DataGrid id="MyGrid" style="Z-INDEX: 101; LEFT: 94px; POSITION: absolute; TOP: 246px" runat="server" backcolor="#DEBA84" bordercolor="#DEBA84" borderstyle="None" cellspacing="2" borderwidth="1px" cellpadding="3"> <FooterStyle forecolor="#8C4510" backcolor="#F7DFB5"></FooterStyle> <HeaderStyle font-bold="True" forecolor="White" backcolor="#A55129"></HeaderStyle> <PagerStyle horizontalalign="Center" forecolor="#8C4510" mode="NumericPages"></PagerStyle> <SelectedItemStyle font-bold="True" forecolor="White" backcolor="#738A9C"></SelectedItemStyle> <ItemStyle forecolor="#8C4510" backcolor="#FFF7E7"></ItemStyle></asp:DataGrid>
procedure TWebForm1.MyGrid_EditCommand(source: System.Object; e: System.Web.UI.WebControls.DataGridCommandEventArgs);beginmyGrid.EditItemIndex := e.Item.ItemIndex;myGrid.DataBind();end;
procedure TWebForm1.MyGrid_CancelCommand(source: System.Object; e: System.Web.UI.WebControls.DataGridCommandEventArgs);beginmyGrid.EditItemIndex := -1;myGrid.DataBind();end;
procedure TWebForm1.MyGrid_UpdateCommand(source: System.Object; e: System.Web.UI.WebControls.DataGridCommandEventArgs);Vartxt1,txt2,txt3,txt4:TextBox;MyConnect2:oleDbConnection;MyCommand:OleDbCommand;begintxt1:=TextBox.Create;txt2:=TextBox.Create;txt3:=TextBox.Create;txt4:=TextBox.Create;TXT1.Text :=(MyGrid.DataKeys[e.Item.ItemIndex]).ToString;txt2 := (e.Item.Cells[1].Controls[0]) as TextBox;txt3 := (e.Item.Cells[2].Controls[0]) as TextBox;txt4 := (e.Item.Cells[3].Controls[0]) as TextBox;MyConnect2:=oleDbConnection.Create('Provider=microsoft.Jet.O LEDB.4.0;'+'data source='+Server.MapPath('/MyProc/Data.mdb'));MyConnect2.Open;MyCommand:=OleDbCommand.Create('UPDATE TBL_LISTE SET ADI='+#39+TXT2.Text+#39+',MESLEGI='+#39+TXT3.Text+#39+',KAYI T_TARIHI='+#39+TXT4.Text+#39+' WHERE IDNO='+txt1.Text,MyConnect2);MyCommand.ExecuteNonQuery;MyConnect2.Close;myGrid.EditItemIndex := -1;Baglan;myGrid.DataBind();end;
procedure TWebForm1.MyGrid_DeleteCommand(source: System.Object; e: System.Web.UI.WebControls.DataGridCommandEventArgs);Vartxt1:TextBox;MyConnect2:oleDbConnection;MyCommand:OleDbCommand;begintxt1:=TextBox.Create;TXT1.Text :=(MyGrid.DataKeys[e.Item.ItemIndex]).ToString;MyConnect2:=oleDbConnection.Create('Provider=microsoft.Jet.O LEDB.4.0;'+'data source='+Server.MapPath('/MyProc/Data.mdb'));MyConnect2.Open;MyCommand:=OleDbCommand.Create('DELETE FROM TBL_LISTE WHERE IDNO='+TXT1.TEXT,MyConnect2);MyCommand.ExecuteNonQuery;MyConnect2.Close;Baglan;myGrid.DataBind();end;
procedure TWebForm1.Baglan;varMyConnect:oleDbConnection;MyAdapter:oleDbDataAdapter;MyDataset:DataSet;begin//Bağlantıyı oluşturMyConnect:=oleDbConnection.Create;MyConnect.ConnectionString:='Provider=microsoft.Jet.OLEDB.4. 0;'+'data source='+Server.MapPath('/MyProc/Data.mdb');//Tabloya bağlanMyAdapter:=oleDbDataAdapter.Create('Select * From TBL_LISTE',MyConnect);//Seçilen Tabloyu DataSete AktarMyDataset:=Dataset.Create;MyAdapter.Fill(MyDataset,'TBL_LISTE');MyGrid.DataSource:=MyDataset.Tables['TBL_LISTE'];end;
procedure TWebForm1.MyGrid_PageIndexChanged(source: System.Object; e: System.Web.UI.WebControls.DataGridPageChangedEventArgs);begin myGrid.CurrentPageIndex := e.NewPageIndex;myGrid.DataBind(); end;
Gördüğünüz gibi veriler gride.. Sizin gridiniz benim gridim kadar güzel görünmüyorsa object inspectordan renk ayarlarıyla oynayın. C#’ta görüp delphide görmediğim güzelliklerden biri C#’ta grid için hazır şablonlar bulunması. Maalesef delphide bu seçenek yok. Ben buna kendimce bir çözüm buldum. C# derleyicisini açarak bir grid ekliyorum sonrada oluşturduğu asp.net kodlarını delphiye yapıştırıyorum ve şablon olduğu gibi delphide
Stringdegisken:=Request.QueryString['Ogr_Numarasi'];