家庭财务管理系统的原代码.docVIP

1、frm_borrowgo.frm Dim Mydb As New ADODB.Recordset Dim Mydb1 As New ADODB.Recordset Dim Str_text As String Dim strflag As String Private Sub cmd_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 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 得款人= 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 If End Sub Private Sub cmd_edit_Click() On Error Resume Next Dim A As 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 = 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( 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 = 修改 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.L