下载此文档

家庭财务管理系统课程研发设计原代码.doc

文档分类：论文 | 页数：约47页举报非法文档有奖

1/47

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/47 下载此文档

文档列表 文档介绍

()=======""=""=""=""strflag="添加"=TrueEndSubPrivateSubcmd_close_Click()UnloadMeEndSubPrivateSubcmd_del_Click()DimAAsBooleanA=MsgBox("是否真地要删除这条记录?",vbOKCancel+32+256,"删除")文档收集自网络,仅用于个人学****IfA=TrueThenExeCutesql"deletefrom借出where得款人='"&&"'",Str_text文档收集自网络,仅用于个人学****MsgBox"记录已删除!",,"删除">=()======Truestrflag="修改"=TrueEndSubPrivateSubCmdsave_Click()OnErrorResumeNextDimAAsBooleanIfstrflag="添加"ThenA=MsgBox("是否添加前记录?",vbYesNo+32,"添加记录")IfA=TrueThenExeCutesql"insertinto借出values('"&&"','"&&"','"&&"','"&&"','"&&"','"&&"')",Str_text文档收集自网络,仅用于个人学****MsgBox"数据已经保存!",vbOKOnly+64,"成功"=="修改"ThenA=MsgBox("是否修改前记录?",vbYesNo+32,"添加记录")IfA='"数据修改成功!",vbOKOnly+64,"成功"=======bo1_Change()DimAAsIntegerSetMydb1=ExeCutesql("select姓名from成员",Str_text)文档收集自网络,仅用于个人学****39;=Mydb1A==(0)()OnErrorResumeNext'()OnErrorResumeNext'CallDb'"这已经是第一条记录了!",vbOKOnly+32,"注意"()OnErrorResumeNext'CallDb'''MsgBox

家庭财务管理系统课程研发设计原代码来自淘豆网www.taodocs.com转载请标明出处.