储蓄系统源代码.doc

储蓄系统源代码 Form1中 Sub register.click() “注册模块” Form1.hide “隐藏第一个界面” Form2.show “转入注册页面” End sub Sub login.click() “登录模块”Dim llh as database “定义数据库”Dim hua as tabledef “定义表”Set llh =open database(“my.mdb”) “打开数据库”Set hua=llh.tabledef(“user”) “打开表”Data1.recordcount=select * from hua count(*) where zh=textzh.text & mi=txtmi.text “记录符合条件的记录个数”If data1.recordcount.value=1 then “符合条件的储户转表单3”Form1.hideForm3.showElse Msgbox (“此用户为非法储户”,vbexclanation,”请重新输入”)Txtmi.text=” “非法储户，要求重新输入”Txtmi.setfocusEnd if End sub Form2中Sub txtxm.lostfocus () “检测姓名模块”If len(txtxm.text)8 then Msgbox (“姓名超过长度”,vbexclanation,”请重新输入”) Txtxm.text=” “超过长度重新输入”Txtxm.setfocusEnd if End subSub txtzh.lostfocus() “检测帐号模块” If not isnumeric(txtzh.text) thenMsgbox (“含有非法字符”,vbexclanation,”请重新输入”)Txtzh.text=”Txtzh.setfocus “含有非法字符的重新输入”End ifEnd subSub txtmi.lostfocus() “密码检测模块”If len(txtmi.text)6 then Msgbox (“密码长度不得小于6”,vbexclanation,”请重新输入”)Txtmi.text=”Txtmi.setfocus “有不合格密码，重新输入”End if End subSub cmdok.click() “登录模块”Data1.refresh “刷新数据信息”Msgbox ” 注册成功” “登录成功提示”Form2.hideForm3.showEnd subForm3中Sub cmdok.click() “确定模块”If txtfs.text=”存款” then “判断业务类型，转向不同的页面”Form4.show “转向存款界面”From3.hideElse if txtfs.text=”取款” then Form5.show “转向取款界面” Form3.hideElse Msgbox (“非法业务”,vbexclanation,”请重新输入”)End if End if Form4中 Sub cmdok.click() “正确登录模块” Dim llh as database “定义数据库”Dim hua as tabledef “定义表”Set llh=opendatabase(“my.mdb”) “打开数据库”Set hua=llh.tabledef(“user”) “打开表”Llh.execute “update hua set ye=ye+txtye.text,fs=txtfs.text,sj=date() where zh=form1.txtzh.text&mi=form1.txtmi.text”Data1.refresh “更新数据库中符合条件的信息，即改变余额”End subSub cmdll.click() “显示存款信息模块”Form6.showForm4.hideEnd subForm6中Sub form6.load() “储户存款信息模块，从数据库中调出”Data1.recordsource=select*fromuser where zh=form1.txtzh.text&mi=form1.txtmi.text”Txtsk.text=from4.txtyeEnd sub Sub cmddy.click() “调用打印模块” Commondialog1.action=1End sub Form5中Sub cmdok.click() “进入取款界面” Dim llh as databaseDim hua as tabledefSet llh=opendatabase(“my.mdb”) “打开数据库”Set hua=llh.tabledef(“user”) “打开表”Llh.execute “update hua set ye=ye-txtye.text, fs=txtfs.text, sj=date() where zh=form1.txtzh.text&mi=form1.txtmi.text” “将取款信息更新到库存信息中”If hua.ye0 then msgbox ”余额不足，请返回”Txtqk.text=” “如果余额不足，则不能取款”Txdtqk.setfocusEnd if Data1.refresh “刷新库存中信息”End subSub cmdll.click() “进入取款界面模块”Form7.showForm.5.hideEnd subForm7中Sub form7.load() “取款信息模块” Data1.recordsource=select*from user where zh=form1.txtzh.text&mi=form1.txtmi.text” “从数据库中调出出符合条件的记录” Txtqk.text=form5.txtqk.text If data1.recordset.jx=”月利率” then “计算利息”Txtlx.text=data1.recordset.ye*0.001*(data1.recordset.rq-month()Else I f data1.record