求一毕业设计项目系统
各位大哥,学校现在考试是要自己设计一个系统,小弟以前学不会,现在离交货时间只有几个星期,所以想求大家发个毕业设计的项目之类能运行的源代码程序给我
谢谢大家
E_MAIL:chunling2@163.com
问题点数：0、回复次数：6Top
1 楼djhai（左左右右）回复于 2003-11-02 10:18:47 得分 0
天下无免费的午餐~~~~~~~~~Top
2 楼dfwxj（清风）回复于 2003-11-02 19:11:51 得分 0
你用20分可以得到一个主程序，表单你自己写吧~~
*器材物资管理系统
SET talk off
SET cent on
SET safe off
SET dele on
SET exac on
SET date ansi
SET esca off
Application.VISIBLE=.f.
Clos all
USE dbf\operate
IF recc()=0
MESSAGEBOX('系统数据库已损坏！',64,'信息')
USE
QUIT
ENDI
USE dbf\sysctrl in 0
SELE sysctrl
IF recc()#1
MESSAGEBOX('系统数据库已损坏！',64,'信息')
USE
QUIT
ENDI
Application.VISIBLE=.t.
mpass=''
cmodipass=.f.
DO form fregsys
Application.VISIBLE=.f.
READ even
IF cmodipass
DO form modipass
READ even
ENDI
IF len(allt(mpass))=7
IF !file('pinfo.dbf')
CREA tabl pinfo free (mc c(16),khmc c(30),bmmc c(20),rq d(8),no c(10),jsfs c(12),oper c(10),sdate d(8),edate d(8),;
jqc n(10,2),sqc n(10,2),jgj n(10,2),sgj n(10,2),jxs n(10,2),sxs n(10,2),jxl n(10,2),sxl n(10,2),;
jjf n(10,2),sjf n(10,2),jwx n(10,2),swx n(10,2),jyh n(10,2),syh n(10,2),jgc n(10,2),sgc n(10,2),;
jxz n(10,2),sxz n(10,2),jqt n(10,2),sqt n(10,2),jss n(10,2),sss n(10,2),jqm n(10,2),sqm n(10,2),;
jxj n(10,2),sxj n(10,2),jzz n(10,2),szz n(10,2))
USE in pinfo
ENDI
IF !file('pdata.dbf')
CREA tabl pdata free (rq d(8),xh n(10,0),no c(10),khmc c(30),hh c(10),pm c(30),gg c(20),dw c(6),kcsl n(8,1),;
jprice n(10,2),jsum n(12,2),sprice n(10,2),ssum n(12,2),jcsl n(8,1),bz c(20),jsfs c(12))
USE in pdata
ENDI
IF file('dbf\spmx.cdx')
Dele file dbf\spmx.cdx
ENDI
IF file('dbf\jhmx.cdx')
Dele file dbf\jhmx.cdx
ENDI
IF file('dbf\spda.cdx')
Dele file dbf\spda.cdx
ENDI
SELE 0
USE dbf\jhmx
INDE on hh tag hh
INDE on khmc tag khmc
USE dbf\spda
INDE on hh tag hh
USE dbf\spmx
INDE on hh tag hh
INDE on khmc tag khmc
USE
DO form main
READ even
ENDI
Clea all
Clos all
IF file('pinfo.dbf')
Dele pinfo.dbf
ENDI
IF file('pdata.dbf')
Dele pdata.dbf
ENDI
IF file('dbf\spmx.cdx')
Dele file dbf\spmx.cdx
ENDI
IF file('dbf\jhmx.cdx')
Dele file dbf\jhmx.cdx
ENDI
IF file('dbf\spda.cdx')
Dele file dbf\spda.cdx
ENDI
SET talk on
SET safe on
SET dele on
SET esca on
Application.VISIBLE=.T.
quit
Top
3 楼qufusongyu（元秋）回复于 2003-11-02 21:28:41 得分 0
呵呵，够难的！
qufusongyu@tom.comTop
4 楼huntertiger（清山）回复于 2003-11-03 08:48:57 得分 0
愿意幫助，我的EMAIL為visualfoxpro#tom.comTop
5 楼chunling2（林）回复于 2003-11-03 23:31:08 得分 0
dfwxj你提供的主程序我一点都看不会呀,
Top
6 楼dfwxj（清风）回复于 2003-11-04 00:42:43 得分 0
那我更没办法了。如果你说这段程序对你没有用，我相信；如果你说看不懂，那可能没必要再找其他代码了。因为这是一个完整的物资管理系统的主程序，设计得比较简单，检测系统数据库的有效性和对系统进行清理，没有用任何特殊的语法，都是常用的命令，唯一眼生的就是“Application.VISIBLE=.f.”一句，是用来隐藏系统主窗口的Top
