ImageVerifierCode 换一换
格式:DOC , 页数:45 ,大小:82.04KB ,
资源ID:3024905      下载积分:12 金币
验证码下载
登录下载
邮箱/手机:
验证码: 获取验证码
温馨提示:
支付成功后,系统会自动生成账号(用户名为邮箱或者手机号,密码是验证码),方便下次登录下载和查询订单;
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

开通VIP
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.zixin.com.cn/docdown/3024905.html】到电脑端继续下载(重复下载【60天内】不扣币)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  
声明  |  会员权益     获赠5币     写作写作

1、填表:    下载求助     留言反馈    退款申请
2、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
3、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
4、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
5、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【丰****】。
6、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
7、本文档遇到问题,请及时私信或留言给本站上传会员【丰****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。

注意事项

本文(新华书店进销存管理系统部分程序源代码样本.doc)为本站上传会员【丰****】主动上传,咨信网仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知咨信网(发送邮件至1219186828@qq.com、拔打电话4008-655-100或【 微信客服】、【 QQ客服】),核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载【60天内】不扣币。 服务填表

新华书店进销存管理系统部分程序源代码样本.doc

1、附录2新华书店进销存管理系统部分程序源代码1、 主程序MAIN.PRG程序代码SET DEFAULT TO C:毕业设计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.th

2、is.label2.caption = nnamethis.label4.caption = ndepartment3、 系统登入表单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*操作US

3、ER表,查询满足条件统计locate for name = alltrim(thisform.text1.value) if !found() thisform.label3.caption=用户不存在 returnelse if user.password != alltrim(thisform.text2.value) then thisform.label3.caption=密码错误 return endifendifnname = user.namendepartment = user.departmentnkfgl = user.kfglnxsgl = user.xsglncggl

4、= user.cgglnkcgl = user.kcglnxtgl = user.xtglthisform.releaseclear events4、 系统管理表单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.thi

5、sform.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.valu

6、e = thisform.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 = user.namethisform.text2.value = user.passwordbo1.value = user.departmentif user.kfgl then thisform.check

7、1.value = 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 th

8、isform.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

9、.enabled = .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事件程序代码

