【正文】 amp。 amp。 amp。 amp。 amp。 amp。 amp。 Cdate1 amp。 Cdate1 amp。 39。,備注 =39。 amp。 amp。 B amp。 amp。 amp。 amp。, amp。 amp。where key= amp。Call Db Set Mydb = ExeCutesql(select * from 成員 , Str_text) Set = Mydb End If End Sub Private Sub cmd_edit_Click() On Error Resume Next Dim A A = MsgBox(是否修改前記錄 ?, vbYesNo + 32, 修改記錄 ) If A = vbYes Then ExeCutesql Update 成員 set 稱呼 =39。 39。 39。 amp。 amp。 amp。 amp。 amp。Call Db Call Bangding End Sub Private Sub Form_Load() On Error Resume Next Call Db Call Bangding = False = 0 = = Date = True = True = True = True = False = False End Sub Private Function Db() Set Mydb = ExeCutesql(select * from 借入 , Str_text) End Function Private Function Bangding() On Error Resume Next Set = Mydb Set = Mydb Set = Mydb Set = Mydb Set = Mydb = 得款人 = 金額 = 日期 = 出借原因 = 已還 Set = Mydb = 出借人 End Function Private Sub cmd_choose_Click() On Error Resume Next = database(*.mdb)|*.mdb Str_path = = SaveSetting 小財迷 , personal, 路徑 , Str_path = If Then Unload Me Else Show End If End Sub Private Sub cmd_ok_Click() On Error Resume Next Str_path = SaveSetting 小財迷 , personal, 路徑 , Str_path Unload Me End Sub Dim Mydb As New Dim Riqi, Riqi1, Year1, Month As String Private Sub Command1_Click() 39。 amp。 amp。 39。 39。, 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(39。,39。If Then 39。 amp。 amp。 Riqi amp。 amp。 amp。,金額 = amp。 , Str_text 39。Dim A 39。End If End Function Dim Mydb As New Dim Mydb1 As New Dim Count1 As New Dim Str_text As String Private Sub cmd_add_Click() On Error Resume Next Dim A, B B = 1 Set Count1 = ExeCutesql(select * from 成員 , Str_text) B = (4) + 1 A = MsgBox(是否添加前記錄 ?, vbYesNo + 32, 修改記錄 ) If A = vbYes Then ExeCutesql insert into 成員 values(39。, amp。 amp。 39。 amp。 amp。 39。,39。 amp。,方式 =39。 amp。 amp。 = True 39。 39。 39。 D amp。 Format(Riqi, yyyymm) amp。 Month(Now) amp。 Format(Riqi1, yyyymm) amp。 Format(Riqi1, yyyymm) amp。 D amp。 Format(, yyyymmdd) amp。), Str_text Call Wangge = False = False = = MsgBox 數(shù)據(jù)添加成功！ , vbOKOnly, 成功 Else 。 ,39。 , amp。and 39。and 39。, ) B = (0) If IsNull(B) Then B = 0 End If = B C = A B If C 0 Then D = 富裕 Else D = 超支 End If = Year(Now) amp。, Str_text) Set = Mydb Set = Mydb1 Set Money = ExeCutesql(select sum(金額 ) from 收入 where 日期 between 39。 , amp。 amp。 amp。 39。 amp。,備注 =39。 Format(, yyyymmdd) amp。,39。 Format(, yyyymmdd) amp。 amp。 39。 39。 amp。 39。 amp。 39。 39。 Where key = amp。 amp。,39。,39。Set Mydb = ExeCutesql(select * from 收入 where 日期 between 39。,39。,39。Call Db 39。 amp。 amp。 amp。 Call Db MsgBox 數(shù)據(jù)修改成功！ , vbOKOnly + 64, 成功 End If End If = False = True = True = True = True = False = False End Sub Private Sub Combo1_Change() Dim A As Integer Set Mydb1 = ExeCutesql(select 姓名 from 成員 , Str_text) 39。 39。 39。 amp。 39。 39。 amp。 39。 39。MsgBox 39。 amp。 amp。 , Str_text MsgBox 數(shù)據(jù)已經(jīng)修改成功！ , vbOKOnly + 64, 成功 Call Db End If End Sub Private Sub Form_Load() Call Db = Date End Sub Private Function Db() Set Mydb = ExeCutesql(select * from 成員 , Str_text) Set = Mydb End Function Private Sub MSHFlexGrid1_Click() On Error Resume Next = (, 1) = (, 2) = (, 3) = (, 4) = (, 5) End Sub Dim Mydb As New Dim Mydb1 As New Dim Man As New Dim Count1 As New Dim Str_text As String Private Sub cmd_add_Click() On Error Resume Next Dim A, B B = 1 Set Count1 = ExeCutesql(select key from 定期存款 , Str_text) B = (0) + 1 A = MsgBox(是否添加前記錄 ?, vbYesNo + 32, 修改記錄 ) If A = vbYes Then ExeCutesql insert into 定期存款 values(39。, amp。 ), Str_text Call Bangding End If End S