VFP_生成自动编号、添加代码

注释：

1. alltrim()  去左右空格
2. messsgebox(" 显示信息",R,"对话框标题栏显示内容")

        参数R：http://www.360doc.com/content/090424/14/19147_3251622.html

 

b=alltrim(thisform.Text2.value)
c=alltrim(thisform.Text3.value)
if empty(b) &&此条件成立则说明该文本框是空的
   messagebox("请输入网站名称",16,"系统提示")
   return
else
  locate for 网站名称=b
  if .not.eof() &&此条件成立,说明要添加的内容和表中有重复的
      go top
      messagebox("不允许有重复的网站名称",16,"系统提示")
      return
  endif
endif

msg=messagebox('确定要添加记录吗？',32+4,'系统提示')
if msg=6    && 6为是、7否
 

&&以下将文本框内的值插入记录

 

INSERT INTO "contacts.types" ("subject_type_id","subject_type") ;
 VALUES("alltrim(thisform.Text1.value)","alltrim(thisform.Text2.value)")
 
 messagebox('保存记录成功！',64,'系统提示')
   

thisform.grid1.refresh
    calculate max(subject_type_id) to maxbh  &&在数据表中查找出序号最大的记录
    szbh=val(right(maxbh,3))  &&取出数字部分
    if szbh=0 then  &&判断数字部分是否为0
  zdbh='KM001'
    else
  zdbh='wz'+padl(alltrim(str(szbh+1)),3,'0')  &&生成自动编号
    endif
    thisform.Text1.value=zdbh
    thisform.Text2.value=""
  
    thisform.Text2.setfocus
    thisform.refresh
endif