數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告-個(gè)人記賬系統(tǒng)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上目 錄一、課程設(shè)計(jì)目的1二、系統(tǒng)設(shè)計(jì)1三、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)2四、系統(tǒng)功能模塊圖4五、源程序代碼11六、課程設(shè)計(jì)總結(jié)30七、存在的問(wèn)題及不足30一、 課程設(shè)計(jì)目的通過(guò)數(shù)據(jù)庫(kù)課程設(shè)計(jì)，培養(yǎng)學(xué)生數(shù)據(jù)庫(kù)設(shè)計(jì)的綜合能力。從需求分析和數(shù)據(jù)庫(kù)邏輯、物理設(shè)計(jì)，到功能分析和應(yīng)用程序的最終實(shí)現(xiàn)，讓學(xué)生親自動(dòng)手參與一個(gè)具有一定規(guī)模的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的設(shè)計(jì)和開(kāi)發(fā)，真正理解和掌握數(shù)據(jù)庫(kù)設(shè)計(jì)和開(kāi)發(fā)的思路和方法，并更好的理解和消化課本所學(xué)的知識(shí)，為今后的實(shí)際應(yīng)用打下良好的基礎(chǔ)。二、 系統(tǒng)設(shè)計(jì)本課程設(shè)計(jì)（個(gè)人記賬系統(tǒng)）是用VB+SQL設(shè)計(jì)完成的。在本系統(tǒng)里可以對(duì)家庭人員基本信息以及家庭賬目的收入支出

2、進(jìn)行簡(jiǎn)單維護(hù)。主要功能包括對(duì)家庭人員信息以及家庭收支的添加、修改、刪除、查找、統(tǒng)計(jì)等功能。三、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)1.SQL數(shù)據(jù)庫(kù)設(shè)計(jì)表格設(shè)計(jì)：userinfo表，記錄用戶(hù)信息familyinfo表，記錄家庭人員信息 income表，記錄收入方面信息 pay表，記錄支出方面信息 account表，匯總收支信息 allaccount表，計(jì)算總收支及結(jié)余存儲(chǔ)過(guò)程定義countall存儲(chǔ)過(guò)程，統(tǒng)計(jì)account表中的收支信息，并對(duì)收支金額進(jìn)行求和，算出結(jié)余插入到allaccount表中。觸發(fā)器:familyinfo表上定義update觸發(fā)器完成對(duì)income和pay上收支人員的一致性更新。income

3、表上定義insert，delete及update觸發(fā)器，完成對(duì)于account表上的各個(gè)數(shù)據(jù)的一致性更新。pay表上定義insert，delete及update觸發(fā)器，完成對(duì)于account表上的各個(gè)數(shù)據(jù)的一致性更新。account表上定義insert,delete及update觸發(fā)器，調(diào)用countall存儲(chǔ)過(guò)程完成對(duì)于allacount表上數(shù)據(jù)的統(tǒng)計(jì)更新。四、系統(tǒng)功能模塊圖1、數(shù)據(jù)源連接2、界面設(shè)計(jì)登陸界面：注冊(cè)界面：收入管理界面：界面中分為三個(gè)部分，第一部分收入信息，第二部分顯示當(dāng)前總收支及與結(jié)余，并隨著用戶(hù)添加修改刪除的操作及時(shí)更新，第三部分是操作信息，包括查詢(xún)、添加、修改、刪除。住處

4、管理界面：界面中分為三個(gè)部分，第一部分收入信息，第二部分顯示當(dāng)前總收支及與結(jié)余，并隨著用戶(hù)添加修改刪除的操作及時(shí)更新，第三部分是操作信息，包括查詢(xún)、添加、修改、刪除。收支界面顯示：家庭人員信息顯示：五、附：源程序代碼 SQL代碼觸發(fā)器 pay表上de_pay create trigger de_payon payfor deleteasdeclare new_time char(20)declare new_item char(20)declare new_mon intdeclare new_rela char(20)declare new_expl char(200)select new_

