1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Sanayi Programı


  1. Statuss

    Statuss Bilgiliyim rank8

    Kayıt:
    25 Haziran 2008
    Mesajlar:
    1.178
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Şehir:
    the wrong place
    Kod:
    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
    Visual Basic
    Kolaygelsin