数据库 技术 命令大全.docVIP

do form d:\113\开户信息.scx do form d:\113\存款权限认证.scx do form d:\113\存款权限认证.scx public y 存款权限认证 locate all for alltrim(现金存取存取表.卡号)==alltrim(thisform.text1.value); and alltrim(现金存取存取表.密码)==alltrim(thisform.text2.value) if found() y=recno() do form d:\113\存款权限认证.scx else thisform.spinner1.value=thisform.spinner1.value+1 if thisform.spinner1.value=4 messagebox(对不起,你不是合法用户,请开户) thisform.release quit endif messagebox(口令不正确, 请重新输入!,48,权限认证) thisform.text1.value= thisform.text2.value= thisform.refresh endif 取款权限认证 public z locate all for alltrim(现金存取存取表.卡号)==alltrim(thisform.text1.value); and alltrim(现金存取存取表.密码)==alltrim(thisform.text2.value) if found() z=recno() do form d:\113\取款权限认证.scx else thisform.spinner1.value=thisform.spinner1.value+1 if thisform.spinner1.value=4 messagebox(对不起,你不是合法用户,请开户) thisform.release quit endif messagebox(口令不正确, 请重新输入!,48,权限认证) thisform.text1.value= thisform.text2.value= thisform.refresh endif 存款操作窗口 初始化代码 locate all for recno()=y thisform.text1.value=0.00 编程 if messagebox(确认存款金额正确吗?,32+4+256,确认存款)=6 thisform.txt余额.value=thisform.txt余额.value+thisform.text1.value mand1.enabled=.f. thisform.refresh else if messagebox(请重新输入数据!,32+4+256,修改数据!)=6 thisform.text1.value=0.00 endif endif 结束操作thisform.release release y 存款操作窗口 locate all for recno()=z thisform.text1.value=0.00 if thisform.txt余额.value=val(thisform.text1.value) if messagebox(对不起，你的余额不足，请减少支取数量或存入金额！,32+4+256,确认取款)=6 thisform.text1.value=0.00 else messagebox(不能支取现金，强制退出) endif else thisform.txt余额.value=thisform.txt余额.value-val(thisform.text1.value) thisform.refresh mand1.enabled=.f. endif thisform.release release z 数据环境属性的设置：2 T 在存款操作表单和取款操作表单中，“余额“的属性设置为：Readonly:T “密码”按钮的属性设置为：Password char :* 一：系统主表单：各项按钮代码： do form d:/shq /用户新开户表单.scx do form d:/ shq /存款权限认证表单.scx do form d:/ shq /取款权限认证表单.scx “确认”按钮代码： thisform.release clear events() quit 二：系统主表单代码： 1用户新开户界面初始代码： 对象：Forml 过程：init this.tag=str(recno()) append blank thisform.txt姓名.value= thisform.tx