數(shù)據(jù)庫課程設計報告-個人記賬系統(tǒng)

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

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

版權說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權，請進行舉報或認領

文檔簡介

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

2、序代碼………………………11　　六、課程設計總結……………………30　　七、存在的問題及不足………………30　　課程設計目的　　通過數(shù)據(jù)庫課程設計，培養(yǎng)學生數(shù)據(jù)庫設計的綜合能力。從需求分析和數(shù)據(jù)庫邏輯、物理設計，到功能分析和應用程序的

3、最終實現(xiàn)，讓學生親自動手參與一個具有一定規(guī)模的數(shù)據(jù)庫應用系統(tǒng)的設計和開發(fā)，真正理解和掌握數(shù)據(jù)庫設計和開發(fā)的思路和方法，并更好的理解和消化課本所學的知識，為今后的實際應用打下良好的基礎。　　系統(tǒng)設計　　本課程設計（個人記賬系統(tǒng)）是用VB+SQL設計完成的。在本系統(tǒng)里可以對家庭人員基本信息以及家庭賬目的收入支出進行簡單維

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

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

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

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

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

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

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

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=支出時間 from

14、 deleted　　select @new_item=支出項目 from deleted　　select @new_mon=支出金額 from deleted　　select @new_rela=支出人員 from deleted　　select @new_expl=支出

15、說明 from deleted　　delete from account where 錄入時間=@new_time and 收支金額=@new_mon and 收支項目=@new_item and 收支人員=@new_rela and 收支說明=@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=支出時間 from

18、inserted　　select @new_item=支出項目 from inserted　　select @new_mon=支出金額 from inserted　　select @new_rela=支出人員 from inserted　　select @new_expl

19、=支出說明 from inserted　　insert into account(錄入時間,收支類型,收支金額,收支項目,收支人員,收支說明)　　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=支出時間 from deleted　　select @old_item=支出項目 from deleted　　select @old_mon=支出金額 from deleted　　select @old_rela=支出人員 fro

24、m deleted　　select @old_expl=支出說明 from deleted　　select @new_time=支出時間 from inserted　　select @new_item=支出項目 from inserted　　select @new_mon

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

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

27、a　　update account set 收支說明=@new_expl where 收支說明=@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=收入項目 from deleted&l

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

31、間=@new_time and 收支金額=@new_mon and 收支項目=@new_item and 收支人員=@new_rela and 收支說明=@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=收入項目 from inserted　　select @new_mon=收入金額 fro

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

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=收入項目 from deleted　　select @old_mon=

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

40、new_item=收入項目 from inserted　　select @new_mon=收入金額 from inserted　　select @new_rela=收入人員 from inserted　　select @new_expl=收入說明 from inserted

41、;　　update account set 錄入時間=@new_time where 錄入時間=@old_time　　update account set 收支金額=@new_mon where 收支金額=@old_mon　　update account set 收支項目=@new_item where 收支項目=@old_item

42、　　update account set 收支人員=@new_rela where 收支人員=@old_rela　　update account set 收支說明=@new_expl where 收支說明=@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　　存儲過程　　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=結余 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 結余=@sum_count where 結余=@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 "密碼錯誤或用戶名不存在！請重新輸入。"　　a = a + 1 '密碼沒輸入一次a的數(shù)值就

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

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

65、and2_Click()　　登錄.Hide　　注冊.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("說明")

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("說明") = 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ù)庫空或當前已是第一條！"　　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 "當前已是第一條記錄！", , "提示"　　rs.MoveFirst　　Else　　Call export

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

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

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

80、;b>　　Exit Sub　　flag:　　MsgBox "數(shù)據(jù)庫無記錄或當前已是最后一條記錄！"　　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ù)庫無記錄或當前已是最后一條記錄！"　　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 "請檢查你輸入的格式是否正確."　　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("你確定要刪除這一條記錄？", 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ù)庫無記錄或已刪除記錄！"　　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 "請輸入查找信息！"　　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 "對不起，記錄中沒有你要查找的項！"　　End If<

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

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

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ù)庫空或當前已是第一條！"　　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 "當前已是第一條記錄！&quo

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

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

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

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

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

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

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("結余")　　rs.Close　　rs.Open "select * from income", cn, adOpenStatic, adL

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

121、"收入金額為數(shù)字格式" & vbCrLf & "時期請按:(年)-(月)-(日)輸入" & 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("結余")　　'rs.Close　　'rs.Open "select * from income", cn, adOpenStatic, adLockOptim

126、istic　　End Sub　　Private Sub Command7_Click()　　On Error GoTo flag　　If MsgBox("你確定要刪除這一條記錄？", 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("結余")　　'rs.Close</p

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

131、gBox "數(shù)據(jù)庫無記錄或已刪除記錄！"　　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 "請輸入查找信息！"　　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 "對不起，記錄中沒有你要查找的項！"　　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 "請檢查你輸入的格式是否正確:" & vbCrLf & "日期請按(年)-(月)-(日)格式輸入."　　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("結余")　　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

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

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

數(shù)據(jù)庫課程設計報告-個人記賬系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫課程設計報告-個人記賬系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載