Nếu cần textbox kiểu date thì dùng lệnh

Thisform.text1.value=ctod(“”)

Thêm

thisform.text1.SetFocus

thisform.text1.Value =""

thisform.text2 .Value=""

thisform.text3.Value=""

thisform.text4.Value=""

thisform.text5.Value=""

thisform.Refresh

Lưu

SELECT dmkh

      DELETE FOR EMPTY(ma_kh)

      LOCATE FOR ALLTRIM(ma_kh) == ALLTRIM(thisform.text1.value)

      IF FOUND()then

            MESSAGEBOX('Ma Khach Da Ton Tai!',1+48)

            thisform.text1.Value= ''

            thisform.text2.Value= ''

            thisform.text3.Value= ''

            thisform.text4.Value= ''

            thisform.text5.Value= ''

            thisform.text1.SetFocus

      ELSE

             APPEND BLANK

             replace ma_kh WITH thisform.text1.Value

             replace ten_kh WITH thisform.text3.Value

             replace diachi WITH thisform.text4.Value

             replace dienthoai WITH thisform.text5.Value

             replace masothue WITH thisform.text2.Value

             thisform.refresh

      ENDIF

Sửa

replace ma_kh WITH thisform.text1.Value

replace ten_kh WITH thisform.text3.Value

replace diachi WITH thisform.text4.Value

replace  dienthoai WITH thisform.text5.Value

replace masothue WITH thisform.text2.value

thisform.text1.Value=''

thisform.text2.Value=''

thisform.text3.Value=''

thisform.text4.Value=''

thisform.text5.Value=''

thisform.grid1.Refresh

Xóa

temp= MESSAGEBOX("Ban co muon xoa khong?",1+48)

IF temp==1

      SELECT dmkh

      SET DELETED on

      DELETE

      thisform.Refresh

      thisform.text1.Value= ''

      thisform.text3.Value= ''

      thisform.text4.Value= ''

      thisform.text5.Value=''

      thisform.text2.Value= ''

ENDIF

Thoát

thoat= MESSAGEBOX("Ban co muon thoat khong?",1+48)

IF thoat==1

thisform.Release

endif