DATA ile NAVIGATOR GELyyMyy


Ana Sayfam İp whois Google Pagerank Türkiye Deprem Bilgileri
Kod Bankasi
ADO.NET - ADO
Asp
ASP.NET
C #
C ++
CGI
DELPHI
FLASH
HTML
JAVA - JSP
JAVA SCRIPT
PASCAL
PERL
PHP
Veritaban
VISUAL BASIC
VISUAL BASIC.NET
Webmaster
WML
XML
Google Pagerank
DATA ile NAVIGATOR GELyyMyy

DATA ile NAVIGATOR GELyyMyy
İncelenme : 18 | Eklenme : 12.05.2008
Kodlama Dili : VISUAL BASIC
Private Sub Command1_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""


Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""

Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End If
End If
Data1.Recordset.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End Sub

Private Sub Command10_Click()
On Error Resume Next
Data1.Refresh
Text5 = ""
If Data1.Recordset.RecordCount = 0 Then
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End Sub

Private Sub Command11_Click()
On Error Resume Next
Dim A, B
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""


Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""

Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End If
End If
A = InputBox("Arad???n?z Ki?inin Ad?n? Giriniz", "Ad?na gÃ¶re arama Alan?")
B = "ADI= & A & "
Data1.Recordset.FindFirst B
If Data1.Recordset.Fields("ADI") <> A Then
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
MsgBox ("Aranan Kay?t Bulunamad?")
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End If
End Sub

Private Sub Command12_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
End If
End If
End
End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""


Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""

Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End If
End If
Data1.Recordset.MovePrevious
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If


End Sub

Private Sub Command3_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""


Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""

Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End If
End If


Data1.Recordset.MoveNext
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If

End Sub

Private Sub Command4_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""


Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""

Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End If
End If
Data1.Recordset.MoveLast
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End Sub

Private Sub Command5_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""


Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""

Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

End If
End If
Text5 = "A"
Data1.Recordset.AddNew
If Data1.Recordset.RecordCount = 0 Then
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = False
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Else

Command3.Enabled = True
Command4.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command7.Enabled = False
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
End If
End Sub

Private Sub Command6_Click()
On Error Resume Next

Dim K
K = MsgBox("S?LMEK ?STED???N?ZDEN EM?N M?S?N?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Delete
Data1.Recordset.MoveLast
Text5 = ""

If Data1.Recordset.RecordCount = 0 Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command7.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
Command9.Enabled = False

Else

Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If






End Sub

Private Sub Command7_Click()
On Error Resume Next
Data1.Recordset.Edit
Command8.Enabled = True
Command9.Enabled = True
Command7.Enabled = False
Text5 = ""
End Sub

Private Sub Command8_Click()
On Error Resume Next
Dim K
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then

Data1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Text5 = ""
Else
Data1.Recordset.CancelUpdate
Data1.Recordset.MoveLast
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False

Text5 = ""

End If
End Sub

Private Sub Command9_Click()
On Error Resume Next
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
If Data1.Recordset.RecordCount = 0 Then
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If

End Sub

Private Sub Form_Load()

Left = (Screen.Width - Width)  2
Top = (Screen.Height - Height)  2

Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True





End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next

Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
End If
End If
End
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Text5 = "A"
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)

Text5 = "A"
End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)

Text5 = "A"
End Sub

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)

Text5 = "A"
End Sub
	Sayysal loto taktikleri ile birlikte
	Kullanysly bir saat
	Hem yazycy seÃ§in hem yazdyryn
	MenÃ¼lerde seperatÃ¶r (ayraÃ§) nasyl yapylyr
	Resim effect 14

		Bir AvrasyaSoft Hizmetidir. Since 2007 Murat Çetin