5、time=支出時(shí)間 from deletedselect new_item=支出項(xiàng)目 from deletedselect new_mon=支出金額 from deletedselect new_rela=支出人員 from deletedselect new_expl=支出說(shuō)明 from deleteddelete from account where 錄入時(shí)間=new_time and 收支金額=new_mon and 收支項(xiàng)目=new_item and 收支人員=new_rela and 收支說(shuō)明=new_explout_trcreate trigger out_tron payfor

6、insertasdeclare new_time char(20)declare new_item char(20)declare new_mon intdeclare new_rela char(20)declare new_expl char(200)select new_time=支出時(shí)間 from insertedselect new_item=支出項(xiàng)目 from insertedselect new_mon=支出金額 from insertedselect new_rela=支出人員 from insertedselect new_expl=支出說(shuō)明 from insertedins

7、ert into account(錄入時(shí)間,收支類(lèi)型,收支金額,收支項(xiàng)目,收支人員,收支說(shuō)明)values(new_time,'支出',new_mon,new_item,new_rela,new_expl) up_paycreate trigger up_payon payfor updateasdeclare new_time char(20)declare new_item char(20)declare new_mon intdeclare new_rela char(20)declare new_expl char(200)declare old_time char(2

8、0)declare old_item char(20)declare old_mon intdeclare old_rela char(20)declare old_expl char(200)select old_time=支出時(shí)間 from deletedselect old_item=支出項(xiàng)目 from deletedselect old_mon=支出金額 from deletedselect old_rela=支出人員 from deletedselect old_expl=支出說(shuō)明 from deletedselect new_time=支出時(shí)間 from insertedselec

9、t new_item=支出項(xiàng)目 from insertedselect new_mon=支出金額 from insertedselect new_rela=支出人員 from insertedselect new_expl=支出說(shuō)明 from insertedupdate account set 錄入時(shí)間=new_time where 錄入時(shí)間=old_timeupdate account set 收支金額=new_mon where 收支金額=old_monupdate account set 收支項(xiàng)目=new_item where 收支項(xiàng)目=old_itemupdate account s

10、et 收支人員=new_rela where 收支人員=old_relaupdate account set 收支說(shuō)明=new_expl where 收支說(shuō)明=old_explincome 表上create trigger de_incomeon incomefor deleteasdeclare new_time char(20)declare new_item char(20)declare new_mon intdeclare new_rela char(20)declare new_expl char(200)select new_time=收入日期 from deletedselec

11、t new_item=收入項(xiàng)目 from deletedselect new_mon=收入金額 from deletedselect new_rela=收入人員 from deletedselect new_expl=收入說(shuō)明 from deleteddelete from account where 錄入時(shí)間=new_time and 收支金額=new_mon and 收支項(xiàng)目=new_item and 收支人員=new_rela and 收支說(shuō)明=new_explcreate trigger in_tron incomefor insertasdeclare new_time char(2

12、0)declare new_item char(20)declare new_mon intdeclare new_rela char(20)declare new_expl char(200)select new_time=收入日期 from insertedselect new_item=收入項(xiàng)目 from insertedselect new_mon=收入金額 from insertedselect new_rela=收入人員 from insertedselect new_expl=收入說(shuō)明 from insertedinsert into account(錄入時(shí)間,收支類(lèi)型,收支金額

13、,收支項(xiàng)目,收支人員,收支說(shuō)明)values(new_time,'收入',new_mon,new_item,new_rela,new_expl) create trigger up_incomeon incomefor updateasdeclare new_time char(20)declare new_item char(20)declare new_mon intdeclare new_rela char(20)declare new_expl char(200)declare old_time char(20)declare old_item char(20)decl

14、are old_mon intdeclare old_rela char(20)declare old_expl char(200)select old_time=收入日期 from deletedselect old_item=收入項(xiàng)目 from deletedselect old_mon=收入金額 from deletedselect old_rela=收入人員 from deletedselect old_expl=收入說(shuō)明 from deletedselect new_time=收入日期 from insertedselect new_item=收入項(xiàng)目 from insertedse