10、if empty(thisform.text1.value) then =messagebox(请输入用户名,0+48+0,犯错) thisform.text1.setfocus thisform.refresh returnendifif empty(thisform.text2.value) then =messagebox(请输入密码,0+48+0,犯错) thisform.text2.setfocus thisform.refresh returnendifif .not.(alltrim(thisform.text2.value) = alltrim(thisform.text3.v

11、alue) then =messagebox(密码反复错误,请重新输入,0+48+0,犯错) thisform.text2.value = thisform.text3.value = thisform.text2.setfocus thisform.refresh returnendifif empty(bo1.value) then =messagebox(请选择所属部门,0+48+0,犯错) bo1.setfocus thisform.refresh returnendifif thisform.check1.value=0.and.thisform.check2.value=0.and

12、.thisform.check3.value=0.and.thisform.check4.value=0.and.thisform.check5.value=0 then =messagebox(最少选择一个用户权限,0+48+0,犯错) 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.che

13、ck5.value=1 then mesbox=messagebox(此用户将含有全部权限,请确定,4+48+0,警告) if mesbox=7 then thisform.check1.setfocus thisform.refresh return endifendif*用户权限处理PRIVATE nname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxtnname = alltrim(thisform.text1.value)npassword = alltrim(thisform.text2.value)ndepartment = alltrim(b

14、o1.value)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.

15、else nxt = .f.endif*判定是新统计保留还是修改统计If newcommand then & newcommand = .t. 是新统计保留 locate for user.name=alltrim(thisform.text1.value) if found() then =messagebox(用户已经存在,0+48+0,犯错) thisform.text1.setfocus thisform.refresh return endif *数据表user保留统计 insert into user(name,password,department,kfgl,xsgl,cggl,

16、kcgl,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.

17、text2.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. man

18、d5.enabled = .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 表单

19、浏览按钮Click事件程序代码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 bottomp

20、rivate 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.enable

21、d = .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

22、 = .f.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 = 0this

23、form.auto_bookidthisform.text2.setfocusthisform.newcommand = .t.thisform.refresh5.3 删除按钮Click事件程序代码if reccount(book)=1 then =messagebox(只有一条统计,不能删除,0+16+0,犯错) returnelse nbookid = alltrim(thisform.text1.value) nbookname = alltrim(thisform.text2.value) mesbox=messagebox(是否删除+nbookid+号图书,4+48+0,警告) if

24、 mesbox=7 then return else use book EXCLUSIVE delete from book where bookid=nbookid pack =messagebox(nbookid+图书已经删除,0+48+0,提醒) endifendifthisform.dis_recordthisform.dis_reccommandthisform.grid1.recordsource = bookthisform.refresh5.4 保留按钮Click事件程序代码if empty(thisform.text2.value) =messagebox(请输入书名,0+4

25、8+0,犯错) thisform.text2.setfocus thisform.refresh returnendifif empty(thisform.text3.value) =messagebox(请输入书号,0+48+0,犯错) thisform.text3.setfocus thisform.refresh returnendifif empty(thisform.text4.value) =messagebox(请输入出版社,0+48+0,犯错) thisform.text4.setfocus thisform.refresh returnendifif empty(thisfo

26、rm.text5.value) =messagebox(请输入作者信息,0+48+0,犯错) thisform.text5.setfocus thisform.refresh returnendifif empty(bo1.value) =messagebox(请选择图书类型,0+48+0,犯错) bo1.setfocus thisform.refresh return endifif thisform.text7.value = 0 =messagebox(请输入价格,0+48+0,犯错) bo1.setfocus thisform.refresh return endif PRIVATE

27、nbookid,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)nb

28、ookcd = alltrim(thisform.text6.value)nbookclass = alltrim(bo1.value)nbookprice = thisform.text7.valuenbookdiscount = thisform.text8.value*判定是新统计保留还是修改统计If thisform.newcommand then & newcommand = .t. 是新统计保留 *数据表book保留统计 insert into book (bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,b

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

30、nbookprice,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.en

31、abled = .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

32、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 browsewin6、 会员输入表单KFGL_HYSR.SCX程序代码6.1 自定义过程AUTO_VIPID程序代码select vipset order to vipidgo b

33、ottomprivate 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事件程序代码*输入数据校验if empty(t

34、hisform.text2.value) =messagebox(请输入会员姓名,0+16+0,犯错) thisform.text2.setfocus returnendifif thisform.optiongroup1.value = 0 =messagebox(请选择会员性别,0+16+0,犯错) thisform.optiongroup1.option1.setfocus returnelse private nvipsex store to nvipsex if thisform.optiongroup1.value = 1 store 男 to nvipsex else stor

35、女 to nvipsex endifendifif empty(thisform.text4.value) =messagebox(请输入会员联络地址,0+16+0,犯错) thisform.text4.setfocus returnendifif empty(thisform.text5.value) =messagebox(请输入会员联络电话,0+16+0,犯错) thisform.text5.setfocus returnendifif empty(thisform.text6.value) =messagebox(请输入邮政编码,0+16+0,犯错) thisform.text6.se

36、tfocus returnendif*保留数据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,vipnam

37、e,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 vip.vipid,vip.vipname,vip.vipsex,vip.vipadd,vip.vipphone,vip.vipcode from vip where vip.vipid

38、= nvipid 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.

39、refresh7、 会员查询表单KFGL_HYCX.SCX程序代码7.1 表单自定义过程DIS_GRID程序代码thisform.grid1.readonly = .t.thisform.grid1.columncount = 8thisform.grid1.column1.header1.caption = 会员编号thisform.grid1.column1.width = 80thisform.grid1.column1.movable = .f.thisform.grid1.column1.resizable = .f.thisform.grid1.column2.header1.ca

40、ption = 会员姓名thisform.grid1.column2.width = 80thisform.grid1.column2.movable = .f.thisform.grid1.column2.resizable = .f.thisform.grid1.column3.header1.caption = 会员性别thisform.grid1.column3.width = 80thisform.grid1.column3.movable = .f.thisform.grid1.column3.resizable = .f.thisform.grid1.column4.header1.caption = 联络地址thisform.grid1.column4.width = 250thisform.grid1.column4.movable = .f.thisform.grid1.column4.resizable = .f.thisform.grid1.column5.header1.caption = 联络电话thisform.grid1.column5.width = 80thisform.grid1.column5.movable = .

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        获赠5币

©2010-2024 宁波自信网络信息技术有限公司  版权所有

客服电话:4008-655-100  投诉/维权电话:4009-655-100

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :gzh.png    weibo.png    LOFTER.png 

客服