Form quản lý hoá đơn

Trong hoá đơn nhập bao gồm : mã hoá đơn trong hộp text ,chọn mã thuốc trong hộp combo nếu không biết mã thuốc người quản lý có thể chọn nút thuốc khi đó chương trình sẽ chạy form quản lý thuốc từ đó ta có thể biết được mã thuốc cần nhập đối với nhà cung cấp cũng tương tự ta chọn mã nhà cung cấp trong hộp combo nếu không biết mã nhà

cung cấp ta có thể bấm nút nhà cung cấp chương trình sẽ chạy form quản lý nhà cung cấp từ đó ta biết được các thông tin về nhà cung cấp

Đôi với trường thành tiên và còn lại thì không phải nhập chương trình sẽ tự tính theo công

thức như sau

THANH_TIEN = SO_LUONG * DON_GIA

CON_LAI = THANH_TIEN - DA_THANH_TOAN Private Sub cmddong_Click()

End End Sub

Private Sub cmdsua_Click() datqlt.Recordset.Edit

Private Sub cmdncc_Click() Frmncc.Show

End Sub

Private Sub cmdthem_Click() Dim tong As Integer

Dim dg, sl As Integer

Adothuoc.Recordset.AddNew End Sub

Private Sub cmdthoat_Click() Unload frmnhap

End Sub

Private Sub cmdxoa_Click()

If (MsgBox("Bạn có muốn xoá bản ghi này không", 36, "Cửa số xoá dữ liệu") = vbYes) Then

Adothuoc.Recordset.Delete Adothuoc.Recordset.MoveNext End If

End Sub

Private Sub DBdt_Change() Dim rs As Recordset

Dim db As Database Dim str As String

If DBdt.Text <> "" Then

Set db = OpenDatabase(Dtadt.DatabaseName)

Set rs = db.OpenRecordset(str) Lbldt.Caption = rs.Fields("tendthuoc") rs.Close db.Close End If End Sub

Private Sub Command1_Click() Adothuoc.Recordset.MoveNext End Sub

Private Sub Command2_Click() Adothuoc.Recordset.MovePrevious End Sub

Private Sub DBlt_Change() Dim rs As Recordset

Dim db As Database Dim str As String

If DBlt.Text <> "" Then (adsbygoogle = window.adsbygoogle || []).push({});

Set db = OpenDatabase(Dtalt.DatabaseName)

str = "select * from loaithuoc where maloaithuoc=" + """" + DBlt.Text + """" Set rs = db.OpenRecordset(str) Lbllt.Caption = rs.Fields("tenloaithuoc") rs.Close db.Close End If End Sub