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

datqlt.Recordset.Edit End Sub

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)

str = "select * from dthuoc where madthuoc=" + """" + DBdt.Text + """" Set rs = db.OpenRecordset(str)

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

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