注釋?zhuān)?/div>
- alltrim() 去左右空格
- messsgebox(" 顯示信息",R,"對話(huà)框標題欄顯示內容")
參數R：http://www.360doc.com/content/090424/14/19147_3251622.html
b=alltrim(thisform.Text2.value)
c=alltrim(thisform.Text3.value)
if empty(b) &&此條件成立則說(shuō)明該文本框是空的
messagebox("請輸入網(wǎng)站名稱(chēng)",16,"系統提示")
return
else
locate for 網(wǎng)站名稱(chēng)=b
if .not.eof() &&此條件成立,說(shuō)明要添加的內容和表中有重復的
go top
messagebox("不允許有重復的網(wǎng)站名稱(chēng)",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') &&生成自動(dòng)編號
endif
thisform.Text1.value=zdbh
thisform.Text2.value=""
thisform.Text2.setfocus
thisform.refresh
endif
