2015【最新文档】家庭财务管理系统课程设计的原代码.doc

文档介绍：1、
Dim Mydb As New
Dim Mydb1 As New
Dim Str_text As String
Dim strflag As String
Private Sub cmd_add_Click()
= False
= False
= False
= False
= True
= True
= ""
= ""
= ""
= ""
strflag = "添加"
= True
End Sub
Private Sub cmd_close_Click()
Unload Me
End Sub
Private Sub cmd_del_Click()
Dim A As Boolean
A = MsgBox("是否真的要删除这条记录?", vbOKCancel + 32 + 256, "删除")
If A = True Then
ExeCutesql "delete from 借出 where 得款人='" & & "'", Str_text
MsgBox "记录已删除!", , "删除"
If > 0 Then

If Then
Call Db
Call Bangding
=
End If
End If
End Sub
Private Sub cmd_edit_Click()
On Error Resume Next
Dim A As Boolean
= False
= False
= False
= False
= True
= True
strflag = "修改"
= True
End Sub
Private 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 借出 values('" & & "','" & & "','" & & "','" & & "','" & & "','" & & "')", Str_text
MsgBox "数据已经保存!", vbOKOnly + 64, "成功"
Call Db
=
End If
ElseIf strflag = "修改" Then
A = MsgBox("是否修改前记录?", vbYesNo + 32, "添加记录")
If A = True Then

'
Call Db
MsgBox "数据修改成功!", vbOKOnly + 64, "成功"
End If
End If
= False
= True
= True
= True
= True
= False
= False
End Sub
Private