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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：32 大?。?78.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

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

已閱讀1頁(yè)，還剩31頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　目錄　　一、課程設(shè)計(jì)目的……………………1　　二、系統(tǒng)設(shè)計(jì)…………………………1　　三、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)……………2　　四、系統(tǒng)功能模塊圖…………………4　　五、源程

2、序代碼………………………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)用程序的

3、最終實(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ì)家庭人員基本信息以及家庭賬目的收入支出進(jìn)行簡(jiǎn)單維

4、護(hù)。　　主要功能包括對(duì)家庭人員信息以及家庭收支的添加、修改、刪除、查找、統(tǒng)計(jì)等功能。　　三、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)　　1.SQL數(shù)據(jù)庫(kù)設(shè)計(jì)　　表格設(shè)計(jì)：　　userinfo表，記錄用戶信息<

5、/p>　　familyinfo表，記錄家庭人員信息　　income表，記錄收入方面信息　　pay表，記錄支出方面信息　　account表，匯總收支信息　　allaccount表，計(jì)算總收支及結(jié)余<

6、b>　　存儲(chǔ)過(guò)程　　定義countall存儲(chǔ)過(guò)程，統(tǒng)計(jì)account表中的收支信息，并對(duì)收支金額進(jìn)行求和，算出結(jié)余插入到allaccount表中。　　觸發(fā)器:　　familyinfo表上定義update觸發(fā)器完成對(duì)income和pay上收支人員的一致

7、性更新。　　income表上定義insert，delete及update觸發(fā)器，完成對(duì)于account表上的各個(gè)數(shù)據(jù)的一致性更新。　　pay表上定義insert，delete及update觸發(fā)器，完成對(duì)于account表上的各個(gè)數(shù)據(jù)的一致性更新。　　account表上定義insert,delete及update觸

8、發(fā)器，調(diào)用countall存儲(chǔ)過(guò)程完成對(duì)于allacount表上數(shù)據(jù)的統(tǒng)計(jì)更新。　　四、系統(tǒng)功能模塊圖　　1、數(shù)據(jù)源連接　　2、界面設(shè)計(jì)

9、登陸界面：　　注冊(cè)界面：　　收入管理界面：　　界面中分為三個(gè)部分，第一部分收入信息，第二部分顯示當(dāng)前總收支及與結(jié)余，并隨著用戶添加修改刪除的操作及時(shí)更新，第三部分是操作信息，包括查詢、添加、修改、刪除。</p&g

10、t;　　住處管理界面：　　界面中分為三個(gè)部分，第一部分收入信息，第二部分顯示當(dāng)前總收支及與結(jié)余，并隨著用戶添加修改刪除的操作及時(shí)更新，第三部分是操作信息，包括查詢、添加、修改、刪除。　　收支界面顯示：

11、;　　家庭人員信息顯示：　　五、附：源程序代碼　　SQL代碼　　觸發(fā)器 pay表上　　de_pay <p&

12、gt;　　create trigger de_pay　　on pay　　for delete　　as　　declare @new_time char(20)

13、;　　declare @new_item char(20)　　declare @new_mon int　　declare @new_rela char(20)　　declare @new_expl char(200)　　select @new_time=支出時(shí)間 from

14、 deleted　　select @new_item=支出項(xiàng)目 from deleted　　select @new_mon=支出金額 from deleted　　select @new_rela=支出人員 from deleted　　select @new_expl=支出

15、說(shuō)明 from deleted　　delete from account where 錄入時(shí)間=@new_time and 收支金額=@new_mon and 收支項(xiàng)目=@new_item and 收支人員=@new_rela and 收支說(shuō)明=@new_expl　　out_tr<p&g

16、t;　　create trigger out_tr　　on pay　　for insert　　as　　declare @new_time char(20)

17、　　declare @new_item char(20)　　declare @new_mon int　　declare @new_rela char(20)　　declare @new_expl char(200)　　select @new_time=支出時(shí)間 from