15、lect new_mon=收入金額 from insertedselect new_rela=收入人員 from insertedselect new_expl=收入說(shuō)明 from insertedupdate account set 錄入時(shí)間=new_time where 錄入時(shí)間=old_timeupdate account set 收支金額=new_mon where 收支金額=old_monupdate account set 收支項(xiàng)目=new_item where 收支項(xiàng)目=old_itemupdate account set 收支人員=new_rela where 收支人員=old

16、_relaupdate account set 收支說(shuō)明=new_expl where 收支說(shuō)明=old_explfamilyinfo表上create trigger up_familyon dbo.familyinfofor updateasdeclare new_rela char(20)declare old_rela char(20)select new_rela=家庭人員 from insertedselect old_rela=家庭人員 from deletedupdate income set 收入人員=new_rela where 收入人員=old_relaupdate pay

17、 set 支出人員=new_rela where 支出人員=old_relaaccount表上create trigger de_accounton accountfor deleteasexec countallcreate trigger in_accounton accountfor insert asexec countallcreate trigger up_accounton accountfor updateasexec countall存儲(chǔ)過(guò)程CREATE proc countallasdeclare sum_income intdeclare sum_pay intdecla

18、re sum_count intdeclare old_income intdeclare old_pay intdeclare old_sum intselect old_income=總收入,old_pay=總支出,old_sum=結(jié)余 from allaccountselect sum_income=sum(收支金額) from account where 收支類(lèi)型='收入'select sum_pay=sum(收支金額) from account where 收支類(lèi)型='支出'set sum_count=sum_income-sum_payupdate

19、allaccount set 總收入=sum_income where 總收入=old_incomeupdate allaccount set 總支出=sum_pay where 總支出=old_payupdate allaccount set 結(jié)余=sum_count where 結(jié)余=old_sumVB代碼'模塊Public cn As ADODB.ConnectionPublic rs As ADODB.Recordset'菜單Private Sub Command1_Click()菜單.Hide收入管理.ShowEnd SubPrivate Sub Command2_C

20、lick()菜單.Hide支出管理.ShowEnd SubPrivate Sub Command3_Click()菜單.Hide收支顯示.ShowEnd SubPrivate Sub Command4_Click()菜單.Hide登錄.ShowEnd SubPrivate Sub Command5_Click()If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then EndEnd IfEnd SubPrivate Sub Command6_Click()菜單.Hide家庭人員.ShowEnd Sub'

21、;登錄Private Sub Command1_Click()Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.Open "dsn=keep_account"rs.Open "select * from userinfo where username='" & Text1 & "'" & "and password='" & Text2 & "'", cn

22、, adOpenStatic, adLockOptimisticIf rs.RecordCount > 0 Then 菜單.Show 登錄.HideElse MsgBox "密碼錯(cuò)誤或用戶(hù)名不存在！請(qǐng)重新輸入。" a = a + 1 '密碼沒(méi)輸入一次a的數(shù)值就增加1 Text1.Text = "" Text2.Text = "" If a > 2 Then '三次輸入錯(cuò)誤,程序強(qiáng)制退出 MsgBox "三次輸入錯(cuò)誤，強(qiáng)制退出！" End End IfEnd IfEnd SubPrivat

23、e Sub Command2_Click()登錄.Hide注冊(cè).ShowEnd SubPrivate Sub Command3_Click()If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then EndEnd IfEnd Sub'家庭人員Public Sub export()Text1.Text = rs.Fields("家庭人員")Text2.Text = rs.Fields("年齡")Text3.Text = rs.Fields("政治面貌&q

24、uot;)Text4.Text = rs.Fields("職業(yè)")Text5.Text = rs.Fields("說(shuō)明")End SubPublic Sub import()rs.Fields("家庭人員") = Text1.Textrs.Fields("年齡") = Text2.Textrs.Fields("政治面貌") = Text3.Textrs.Fields("職業(yè)") = Text4.Textrs.Fields("說(shuō)明") = Text5.Tex

25、tEnd SubPublic Sub clear()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End SubPrivate Sub Command1_Click()On Error GoTo flagrs.MoveFirstCall exportExit Subflag: MsgBox "數(shù)據(jù)庫(kù)空或當(dāng)前已是第一條！"End SubPrivate Sub Command1

