家庭财务管理系统毕业课程设计的原代码.docx
- 文档编号:27004263
- 上传时间:2023-06-25
- 格式:DOCX
- 页数:74
- 大小:26.50KB
家庭财务管理系统毕业课程设计的原代码.docx
《家庭财务管理系统毕业课程设计的原代码.docx》由会员分享,可在线阅读,更多相关《家庭财务管理系统毕业课程设计的原代码.docx(74页珍藏版)》请在冰豆网上搜索。
家庭财务管理系统毕业课程设计的原代码
(此文档为word格式,下载后您可任意编辑修改!
)
1、frm_borrowgo.frm
DimMydbAsNewADODB.Recordset
DimMydb1AsNewADODB.Recordset
DimStr_textAsString
DimstrflagAsString
PrivateSubcmd_add_Click()
txt_man.Locked=False
txt_way.Locked=False
txt_money.Locked=False
Combo1.Locked=False
Check1.Enabled=True
DTPicker1.Enabled=True
txt_man.Text=""
txt_way.Text=""
txt_money.Text=""
Combo1.Text=""
strflag="添加"
Cmdsave.Enabled=True
EndSub
PrivateSubcmd_close_Click()
UnloadMe
EndSub
PrivateSubcmd_del_Click()
DimAAsBoolean
A=MsgBox("是否真的要删除这条记录?
",vbOKCancel+32+256,"删除")
IfA=TrueThen
ExeCutesql"deletefrom借出where得款人='"&txt_man.Text&"'",Str_text
MsgBox"记录已删除!
",,"删除"
IfMydb.RecordCount>0Then
Mydb.MoveNext
IfMydb.EOFThenMydb.MoveLast
CallDb
CallBangding
Label7.Caption=Mydb.RecordCount
EndIf
EndIf
EndSub
PrivateSubcmd_edit_Click()
OnErrorResumeNext
DimAAsBoolean
txt_man.Locked=False
txt_way.Locked=False
txt_money.Locked=False
Combo1.Locked=False
Check1.Enabled=True
DTPicker1.Enabled=True
strflag="修改"
Cmdsave.Enabled=True
EndSub
PrivateSubCmdsave_Click()
OnErrorResumeNext
DimAAsBoolean
Ifstrflag="添加"Then
A=MsgBox("是否添加前记录?
",vbYesNo+32,"添加记录")
IfA=TrueThen
ExeCutesql"insertinto借出values('"&txt_man.Text&"','"&txt_money.Text&"','"&Combo1.Text&"','"&DTPicker1.Value&"','"&txt_way.Text&"','"&Check1.Value&"')",Str_text
MsgBox"数据已经保存!
",vbOKOnly+64,"成功"
CallDb
Label7.Caption=Mydb.RecordCount
EndIf
ElseIfstrflag="修改"Then
A=MsgBox("是否修改前记录?
",vbYesNo+32,"添加记录")
IfA=TrueThen
Mydb.Update
'Mydb.Requery
CallDb
MsgBox"数据修改成功!
",vbOKOnly+64,"成功"
EndIf
EndIf
Cmdsave.Enabled=False
txt_man.Locked=True
txt_way.Locked=True
txt_money.Locked=True
Combo1.Locked=True
Check1.Enabled=False
DTPicker1.Enabled=False
EndSub
PrivateSubCombo1_Change()
DimAAsInteger
'SetCombo1.DataSource=Mydb1
A=Mydb1.RecordCount
ForI=1ToA
Combo1.AddItemMydb1.Fields(0)
Mydb1.MoveNext
IfMydb1.EOFThenExitFor
NextI
EndSub
PrivateSubCommand1_Click()
OnErrorResumeNext
'CallDb
Mydb.MoveFirst
CallBangding
EndSub
PrivateSubCommand2_Click()
OnErrorResumeNext
'CallDb
'IfNotMydb.BOFThenMydb.MovePrevious
Mydb.MovePrevious
IfMydb.BOFThen
MsgBox"这已经是第一条记录了!
",vbOKOnly+32,"注意"
Mydb.MoveFirst
EndIf
CallBangding
EndSub
PrivateSubCommand3_Click()
OnErrorResumeNext
'CallDb
'Mydb.MovePrevious
'IfMydb.BOFThen
'MsgBox"这已经是第一条记录了!
",vbOKOnly+32,"注意"
'Mydb.MoveFirst
'EndIf
Mydb.MoveNext
IfMydb.EOFThen
MsgBox"这已经是最后一条记录了!
",vbOKOnly+32,"注意"
Mydb.MoveLast
EndIf
CallBangding
EndSub
PrivateSubCommand4_Click()
OnErrorResumeNext
'CallDb
Mydb.MoveLast
CallBangding
EndSub
PrivateSubForm_Load()
OnErrorResumeNext
'SetMydb=ExeCutesql("select*from借出",Str_text)
CallDb
'CallBangding
Check1.Value=0
Label7.Caption=Mydb.RecordCount
DTPicker1.Value=Date
Cmdsave.Enabled=False
txt_man.Locked=True
txt_way.Locked=True
txt_money.Locked=True
Combo1.Locked=True
Check1.Enabled=False
DTPicker1.Enabled=False
EndSub
PrivateFunctionDb()
OnErrorResumeNext
SetMydb=ExeCutesql("select*from借出",Str_text)
EndFunction
PrivateFunctionBangding()
OnErrorResumeNext
Settxt_man.DataSource=Mydb
Settxt_money.DataSource=Mydb
SetDTPicker1.DataSource=Mydb
Settxt_way.DataSource=Mydb
SetCheck1.DataSource=Mydb
txt_man.DataField="得款人"
txt_money.DataField="金额"
DTPicker1.Value="日期"
txt_way.DataField="借款原因"
Check1.DataField="已还"
SetCombo1.DataSource=Mydb
Combo1.DataField="出借人"
EndFunction
2、frm_borromin.frm
DimMydbAsNewADODB.Recordset
DimMydb1AsNewADODB.Recordset
DimStr_textAsString
DimstrflagAsString
PrivateSubcmd_close_Click()
UnloadMe
EndSub
PrivateSubcmd_add_Click()
txt_man.Locked=False
txt_way.Locked=False
txt_money.Locked=False
Combo1.Locked=False
Check1.Enabled=True
DTPicker1.Enabled=True
txt_man.Text=""
txt_way.Text=""
txt_money.Text=""
Combo1.Text=""
strflag="添加"
Cmdsave.Enabled=True
EndSub
PrivateSubcmd_del_Click()
DimAAsBoolean
A=MsgBox("是否真的要删除这条记录?
",vbOKCancel+32+256,"删除")
IfA=TrueThen
ExeCutesql"deletefrom借入where得款人='"&txt_man.Text&"'",Str_text
MsgBox"记录已删除!
",,"删除"
IfMydb.RecordCount>0Then
Mydb.MoveNext
IfMydb.EOFThenMydb.MoveLast
CallDb
CallBangding
Label7.Caption=Mydb.RecordCount
EndIf
EndIf
EndSub
PrivateSubcmd_edit_Click()
OnErrorResumeNext
DimAAsBoolean
txt_man.Locked=False
txt_way.Locked=False
txt_money.Locked=False
Combo1.Locked=False
Check1.Enabled=True
DTPicker1.Enabled=True
strflag="修改"
Cmdsave.Enabled=True
EndSub
PrivateSubCmdsave_Click()
OnErrorResumeNext
DimAAsBoolean
Ifstrflag="添加"Then
A=MsgBox("是否添加前记录?
",vbYesNo+32,"添加记录")
IfA=TrueThen
ExeCutesql"insertinto借入values('"&txt_man.Text&"','"&txt_money.Text&"','"&Combo1.Text&"','"&Format(DTPicker1.Value,"yyyy-mm-dd")&"','"&txt_way.Text&"','"&Check1.Value&"')",Str_text
MsgBox"数据已经保存!
",vbOKOnly+64,"成功"
CallDb
Label7.Caption=Mydb.RecordCount
EndIf
ElseIfstrflag="修改"Then
A=MsgBox("是否修改前记录?
",vbYesNo+32,"添加记录")
IfA=TrueThen
Mydb.Update
'Mydb.Requery
CallDb
MsgBox"数据修改成功!
",vbOKOnly+64,"成功"
EndIf
EndIf
txt_man.Locked=True
txt_way.Locked=True
txt_money.Locked=True
Combo1.Locked=True
Check1.Enabled=False
DTPicker1.Enabled=False
Cmdsave.Enabled=False
EndSub
PrivateSubCombo1_Change()
'SetCombo1.DataSource=Mydb1
ForI=1ToMydb1.RecordCount
Combo1.AddItem(Mydb1.Fields(0))
Mydb1.MoveNext
IfMydb1.EOFThenExitFor
NextI
EndSub
PrivateSubCommand1_Click()
OnErrorResumeNext
'CallDb
Mydb.MoveFirst
CallBangding
EndSub
PrivateSubCommand3_Click()
OnErrorResumeNext
'CallDb
Mydb.MoveNext
IfMydb.EOFThen
MsgBox"这已经是最后一条记录了!
",vbOKOnly+32,"注意"
Mydb.MoveLast
EndIf
CallBangding
EndSub
PrivateSubCommand2_Click()
OnErrorResumeNext
Mydb.MovePrevious
IfMydb.BOFThen
MsgBox"这已经是第一条记录了!
",vbOKOnly+32,"注意"
Mydb.MoveFirst
EndIf
CallBangding
EndSub
PrivateSubCommand4_Click()
OnErrorResumeNext
'CallDb
Mydb.MoveLast
CallBangding
EndSub
PrivateSubForm_Load()
OnErrorResumeNext
CallDb
CallBangding
Cmdsave.Enabled=False
Check1.Value=0
Label7.Caption=Mydb.RecordCount
DTPicker1.Value=Date
txt_man.Locked=True
txt_way.Locked=True
txt_money.Locked=True
Combo1.Locked=True
Check1.Enabled=False
DTPicker1.Enabled=False
EndSub
PrivateFunctionDb()
SetMydb=ExeCutesql("select*from借入",Str_text)
EndFunction
PrivateFunctionBangding()
OnErrorResumeNext
Settxt_man.DataSource=Mydb
Settxt_money.DataSource=Mydb
SetDTPicker1.DataSource=Mydb
Settxt_way.DataSource=Mydb
SetCheck1.DataSource=Mydb
txt_man.DataField="得款人"
txt_money.DataField="金额"
DTPicker1.DataField="日期"
txt_way.DataField="出借原因"
Check1.DataField="已还"
SetCombo1.DataSource=Mydb
Combo1.DataField="出借人"
EndFunction
3、frm_choose.frm
PrivateSubcmd_choose_Click()
OnErrorResumeNext
CommonDialog1.Filter="database(*.mdb)|*.mdb"
CommonDialog1.ShowOpen
Str_path=CommonDialog1.FileName
Text1.Text=CommonDialog1.FileName
SaveSetting"小财迷","personal","路径",Str_path
Text2.Text=CommonDialog1.FileName
IfText2.Text<>""Then
frm_login.Show
UnloadMe
Else
Show
EndIf
EndSub
PrivateSubcmd_ok_Click()
OnErrorResumeNext
Str_path=Text1.Text
SaveSetting"小财迷","personal","路径",Str_path
frm_login.Show
UnloadMe
EndSub
4、frm_date.frm
DimMydbAsNewADODB.Recordset
DimRiqi,Riqi1,Year1,MonthAsString
PrivateSubCommand1_Click()
'DimRiqi,Riqi1,Year,MonthAsString
IfCombo1.Text=""Then
MsgBox"请选择年份!
",vbOKOnly+32,"注意!
"
Else
IfCombo2.Text=""Then
MsgBox"请选择月份!
",vbOKOnly+32,"注意!
"
Else
AA=True
Year1=Combo1.Text
Month=Combo2.Text
Riqi=Year1&"-"&Month
Riqi1=Year1&"-"&Month+1
'MsgBoxRiqi
'SetMydb=ExeCutesql("select*from收入where日期between'"&Riqi&"'and'"&Riqi1&"'","")
Cdate1=Format(Riqi,"yyyy-mm")
Cdate2=Format(Riqi1,"yyyy-mm")
UnloadMe
EndIf
EndIf
EndSub
PrivateSubForm_Load()
DimAAsInteger
A=2000
ForI=2000ToInt(Year(Now))
Combo1.AddItemA
A=A+1
NextI
EndSub
5、frm_expend.frm
DimMydbAsNewADODB.Recordset
DimMydb1AsNewADODB.Recordset
DimMydb2AsNewADODB.Recordset
DimCount1AsNewADODB.Recordset
DimStr_textAsString
PrivateSubcmd_add_Click()
OnErrorResumeNext
DimA,B
B=1
SetCount1=ExeCutesql("select*from支出",Str_text)
Count1.MoveLast
B=Count1.Fields(7)+1
A=MsgBox("是否添加前记录?
",vbYesNo+32,"添加记录")
IfA=vbYesThen
Iftxt_intake.Text=""Then
MsgBox"请填写去向!
",vbOKOnly+32,"注意!
"
Else
ExeCutesql"insertinto支出values('"&Format(DTPicker1.Value,"yyyy-mm-dd")&"','"_
&Combo1.Text&"','"&txt_money.Text&"','"&Combo2.Text&"','"&txt_intake.Text_
&"','"&Combo3.Text&"','"&txt_mome.Text&"','"&B&"')",Str_text
MsgBox"数据已经保存!
",vbOKOnly+64,"成功"
CallXiangmu
CallDb
EndIf
EndIf
EndSub
PrivateSubcmd_close_Click()
UnloadMe
EndSub
PrivateSubcmd_del_Click()
OnErrorResumeNext
DimA
A=MsgBox("是否删除当前记录?
",vbYesNo+32+256,"添加记录")
IfA=v
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 家庭 财务管理 系统 毕业 课程设计 原代码