18、inserted　　select @new_item=支出項(xiàng)目 from inserted　　select @new_mon=支出金額 from inserted　　select @new_rela=支出人員 from inserted　　select @new_expl

19、=支出說(shuō)明 from inserted　　insert into account(錄入時(shí)間,收支類型,收支金額,收支項(xiàng)目,收支人員,收支說(shuō)明)　　values(@new_time,'支出',@new_mon,@new_item,@new_rela,@new_expl) 　　up_

20、pay　　create trigger up_pay　　on pay　　for update　　as　　declare @new_ti

21、me char(20)　　declare @new_item char(20)　　declare @new_mon int　　declare @new_rela char(20)　　declare @new_expl char(200)<p&

22、gt;　　declare @old_time char(20)　　declare @old_item char(20)　　declare @old_mon int　　declare @old_rela char(20)　　declare @old_expl char(20

23、0)　　select @old_time=支出時(shí)間 from deleted　　select @old_item=支出項(xiàng)目 from deleted　　select @old_mon=支出金額 from deleted　　select @old_rela=支出人員 fro

24、m deleted　　select @old_expl=支出說(shuō)明 from deleted　　select @new_time=支出時(shí)間 from inserted　　select @new_item=支出項(xiàng)目 from inserted　　select @new_mon

25、=支出金額 from inserted　　select @new_rela=支出人員 from inserted　　select @new_expl=支出說(shuō)明 from inserted　　update account set 錄入時(shí)間=@new_time where 錄入時(shí)間=@old_time</p&g

26、t;　　update account set 收支金額=@new_mon where 收支金額=@old_mon　　update account set 收支項(xiàng)目=@new_item where 收支項(xiàng)目=@old_item　　update account set 收支人員=@new_rela where 收支人員=@old_rel

27、a　　update account set 收支說(shuō)明=@new_expl where 收支說(shuō)明=@old_expl　　income 表上　　create trigger de_income　　on income<

28、;/b>　　for delete　　as　　declare @new_time char(20)　　declare @new_item char(20)　　declare @new_mo

29、n int　　declare @new_rela char(20)　　declare @new_expl char(200)　　select @new_time=收入日期 from deleted　　select @new_item=收入項(xiàng)目 from deleted&l

30、t;/p>　　select @new_mon=收入金額 from deleted　　select @new_rela=收入人員 from deleted　　select @new_expl=收入說(shuō)明 from deleted　　delete from account where 錄入時(shí)

31、間=@new_time and 收支金額=@new_mon and 收支項(xiàng)目=@new_item and 收支人員=@new_rela and 收支說(shuō)明=@new_expl　　create trigger in_tr　　on income　　for insert</p&

32、gt;　　as　　declare @new_time char(20)　　declare @new_item char(20)　　declare @new_mon int　　declare @new_rela c

33、har(20)　　declare @new_expl char(200)　　select @new_time=收入日期 from inserted　　select @new_item=收入項(xiàng)目 from inserted　　select @new_mon=收入金額 fro

34、m inserted　　select @new_rela=收入人員 from inserted　　select @new_expl=收入說(shuō)明 from inserted　　insert into account(錄入時(shí)間,收支類型,收支金額,收支項(xiàng)目,收支人員,收支說(shuō)明)

35、　　values(@new_time,'收入',@new_mon,@new_item,@new_rela,@new_expl) 　　create trigger up_income　　on income　　for update<p

36、>　　as　　declare @new_time char(20)　　declare @new_item char(20)　　declare @new_mon int　　declare @new_rela char(20)<

37、;/p>　　declare @new_expl char(200)　　declare @old_time char(20)　　declare @old_item char(20)　　declare @old_mon int　　declare @

38、old_rela char(20)　　declare @old_expl char(200)　　select @old_time=收入日期 from deleted　　select @old_item=收入項(xiàng)目 from deleted　　select @old_mon=

