Oto Kiralama

Private Sub Form_Load()
Form1.Caption = "..........................................................................::: OTO  KİRALAMA  VE  SATIŞ :::............................................................................. "
End Sub

Private Sub Image1_Click()
End Sub
Private Sub Image2_Click()
Form8.Show
Unload Me
End Sub
Private Sub Image3_Click()
Form7.Show
Unload Me
End Sub
Private Sub Image4_Click()
Form5.Show
End Sub
Private Sub Image5_Click()
Form2.Show
End Sub
Private Sub Image6_Click()
Form4.Show
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Private Sub Command1_Click()
Form1.Show
Unload Me
End Sub
Private Sub Form_Load()
Form2.Caption = "OTO GALERİ"
End Sub
Private Sub Image26_Click()
Form1.Show
Unload Me
End Sub
Private Sub Command1_Click()
Form1.Show
Unload Me
End Sub
Private Sub Form_Load()
Form3.Caption = "OTO FİYATLARI"
End Sub
Private Sub Image1_Click()
Text1 = "25.000 YTL"
End Sub
Private Sub Image10_Click()
Text9 = "75.500 YTL"
End Sub
Private Sub Image2_Click()
Text2 = "10.000 YTL"
End Sub
Private Sub Image3_Click()
Text3 = "60.000 YTL"
End Sub
Private Sub Image4_Click()
Text4 = "250.000 YTL"
End Sub
Private Sub Image5_Click()
Text5 = "200.000 YTL"
End Sub
Private Sub Image6_Click()
Text6 = "150.000 YTL"
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Image7_Click()
Form5.Show
Unload Me
End Sub
Private Sub Image8_Click()
Text7 = "60.700 YTL"
End Sub
Private Sub Image9_Click()
Text8 = "80.500 YTL"
End Sub
Private Sub Command1_Click()
Form6.Show
Unload Me
End Sub
Private Sub Command3_Click()
Form3.Show
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Image2_Click()
Unload Me
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Form_Load()
Form6.Caption = "MERCEDES FİYATLARI"
End Sub
Private Sub Image1_Click()
Text1.Text = "25.000 YTL"
End Sub
Private Sub Image10_Click()
Form5.Show
Unload Me
End Sub
Private Sub Image2_Click()
Text2.Text = "30.000 YTL"
End Sub
Private Sub Image3_Click()
Text3.Text = "35.000 YTL"
End Sub
Private Sub Image4_Click()
Text4.Text = "60.000 YTL"
End Sub
Private Sub Image5_Click()
Text5.Text = "70.000 YTL"
End Sub
Private Sub Image6_Click()
Text6.Text = "50.000 YTL"
End Sub
Private Sub Image7_Click()
Text7.Text = "75.000 YTL"
End Sub
Private Sub Image8_Click()
Text8.Text = "110.000 YTL"
End Sub
Private Sub Image9_Click()
Text9.Text = "130.000 YTL"
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "Mercedes" Then
d = 100 * Val(Text6)
Text7.Text = d & " YTL"
End If
If Combo1.Text = "Renault" Then
c = 40 * Val(Text6)
Text7.Text = c & " YTL"
End If
If Combo1.Text = "Ford" Then
a = 50 * Val(Text6)
Text7.Text = a & " YTL"
End If
If Combo1.Text = "Jeep" Then
B = 120 * Val(Text6)
Text7.Text = B & " YTL"
End If
End Sub
Private Sub Command1_Click()
Text1.SetFocus
Data1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
cevap = MsgBox("kayıt yapılsın mı?", vbYesNo + 32, "KAYIT")
If cevap = 7 Then
Data1.Recordset.Update
MsgBox "kayıt yapılmıştır"
End If
End Sub
Private Sub Command3_Click()
adsoyad = InputBox("Aranan Kişinin Adını Giriniz :", "Ad İle Arama")
Data1.Recordset.FindFirst ("ad= '" + adsoyad + "'")
End Sub
Private Sub Command4_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
MsgBox "kayıt silindi"
End Sub

Private Sub Form_Load()
End Sub
Private Sub Image1_Click()
Form1.Show
Unload Me
End Sub