家庭财务管理系统课程设计的原代码.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