New Document

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.

Resim1

Ş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)

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">

</head>

<body>

<div>

<asp:Label ID="Label1" runat="server" Font-Bold="True" Font-Size="X-Large"

ForeColor="#0066FF" Text="REZERVASYON KAYIT"></asp:Label>

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

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

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

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

<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>

<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>

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

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

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

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

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

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

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

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

<asp:TextBox

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

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

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

</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)

Resim2

Şekil 2

kayit.aspx.vb

Imports System.Data.OleDb

Imports System.Data.OleDb.OleDbDataReader

Partial Class kayit

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim i As Integer = Request.QueryString("id")

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)

Label1.Text = ds.Tables(0).Rows(i).Item(1) & " " & ds.Tables(0).Rows(i).Item(2)

Label2.Text = ds.Tables(0).Rows(i).Item(8)

Label3.Text = ds.Tables(0).Rows(i).Item(1)

Label4.Text = ds.Tables(0).Rows(i).Item(2)

Label5.Text = ds.Tables(0).Rows(i).Item(3)

Label6.Text = ds.Tables(0).Rows(i).Item(4)

Label7.Text = ds.Tables(0).Rows(i).Item(5)

Label8.Text = ds.Tables(0).Rows(i).Item(6)

Label9.Text = ds.Tables(0).Rows(i).Item(7)

baglan.Close()

End Sub

End Class

Kayit.aspx

<%@ 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">

.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>

<div>

Sayın:

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

;

Az önce doldurmuş olduğunuz rezervasyon kayıt formu elimize

ulaşmış bulunmaktadır.

Sizleri otelimizde görmekten mutluluk duyacağız. Lütfen

doldurmuş olduğunuz formu

aşağıda tekrar kontrol ediniz.

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

info@siteadi.com</a> adresine<br

class="style4" />

mail gönderebilirsiniz.

Ödemelerinizi;  Bahadır ŞAHİN adına

......... Banka Hesap

Numarasına veya ........

Posta Çeki Hesap Numarasına, aşağıdaki Referans Numarasını

belirtmek suretiyle

yapabilirsiniz.

Ödeme için Referans Numaranız:

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

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

Adınız:

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

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

Soyadınız:

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

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

Seçtiğiniz Grup:

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

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

Fatura Adresiniz:

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

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

Telefonunuz:<asp:Label ID="Label7"

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

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

Cep Telefonunuz:<asp:Label ID="Label8"

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

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

E-Mail Adresiniz:<asp:Label ID="Label9"

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

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

</div>

</form>

</body>

</html>

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