资源描述:
《家庭财务管理系统的原代码》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
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=""
2、txt_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('"&tx
5、t_man.Text&"','"&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=TrueThen
6、Mydb.Update'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
7、姓名from成员",Str_text)资料个人收集整理,勿做商业用途'SetCombo1.DataSource=Mydb1A=Mydb1.RecordCountForI=1ToACombo1.AddItemMydb1.Fields(0)47/47个人收集整理勿做商业用途Mydb1.MoveNextIfMydb1.EOFThenExitForNextIEndSubPrivateSubCommand1_Click()OnErrorResumeNext'CallDbMydb.MoveFirstCallBangdingEndSubPrivateSubCommand2_C
8、lick()OnErro