* 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 . blank thisform.text1.setfocus thisform.text1.gotfocus thisform.refresh * Xem truoc: thisform.refresh if not bof() skip -1 endif *Xem sau thisform.refresh. 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