39、收入金額 from deleted　　select @old_rela=收入人員 from deleted　　select @old_expl=收入說(shuō)明 from deleted　　select @new_time=收入日期 from inserted　　select @

40、new_item=收入項(xiàng)目 from inserted　　select @new_mon=收入金額 from inserted　　select @new_rela=收入人員 from inserted　　select @new_expl=收入說(shuō)明 from inserted

41、;　　update account set 錄入時(shí)間=@new_time where 錄入時(shí)間=@old_time　　update account set 收支金額=@new_mon where 收支金額=@old_mon　　update account set 收支項(xiàng)目=@new_item where 收支項(xiàng)目=@old_item

42、　　update account set 收支人員=@new_rela where 收支人員=@old_rela　　update account set 收支說(shuō)明=@new_expl where 收支說(shuō)明=@old_expl　　familyinfo表上　　create trigger up_f

43、amily　　on dbo.familyinfo　　for update　　as　　declare @new_rela char(20)　　declare @old_rela char(20)

44、　　select @new_rela=家庭人員 from inserted　　select @old_rela=家庭人員 from deleted　　update income set 收入人員=@new_rela where 收入人員=@old_rela　　update

45、 pay set 支出人員=@new_rela where 支出人員=@old_rela　　account表上　　create trigger de_account　　on account　　for delete

46、　　as　　exec countall　　create trigger in_account　　on account　　for insert 　　as&l

47、t;/b>　　exec countall　　create trigger up_account　　on account　　for update　　as<p&

48、gt;　　exec countall　　存儲(chǔ)過(guò)程　　CREATE proc countall　　as　　declare @sum_income int

49、declare @sum_pay int　　declare @sum_count int　　declare @old_income int　　declare @old_pay int　　declare @old_sum int

50、select @old_income=總收入,@old_pay=總支出,@old_sum=結(jié)余 from allaccount　　select @sum_income=sum(收支金額) from account where 收支類型='收入'　　select @sum_pay=sum(收支金額) from account where 收

51、支類型='支出'　　set @sum_count=@sum_income-@sum_pay　　update allaccount set 總收入=@sum_income where 總收入=@old_income　　update allaccount set 總支出=@sum_pay where

52、總支出=@old_pay　　update allaccount set 結(jié)余=@sum_count where 結(jié)余=@old_sum　　VB代碼　　'模塊　　Public cn As A

53、DODB.Connection　　Public rs As ADODB.Recordset　　'菜單　　Private Sub Command1_Click()　　菜單.Hide</

54、p>　　收入管理.Show　　End Sub　　Private Sub Command2_Click()　　菜單.Hide<

55、b>　　支出管理.Show　　End Sub　　Private Sub Command3_Click()　　菜單.Hide　　收支顯示.Show<

56、/b>　　End Sub　　Private Sub Command4_Click()　　菜單.Hide　　登錄.Show<

57、p>　　End Sub　　Private Sub Command5_Click()　　If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then　　End</b&

58、gt;　　End If　　End Sub　　Private Sub Command6_Click()　　菜單.Hide

59、;　　家庭人員.Show　　End Sub　　'登錄　　Private Sub Command1_Click()　　Set cn = New ADOD

60、B.Connection　　Set rs = New ADODB.Recordset　　cn.Open "dsn=keep_account"　　rs.Open "select * from userinfo where username='" & Text1

61、 & "'" & "and password='" & Text2 & "'", cn, adOpenStatic, adLockOptimistic　　If rs.RecordCount > 0 Then　　菜單.

62、Show　　登錄.Hide　　Else　　MsgBox "密碼錯(cuò)誤或用戶名不存在！請(qǐng)重新輸入。"　　a = a + 1 '密碼沒(méi)輸入一次a的數(shù)值就

63、增加1　　Text1.Text = ""　　Text2.Text = ""　　If a > 2 Then '三次輸入錯(cuò)誤,程序強(qiáng)制退出　　MsgBox "三次輸入錯(cuò)誤，強(qiáng)制退出！"

