物资管理信息系统6
菲菲OSC的个人空间/物资信息系统学习日志/正文物资管理信息系统6 -- 材料信息界面原创菲菲OSC物资信息系统学习日志2014/03/01 17:56阅读数 531

//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=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})/*}}*/import com;var db = sqlite("/store.db");var dataGrid = winform.static5.createEmbed("MSFlexGridLib.MSFlexGrid.1"); var gd = dataGrid._objectwith gd{Cols =4 // 列Rows = 1 //行setTextMatrix(0,0,"材料编码")setTextMatrix(0,1,"材料名称")setTextMatrix(0,2,"规格型号")setTextMatrix(0,3,"计量单位")AllowUserResizing =1}var showData = function(id,na,tp,un){//列表显示数据with gd{Rows = gd.Rows + 1row = gd.Rows-1col = 0Text = idcol = 1Text = nacol = 2Text = tpcol = 3Text = un}}var nid = tostring(1000)for id,name,tp,un in db.each("SELECT * from [Goods] ORDER BY GoodsId") {//属性赋值写法showData(id,name,tp,un)if(nid<id) nid = id}winform.button2.disabled = 1winform.button3.disabled = 1dataGrid.DblClick = function(){//MSFlexGrid双击事件if(gd.Row = 0) return ; gd.col = 0var rs = db.stepQuery("SELECT * FROM [Goods]",{GoodsId = gd.Text})if(rs){winform.showid.text = rs.GoodsIdwinform.name.text = rs.GoodsNamewinform.tp.text = rs.Typewinform.unit.text = rs.Unit}winform.button2.disabled = 0winform.button3.disabled = 0}assignment = function(){//文本框赋值var id = winform.showid.textvar name = winform.name.textvartp = winform.tp.textvarun = winform.unit.textreturn id,name,tp,un; }winform.button5.oncommand = function(id,event){//选择;dataGrid.DblClick(db)}winform.button.oncommand = function(id,event){//新增;winform.showid.text = nid+1var id,name,tp,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{var rs = db.stepQuery("SELECT * FROM [Goods]",{GoodsName=name;Unit=un;Type=tp })if(rs){winform.msgbox("已经存在此种材料的记录")}else{db.exec("insert into [Goods] values(@GoodsId,@GoodsName,@Type,@Unit);",{GoodsId=id;GoodsName=name;Unit=un;Type=tp})showData(id,name,tp,un)nid = id}}}winform.button2.oncommand = function(id,event){//删除;var id = assignment()var rs = db.stepQuery("SELECT * FROM [Goods]",{GoodsId=id})if(rs){if(!winform.msgboxTest("您确定要删除该纪录吗?,这可能会导致数据的丢失")){return ; }else{db.exec("DELETE FROM [Goods] where GoodsId=@gid;",{gid=id})gd.RemoveItem(gd.RowSel)}}}winform.button3.oncommand = function(id,event){//修改;var id,name,tp,un = assignment()if(!winform.msgboxTest("您确定要修改该纪录吗?")){return ;}else{var rs = db.stepQuery("SELECT * FROM [Goods]",{GoodsName=name;Unit=un;Type=tp })if(rs){winform.msgbox("已经存在此种材料的记录"+rs.GoodsId)}else{db.exec("UPDATE [Goods] SET GoodsName = @name,Unit= @un,Type = @tp WHERE GoodsId = @id;",{id=id;name=name;un=un;tp=tp}); gd.col = 1gd.Text = namegd.col = 2gd.Text = tpgd.col = 3gd.Text = un} }}winform.button4.oncommand = function(id,event){//返回;db.close();winform.close();}winform.show();win.loopMessage();return winform;aautosqliteMSFlexGrid物资管理信息系统© 著作权归作者所有举报打赏0 赞3 收藏分享作者的其它热门文章物资管理信息系统2 -- 主窗体界面物资管理信息系统4 -- 修改密码界面sqlite 操作一般常用方法模块化编程