/ / / / Rezervasyon Kayıt, Referans ID Uygulaması

Rezervasyon Kayıt, Referans ID Uygulaması

, ,
Merhaba Arkadaşlar, önceki makalelerde 8 karakterli Referans ID nin nasıl atandığını, küçük bir uygulama ile göstermiştim. Şimdi de rezervasyon kayıt sisteminde kullanım şeklini göstereceğim.

2 sayfamız var bunlardan birincisi bilgi girişi yaptığımız formun bulunduğu sayfa, 2. Sayfa da kayıt sayfası.


Formun bulunduğu, bilgi girişi yapılacak olan sayfayı Şekil 1 deki gibi oluşturun.

Şekil 1

Default.aspx.vb

Imports System.Data.OleDb

Imports System.Data.OleDb.OleDbDataReader

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'Referans ID Olustur

Dim liste() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}

Dim r As Random = New Random()

Dim str As String

For i = 0 To 7

'Bu kısımda rastgele 0-10000 sayıları içerisinden herhangi

'bir sayı atasın. Bu sayıyı Mod (34) metodu ile karşılık

'gelen stringi alacağız.

liste(i) = liste(r.Next(10000) Mod (34))

str = str & liste(i)

Next

Dim baglan As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Server.MapPath("~/App_Data/bilgi.accdb") & ";")

Dim adp As New Data.OleDb.OleDbDataAdapter

adp.SelectCommand = New Data.OleDb.OleDbCommand("Select * From rezervasyonliste", baglan)

Dim CB As Data.OleDb.OleDbCommandBuilder = New Data.OleDb.OleDbCommandBuilder(adp)

baglan.Open()

Dim ds As New Data.DataSet()

adp.Fill(ds)

Dim rw1 As Data.DataRow

rw1 = ds.Tables(0).NewRow

'Datasetimiz için yeni bir satır tanımlıyoruz

Dim x1 As Integer

x1 = ds.Tables(0).Rows.Count 'Veritabanımızdaki kayıt sayısı

rw1.Item("Ad") = TextBox1.Text

rw1.Item("Soyad") = TextBox2.Text

rw1.Item("Grup") = DropDownList1.Text

rw1.Item("Adres") = TextBox3.Text

rw1.Item("Telefon") = TextBox4.Text

rw1.Item("CepTelefon") = TextBox5.Text

rw1.Item("Mail") = TextBox6.Text

rw1.Item("ReferansID") = str.ToString

ds.Tables(0).Rows.InsertAt(rw1, x1 + 1)

adp.Update(ds)

adp.InsertCommand = New Data.OleDb.OleDbCommand("Insert * From rezervasyonliste", baglan)

adp.UpdateCommand = New Data.OleDb.OleDbCommand("Update * From rezervasyonliste", baglan)

Dim cmd As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand("Select * From rezervasyonliste", baglan)

Try

cmd.ExecuteNonQuery()

Catch

'MsgBox.Show("Veritabanında Hata...Bahadirsa")

Finally

cmd.Dispose()

End Try

baglan.Close()

Response.Redirect("kayit.aspx?" & "id=" & ds.Tables(0).Rows.Count - 1)

End Sub

End Class

Default.aspx

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" % >

< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >

< html xmlns="http://www.w3.org/1999/xhtml" >

< head runat="server" >

< title >< / title >

< / head >

< body >

< form id="form1" runat="server" >

< div >

< asp:Label ID="Label1" runat="server" Font-Bold="True" Font-Size="X-Large" ForeColor="#0066FF" Text="REZERVASYON KAYIT" >< / asp:Label >

< br / >

< br / >

< asp:Label ID="Label2" runat="server" Font-Bold="True" Text="Ad:" >< / asp:Label >

< asp:TextBox ID="TextBox1" runat="server" >< / asp:TextBox >

< br / >

< br / >

< asp:Label ID="Label3" runat="server" Font-Bold="True" Text="Soyad:" >< / asp:Label >

