Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Gökhan KILIÇ-Recep TÜRK
 
AnasayfaKapıTakvimGaleriSSSKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Leman Sam-Kıyamam Sana
Çarş. Mart 17, 2010 5:48 pm tarafından BTA

» Leman Sam-Rüzgar
Çarş. Mart 17, 2010 5:47 pm tarafından BTA

» Komik Videolar 3
Çarş. Mart 17, 2010 5:44 pm tarafından BTA

» Komik Videolar 2
Çarş. Mart 17, 2010 5:43 pm tarafından BTA

» Komik Videolar 1
Çarş. Mart 17, 2010 5:41 pm tarafından BTA

» Leman Sam - Anladım
Salı Mart 09, 2010 6:32 pm tarafından BTA

» Alışveriş Merkezinde Kız Kavgası
Ptsi Mart 08, 2010 11:35 am tarafından BTA

» Canı Sıkılan Anket Çözmeye
Cuma Mart 05, 2010 12:29 am tarafından BTA

» Samsung B3410W Ch@t
Perş. Mart 04, 2010 11:34 pm tarafından BTA

Tarıyıcı
 Kapı
 Indeks
 Üye Listesi
 Profil
 SSS
 Arama
Forumlar
Ortaklar
bedava forum

Paylaş | 
 

 Sanayi Programı

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
BTA
Admin
avatar

Mesaj Sayısı : 244
Points : 732
Reputation : 0
Kayıt tarihi : 28/02/10
Yaş : 25
Nerden Nerden : TOKAT/Reşadiye

MesajKonu: Sanayi Programı   Perş. Mart 04, 2010 1:05 pm

Sanayi Programı

Güzel bir program oldu ama eksikler olabilir.

Private Sub Check5_Click()
If Check5 = 1 Then Check5.Caption = ("hariç")
If Check5 = 0 Then Check5.Caption = ("DAHİL")



End Sub

Private Sub Combo2_Change()
If Combo1 = HYUNDAI Then
Combo2 = "ACCENT"
End If
End Sub

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False

End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub

Private Sub Command3_Click()
Dim cevap As Integer
cevap = MsgBox("KAYIT SİLİNSİN Mİ?", vbYesNo + vbQuestion + vbDefaultButton2, "SİLME ONAYI")
If cevap = vbYes Then
With Adodc1.Recordset
.Delete
.MoveNext
If .EOF Then .MovePrevious
End With
End If
End Sub

Private Sub Command4_Click()
With Adodc1.Recordset
.MoveNext
If .EOF Then .MoveFirst
End With
End Sub

Private Sub Command5_Click()
With Adodc1.Recordset
.MovePrevious
If .EOF Then .MoveFirst
End With
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.CancelUpdate
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub

Private Sub Command7_Click()
DataReport1.Show
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tablo.mdb ;Persist Security Info=False"
Adodc1.RecordSource = "tablo"
Adodc1.Refresh
End Sub
Sub hesapla()
Dim parça, işçilik, toplam, kdv
parça = Val(Text8)
işçilik = Val(Text9)
toplam = Val(Text10)
kdv = Val(Text11)
gtoplam = Val(Text12)



toplam = parça + işçilik
kdv = toplam * 18 / 100 '% 18 kdv ekle
gtoplam = toplam + kdv

Text10 = toplam
Text11 = kdv
Text12 = toplam + kdv

End Sub

Private Sub Text10_Change()
hesapla
End Sub

Private Sub Text11_Change()
hesapla
End Sub

Private Sub Text12_Change()
hesapla
End Sub

Private Sub Text8_Change()
hesapla
End Sub

Private Sub Text9_Change()
hesapla

End Sub
Sayfa başına dön Aşağa gitmek
http://resadiye-eml.yetkinforum.biz
 
Sanayi Programı
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» 10 parmak geliştirme programı...
» En iyi sistem bakım programları
» En kaliteli Film izleme yazılımı >>K-Lite<<
» counter wall programı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı :: Programlama :: Visual Basic Dilinde Hazır Programlar-
Buraya geçin: