Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim checkindate As DateTime = checkinDTP.Value
Dim checkoutdate As DateTime = checkoutDTP.Value
Dim checkinTarihi, checkoutTarihi As Date
checkinTarihi = checkinDTP.Value
checkoutTarihi = checkoutDTP.Value
Dim suAnkiTarih As Date
suAnkiTarih = Date.Now
Dim kisisay As Integer = 1
Dim rezSay, kapasite As Integer
kapasite = Convert.ToInt32(odaNo.SelectedValue.ToString)
rezSay = Convert.ToInt32(odaNo.SelectedValue.ToString)
RezervasyonSayisi(rezSay)
OdaKapasite(kapasite)
If misafirID.SelectedIndex = -1 Or misafirAdi.Text = “” Or odaNo.SelectedIndex = -1 Then
MsgBox(“Hatalı İşlem…”)
ElseIf checkinTarihi < suAnkiTarih OrElse checkoutTarihi < suAnkiTarih OrElse checkoutTarihi <= checkinTarihi Then
MsgBox(“Lütfen rezervasyon tarihini kontrol ediniz!”)
Else
Select Case rezSay
Case < kapasite
baglanti.Open()
Dim sorgu As String = “INSERT INTO rezervasyon (musteriID, musteriAdi, odaNo, girisTarihi, cikisTarihi) VALUES (@musteriID, @musteriAdi, @odaNo, @girisTarihi, @cikisTarihi)”
Dim komut As New SqlCommand(sorgu, baglanti)