< asp:TextBox ID="TextBox2" runat="server" >< / asp:TextBox >

< br / >

< br / >

< asp:Label ID="Label4" runat="server" Font-Bold="True" Text="Grup:" >< / asp:Label >

< asp:DropDownList ID="DropDownList1" runat="server" >

< asp:ListItem >1.Grup< / asp:ListItem >

< asp:ListItem >2.Grup< / asp:ListItem >

< asp:ListItem >3.Grup< / asp:ListItem >

< asp:ListItem >4.Grup< / asp:ListItem >

< asp:ListItem >5.Grup< / asp:ListItem >

< asp:ListItem >6.Grup< / asp:ListItem >

< asp:ListItem >7.Grup< / asp:ListItem >

< asp:ListItem >8.Grup< / asp:ListItem >

< asp:ListItem >9.Grup< / asp:ListItem >

< asp:ListItem >10.Grup< / asp:ListItem >

< / asp:DropDownList >

< br / >

< br / >

< asp:Label ID="Label5" runat="server" Font-Bold="True" Text="Adres:" >< / asp:Label >

< asp:TextBox ID="TextBox3" runat="server" Height="28px" TextMode="MultiLine"

Width="297px" >< / asp:TextBox >

< br / >

< br / >

< asp:Label ID="Label6" runat="server" Font-Bold="True" Text="Telefon:" >< / asp:Label >

< asp:TextBox ID="TextBox4" runat="server" >< / asp:TextBox >

< br / >

< asp:Label ID="Label7" runat="server" Font-Size="Smaller" Text="Or:0212XXXXXXX" >< / asp:Label >

< br / >

< br / >

< asp:Label ID="Label8" runat="server" Font-Bold="True" Text="CepTelefon:" >< / asp:Label >

< asp:TextBox ID="TextBox5" runat="server" Width="131px" >< / asp:TextBox >

< br / >

< asp:Label ID="Label10" runat="server" Font-Size="Smaller"

Text="Or:05XXXXXXXXX" >< / asp:Label >

< br / >

< br / >

< asp:Label ID="Label9" runat="server" Font-Bold="True" Text="Mail:" >< / asp:Label >

< asp:TextBox

ID="TextBox6" runat="server" Width="291px" >@< / asp:TextBox >

< br / >

< br / >

< asp:Button ID="Button1" runat="server" Text="Gönder" / >

< asp:Button ID="Button2" runat="server" Height="26px" Text="Temizle" / >

< br / >

< / div >

< / form >

< / body >

< / html >

Şekil 1 deki gibi giriş yaptıktan sonra Gönder butonuna tıkladığımız da kayit.aspx sayfasına yönlendiriliriz. Bu kısımda girmiş olduğumuz bilgiler ve Referans ID numarası bulunmaktadır. (Şekil 2)

Şekil 2

kayit.aspx.vb

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="kayit.aspx.vb" Inherits="kayit" % >

< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >

< html xmlns="http://www.w3.org/1999/xhtml" >

< head runat="server" >

< title >< / title >

< style type="text/css" >

.style1

{

font-family: Tahoma;

font-size: small;

}

.style2

{

font-family: Tahoma;

font-size: small;

color: #666666;

}

.style3

{

color: #666666;

font-weight: bold;

}

.style4

{

font-family: Tahoma;

font-size: small;

color: #666666;

font-weight: bold;

}

.style5

{

color: #808080;

}

.style6

{

color: #808080;

font-weight: bold;

}

.style7

{

color: #0066FF;

font-weight: bold;

}

.style8

{

font-family: Tahoma;

font-size: small;

color: #0066FF;

font-weight: bold;

}

< / style >

< / head >

< body style="font-size: small; font-family: Tahoma" >

< form id="form1" runat="server" >

< div >

< span class="style3" >Sayın:< / span >

