物资管理信息系统6 -- 材料信息界面

概述//import win.ui;/*DSG{{*/var winform = ..win.form(text="材料信息管理窗口";right=600;bottom=400;edge=1;parent=...)winform.add(button={cls="button";text="新增";left=396;top=271;right=469;bottom=302;group=1;z=

//importwin.ui;/*DSG{{*/varwinform=..win.form(text="材料信息管理窗口";right=600;bottom=400;edge=1;parent=...)winform.add(button={cls="button";text="新增";left=396;top=271;right=469;bottom=302;group=1;z=12};button2={cls="button";text="删除";left=498;top=271;right=571;bottom=302;group=1;z=13};button3={cls="button";text="修改";left=398;top=336;right=471;bottom=367;group=1;z=14};button4={cls="button";text="返回";left=495;top=334;right=568;bottom=365;group=1;z=2};button5={cls="button";text="选择";left=131;top=339;right=212;bottom=369;z=16};groupBox={cls="groupBox";left=370;top=11;right=589;bottom=385;cp=1;edge=1;group=1;z=15};groupBox2={cls="groupBox";text="材料列表";left=7;top=12;right=361;bottom=387;edge=1;z=1};name={cls="edit";left=461;top=90;right=573;bottom=115;edge=1;group=1;z=9};showID={cls="edit";left=461;top=38;right=573;bottom=63;edge=1;group=1;Readonly=1;z=8};static1={cls="static";text="材料编码";left=393;top=41;right=445;bottom=66;group=1;transparent=1;z=3};static2={cls="static";text="材料名称";left=393;top=92;right=445;bottom=117;group=1;transparent=1;z=4};static3={cls="static";text="规格型号";left=393;top=144;right=445;bottom=169;group=1;transparent=1;z=5};static4={cls="static";text="计量单位";left=393;top=196;right=445;bottom=221;group=1;transparent=1;z=6};static5={cls="static";left=19;top=34;right=351;bottom=294;border=1;transparent=1;z=7};tp={cls="edit";left=461;top=141;right=573;bottom=166;edge=1;group=1;z=10};unit={cls="edit";left=462;top=193;right=573;bottom=218;edge=1;group=1;z=11})/*}}*/importcom;vardb=sqlite("/store.db");vardataGrID=winform.static5.createEmbed("MSFlexGrIDlib.MSFlexGrID.1");vargd=dataGrID._objectwithgd{	Cols=4//列	Rows=1//行	setTextMatrix(0,"材料编码")	setTextMatrix(0,1,"材料名称")	setTextMatrix(0,2,"规格型号")	setTextMatrix(0,3,"计量单位")	AllowUserResizing=1}varshowData=function(ID,na,tp,un){//列表显示数据	withgd{		Rows=gd.Rows+1		row=gd.Rows-1		col=0		Text=ID		col=1		Text=na		col=2		Text=tp		col=3		Text=un	}}varnID=tostring(1000)forID,name,unindb.each("SELECT*from[Goods]ORDERBYGoodsID"){//属性赋值写法	showData(ID,un)	if(nID<ID)nID=ID	}winform.button2.@R_419_4610@=1winform.button3.@R_419_4610@=1dataGrID.DblClick=function(){//MSFlexGrID双击事件	if(gd.Row=0)return;	gd.col=0	varrs=db.stepquery("SELECT*FROM[Goods]",{GoodsID=gd.Text})	if(rs){		winform.showID.text=rs.GoodsID		winform.name.text=rs.Goodsname		winform.tp.text=rs.Type		winform.unit.text=rs.Unit			}		winform.button2.@R_419_4610@=0	winform.button3.@R_419_4610@=0	}assignment=function(){//文本框赋值	varID=winform.showID.text	varname=winform.name.text	var	tp=winform.tp.text	var	un=winform.unit.text		returnID,un;}winform.button5.oncommand=function(ID,event){//选择;		dataGrID.DblClick(db)		}winform.button.oncommand=function(ID,event){//新增;	winform.showID.text=nID+1	varID,un=assignment()	winform.name.setFocus()	if(!#name){		winform.msgBox("请输入材料名称")		winform.name.setFocus()	}	elseif(!#tp){		winform.msgBox("请输入规格型号")		winform.tp.setFocus()	}	elseif(!#un){		winform.msgBox("请输入计量单位")		winform.unit.setFocus()	}	else{		varrs=db.stepquery("SELECT*FROM[Goods]",{Goodsname=name;Unit=un;Type=tp})		if(rs){			winform.msgBox("已经存在此种材料的记录")		}else{			db.exec("insertinto[Goods]values(@GoodsID,@Goodsname,@Type,@Unit);",{GoodsID=ID;Goodsname=name;Unit=un;Type=tp})			showData(ID,un)						nID=ID		}	}}winform.button2.oncommand=function(ID,event){//删除;		varID=assignment()	varrs=db.stepquery("SELECT*FROM[Goods]",{GoodsID=ID})	if(rs){			if(!winform.msgBoxTest("您确定要删除该纪录吗？,这可能会导致数据的丢失")){			return;			}else{							db.exec("DELETEFROM[Goods]whereGoodsID=@gID;",{gID=ID})			gd.RemoveItem(gd.RowSel)											}		}}winform.button3.oncommand=function(ID,event){//修改;		varID,un=assignment()	if(!winform.msgBoxTest("您确定要修改该纪录吗？")){		return;	}	else{		varrs=db.stepquery("SELECT*FROM[Goods]",{Goodsname=name;Unit=un;Type=tp})			if(rs){				winform.msgBox("已经存在此种材料的记录"+rs.GoodsID)			}			else{					db.exec("UPDATE[Goods]SETGoodsname=@name,Unit=@un,Type=@tpWHEREGoodsID=@ID;",{ID=ID;name=name;un=un;tp=tp});				gd.col=1				gd.Text=name				gd.col=2				gd.Text=tp				gd.col=3				gd.Text=un			}	}			}winform.button4.oncommand=function(ID,event){//返回;		db.close();	winform.close()	;}winform.show();win.loopMessage();returnwinform;

总结

以上是内存溢出为你收集整理的物资管理信息系统6 -- 材料信息界面全部内容，希望文章能够帮你解决物资管理信息系统6 -- 材料信息界面所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。