【正文】 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(是否真的要?jiǎng)h除這條記錄？ , vbOKCancel + 32 + 256, 刪除 ) If A = True Then ExeCutesql delete from 借出 where 得款人 =39。 amp。 amp。 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。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。), Str_text MsgBox 數(shù)據(jù)已經(jīng)保存！ , vbOKOnly + 64, 成功 Call Db = End If ElseIf strflag = 修改 Then A = MsgBox(是否修改前記錄？ , vbYesNo + 32, 添加記錄 ) If A = True Then 39。 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。 Set = Mydb1 A = For I = 1 To A (0) If Then Exit For Next I End Sub Private Sub Command1_Click() On Error Resume Next 39。Call Db Call Bangding End Sub Private Sub Command2_Click() On Error Resume Next 39。Call Db 39。If Not Then If Then MsgBox 這已經(jīng)是第一條記錄了！ , vbOKOnly + 32, 注意 End If Call Bangding End Sub Private Sub Command3_Click() On Error Resume Next 39。Call Db 39。 39。If Then 39。 MsgBox 這已經(jīng)是第一條記錄了！ , vbOKOnly + 32, 注意 39。 39。End If If Then MsgBox 這已經(jīng)是最后一條記錄了！ , vbOKOnly + 32, 注意 End If Call Bangding End Sub Private Sub Command4_Click() On Error Resume Next 39。Call Db Call Bangding End Sub Private Sub Form_Load() On Error Resume Next 39。Set Mydb = ExeCutesql(select * from 借出 , Str_text) Call Db 39。Call Bangding = 0 = = Date = False = True = True = True = True = False = False End Sub Private Function Db() On Error Resume Next 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 Dim Mydb As New Dim Mydb1 As New Dim Str_text As String Dim strflag As String Private Sub cmd_close_Click() Unload Me End Sub Private Sub cmd_add_Click() = False = False = False = False = True = True = = = = strflag = 添加 = True End Sub Private Sub cmd_del_Click() Dim A As Boolean A = MsgBox(是否真的要?jiǎng)h除這條記錄？ , vbOKCancel + 32 + 256, 刪除 ) If A = True Then ExeCutesql delete from 借入 where 得款人 =39。 amp。 amp。 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。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Format(, yyyymmdd) amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。), Str_text MsgBox 數(shù)據(jù)已經(jīng)保存！ , vbOKOnly + 64, 成功 Call Db = End If ElseIf strflag = 修改 Then A = MsgBox(是否修改前記錄？ , vbYesNo + 32, 添加記錄 ) If A = True Then 39。 Call Db MsgBox 數(shù)據(jù)修改成功！ , vbOKOnly + 64, 成功 End If End If = True = True = True = True = False = False = False End Sub Private Sub Combo1_Change() Set Mydb1 = ExeCutesql(select 姓名 from 成員 , Str_text) 39。Set = Mydb1 For I = 1 To ((0)) If Then Exit For Next I End Sub Private Sub Command1_Click() On Error Resume Next 39。 Call Db Call Bangding End Sub Private Sub Command3_Click() On Error Resume Next 39。Call Db If Then MsgBox 這已經(jīng)是最后一條記錄了！ , vbOKOnly + 32, 注意 End If Call Bangding End Sub Private Sub Command2_Click() On Error Resume Next If Then MsgBox 這已經(jīng)是第一條記錄了！ , vbOKOnly + 32, 注意 End If Call Bangd