64、;　　End　　End If　　End If　　End Sub　　Private Sub Comm

65、and2_Click()　　登錄.Hide　　注冊(cè).Show　　End Sub　　Private Sub Command3_Click()

66、　　If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then　　End　　End If　　End Sub<

67、/b>　　'家庭人員　　Public Sub export()　　Text1.Text = rs.Fields("家庭人員")　　Text2.Text = rs.Fields("年齡&quo

68、t;)　　Text3.Text = rs.Fields("政治面貌")　　Text4.Text = rs.Fields("職業(yè)")　　Text5.Text = rs.Fields("說(shuō)明")

69、End Sub　　Public Sub import()　　rs.Fields("家庭人員") = Text1.Text　　rs.Fields("年齡") = Text2.Text　　rs.Fields(&quo

70、t;政治面貌") = Text3.Text　　rs.Fields("職業(yè)") = Text4.Text　　rs.Fields("說(shuō)明") = Text5.Text　　End Sub

71、Public Sub clear()　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Text4.Text = ""

72、　　Text5.Text = ""　　End Sub　　Private Sub Command1_Click()　　On Error GoTo flag　　rs.MoveFirst</p

73、>　　Call export　　Exit Sub　　flag:　　MsgBox "數(shù)據(jù)庫(kù)空或當(dāng)前已是第一條！"　　End Sub&

74、lt;/b>　　Private Sub Command10_Click()　　If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then　　End

75、;　　End If　　End Sub　　Private Sub Command2_Click()　　On Error GoTo flag　　rs.MovePrevious&

76、lt;p>　　If rs.BOF Then　　MsgBox "當(dāng)前已是第一條記錄！", , "提示"　　rs.MoveFirst　　Else　　Call export

77、　　End If　　Exit Sub　　flag:　　MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是第一條！"

78、;　　End Sub　　Private Sub Command3_Click()　　On Error GoTo flag　　rs.MoveNext　　If rs.EOF Then　　MsgBox "當(dāng)

79、前已是最后一條記錄！", , "提示"　　rs.MoveLast　　Else　　Call export　　End If<

80、;b>　　Exit Sub　　flag:　　MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"　　End Sub　　Private Sub Com

81、mand4_Click()　　On Error GoTo flag　　rs.MoveLast　　Call export　　Exit Sub　　flag:&

82、lt;/p>　　MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"　　End Sub　　Private Sub Command5_Click()　　On Error GoTo flag

83、;　　If rs.RecordCount > 0 Then　　rs.MoveLast　　rs.AddNew　　Call import　　rs.Update<p&

84、gt;　　Else　　rs.AddNew　　Call import　　rs.Update　　End If</p&g

85、t;　　收入管理.Combo3.AddItem (Text1.Text)　　收入管理.Hide　　支出管理.Combo3.AddItem (Text1.Text)　　支出管理.Hide<

86、p>　　'Call clear　　rs.Close　　rs.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimistic　　rs.MoveLast

87、　　Exit Sub　　flag:　　MsgBox "請(qǐng)檢查你輸入的格式是否正確."　　End Sub　　Privat

88、e Sub Command6_Click()　　If MsgBox("你確定要修改該條記錄？", vbOKCancel, "提示") = vbOK Then　　rs.Delete　　rs.Update

89、;　　rs.AddNew　　Call import　　rs.Update　　End If　　rs.

90、Close　　rs.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimistic　　End Sub　　Private Sub Command7_Click()&l

91、t;/p>　　On Error GoTo flag　　Dim a As Integer　　Dim b As Integer　　a = 收入管理.Combo3.ListCount - 1　　b = 支出管理.Combo3.ListCount -

92、1　　If MsgBox("你確定要?jiǎng)h除這一條記錄？", vbOKCancel, "提示") = vbOK Then　　rs.Delete　　rs.Update<p&g

93、t;　　rs.MovePrevious　　Call export　　收入管理.Combo3.RemoveItem a　　收入管理.Hide　　支出管理.Combo3.RemoveItem b&

94、lt;b>　　End If　　rs.Close　　rs.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimistic　　Exit Sub&

95、lt;/b>　　flag:　　MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或已刪除記錄！"　　End Sub　　Private Sub Command8_Click()

96、;　　On Error GoTo flag　　If Combo2.Text = "全部顯示" Then　　Set 家庭人員顯示.DataGrid1.DataSource = rs　　家庭人員顯示.Show　　El

97、se　　If Text6.Text = "" Then　　MsgBox "請(qǐng)輸入查找信息！"　　Else　　rs.Close</p

98、>　　rs.Open "select * from familyinfo where " & Combo2.Text & "='" & Text6 & "'", cn, adOpenStatic, adLockOptimistic '按用戶指定的方式,與用戶提供的信息查詢

99、　　If rs.RecordCount > 0 Then　　Call export　　Else　　MsgBox "對(duì)不起，記錄中沒(méi)有你要查找的項(xiàng)！"　　End If<

100、;/b>　　End If　　End If　　'rs.Close　　'rs.Open "select * from family

101、info", cn, adOpenStatic, adLockOptimistic　　Exit Sub　　flag:　　MsgBox "請(qǐng)檢查你輸入的格式是否正確:"

102、　　End Sub　　Private Sub Command9_Click()　　家庭人員.Hide　　菜單.Show　　End Sub&l

103、t;/b>　　Private Sub Form_Load()　　Set cn = New ADODB.Connection　　Set rs = New ADODB.Recordset　　cn.Open "dsn=keep_account"<

104、/p>　　rs.Open "select * from familyinfo", cn, adOpenStatic, adLockOptimistic　　Call export　　End Sub　　'收

105、入管理　　Private Sub Command1_Click()　　On Error GoTo flag　　rs.MoveFirst　　Call export　　Exit Sub</b

106、>　　flag:　　MsgBox "數(shù)據(jù)庫(kù)空或當(dāng)前已是第一條！"　　End Sub　　Private Sub Command10_Click()&

107、lt;p>　　If MsgBox("你確定要退出嗎？", vbOKCancel, "提示") = vbOK Then　　End　　End If　　End Sub</b&

108、gt;　　Private Sub Command2_Click()　　On Error GoTo flag　　rs.MovePrevious　　If rs.BOF Then　　MsgBox "當(dāng)前已是第一條記錄！&quo

109、t;, , "提示"　　rs.MoveFirst　　Else　　Call export　　End If　　Exit

110、Sub　　flag:　　MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是第一條！"　　End Sub　　Private Sub Command3_Click()<

111、;/p>　　On Error GoTo flag　　rs.MoveNext　　If rs.EOF Then　　MsgBox "當(dāng)前已是最后一條記錄！", , "提示"　　rs.MoveLast</p

112、>　　Else　　Call export　　End If　　Exit Sub　　flag:&

113、lt;/p>　　MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"　　End Sub　　Private Sub Command4_Click()　　On Error GoTo flag

114、;　　rs.MoveLast　　Call export　　Exit Sub　　flag:　　MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄或當(dāng)前已是最后一條記錄！"<

115、;p>　　End Sub　　Private Sub Command5_Click()　　On Error GoTo flag　　If rs.RecordCount > 0 Then　　rs.MoveLast</p&g

116、t;　　rs.AddNew　　Call import　　rs.Update　　Else　　rs.AddNew</

117、b>　　Call import　　rs.Update　　End If　　Call clear　　rs.Close

118、;　　rs.Open "select * from allaccount", cn, adOpenStatic, adLockOptimistic　　Label10.Caption = rs.Fields("總收入")　　Label11.Caption = rs.Field

119、s("總支出")　　Label12.Caption = rs.Fields("結(jié)余")　　rs.Close　　rs.Open "select * from income", cn, adOpenStatic, adL

120、ockOptimistic　　rs.MoveLast　　Exit Sub　　flag:　　MsgBox "請(qǐng)檢查你輸入的格式是否正確." & vbCrLf &

121、"收入金額為數(shù)字格式" & vbCrLf & "時(shí)期請(qǐng)按:(年)-(月)-(日)輸入" & vbCrLf & "其他為文本格式"　　End Sub　　Private Sub Command6_Click()

122、　　If MsgBox("你確定要修改該條記錄？", vbOKCancel, "提示") = vbOK Then　　rs.Delete　　rs.Update

123、　rs.AddNew　　Call import　　rs.Update　　End If　　rs.Close<p

124、>　　rs.Open "select * from allaccount", cn, adOpenStatic, adLockOptimistic　　Label10.Caption = rs.Fields("總收入")　　Label11.Caption = rs.Fields("總支出")

125、　　Label12.Caption = rs.Fields("結(jié)余")　　'rs.Close　　'rs.Open "select * from income", cn, adOpenStatic, adLockOptim

126、istic　　End Sub　　Private Sub Command7_Click()　　On Error GoTo flag　　If MsgBox("你確定要?jiǎng)h除這一條記錄？", vbOKCancel, &qu

127、ot;提示") = vbOK Then　　rs.Delete　　rs.Update　　rs.MovePrevious　　Call export&

128、lt;b>　　End If　　rs.Close　　rs.Open "select * from allaccount", cn, adOpenStatic, adLockOptimistic　　Label10.Caption =

129、rs.Fields("總收入")　　Label11.Caption = rs.Fields("總支出")　　Label12.Caption = rs.Fields("結(jié)余")　　'rs.Close</p

130、>　　'rs.Open "select * from income", cn, adOpenStatic, adLockOptimistic　　Exit Sub　　flag:　　Ms

131、gBox "數(shù)據(jù)庫(kù)無(wú)記錄或已刪除記錄！"　　End Sub　　Private Sub Command8_Click()　　On Error GoTo flag　　If Combo2.Text = "全部顯

132、示" Then　　Set 收入顯示.DataGrid1.DataSource = rs　　收入顯示.Show　　Else　　If Text6.Text = "" Th

133、en　　MsgBox "請(qǐng)輸入查找信息！"　　Else　　rs.Close　　rs.Open "select * from income where "

134、& Combo2.Text & "='" & Text6 & "'", cn, adOpenStatic, adLockOptimistic '按用戶指定的方式,與用戶提供的信息查詢　　If rs.RecordCount > 0 Then　　Call e

135、xport　　Else　　MsgBox "對(duì)不起，記錄中沒(méi)有你要查找的項(xiàng)！"　　End If　　End If<

136、;p>　　End If　　'rs.Close　　'rs.Open "select * from income", cn, adOpenStatic, adLockOptimistic<b&g

137、t;　　Exit Sub　　flag:　　MsgBox "請(qǐng)檢查你輸入的格式是否正確:" & vbCrLf & "日期請(qǐng)按(年)-(月)-(日)格式輸入."　　End Sub<

138、/b>　　Private Sub Command9_Click()　　收入管理.Hide　　菜單.Show　　End Sub&l

139、t;p>　　Private Sub Form_Load()　　Set cn = New ADODB.Connection　　Set rs = New ADODB.Recordset　　cn.Open "dsn=keep_account"　　rs.

140、Open "select * from allaccount", cn, adOpenStatic, adLockOptimistic　　Label10.Caption = rs.Fields("總收入")　　Label11.Caption = rs.Fields("總支出")

141、;　　Label12.Caption = rs.Fields("結(jié)余")　　rs.Close　　rs.Open "select * from income", cn, adOpenStatic, adLockOptimistic&l

142、t;p>　　Call export　　End Sub　　'收支顯示　　Private Sub Command1_Click()　　收支顯示.Hide</b&g

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載