... .MoveFirst
Do While Not (.EOF)
madp = .Fields("madp")
'Update [nhan phong]=yes cua Query dat phong
With DE.rsQdatphong
If .RecordCount > 0 Then
.MoveFirst
Do While Not (.EOF)
... hình Server/Client bằng Visual Basic
Đồ án tốt nghiệp 51
'Update table phong
With DE.rsPhong
.MoveFirst
Do While Not (.EOF)
If .Fields("maphong") = Dcbophong.Text Then...
... Bảng 6
II.1.1: Table:chiphidv ( chi phí dịch vụ) 6
II.1.2: Table: dichvu (dịch vụ ) 6
II.1.3: Table: loaiphong ( loại phòng) 6
II.1.4: Table: phong ( phòng) 7
II.1.5: Table: thuephong ( phòng) ... bảng
II.1.1 table: chiphidv (chi phí dịch vụ)
field name data type description
makt text(10) mã khách hàng
maphong text(10) mã phòng
madv text(10) mã dịch vụ
tiendv number tiền dịch vụ
II.1.2:...