新華書店進(jìn)銷存管理系統(tǒng)部分程序源代碼(編輯修改稿)
2025-05-09 06:55 本頁面
【文章內(nèi)容簡介】 amp。amp。 newmand = .t. 是新記錄保存 *數(shù)據(jù)表book保存記錄 insert into book (bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,bookprice,bookdiscount) values (nbookid,nbookname,nbookno,nbookphouse,nbookwriter,nbookcd,nbookclass,nbookprice,nbookdiscount) =messagebox(保存完畢,0+48+0,提示)else update book set bookname=nbookname,bookno=nbookno,bookphouse=nbookphouse,bookwriter=nbookwriter,bookcd=nbookcd,bookclass=nbookclass,bookprice=nbookprice,bookdiscount=nbookdiscount where bookid=nbookid =messagebox(修改完成,0+48+0,提示)endif *表單初始化 = .f. = .f. = .f. = .f. = .f. = .f. = .f. = .f. = .t. = .t. = .t. = .t. = .t. =.f. =.f. = .t. = .f. 瀏覽按鈕Click事件程序代碼DEFINE WINDOW browsewin FROM 1,1 TO 30,160 noFLOAT CLOSE nominimize nogrow nozoom systembrow fields bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,bookprice,bookdiscount window browsewin noappend nomodify nodeleterelease window browsewin 自定義過程AUTO_VIPID程序代碼select vipset order to vipidgo bottomprivate autoid1,autoid2,autoid3,autoid4autoid1 = alltrim(str(val(substr(alltrim(),2,6))+1,6,0))autoid2 = len(autoid1)if autoid2 != 6 then for n = autoid2 to 5 autoid1 = 0 + autoid1 endforendifautoid4 = V + alltrim(autoid1) = autoid4 保存按鈕Click事件程序代碼*輸入數(shù)據(jù)校驗(yàn)if empty() =messagebox(請輸入會員姓名,0+16+0,出錯) returnendifif = 0 =messagebox(請選擇會員性別,0+16+0,出錯) returnelse private nvipsex store to nvipsex if = 1 store 男 to nvipsex else stor 女 to nvipsex endifendifif empty() =messagebox(請輸入會員聯(lián)系地址,0+16+0,出錯) returnendifif empty() =messagebox(請輸入會員聯(lián)系電話,0+16+0,出錯) returnendifif empty() =messagebox(請輸入郵政編碼,0+16+0,出錯) returnendif*保存數(shù)據(jù)private nvipid,nvipname,nvipadd,nvipphone,nvipcodenvipid = alltrim()nvipname = alltrim()nvipadd = alltrim()nvipphone = alltrim()nvipcode = alltrim()insert into vip (vipid,vipname,vipsex,vipadd,vipphone,vipcode,vipsum,vipdiscount) values (nvipid,nvipname,nvipsex,nvipadd,nvipphone,nvipcode,0,0)=messagebox(保存成功,0+48+0,提示)nmesbox=messagebox(是否打印會員卡？,4+32+0,會員卡打印)if nmesbox = 6 select ,, from vip where = nvipid into cursor vipcard select vipcard report form to print use in vipcardendif 清除按鈕Click事件程序代碼 = = 0 = = = 表單自定義過程DIS_GRID程序代碼 = .t. = 8 = 會員編號 = 80 = .f. = .f. = 會員姓名 = 80 = .f. = .f. = 會員性別 = 80 = .f. = .f. = 聯(lián)系地址 = 250 = .f. = .f. = 聯(lián)系電話 = 80 = .f. = .f. = 郵政編碼 = 80 = .f. = .f. = 累計(jì)購書金額 = 80 = .f. = .f. = 會員優(yōu)惠折扣 = 80 = .f. = .f. 表單Init過程程序代碼public nbo1,nbo2,ntext1,chsql,cxsqlstore to nbo1,nbo2,ntext1,
公司管理相關(guān)推薦
鄂ICP備17016276號-1