26、0_Click()If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then EndEnd IfEnd SubPrivate Sub Command2_Click()On Error GoTo flagrs.MovePreviousIf rs.BOF Then MsgBox "當(dāng)前已是第一條記錄！", , "提示" rs.MoveFirstElse Call exportEnd IfExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是第一條！&qu

27、ot;End SubPrivate Sub Command3_Click()On Error GoTo flagrs.MoveNextIf rs.EOF Then MsgBox "當(dāng)前已是最后一條記錄！", , "提示" rs.MoveLastElse Call exportEnd IfExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"End SubPrivate Sub Command4_Click()On Error GoTo flagrs.MoveLastCall exportExit Subfl

28、ag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"End SubPrivate Sub Command5_Click()On Error GoTo flagIf rs.RecordCount > 0 Then rs.MoveLast rs.AddNew Call import rs.UpdateElse rs.AddNew Call import rs.UpdateEnd If收入管理.Combo3.AddItem (Text1.Text)收入管理.Hide支出管理.Combo3.AddItem (Text1.Text)支出管理.Hide'Call

29、 clearrs.Closers.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimisticrs.MoveLastExit Subflag: MsgBox "請(qǐng)檢查你輸入的格式是否正確."End SubPrivate Sub Command6_Click()If MsgBox("你確定要修改該條記錄？", vbOKCancel, "提示") = vbOK Then rs.Delete rs.Update rs.AddNew Call imp

