管理系统开发与设计实验报告

Only=.f.Р关闭Рthisform.release Рclear eventsР4.5用户管理管理窗体设计Р图4-5:Р新增用户:Рclose allРopen database 数据1Рuse usersРif thisform.text1.value==""Р messagebox("请输入用户名",16,"错误")Р thisform.text1.value=""Р thisform.text2.value=""Р Р else Р if thisform.text2.value==""Р messagebox("请输入密码",16,"错误")Р thisform.text1.value=""Р?thisform.text2.value=""Р endifРendif Рgo topР for i=1 to ount()Р if alltrim(thisform.text1.value)==alltrim(users.username) Р messagebox("已存在用户名",16,"错误")Р thisform.text1.value=""Р thisform.text2.value=""Р exitР elseР skip Р if eof()Р exitР endif Р endifРendforРif thisform.text1.value==""Р?else Р insert into users values(thisform.text1.value,thisform.text2.value)Р thisform.text1.value=""Р thisform.text2.value=""Рendif Р删除用户:Рclose allРopen database 数据1Рuse usersР go topР for i=1 to ount()