物资管理信息系统5 -- 删除用户界面

概述//import win.ui;/*DSG{{*/var frmUserDel = ..win.form(text="删除用户";right=376;bottom=320;parent=...)frmUserDel.add(button={cls="button";text="确定";left=229;top=148;right=319;bottom=179;z=4};button2={

//importwin.ui;/*DSG{{*/varfrmUserDel=..win.form(text="删除用户";right=376;bottom=320;parent=...)frmUserDel.add(button={cls="button";text="确定";left=229;top=148;right=319;bottom=179;z=4};button2={cls="button";text="取消";left=229;top=240;right=319;bottom=271;z=5};ListvIEw={cls="ListvIEw";left=19;top=56;right=180;bottom=271;bgcolor=16777215;edge=1;z=6};password={cls="edit";left=198;top=56;right=341;bottom=88;edge=1;password=1;z=3};static={cls="static";text="系统现有用户";left=17;top=20;right=164;bottom=44;transparent=1;z=1};static2={cls="static";text="请输入所选用户的密码";left=191;top=20;right=355;bottom=47;transparent=1;z=2})/*}}*/vardb=frmUserDel.parent.dbfrmUserDel.ListvIEw.insertColumn("用户编号",70)frmUserDel.ListvIEw.insertColumn("用户名",100)forID,nameindb.each("SELECTID,用户名from[use]ORDERBYID"){	frmUserDel.ListvIEw.addItem({ID;name})	}frmUserDel.button.oncommand=function(ID,event){//确定		varID=frmUserDel.ListvIEw.getItemText(frmUserDel.ListvIEw.selindex,1)	varpass=frmUserDel.password.text	varrs=db.stepquery("SELECT密码FROM[use]",{ID=ID})	rs?=rs.密码	if(rs!=pass){		frmUserDel.msgBox("密码不符请重输")		frmUserDel.password.text=""		frmUserDel.password.setFocus(0);			}	elseif(frmUserDel.ListvIEw.count=1){		frmUserDel.msgBox("删除无效，系统必须有一个！")		frmUserDel.close()	}	else{		db.exec("DELETEFROM[use]whereID=@ID",{ID=ID})		frmUserDel.msgBox("删除成功")		frmUserDel.ListvIEw.delitem(frmUserDel.ListvIEw.selindex)	}	}frmUserDel.button2.oncommand=function(ID,event){	frmUserDel.close()}frmUserDel.ListvIEw.onnotify=function(ID,code,ptr){	select(code){		case0xFFFFFFFE/*_NM_CliCK*/{//鼠标点击用户编号密码框置焦点			if(frmUserDel.ListvIEw.selindex){				frmUserDel.password.text=""										frmUserDel.password.setFocus()							}		}	}}frmUserDel.show()win.loopMessage();returnfrmUserDel;

总结

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

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