家庭财务管理系统课程设计的原代码.doc
《家庭财务管理系统课程设计的原代码.doc》由会员分享,可在线阅读,更多相关《家庭财务管理系统课程设计的原代码.doc(50页珍藏版)》请在咨信网上搜索。
1、家庭财务管理系统课程设计的原代码 作者: 日期:50 个人收集整理 勿做商业用途1、frm_borrowgo.frmDim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Str_text As StringDim strflag As StringPrivate Sub cmd_add_Click() txt_man.Locked = False txt_way。Locked = False txt_money。Locked = False Combo1。Locked = False Check1.Enabled
2、= True DTPicker1。Enabled = True txt_man.Text = ” txt_way.Text = ” txt_money.Text = ” Combo1。Text = ” strflag = ”添加” Cmdsave.Enabled = TrueEnd SubPrivate Sub cmd_close_Click() Unload MeEnd SubPrivate Sub cmd_del_Click() Dim A As Boolean A = MsgBox(”是否真的要删除这条记录?, vbOKCancel + 32 + 256, 删除) If A = True
3、 Then ExeCutesql ”delete from 借出 where 得款人=” txt_man。Text & ”, Str_text MsgBox ”记录已删除!, , ”删除 If Mydb.RecordCount 0 Then Mydb。MoveNext If Mydb。EOF Then Mydb。MoveLast Call Db Call Bangding Label7.Caption = Mydb。RecordCount End If End IfEnd SubPrivate Sub cmd_edit_Click() On Error Resume Next Dim A As
4、 Boolean txt_man。Locked = False txt_way。Locked = False txt_money。Locked = False Combo1。Locked = False Check1.Enabled = True DTPicker1。Enabled = True strflag = ”修改” Cmdsave.Enabled = TrueEnd SubPrivate Sub Cmdsave_Click() On Error Resume Next Dim A As Boolean If strflag = ”添加 Then A = MsgBox(是否添加前记录?
5、, vbYesNo + 32, ”添加记录”) If A = True Then ExeCutesql insert into 借出 values( txt_man.Text ”,” & txt_money.Text & ”, Combo1。Text & , DTPicker1.Value & ,” txt_way。Text & , Check1.Value & ”), Str_text MsgBox 数据已经保存!”, vbOKOnly + 64, 成功” Call Db Label7.Caption = Mydb。RecordCount End If ElseIf strflag = 修改
6、 Then A = MsgBox(是否修改前记录?, vbYesNo + 32, 添加记录) If A = True Then Mydb.Update Mydb。Requery Call Db MsgBox ”数据修改成功!, vbOKOnly + 64, ”成功 End If End If Cmdsave.Enabled = False txt_man.Locked = True txt_way.Locked = True txt_money。Locked = True Combo1.Locked = True Check1.Enabled = False DTPicker1。Enabled
7、 = FalseEnd SubPrivate Sub Combo1_Change() Dim A As Integer Set Mydb1 = ExeCutesql(select 姓名 from 成员, Str_text) Set Combo1.DataSource = Mydb1 A = Mydb1。RecordCount For I = 1 To A Combo1。AddItem Mydb1。Fields(0) Mydb1。MoveNext If Mydb1。EOF Then Exit For Next IEnd SubPrivate Sub Command1_Click() On Err
8、or Resume Next Call Db Mydb。MoveFirst Call BangdingEnd SubPrivate Sub Command2_Click() On Error Resume Next Call Db If Not Mydb。BOF Then Mydb.MovePrevious Mydb.MovePrevious If Mydb。BOF Then MsgBox 这已经是第一条记录了!, vbOKOnly + 32, 注意” Mydb.MoveFirst End If Call BangdingEnd SubPrivate Sub Command3_Click()
9、On Error Resume Next Call Db Mydb.MovePrevious If Mydb。BOF Then MsgBox ”这已经是第一条记录了!”, vbOKOnly + 32, 注意 Mydb.MoveFirst End If Mydb。MoveNext If Mydb.EOF Then MsgBox 这已经是最后一条记录了!, vbOKOnly + 32, 注意” Mydb.MoveLast End If Call BangdingEnd SubPrivate Sub Command4_Click() On Error Resume Next Call Db Mydb
10、.MoveLast Call BangdingEnd SubPrivate Sub Form_Load() On Error Resume Next Set Mydb = ExeCutesql(select from 借出, Str_text) Call Db Call Bangding Check1.Value = 0 Label7.Caption = Mydb.RecordCount DTPicker1。Value = Date Cmdsave.Enabled = False txt_man。Locked = True txt_way.Locked = True txt_money.Loc
11、ked = True Combo1。Locked = True Check1。Enabled = False DTPicker1.Enabled = FalseEnd SubPrivate Function Db() On Error Resume Next Set Mydb = ExeCutesql(”select from 借出”, Str_text)End FunctionPrivate Function Bangding() On Error Resume Next Set txt_man.DataSource = Mydb Set txt_money。DataSource = Myd
12、b Set DTPicker1。DataSource = Mydb Set txt_way.DataSource = Mydb Set Check1.DataSource = Mydb txt_man.DataField = 得款人 txt_money。DataField = 金额 DTPicker1。Value = ”日期 txt_way。DataField = 借款原因” Check1.DataField = 已还” Set Combo1。DataSource = Mydb Combo1。DataField = ”出借人”End Function2、frm_borromin.frmDim
13、Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Str_text As StringDim strflag As StringPrivate Sub cmd_close_Click() Unload MeEnd SubPrivate Sub cmd_add_Click() txt_man.Locked = False txt_way.Locked = False txt_money.Locked = False Combo1。Locked = False Check1.Enabled = True DTPicker1
14、.Enabled = True txt_man。Text = ” txt_way。Text = txt_money。Text = ” Combo1.Text = ” strflag = ”添加” Cmdsave.Enabled = TrueEnd SubPrivate Sub cmd_del_Click() Dim A As Boolean A = MsgBox(”是否真的要删除这条记录?”, vbOKCancel + 32 + 256, 删除”) If A = True Then ExeCutesql delete from 借入 where 得款人= txt_man.Text ”, Str
15、_text MsgBox ”记录已删除!”, , ”删除” If Mydb.RecordCount 0 Then Mydb。MoveNext If Mydb.EOF Then Mydb.MoveLast Call Db Call Bangding Label7.Caption = Mydb。RecordCount End If End IfEnd SubPrivate Sub cmd_edit_Click() On Error Resume Next Dim A As Boolean txt_man。Locked = False txt_way。Locked = False txt_money
16、。Locked = False Combo1。Locked = False Check1.Enabled = True DTPicker1。Enabled = True strflag = 修改” Cmdsave.Enabled = TrueEnd SubPrivate Sub Cmdsave_Click() On Error Resume Next Dim A As Boolean If strflag = 添加 Then A = MsgBox(是否添加前记录?”, vbYesNo + 32, ”添加记录”) If A = True Then ExeCutesql insert into 借
17、入 values(” txt_man。Text & ”, & txt_money.Text , & Combo1。Text ”, Format(DTPicker1.Value, yyyy-mmdd”) & , txt_way.Text ,” & Check1.Value ”)”, Str_text MsgBox ”数据已经保存!”, vbOKOnly + 64, 成功” Call Db Label7。Caption = Mydb。RecordCount End If ElseIf strflag = 修改” Then A = MsgBox(”是否修改前记录?”, vbYesNo + 32, ”
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 家庭 财务管理 系统 课程设计 原代码
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【快乐****生活】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【快乐****生活】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。