< asp:Label ID="Label1" runat="server" Text="Label" Font-Bold="True" >< / asp:Label >

;< br / >

< br / >

< span class="style4" >Az önce doldurmuş olduğunuz rezervasyon kayıt formu elimize

ulaşmış bulunmaktadır.< / span >< br class="style4" / >

< span class="style4" >Sizleri otelimizde görmekten mutluluk duyacağız. Lütfen

doldurmuş olduğunuz formu< / span >< br class="style4" / >

< span class="style1" >< span class="style3" >aşağıda tekrar kontrol ediniz.

Herhangi bir yanlışlık varsa, < / span >< a href="mailto:info@siteadi.com" >

< span class="style7" >info@siteadi.com< / span >< / a >< span class="style3" > adresine< / span >< / span >< br

class="style4" / >

< span class="style4" >mail gönderebilirsiniz.< / span >< b >< br class="style2" / >

< br class="style2" / >

< / b >< span class="style4" >Ödemelerinizi; Bahadır ŞAHİN adına

< / span >< span class="style8" >.........< / span >< span class="style4" > Banka Hesap

Numarasına veya < / span >< span class="style8" >........< / span >< br class="style4" / >

< span class="style4" >Posta Çeki Hesap Numarasına, aşağıdaki Referans Numarasını

belirtmek suretiyle < / span >

< br class="style4" / >

< span class="style4" >yapabilirsiniz.< / span >< b >< br class="style2" / >

< br class="style2" / >

< / b >< span class="style4" >Ödeme için Referans Numaranız:< / span >

< asp:Label ID="Label2" runat="server" Text="Label" Font-Bold="True"

Font-Size="X-Large" ForeColor="#0066FF" >< / asp:Label >

< br / >

< br / >

< span class="style6" >Adınız: < / span >

< asp:Label ID="Label3" runat="server" Text="Label" CssClass="style6"

Font-Bold="True" ForeColor="Black" >< / asp:Label >

< b >

< br class="style5" / >

< / b >< span class="style6" >Soyadınız: < / span >

< asp:Label ID="Label4" runat="server" Text="Label" CssClass="style6"

Font-Bold="True" ForeColor="Black" >< / asp:Label >

< b >

< br class="style5" / >

< / b >< span class="style6" >Seçtiğiniz Grup: < / span >

< asp:Label ID="Label5" runat="server" Text="Label" CssClass="style6"

Font-Bold="True" ForeColor="Black" >< / asp:Label >

< b >

< br class="style5" / >

< / b >< span class="style6" >Fatura Adresiniz: < / span >

< asp:Label ID="Label6" runat="server" Text="Label" CssClass="style6"

Font-Bold="True" ForeColor="Black" >< / asp:Label >

< b >

< br class="style5" / >

< / b >< span class="style6" >Telefonunuz:< / span >< asp:Label ID="Label7"

runat="server" Text="Label" CssClass="style6" Font-Bold="True"

ForeColor="Black" >< / asp:Label >

< b >

< br class="style5" / >

< / b >< span class="style6" >Cep Telefonunuz:< / span >< asp:Label ID="Label8"

runat="server" Text="Label" CssClass="style6" Font-Bold="True"

ForeColor="Black" >< / asp:Label >

< b >

< br class="style5" / >

< / b >< span class="style6" >E-Mail Adresiniz:< / span >< asp:Label ID="Label9"

runat="server" Text="Label" CssClass="style6" Font-Bold="True"

ForeColor="Black" >< / asp:Label >

< br / >

< br / >

< br / >

< / div >

< / form >

< / body >

< / html >

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.

0 comments:

Yorum Gönder

Kaydol: Kayıt Yorumları ( Atom )

Öne Çıkan Yayın

GridView da Seçili Satırı DetailsView da Göstermek

Merhaba arkadaşlar bu makalemizde GridView nesnesi ile birlikte DetailsView nesanesini birlikte kullanacağız. GridView da seçili satırın de...