资源描述：
《家庭财务管理系统课程研发设计原代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途1、frm_borrowgo.frmDimMydbAsNewADODB.RecordsetDimMydb1AsNewADODB.RecordsetDimStr_textAsStringDimstrflagAsStringPrivateSubcmd_add_Click()txt_man.Locked=Falsetxt_way.Locked=Falsetxt_money.Locked=FalseCombo1.Locked=FalseCheck1.Enabled=TrueDTPicker1.Enabled=Truetxt_man.Text=""tx
2、t_way.Text=""txt_money.Text=""Combo1.Text=""strflag="添加"Cmdsave.Enabled=TrueEndSubPrivateSubcmd_close_Click()UnloadMeEndSubPrivateSubcmd_del_Click()DimAAsBooleanA=MsgBox("是否真地要删除这条记录？",vbOKCancel+32+256,"删除")文档收集自网络，仅用于个人学习IfA=TrueThenExeCutesql"deletefrom借出where得款人='"&txt_man.Text&"'"
3、,Str_text文档收集自网络，仅用于个人学习MsgBox"记录已删除！",,"删除"IfMydb.RecordCount>0ThenMydb.MoveNextIfMydb.EOFThenMydb.MoveLastCallDbCallBangdingLabel7.Caption=Mydb.RecordCountEndIfEndIfEndSubPrivateSubcmd_edit_Click()OnErrorResumeNextDimAAsBooleantxt_man.Locked=Falsetxt_way.Locked=False47/47个人收集整理勿做商业用途
4、txt_money.Locked=FalseCombo1.Locked=FalseCheck1.Enabled=TrueDTPicker1.Enabled=Truestrflag="修改"Cmdsave.Enabled=TrueEndSubPrivateSubCmdsave_Click()OnErrorResumeNextDimAAsBooleanIfstrflag="添加"ThenA=MsgBox("是否添加前记录？",vbYesNo+32,"添加记录")IfA=TrueThenExeCutesql"insertinto借出values('"&txt_man.Te
5、xt&"','"&txt_money.Text&"','"&Combo1.Text&"','"&DTPicker1.Value&"','"&txt_way.Text&"','"&Check1.Value&"')",Str_text文档收集自网络，仅用于个人学习MsgBox"数据已经保存！",vbOKOnly+64,"成功"CallDbLabel7.Caption=Mydb.RecordCountEndIfElseIfstrflag="修改"ThenA=MsgBox("是否修改前记录？",vbYesNo+32,"添加记录")IfA=TrueThenMydb.Updat
6、e'Mydb.RequeryCallDbMsgBox"数据修改成功！",vbOKOnly+64,"成功"EndIfEndIfCmdsave.Enabled=Falsetxt_man.Locked=Truetxt_way.Locked=Truetxt_money.Locked=TrueCombo1.Locked=TrueCheck1.Enabled=FalseDTPicker1.Enabled=FalseEndSubPrivateSubCombo1_Change()DimAAsIntegerSetMydb1=ExeCutesql("select姓名from成员",St
7、r_text)文档收集自网络，仅用于个人学习'SetCombo1.DataSource=Mydb1A=Mydb1.RecordCountForI=1ToACombo1.AddItemMydb1.Fields(0)47/47个人收集整理勿做商业用途Mydb1.MoveNextIfMydb1.EOFThenExitForNextIEndSubPrivateSubCommand1_Click()OnErrorResumeNext'CallDbMydb.MoveFirstCallBangdingEndSubPrivateSubCommand2_Click()OnErro
