Lệnh trong FORM của VB
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (36.64 KB, 2 trang )
* Bæ sung:
appen blank
thisform.text1.setfocus
thisform.text1.gotfocus
thisform.refresh
* Xem truoc:
thisform.refresh
if not bof()
skip -1
endif
*Xem sau
thisform.refresh
if not eof()
skip
endif
* Xoa:
thisform.refresh
delete
pack
* Lenh xem
set filte to year(NGAYVIET)=val(x)
thisform.refresh
* Thoat
thisform.release
“nut cuoi cung de chay vao luu hoac thoat”
thisform.command2.enabled=.t.
Nut LUU:
*bo sung vao file
appen blank
repl TENKHACH with m.tenkhach
repl NGAYSINH with m.ngaysinh
**khai bao nhap tiep
m.tenkhach=""
m.ngaysinh={}
m.phongthue=""
m.ngayden={}
m.ngaydi={}
m.tientra=0
thisform.text1.setfocus
thisform.text1.gotfocus
thisform.command2.enabled=.f.
thisform.refresh
Thoat het tat ca form:
release
m.tenkhach,m.ngaysinh,m.phongthue,m.ngaydi,m.ngayden,m.tientra
close all
thisform.release
Nut SUA:
*bo sung vao ban ghi hien tai
repl TENKHACH with m.tenkhach
repl NGAYSINH with m.ngaysinh
thisform.text1.setfocus
thisform.text1.gotfocus
thisform.refresh
