新華書店進(jìn)銷存管理系統(tǒng)程序源代碼

1、新華書店進(jìn)銷存管理系統(tǒng)程序源代碼1、 主程序main.prg程序代碼set default to c:畢業(yè)設(shè)計(jì)public nkfgl,nxsgl,ncggl,nkcgl,nxtglstore .f. to nkfgl,nxsgl,ncggl,nkcgl,nxtglpublic nname,ndepartmentstore to nname,ndepartmentdo form loginfread eventsdo form mainread eventsquit2、 主表單main.scx代碼2.1 表單init過程程序代碼do mmenu.mpr with this,.t.this.la

2、bel2.caption = nnamethis.label4.caption = ndepartment3、 系統(tǒng)登入表單loginf.scx代碼3.1 表單登入按鈕click事件程序代碼select usergo top*檢查用戶名和密碼是否輸入if empty(thisform.text1.value) then thisform.label3.caption = 請輸入用戶名 returnelse if empty(thisform.text2.value) then thisform.label3.caption = 請輸入密碼 return endifendif*操作user表，查

3、詢滿足條件記錄locate for name = alltrim(thisform.text1.value) if !found() thisform.label3.caption=用戶不存在 returnelse if user.password != alltrim(thisform.text2.value) then thisform.label3.caption=密碼錯(cuò)誤 return endifendifnname = ndepartment = user.departmentnkfgl = user.kfglnxsgl = user.xsglncggl = use

4、r.cgglnkcgl = user.kcglnxtgl = user.xtglthisform.releaseclear events4、 系統(tǒng)管理表單xtglf.scx代碼4.1 表單init過程程序代碼thisform.text1.enabled = .f.thisform.text2.enabled = .f.thisform.text3.enabled = .f.bo1.enabled = .f.thisform.check1.enabled = .f.thisform.check2.enabled = .f.thisform.check3.enabled = .f.thisform

5、.check4.enabled = .f.thisform.check5.enabled = .f.thisform.label5.visible = .f.thisform.text3.visible = .f.mand10.enabled = .f.mand11.enabled = .f.thisform.dis_recordthisform.dis_reccommand4.2 表單自定義過程dis_record程序代碼public newcommandstore .f. to newcommandif reccount(user) = 0 thisform.text1.value = t

6、hisform.text2.value = bo1.value = thisform.check1.value = 0 thisform.check2.value = 0 thisform.check3.value = 0 thisform.check4.value = 0 thisform.check5.value = 0else thisform.text1.value = thisform.text2.value = user.passwordbo1.value = user.departmentif user.kfgl then thisform.check1.val

7、ue = 1else thisform.check1.value = 0endifif user.xsgl then thisform.check2.value = 1else thisform.check2.value = 0endifif user.cggl then thisform.check3.value = 1else thisform.check3.value = 0endifif user.kcgl then thisform.check4.value = 1else thisform.check4.value = 0endifif user.xtgl then thisfor

8、m.check5.value = 1else thisform.check5.value = 0endifendifthisform.refresh4.3 表單自定義過程dis_reccommand程序代碼private nstore 0 to nn = reccount(user) if n=1 .or. n=0 then mand1.enabled = .f. mand2.enabled = .f. mand3.enabled = .f. mand4.enabled = .f.else if recno(user)=1 then mand1.enabled = .f. mand2.enab

9、led = .f. mand3.enabled = .t. mand4.enabled = .t. else if recno(user)=n then mand1.enabled = .t. mand2.enabled = .t. mand3.enabled = .f. mand4.enabled = .f. else mand1.enabled = .t. mand2.enabled = .t. mand3.enabled = .t. mand4.enabled = .t. endif endifendifthisform.refresh4.4 表單保存按鈕click事件程序代碼if em

