物资管理信息系统3 -- 添加用户子窗口

前端之家收集整理的这篇文章主要介绍了物资管理信息系统3 -- 添加用户子窗口前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
importwin.ui;
/*DSG{{*/
varfrmUserAdd=..win.form(text="添加用户";right=333;bottom=363;parent=...)
frmUserAdd.add(
button={cls="button";text="添加";left=43;top=286;right=126;bottom=321;z=7};
button2={cls="button";text="取消";left=185;top=286;right=268;bottom=321;z=8};
id={cls="edit";left=140;top=33;right=286;bottom=61;edge=1;z=10};
name={cls="edit";left=140;top=97;right=286;bottom=125;edge=1;z=4};
password={cls="edit";left=140;top=160;right=286;bottom=188;edge=1;password=1;z=5};
password2={cls="edit";left=140;top=224;right=286;bottom=252;edge=1;password=1;z=6};
static={cls="static";text="请输入用户名";left=27;top=100;right=111;bottom=118;transparent=1;z=1};
static2={cls="static";text="请输入密码";left=27;top=166;right=111;bottom=184;transparent=1;z=2};
static3={cls="static";text="请确认密码";left=27;top=233;right=111;bottom=252;transparent=1;z=3};
static4={cls="static";text="请输入操作员编号";left=27;top=33;right=126;bottom=51;transparent=1;z=9}
)
/*}}*/

vardb=mainForm.parent.db
frmUserAdd.id.setFocus()

frmUserAdd.button2.oncommand=function(id,event){
	//取消;
	if(db)db.close()
	frmUserAdd.close()	
}

frmUserAdd.button.oncommand=function(id,event){
	//添加;
	vard=0
	varid=frmUserAdd.id.text
	varname=frmUserAdd.name.text
	varpass=frmUserAdd.password.text
	varpass2=frmUserAdd.password2.text;
	if(!#id){
		frmUserAdd.msgBox("用户编号不能为空")
		frmUserAdd.id.setFocus()
	}
	elseif(!#name){
		frmUserAdd.msgBox("用户名不能为空")
		frmUserAdd.name.setFocus()
	}
	elseif(!#pass){
		frmUserAdd.msgBox("密码不能为空")
		frmUserAdd.password.setFocus()	
	}elseif(pass2!=pass){
			frmUserAdd.msgBox("密码不符请重输")
			frmUserAdd.password2.text=""
			frmUserAdd.password2.setFocus()	
	}	
	else{		
		try{
			if(db)db.exec("insertintousevalues(@id,@n,@p);",{id=id;n=name;p=pass})
		}
		catch(e){
			d=frmUserAdd.msgBox("用户编号不能重复")
			frmUserAdd.id.setFocus(0)			
		}
		if(!d){
			frmUserAdd.msgBox("添加成功")
		}
				
	}	
}

frmUserAdd.show()
win.loopMessage();
returnfrmUserAdd;
原文链接:https://www.f2er.com/sqlite/200747.html

猜你在找的Sqlite相关文章