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