10、pty(thisform.text1.value) then =messagebox(請輸入用戶名,0+48+0,出錯(cuò)) thisform.text1.setfocus thisform.refresh returnendifif empty(thisform.text2.value) then =messagebox(請輸入密碼,0+48+0,出錯(cuò)) thisform.text2.setfocus thisform.refresh returnendifif .not.(alltrim(thisform.text2.value) = alltrim(thisform.text3.value)

11、 then =messagebox(密碼重復(fù)錯(cuò)誤,請重新輸入,0+48+0,出錯(cuò)) thisform.text2.value = thisform.text3.value = thisform.text2.setfocus thisform.refresh returnendifif empty(bo1.value) then =messagebox(請選擇所屬部門,0+48+0,出錯(cuò)) bo1.setfocus thisform.refresh returnendifif thisform.check1.value=0.and.thisform.check2.value=0.and.this

12、form.check3.value=0.and.thisform.check4.value=0.and.thisform.check5.value=0 then =messagebox(至少選擇一個(gè)用戶權(quán)限,0+48+0,出錯(cuò)) thisform.check1.setfocus thisform.refresh returnendifif thisform.check1.value=1.and.thisform.check2.value=1.and.thisform.check3.value=1.and.thisform.check4.value=1.and.thisform.check5.v

13、alue=1 then mesbox=messagebox(此用戶將具有全部權(quán)限,請確認(rèn),4+48+0,警告) if mesbox=7 then thisform.check1.setfocus thisform.refresh return endifendif*用戶權(quán)限處理private nname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxtnname = alltrim(thisform.text1.value)npassword = alltrim(thisform.text2.value)ndepartment = alltrim(bo1.va

14、lue)if thisform.check1.value = 1 then nkf = .t.else nkf = .f.endifif thisform.check2.value = 1 then nxs = .t.else nxs = .f.endifif thisform.check3.value = 1 then ncg = .t.else ncg = .f.endifif thisform.check4.value = 1 then nkc = .t.else nkc = .f.endifif thisform.check5.value = 1 then nxt = .t.else

15、nxt = .f.endif*判斷是新記錄保存還是修改記錄if newcommand then & newcommand = .t. 是新記錄保存 locate for =alltrim(thisform.text1.value) if found() then =messagebox(用戶已經(jīng)存在,0+48+0,出錯(cuò)) thisform.text1.setfocus thisform.refresh return endif *數(shù)據(jù)表user保存記錄 insert into user(name,password,department,kfgl,xsgl,cggl,kcgl,

16、xtgl) values (nname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxt) =messagebox(保存完畢,0+48+0,提示)else update user set password= npassword,department=ndepartment,kfgl=nkf,xsgl=nxs,cggl=ncg,kcgl=nkc,xtgl=nxt where name= nname =messagebox(修改完成,0+48+0,提示)endif *表單初始化 thisform.text1.enabled = .f. thisform.text2

17、.enabled = .f. thisform.text3.enabled = .f. bo1.enabled = .f. thisform.check1.enabled = .f. thisform.check2.enabled = .f. thisform.check3.enabled = .f. thisform.check4.enabled = .f. thisform.check5.enabled = .f. mand1.enabled = .t. mand2.enabled = .t. mand3.enabled = .t. mand4.enabled = .t. mand5.en

18、abled = .t. mand6.enabled = .t. mand7.enabled = .t. mand8.enabled = .t. mand9.enabled = .t. mand10.enabled =.f. mand11.enabled =.f. mand12.enabled = .t. thisform.label5.visible = .f. thisform.text3.visible = .f. thisform.dis_reccommand thisform.dis_record newcommand = .f. thisform.refresh4.5 表單瀏覽按鈕c

19、lick事件程序代碼define window browsewin from 1,1 to 30,80 nofloat close nominimize nogrow nozoom systembrow fields name,department,kfgl,xsgl,cggl,kcgl window browsewin noappend nomodify nodeleterelease window browsewin5、 圖書管理表單tsgl.scx代碼5.1 自定義過程auto_bookid程序代碼select bookset order to bookidgo bottomprivat

20、e autoid1,autoid2,autoid3,autoid4autoid1 = alltrim(str(val(substr(alltrim(book.bookid),2,6)+1,6,0)autoid2 = len(autoid1)if autoid2 != 6 then for n = autoid2 to 5 autoid1 = 0 + autoid1 endforendifautoid4 = b + alltrim(autoid1)thisform.text1.value = autoid45.2 新建按鈕click事件程序代碼thisform.text2.enabled = .

21、t.thisform.text3.enabled = .t.thisform.text4.enabled = .t.thisform.text5.enabled = .t.thisform.text6.enabled = .t.bo1.enabled = .t.thisform.text7.enabled = .t.thisform.text8.enabled = .t.mand1.enabled = .f.mand2.enabled = .f.mand3.enabled = .f.mand4.enabled = .f.mand5.enabled = .f.mand6.enabled = .f

22、.mand7.enabled = .f.mand8.enabled = .f.mand9.enabled = .f.mand10.enabled =.t.mand11.enabled =.t.mand12.enabled = .t.thisform.text2.value = thisform.text3.value = thisform.text4.value = thisform.text5.value = thisform.text6.value = bo1.value = thisform.text7.value = 0thisform.text8.value = 0thisform.

23、auto_bookidthisform.text2.setfocusthisform.newcommand = .t.thisform.refresh5.3 刪除按鈕click事件程序代碼if reccount(book)=1 then =messagebox(只有一條記錄,不能刪除,0+16+0,出錯(cuò)) returnelse nbookid = alltrim(thisform.text1.value) nbookname = alltrim(thisform.text2.value) mesbox=messagebox(是否刪除+nbookid+號圖書,4+48+0,警告) if mesb

24、ox=7 then return else use book exclusive delete from book where bookid=nbookid pack =messagebox(nbookid+圖書已經(jīng)刪除,0+48+0,提示) endifendifthisform.dis_recordthisform.dis_reccommandthisform.grid1.recordsource = bookthisform.refresh5.4 保存按鈕click事件程序代碼if empty(thisform.text2.value) =messagebox(請輸入書名,0+48+0,出

25、錯(cuò)) thisform.text2.setfocus thisform.refresh returnendifif empty(thisform.text3.value) =messagebox(請輸入書號,0+48+0,出錯(cuò)) thisform.text3.setfocus thisform.refresh returnendifif empty(thisform.text4.value) =messagebox(請輸入出版社,0+48+0,出錯(cuò)) thisform.text4.setfocus thisform.refresh returnendifif empty(thisform.te

26、xt5.value) =messagebox(請輸入作者信息,0+48+0,出錯(cuò)) thisform.text5.setfocus thisform.refresh returnendifif empty(bo1.value) =messagebox(請選擇圖書類型,0+48+0,出錯(cuò)) bo1.setfocus thisform.refresh return endifif thisform.text7.value = 0 =messagebox(請輸入價(jià)格,0+48+0,出錯(cuò)) bo1.setfocus thisform.refresh return endif private nbook

27、id,nbookname,nbookno,nbookphouse,nbookwriter,nbookcd,nbookclass,nbookprice,nbookdiscountnbookid = alltrim(thisform.text1.value)nbookname = alltrim(thisform.text2.value)nbookno = alltrim(thisform.text3.value)nbookphouse = alltrim(thisform.text4.value)nbookwriter = alltrim(thisform.text5.value)nbookcd

28、 = alltrim(thisform.text6.value)nbookclass = alltrim(bo1.value)nbookprice = thisform.text7.valuenbookdiscount = thisform.text8.value*判斷是新記錄保存還是修改記錄if thisform.newcommand then & newcommand = .t. 是新記錄保存 *數(shù)據(jù)表book保存記錄 insert into book (bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,bookpr

29、ice,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=nbook

30、price,bookdiscount=nbookdiscount where bookid=nbookid =messagebox(修改完成,0+48+0,提示)endif *表單初始化thisform.text2.enabled = .f.thisform.text3.enabled = .f.thisform.text4.enabled = .f.thisform.text5.enabled = .f.thisform.text6.enabled = .f.bo1.enabled = .f.thisform.text7.enabled = .f.thisform.text8.enabled

31、 = .f.mand5.enabled = .t.mand6.enabled = .t.mand7.enabled = .t.mand8.enabled = .t.mand9.enabled = .t.mand10.enabled =.f.mand11.enabled =.f.mand12.enabled = .t.thisform.dis_recordthisform.dis_reccommandthisform.newcommand = .f. thisform.refresh5.5 瀏覽按鈕click事件程序代碼define window browsewin from 1,1 to 30

32、,160 nofloat close nominimize nogrow nozoom systembrow fields bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,bookprice,bookdiscount window browsewin noappend nomodify nodeleterelease window browsewin6、 會(huì)員輸入表單kfgl_hysr.scx程序代碼6.1 自定義過程auto_vipid程序代碼select vipset order to vipidgo bottom

33、private autoid1,autoid2,autoid3,autoid4autoid1 = alltrim(str(val(substr(alltrim(vip.vipid),2,6)+1,6,0)autoid2 = len(autoid1)if autoid2 != 6 then for n = autoid2 to 5 autoid1 = 0 + autoid1 endforendifautoid4 = v + alltrim(autoid1)thisform.text1.value = autoid46.2 保存按鈕click事件程序代碼*輸入數(shù)據(jù)校驗(yàn)if empty(thisfo

34、rm.text2.value) =messagebox(請輸入會(huì)員姓名,0+16+0,出錯(cuò)) thisform.text2.setfocus returnendifif thisform.optiongroup1.value = 0 =messagebox(請選擇會(huì)員性別,0+16+0,出錯(cuò)) thisform.optiongroup1.option1.setfocus returnelse private nvipsex store to nvipsex if thisform.optiongroup1.value = 1 store 男 to nvipsex else stor 女 to

35、nvipsex endifendifif empty(thisform.text4.value) =messagebox(請輸入會(huì)員聯(lián)系地址,0+16+0,出錯(cuò)) thisform.text4.setfocus returnendifif empty(thisform.text5.value) =messagebox(請輸入會(huì)員聯(lián)系電話,0+16+0,出錯(cuò)) thisform.text5.setfocus returnendifif empty(thisform.text6.value) =messagebox(請輸入郵政編碼,0+16+0,出錯(cuò)) thisform.text6.setfocu

36、s returnendif*保存數(shù)據(jù)private nvipid,nvipname,nvipadd,nvipphone,nvipcodenvipid = alltrim(thisform.text1.value)nvipname = alltrim(thisform.text2.value)nvipadd = alltrim(thisform.text4.value)nvipphone = alltrim(thisform.text5.value)nvipcode = alltrim(thisform.text6.value)insert into vip (vipid,vipname,vip

37、sex,vipadd,vipphone,vipcode,vipsum,vipdiscount) values (nvipid,nvipname,nvipsex,nvipadd,nvipphone,nvipcode,0,0)=messagebox(保存成功,0+48+0,提示)nmesbox=messagebox(是否打印會(huì)員卡？,4+32+0,會(huì)員卡打印)if nmesbox = 6 select vip.vipid,vip.vipname,vip.vipsex,vip.vipadd,vip.vipphone,vip.vipcode from vip where vip.vipid = nvi

38、pid into cursor vipcard select vipcard report form vipcard.frx to print use in vipcardendifthisform.auto_vipidmand2.click6.3 清除按鈕click事件程序代碼thisform.text2.value = thisform.optiongroup1.value = 0thisform.text4.value = thisform.text5.value = thisform.text6.value = thisform.text1.setfocusthisform.refre

39、sh7、 會(huì)員查詢表單kfgl_hycx.scx程序代碼7.1 表單自定義過程dis_grid程序代碼thisform.grid1.readonly = .t.thisform.grid1.columncount = 8thisform.grid1.column1.header1.caption = 會(huì)員編號thisform.grid1.column1.width = 80thisform.grid1.column1.movable = .f.thisform.grid1.column1.resizable = .f.thisform.grid1.column2.header1.caption

40、 = 會(huì)員姓名thisform.grid1.column2.width = 80thisform.grid1.column2.movable = .f.thisform.grid1.column2.resizable = .f.thisform.grid1.column3.header1.caption = 會(huì)員性別thisform.grid1.column3.width = 80thisform.grid1.column3.movable = .f.thisform.grid1.column3.resizable = .f.thisform.grid1.column4.header1.cap

41、tion = 聯(lián)系地址thisform.grid1.column4.width = 250thisform.grid1.column4.movable = .f.thisform.grid1.column4.resizable = .f.thisform.grid1.column5.header1.caption = 聯(lián)系電話thisform.grid1.column5.width = 80thisform.grid1.column5.movable = .f.thisform.grid1.column5.resizable = .f.thisform.grid1.column6.header

42、1.caption = 郵政編碼thisform.grid1.column6.width = 80thisform.grid1.column6.movable = .f.thisform.grid1.column6.resizable = .f.thisform.grid1.column7.header1.caption = 累計(jì)購書金額thisform.grid1.column7.width = 80thisform.grid1.column7.movable = .f.thisform.grid1.column7.resizable = .f.thisform.grid1.column8.

43、header1.caption = 會(huì)員優(yōu)惠折扣thisform.grid1.column8.width = 80thisform.grid1.column8.movable = .f.thisform.grid1.column8.resizable = .f.thisform.refresh7.2 表單init過程程序代碼thisform.dis_gridpublic ncombo1,ncombo2,ntext1,chsql,cxsqlstore to ncombo1,ncombo2,ntext1,chsql,cxsqlthisform.optiongroup1.value = 0thisf

44、orm.optiongroup1.enabled = .f.thisform.grid1.recordsource = null select vip.vipid,vip.vipname,vip.vipsex,vip.vipadd,vip.vipphone,vip.vipcode,vip.vipsum,vip.vipdiscount from vip into cursor hycx_temptable order by vip.vipidthisform.grid1.recordsource = hycx_temptablethisform.dis_gridthisform.refresh7

45、.3 表單添加條件按鈕click事件程序代碼if empty(bo1.value) .or. empty(bo2.value) .or. empty(thisform.text1.value) =messagebox(請輸入條件,0+48+0,出錯(cuò)) bo1.setfocus returnendifif thisform.optiongroup1.value = 1 chsql = and endifif thisform.optiongroup1.value = 2 chsql = or endifchsql = chsql + ncombo1 + ncombo2 + ntext1thisf

46、orm.edit1.value = thisform.edit1.value + chsqlif .not.empty(thisform.edit1.value) thisform.optiongroup1.value = 1 thisform.optiongroup1.enabled = .t.endifbo1.value = bo2.value = thisform.text1.value = chsql = bo1.setfocusthisform.refresh7.4 表單條件查詢按鈕click事件程序代碼if empty(thisform.edit1.value) =messageb

47、ox(請輸入查詢條件,0+16+0,出錯(cuò)) mand1.setfocus thisform.refresh returnendifcxsql = alltrim(thisform.edit1.value)thisform.grid1.recordsource = null select vip.vipid,vip.vipname,vip.vipsex,vip.vipadd,vip.vipphone,vip.vipcode,vip.vipsum,vip.vipdiscount from vip where &cxsql into cursor hycx_temptable order by vi

48、p.vipidthisform.grid1.recordsource = hycx_temptablethisform.dis_gridthisform.optiongroup1.value = 0thisform.optiongroup1.enabled = .f.bo1.value = bo2.value = thisform.text1.value = thisform.edit1.value = store to ncombo1,ncombo2,ntext1,chsql,cxsqlthisform.refresh8、 會(huì)員修改表單kfgl_hyxg.scx程序代碼8.1 表單init過

49、程程序代碼lparameters npar1select vipset order to vipidlocate for vip.vipid = npar1thisform.text1.value = vip.vipidthisform.text2.value = vip.vipnameif vip.vipsex = 男 thisform.optiongroup1.value = 1else thisform.optiongroup1.value = 2endifthisform.text4.value = vip.vipaddthisform.text5.value = vip.vipphonethisform.text6.value = vip.vipcodethisform.refresh8.2 保存按鈕click事件程序代碼*輸入數(shù)據(jù)校驗(yàn)if empty(thisform.text2.value) =messagebox(請輸入會(huì)員姓名,0+48+0,出錯(cuò)) thisform.text2.setfocus returnendifif thisform.op