30、ort rs.UpdateEnd Ifrs.Closers.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimisticEnd SubPrivate Sub Command7_Click()On Error GoTo flagDim a As IntegerDim b As Integera = 收入管理.Combo3.ListCount - 1b = 支出管理.Combo3.ListCount - 1If MsgBox("你確定要?jiǎng)h除這一條記錄？", vbOKCancel, &q

31、uot;提示") = vbOK Then rs.Delete rs.Update rs.MovePrevious Call export 收入管理.Combo3.RemoveItem a 收入管理.Hide 支出管理.Combo3.RemoveItem bEnd Ifrs.Closers.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimisticExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或已刪除記錄！"End SubPrivate Sub Command8

32、_Click()On Error GoTo flagIf Combo2.Text = "全部顯示" Then Set 家庭人員顯示.DataGrid1.DataSource = rs 家庭人員顯示.ShowElse If Text6.Text = "" Then MsgBox "請(qǐng)輸入查找信息！" Else rs.Close rs.Open "select * from familyinfo where " & Combo2.Text & "='" & Text6

33、 & "'", cn, adOpenStatic, adLockOptimistic '按用戶(hù)指定的方式,與用戶(hù)提供的信息查詢(xún) If rs.RecordCount > 0 Then Call export Else MsgBox "對(duì)不起，記錄中沒(méi)有你要查找的項(xiàng)！" End If End IfEnd If'rs.Close'rs.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimisticExit Subflag:

34、MsgBox "請(qǐng)檢查你輸入的格式是否正確:"End SubPrivate Sub Command9_Click()家庭人員.Hide菜單.ShowEnd SubPrivate Sub Form_Load()Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.Open "dsn=keep_account"rs.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimisticCall exportEn

35、d Sub'收入管理Private Sub Command1_Click()On Error GoTo flagrs.MoveFirstCall exportExit Subflag: MsgBox "數(shù)據(jù)庫(kù)空或當(dāng)前已是第一條！"End SubPrivate Sub Command10_Click()If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then EndEnd IfEnd SubPrivate Sub Command2_Click()On Error GoTo flagr

36、s.MovePreviousIf rs.BOF Then MsgBox "當(dāng)前已是第一條記錄！", , "提示" rs.MoveFirstElse Call exportEnd IfExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是第一條！"End SubPrivate Sub Command3_Click()On Error GoTo flagrs.MoveNextIf rs.EOF Then MsgBox "當(dāng)前已是最后一條記錄！", , "提示" rs.MoveLastEl

37、se Call exportEnd IfExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"End SubPrivate Sub Command4_Click()On Error GoTo flagrs.MoveLastCall exportExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"End SubPrivate Sub Command5_Click()On Error GoTo flagIf rs.RecordCount > 0 Then rs.MoveLast rs.AddNe

38、w Call import rs.UpdateElse rs.AddNew Call import rs.UpdateEnd IfCall clearrs.Closers.Open "select * from allaccount", cn, adOpenStatic, adLockOptimisticLabel10.Caption = rs.Fields("總收入")Label11.Caption = rs.Fields("總支出")Label12.Caption = rs.Fields("結(jié)余")rs.Clo

39、sers.Open "select * from income", cn, adOpenStatic, adLockOptimisticrs.MoveLastExit Subflag: MsgBox "請(qǐng)檢查你輸入的格式是否正確." & vbCrLf & "收入金額為數(shù)字格式" & vbCrLf & "時(shí)期請(qǐng)按:(年)-(月)-(日)輸入" & vbCrLf & "其他為文本格式"End SubPrivate Sub Command6_Click(

40、)If MsgBox("你確定要修改該條記錄？", vbOKCancel, "提示") = vbOK Then rs.Delete rs.Update rs.AddNew Call import rs.UpdateEnd Ifrs.Closers.Open "select * from allaccount", cn, adOpenStatic, adLockOptimisticLabel10.Caption = rs.Fields("總收入")Label11.Caption = rs.Fields("總

41、支出")Label12.Caption = rs.Fields("結(jié)余")'rs.Close'rs.Open "select * from income", cn, adOpenStatic, adLockOptimisticEnd SubPrivate Sub Command7_Click()On Error GoTo flagIf MsgBox("你確定要?jiǎng)h除這一條記錄？", vbOKCancel, "提示") = vbOK Then rs.Delete rs.Update rs.Mo

42、vePrevious Call exportEnd Ifrs.Closers.Open "select * from allaccount", cn, adOpenStatic, adLockOptimisticLabel10.Caption = rs.Fields("總收入")Label11.Caption = rs.Fields("總支出")Label12.Caption = rs.Fields("結(jié)余")'rs.Close'rs.Open "select * from income&

43、quot;, cn, adOpenStatic, adLockOptimisticExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或已刪除記錄！"End SubPrivate Sub Command8_Click()On Error GoTo flagIf Combo2.Text = "全部顯示" Then Set 收入顯示.DataGrid1.DataSource = rs 收入顯示.ShowElse If Text6.Text = "" Then MsgBox "請(qǐng)輸入查找信息！" Else rs.Cl

44、ose rs.Open "select * from income where " & Combo2.Text & "='" & Text6 & "'", cn, adOpenStatic, adLockOptimistic '按用戶(hù)指定的方式,與用戶(hù)提供的信息查詢(xún) If rs.RecordCount > 0 Then Call export Else MsgBox "對(duì)不起，記錄中沒(méi)有你要查找的項(xiàng)！" End If End IfEnd If'r

45、s.Close'rs.Open "select * from income", cn, adOpenStatic, adLockOptimisticExit Subflag: MsgBox "請(qǐng)檢查你輸入的格式是否正確:" & vbCrLf & "日期請(qǐng)按(年)-(月)-(日)格式輸入."End SubPrivate Sub Command9_Click()收入管理.Hide菜單.ShowEnd SubPrivate Sub Form_Load()Set cn = New ADODB.ConnectionSet

46、 rs = New ADODB.Recordsetcn.Open "dsn=keep_account"rs.Open "select * from allaccount", cn, adOpenStatic, adLockOptimisticLabel10.Caption = rs.Fields("總收入")Label11.Caption = rs.Fields("總支出")Label12.Caption = rs.Fields("結(jié)余")rs.Closers.Open "select

47、 * from income", cn, adOpenStatic, adLockOptimisticCall exportEnd Sub'收支顯示Private Sub Command1_Click()收支顯示.Hide菜單.ShowEnd SubPrivate Sub Command2_Click()If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then EndEnd IfEnd SubPrivate Sub Form_Load()Set cn = New ADODB.Connecti

48、onSet rs = New ADODB.Recordsetcn.Open "dsn=keep_account"rs.Open "select * from account", cn, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub'支出管理Public Sub export()Text1.Text = rs.Fields("支出時(shí)間")Combo1.Text = rs.Fields("支出項(xiàng)目")Text3.Text =

49、 rs.Fields("支出金額")Combo3.Text = rs.Fields("支出人員")Text5.Text = rs.Fields("支出說(shuō)明")End SubPublic Sub import()rs.Fields("支出時(shí)間") = Text1.Textrs.Fields("支出項(xiàng)目") = Combo1.Textrs.Fields("支出金額") = Text3.Textrs.Fields("支出人員") = Combo3.Textrs.

50、Fields("支出說(shuō)明") = Text5.TextEnd SubPublic Sub clear()Text1.Text = ""Combo1.Text = ""Text3.Text = ""Combo3.Text = ""Text5.Text = ""End SubPrivate Sub Command1_Click()On Error GoTo flagrs.MoveFirstCall exportExit Subflag: MsgBox "數(shù)據(jù)庫(kù)空或當(dāng)前已

51、是第一條！"End SubPrivate Sub Command10_Click()If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then EndEnd IfEnd SubPrivate Sub Command2_Click()On Error GoTo flagrs.MovePreviousIf rs.BOF Then MsgBox "當(dāng)前已是第一條記錄！", , "提示" rs.MoveFirstElse Call exportEnd IfExit Su

52、bflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是第一條！"End SubPrivate Sub Command3_Click()On Error GoTo flagrs.MoveNextIf rs.EOF Then MsgBox "當(dāng)前已是最后一條記錄！", , "提示" rs.MoveLastElse Call exportEnd IfExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"End SubPrivate Sub Command4_Click()On Error GoT

53、o flagrs.MoveLastCall exportExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"End SubPrivate Sub Command5_Click()On Error GoTo flagIf rs.RecordCount > 0 Then rs.MoveLast rs.AddNew Call import rs.UpdateElse rs.AddNew Call import rs.UpdateEnd IfCall clearrs.Closers.Open "select * from allacco

54、unt", cn, adOpenStatic, adLockOptimisticLabel10.Caption = rs.Fields("總收入")Label11.Caption = rs.Fields("總支出")Label12.Caption = rs.Fields("結(jié)余")rs.Closers.Open "select * from income", cn, adOpenStatic, adLockOptimisticrs.MoveLastExit Subflag: MsgBox "請(qǐng)檢

55、查你輸入的格式是否正確." & vbCrLf & "收入金額為數(shù)字格式" & vbCrLf & "時(shí)期請(qǐng)按:(年)-(月)-(日)輸入" & vbCrLf & "其他為文本格式"End SubPrivate Sub Command6_Click()If MsgBox("你確定要修改該條記錄？", vbOKCancel, "提示") = vbOK Then rs.Delete rs.Update rs.AddNew Call import

56、rs.UpdateEnd Ifrs.Closers.Open "select * from allaccount", cn, adOpenStatic, adLockOptimisticLabel10.Caption = rs.Fields("總收入")Label11.Caption = rs.Fields("總支出")Label12.Caption = rs.Fields("結(jié)余")'rs.Close'rs.Open "select * from income", cn, ad

57、OpenStatic, adLockOptimisticEnd SubPrivate Sub Command7_Click()On Error GoTo flagIf MsgBox("你確定要?jiǎng)h除這一條記錄？", vbOKCancel, "提示") = vbOK Then rs.Delete rs.Update rs.MovePrevious Call exportEnd Ifrs.Closers.Open "select * from allaccount", cn, adOpenStatic, adLockOptimisticLa

58、bel10.Caption = rs.Fields("總收入")Label11.Caption = rs.Fields("總支出")Label12.Caption = rs.Fields("結(jié)余")'rs.Close'rs.Open "select * from income", cn, adOpenStatic, adLockOptimisticExit Subflag: MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或已刪除記錄！"End SubPrivate Sub Command8_Click()On Error GoTo flagIf Combo2.Text = "全部顯示" Then Set 支出顯示.DataGrid1.