2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題(含答案詳解+作文范文)_第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、<p><b>  畢業(yè)設(shè)計(jì)(論文)</b></p><p>  畢業(yè)設(shè)計(jì)題目: 婚 慶 公 司 管 理 系 統(tǒng) </p><p>  系 別: 計(jì) 算 機(jī) 工 程 </p><p>  專業(yè)班級(jí): 信 息 管 理 </p><p&g

2、t;  學(xué)生學(xué)號(hào): </p><p>  學(xué)生姓名: </p><p>  指導(dǎo)教師: </p><p>  2012年3月15日 </p><p><b>  中文摘要</b>&

3、lt;/p><p><b>  設(shè)計(jì)目標(biāo)</b></p><p>  本系統(tǒng)是根據(jù)中小企業(yè)的實(shí)際需求而開發(fā)的,完全能夠?qū)崿F(xiàn)企業(yè)對(duì)客戶的自動(dòng)化管理,通過(guò)本系統(tǒng)可以達(dá)到以下目標(biāo):</p><p>  系統(tǒng)運(yùn)行穩(wěn)定,安全可靠。</p><p>  界面設(shè)計(jì)美觀,人機(jī)交互界面友好。</p><p>  信息查

4、詢靈活、方便、快捷、準(zhǔn)確,數(shù)據(jù)存儲(chǔ)安全可靠。</p><p>  滿足鍵盤和鼠標(biāo)的雙重操作,完全支持回車鍵。</p><p>  采用多種方式查詢數(shù)據(jù)。</p><p>  對(duì)用戶輸入的數(shù)據(jù),系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn),盡可能排除人為的錯(cuò)誤。</p><p>  數(shù)據(jù)保密性強(qiáng),為每個(gè)用戶設(shè)置相應(yīng)的權(quán)限級(jí)別。</p><p>

5、;<b>  開發(fā)及運(yùn)行環(huán)境</b></p><p>  系統(tǒng)開發(fā)平臺(tái):Visual Basic 6.0</p><p>  運(yùn)行平臺(tái):Windows xp/Windows 2000/Windows 98</p><p><b>  數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>  本系統(tǒng)采用Visual F

6、oxPro 6.0設(shè)計(jì)數(shù)據(jù)庫(kù),本系統(tǒng)中包括如下數(shù)據(jù)表。下面分別給出數(shù)據(jù)表的結(jié)構(gòu)。</p><p><b>  數(shù)據(jù)表結(jié)構(gòu)</b></p><p><b> ?。?)信息表</b></p><p>  信息表主要保存商品的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表所示。</p><p><b>  采購(gòu)入

7、庫(kù)單</b></p><p><b> ?。?)商品信息表</b></p><p>  商品信息表主要記錄商品庫(kù)存的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表所示。</p><p><b>  商品信息表</b></p><p><b> ?。?)訂單錄入</b></p&g

8、t;<p>  訂單錄入主要記錄訂單的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表所示。</p><p><b>  訂單錄入</b></p><p><b>  目 錄</b></p><p>  第一章 需 求 分 析12</p><p>  根據(jù)市場(chǎng)的需求,要求系統(tǒng)具有以下功能:12<

9、;/p><p>  第二章 總 體 分 析13</p><p>  2.1系統(tǒng)主要功能13</p><p>  2.2系統(tǒng)功能結(jié)構(gòu)圖14</p><p>  第三章 主 要 功 能 模 塊 設(shè) 計(jì)15</p><p>  3.1婚慶公司管理系統(tǒng)窗體設(shè)計(jì)15</p><p>  3.2員工信

10、息窗體設(shè)計(jì)18</p><p>  3.3商品信息窗體設(shè)計(jì)20</p><p>  3.4收入登記窗體設(shè)計(jì)22</p><p>  3.5訂單錄入窗體設(shè)計(jì)24</p><p>  3.6采購(gòu)入庫(kù)單窗體設(shè)計(jì)27</p><p>  3.7訂單查詢窗體設(shè)計(jì)29</p><p>  3.8

11、公司人員統(tǒng)計(jì)窗體設(shè)計(jì)31</p><p>  3.9登錄窗體設(shè)計(jì)32</p><p>  第4章 總 結(jié)34</p><p>  第5章 致 謝35</p><p>  第6章 參 考 文 獻(xiàn)36</p><p><b>  前 言</b></p><p>

12、  婚慶公司是指能夠承接婚禮策劃實(shí)施的專業(yè)機(jī)構(gòu)。 婚慶全程策劃執(zhí)行,禮儀慶典,商業(yè)演出,開業(yè)慶典,周年慶典,剪彩儀式,開工儀式。開幕儀式,奠基儀式,入住儀式,樓盤開幕。</p><p>  婚慶公司的著重點(diǎn)在于婚禮本身,會(huì)場(chǎng)布置著重點(diǎn)在場(chǎng)景的布置,婚禮大于會(huì)場(chǎng)布置,一場(chǎng)好的婚 時(shí)尚個(gè)性婚禮禮,會(huì)場(chǎng)布置是為婚禮服務(wù)的,它是為了更好地表達(dá)婚禮而設(shè)置的一個(gè)元素,正如一場(chǎng)電影為表達(dá)主題而設(shè)置的周圍環(huán)境布置一樣,會(huì)場(chǎng)布置

13、是為做好一場(chǎng)婚禮服務(wù)的婚禮程序一般包括如下分工:策劃師、督導(dǎo)師(總管)、司儀/主持人、形象設(shè)計(jì)師、化妝師、攝影攝像師、AV制作師、花藝師、婚宴設(shè)計(jì)師、車隊(duì)、樂(lè)隊(duì)等。無(wú)論你是請(qǐng)婚慶公司還是自己策劃,都應(yīng)做到分工明確。 服務(wù)范圍包括:婚禮策劃、婚禮主持、現(xiàn)場(chǎng)督導(dǎo)、攝影攝像、新人造型、場(chǎng)地裝飾、燈光舞美等。</p><p>  近年來(lái),隨著人們生活水平的不斷改善,婚慶行業(yè)也是有了長(zhǎng)足的發(fā)展,業(yè)務(wù)量的劇增,業(yè)務(wù)流程的繁瑣

14、,以及客戶關(guān)系的復(fù)雜,使得婚慶業(yè)面臨嚴(yán)峻的考驗(yàn),這個(gè)時(shí)候婚慶公司管理系統(tǒng)的重要性便體現(xiàn)了出來(lái)!</p><p>  婚慶公司管理系統(tǒng)能夠使婚慶公司能夠很好的管理公司的各種業(yè)務(wù),合理的安排公司資源,提高公司員工的工作效率。</p><p>  本系統(tǒng)的優(yōu)點(diǎn)在于擁有較為簡(jiǎn)潔的界面,但卻有較為完善的功能。在本系統(tǒng)中,有管理層注重的收入管理,采購(gòu)管理,以及訂單查詢,也有員工在意的采購(gòu)管理,訂單查詢

15、,以及員工查詢,還有貨物的進(jìn)出管理等,能夠滿足企業(yè)的一般需求。</p><p><b>  第1章 需求分析</b></p><p>  根據(jù)市場(chǎng)的需求,要求系統(tǒng)具有以下功能:</p><p>  1,由于婚慶公司的普遍,用戶量大,所以要求本系統(tǒng)要要有足夠的容納性。</p><p>  2,具有數(shù)據(jù)備份及數(shù)據(jù)恢復(fù)的功能

16、,確保系統(tǒng)的安全性。</p><p>  3,方便的全方位的數(shù)據(jù)查詢。</p><p>  4,支持復(fù)雜細(xì)致的查詢功能。</p><p>  5,在相應(yīng)的權(quán)限下,可以刪除或修改數(shù)據(jù)。</p><p><b>  第2章 總體分析</b></p><p>  2.1 系統(tǒng)主要功能</p>

17、<p>  婚慶公司系統(tǒng)一個(gè)非常有特點(diǎn)的管理軟件,系統(tǒng)由婚慶公司信息狀況、添加、修改、刪除等部分組成</p><p><b>  基本數(shù)據(jù)模塊:</b></p><p>  基本數(shù)據(jù)模塊主要包括員工信息、商品信息、供貨單位。</p><p><b>  日常管理模塊:</b></p><p

18、>  日常管理模塊主要包括收入登記、收入總覽。</p><p><b>  庫(kù)存管理模塊:</b></p><p>  庫(kù)存管理模塊主要包括訂單錄入、采購(gòu)入庫(kù)單。</p><p><b>  統(tǒng)計(jì)查詢模塊:</b></p><p>  查詢統(tǒng)計(jì)模塊主要包括公司人員統(tǒng)計(jì)、庫(kù)存商品統(tǒng)計(jì)、訂單查詢、

19、倉(cāng)庫(kù)庫(kù)存查詢。</p><p>  2.2系統(tǒng)功能結(jié)構(gòu)圖</p><p>  第三章 主要功能模塊設(shè)計(jì)</p><p>  3.1 婚慶公司管理系統(tǒng)窗體設(shè)計(jì)</p><p>  婚慶公司管理系統(tǒng)界面是管理員要進(jìn)后臺(tái)的界面。</p><p>  婚慶公司管理系統(tǒng)界面的運(yùn)行結(jié)果如圖4-1所示。</p>&l

20、t;p><b>  圖4-1</b></p><p><b>  代碼設(shè)計(jì):</b></p><p>  Private Sub asdda_Click(Index As Integer)</p><p><b>  供貨單位.Show</b></p><p><b

21、>  End Sub</b></p><p>  Private Sub bvc_Click(Index As Integer)</p><p>  采購(gòu)入庫(kù)單.Show</p><p><b>  End Sub</b></p><p>  Private Sub ds_Click(Index As

22、Integer)</p><p><b>  員工信息.Show</b></p><p><b>  End Sub</b></p><p>  Private Sub find_xm_Click(Index As Integer)</p><p><b>  項(xiàng)目展示.Show</

23、b></p><p><b>  End Sub</b></p><p>  Private Sub find_zy_Click(Index As Integer)</p><p><b>  道具展示.Show</b></p><p><b>  End Sub</b>

24、</p><p>  Private Sub gfg_Click(Index As Integer)</p><p><b>  商品信息.Show</b></p><p><b>  End Sub</b></p><p>  Private Sub hghhgf_Click(Index As I

25、nteger)</p><p><b>  收入總覽.Show</b></p><p><b>  End Sub</b></p><p>  Private Sub hhfh_Click(Index As Integer)</p><p><b>  訂單錄入.Show</b>

26、;</p><p><b>  End Sub</b></p><p>  Private Sub hhhg_Click(Index As Integer)</p><p><b>  查詢2.Show</b></p><p><b>  End Sub</b></p&g

27、t;<p>  Private Sub kkk_Click(Index As Integer)</p><p><b>  查詢1.Show</b></p><p><b>  End Sub</b></p><p>  Private Sub mmm_Click(Index As Integer)</

28、p><p>  公司人員統(tǒng)計(jì).Show</p><p><b>  End Sub</b></p><p>  Private Sub oiuy_Click(Index As Integer)</p><p><b>  訂單查詢.Show</b></p><p><b&g

29、t;  End Sub</b></p><p>  Private Sub qwerp_Click(Index As Integer)</p><p>  銷售出庫(kù)單.Show</p><p><b>  End Sub</b></p><p>  Private Sub sdaa_Click(Index A

30、s Integer)</p><p><b>  支出登記.Show</b></p><p><b>  End Sub</b></p><p>  Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p&g

31、t;  Select Case Button.Index</p><p><b>  Case 1</b></p><p><b>  員工信息.Show</b></p><p><b>  Case 2</b></p><p><b>  收入登記.Show<

32、/b></p><p><b>  Case 3</b></p><p>  采購(gòu)入庫(kù)單.Show</p><p><b>  Case 4</b></p><p><b>  訂單查詢.Show</b></p><p><b>  Ca

33、se 5</b></p><p><b>  End</b></p><p>  End Select</p><p><b>  End Sub</b></p><p>  Private Sub xxx_Click(Index As Integer)</p><p

34、>  庫(kù)存商品統(tǒng)計(jì).Show</p><p><b>  End Sub</b></p><p>  Private Sub zxc_Click(Index As Integer)</p><p><b>  收入登記.Show</b></p><p><b>  End Sub&l

35、t;/b></p><p>  3.2 員工信息窗體設(shè)計(jì)</p><p>  員工信息窗體是管理員添加新員工的界面。</p><p>  員工信息的運(yùn)行結(jié)果如圖4-2所示。</p><p><b>  圖4-2</b></p><p><b>  代碼設(shè)計(jì):</b>&l

36、t;/p><p>  Private Sub Command1_Click(Index As Integer)</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()<

37、/p><p>  Adodc1.Recordset.AddNew</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackFiel

38、d As String, CallbackDate As Date)</p><p>  Text2 = DTPicker1.Value</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker1_Change()</p><p>  Text2 = DTPicke

39、r1.Value</p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p>  Adodc1.Recordset.AddNew</p><p><b>  End Sub</b></p><p> 

40、 3.3 商品信息窗體設(shè)計(jì)</p><p>  商品信息窗體是管理員添加商品的界面。</p><p>  商品信息窗體的運(yùn)行結(jié)果如圖4-3所示。</p><p><b>  圖4-3</b></p><p><b>  代碼設(shè)計(jì):</b></p><p>  Private

41、Sub Command1_Click(Index As Integer)</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  Adodc1.Rec

42、ordset.AddNew</p><p><b>  End Sub</b></p><p>  Private Sub DataGrid1_Click()</p><p>  LJ = Adodc2.Recordset.Fields("合同編號(hào)")</p><p>  Adodc1.RecordS

43、ource = "select * from 客戶輸入 where 合同編號(hào)='" & LJ & "'"</p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()

44、</p><p>  Adodc1.Recordset.AddNew</p><p><b>  End Sub</b></p><p>  3.4 收入登記窗體設(shè)計(jì)</p><p>  收入登記窗體是管理員管理收入的界面。</p><p>  收入登記窗體的運(yùn)行結(jié)果如圖4-4所示。</p&

45、gt;<p><b>  圖4-4</b></p><p><b>  代碼設(shè)計(jì):</b></p><p>  Private Sub Command1_Click(Index As Integer)</p><p><b>  Unload Me</b></p><

46、p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  Adodc2.Recordset.AddNew</p><p><b>  End Sub</b></p><p>  Private Sub DTPick

47、er1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)</p><p>  Text4 = DTPicker1.Value</p><p><b>  End Sub</b>&l

48、t;/p><p>  Private Sub DTPicker1_Change()</p><p>  Text4 = DTPicker1.Value</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode

49、 As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)</p><p>  Text1 = DTPicker2.Value</p><p><b>  End Sub</b></p><p>  Private Sub D

50、TPicker2_Change()</p><p>  Text1 = DTPicker2.Value</p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p>  Adodc2.Recordset.AddNew</p><

51、p><b>  End Sub</b></p><p>  3.5 訂單錄入窗體設(shè)計(jì)</p><p>  訂單錄入窗體是管理員記錄本日需要辦理婚慶的詳單界面</p><p>  收入登記窗體的運(yùn)行結(jié)果如圖4-5所示。</p><p><b>  圖4-5</b></p><

52、p><b>  代碼設(shè)計(jì):</b></p><p>  Private Sub Command1_Click(Index As Integer)</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p> 

53、 Private Sub Command2_Click()</p><p>  Adodc1.Recordset.AddNew</p><p>  Text1(1).Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text = "&quo

54、t;</p><p>  Text4.Text = ""</p><p>  Text1(2).Text = ""</p><p>  Text1(3).Text = ""</p><p>  Text1(5).Text = ""</p><p

55、>  Text1(6).Text = ""</p><p>  Text1(8).Text = ""</p><p>  Text1(9).Text = ""</p><p>  Text1(10).Text = ""</p><p>  Text1(11)

56、.Text = ""</p><p>  Text1(12).Text = ""</p><p>  Combo1(0).Text = ""</p><p>  Combo1(1).Text = ""</p><p>  Text1.SetFocus</p&

57、gt;<p><b>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>  C = MsgBox("確認(rèn)要保存該用戶嗎?", 33, "婚慶公司管理系統(tǒng)")</p><p>  If C = vbOK Then</

58、p><p>  Adodc1.Recordset.Update</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Inte

59、ger, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)</p><p>  Text2 = DTPicker1.Value</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker1

60、_Change()</p><p>  Text2 = DTPicker1.Value</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal

61、 CallbackField As String, CallbackDate As Date)</p><p>  Text3 = DTPicker2.Value</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker2_Change()</p><p>  Te

62、xt3 = DTPicker2.Value</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker3_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, Callback

63、Date As Date)</p><p>  Text4 = DTPicker3.Value</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker3_Change()</p><p>  Text4 = DTPicker3.Value</p>&

64、lt;p><b>  End Sub</b></p><p>  3.6 采購(gòu)入庫(kù)單窗體設(shè)計(jì)</p><p>  采購(gòu)入庫(kù)單窗體是管理員管理庫(kù)存商品的界面。</p><p>  采購(gòu)入庫(kù)單窗體的運(yùn)行結(jié)果如圖4-6所示。</p><p><b>  圖4-6</b></p><

65、;p><b>  代碼設(shè)計(jì):</b></p><p>  Private Sub Command1_Click(Index As Integer)</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>

66、  Private Sub Command2_Click()</p><p>  C = MsgBox("確認(rèn)要保存該用戶嗎?", 33, "婚慶公司管理系統(tǒng)")</p><p>  If C = vbOK Then</p><p>  A = Val(Text3.Text) * Val(Text4.Text)</p&g

67、t;<p>  Text5.Text = A</p><p>  Adodc1.Recordset.Update</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command3_Clic

68、k()</p><p>  Adodc1.Recordset.AddNew</p><p>  Text1(0).Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text = ""</p><p>  T

69、ext4.Text = ""</p><p>  Text1(1).Text = ""</p><p>  Text1(3).Text = ""</p><p>  Text5.Text = ""</p><p>  Text1(0).SetFocus</p

70、><p><b>  End Sub</b></p><p>  Private Sub DataGrid2_Click()</p><p>  L = Adodc2.Recordset.Fields("商品編號(hào)")</p><p>  Adodc1.RecordSource = "select

71、 * from 采購(gòu)入庫(kù)單 where 商品編號(hào)='" & L & "'"</p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub DataGrid3_Click()</p>&l

72、t;p>  J = Adodc3.Recordset.Fields("供貨單位")</p><p>  Adodc1.RecordSource = "select * from 采購(gòu)入庫(kù)單 where 供貨單位='" & J & "'"</p><p>  Adodc1.Refresh<

73、/p><p><b>  End Sub</b></p><p>  3.7 訂單查詢窗體設(shè)計(jì)</p><p>  訂單查詢單窗體是管理員查看訂單信息的界面。</p><p>  訂單查詢窗體的運(yùn)行結(jié)果如圖4-6所示。</p><p><b>  圖4-7</b></p&g

74、t;<p><b>  代碼設(shè)計(jì):</b></p><p>  Private Sub Command1_Click()</p><p>  IIf Text1 > "" Then</p><p>  Adodc1.RecordSource = "select * from 訂單錄入 where

75、 訂單號(hào) = '" & Text1 & "'" '設(shè)置數(shù)據(jù)源</p><p><b>  Else</b></p><p>  If Text2 > "" Then</p><p>  Adodc1.RecordSource = "sele

76、ct * from 訂單錄入 where 訂單日期 = '" & Text2 & "'"</p><p><b>  Else</b></p><p>  If Combo1 > "" Then</p><p>  Adodc1.RecordSource =

77、 "select * from 訂單錄入 where 生效 = '" & Combo1 & "'"</p><p><b>  Else</b></p><p>  If Combo1 > "" Then</p><p>  Adodc1.Reco

78、rdSource = "select * from 訂單錄入 where 失效 = '" & Combo1 & "'"</p><p><b>  Else</b></p><p>  Adodc1.RecordSource = "select * from 訂單錄入"

79、 '未指定配件</p><p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End If</b>&l

80、t;/p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p><b>  Unload Me</b></p><p><b>  En

81、d Sub</b></p><p>  Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)</p><p>  Text2 = DTPicker1.V

82、alue</p><p><b>  End Sub</b></p><p>  Private Sub DTPicker1_Change()</p><p>  Text2 = DTPicker1.Value</p><p><b>  End Sub</b></p><p&g

83、t;  3.8 公司人員統(tǒng)計(jì)窗體設(shè)計(jì)</p><p>  公司人員統(tǒng)計(jì)窗體是管理員查看和統(tǒng)計(jì)公司人員信息的界面。</p><p>  公司人員統(tǒng)計(jì)窗體的運(yùn)行結(jié)果如圖4-8所示。</p><p><b>  圖4-8</b></p><p><b>  代碼設(shè)計(jì):</b></p><

84、;p>  Private Sub Command1_Click()</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  Adodc1.Rec

85、ordSource = "select 性別,count(*) as 人數(shù) from 員工信息 group by 性別"</p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  3.9 登錄窗體設(shè)計(jì)</p><p>  登錄窗體是管理員

86、要進(jìn)入登錄主窗體的一個(gè)登錄界面。</p><p>  登錄窗體的運(yùn)行結(jié)果如圖4-9所示。</p><p><b>  圖4-9</b></p><p><b>  設(shè)計(jì)代碼:</b></p><p>  Private Sub Command1_Click()</p><p>

87、;  Dim MPassword As String</p><p>  Adodc1.RecordSource = "select * from 密碼表 where username ='" & Text1.Text & "'"</p><p>  Adodc1.Refresh</p><p>

88、;  If Adodc1.Recordset.RecordCount > 0 Then</p><p>  MPassword = Adodc1.Recordset.Fields("password")</p><p>  If Text2.Text = MPassword Then '判斷數(shù)據(jù)的密碼是否正確</p>

89、<p>  Name1 = Text1.Text</p><p>  婚慶公司管理系統(tǒng).Show</p><p>  'frm_Main.Show</p><p><b>  Unload Me</b></p><p><b>  Else</b></p><p

90、>  MsgBox "密碼不正確,請(qǐng)您確認(rèn)后重新輸入", , "提示信息"</p><p>  Text2.Text = ""</p><p>  Text2.SetFocus</p><p><b>  End If</b></p><p><b&

91、gt;  Else</b></p><p>  MsgBox "對(duì)不起 沒(méi)有此用戶的信息", , "提示信息"</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p><b> 

92、 End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p><b>  End</b></p><p><b>  End Sub</b></p>

93、;<p>  Private Sub Command3_Click()</p><p><b>  修改密碼.Show</b></p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p>  ' Ado

94、dc1.RecordSource = "select * from 密碼表"</p><p>  Adodc1.Refresh</p><p>  If Adodc1.Recordset.RecordCount > 0 Then</p><p>  ListView1.Enabled = True</p><p> 

95、 ListView1.ListItems.Clear</p><p><b>  i = 1</b></p><p>  Adodc1.Recordset.MoveFirst</p><p>  Do While Adodc1.Recordset.EOF = False</p><p>  Key = Adodc1.Re

96、cordset.Fields("username")</p><p>  Set itmX = ListView1.ListItems.Add(, , Key, i)</p><p><b>  i = i + 1</b></p><p>  Adodc1.Recordset.MoveNext</p><

97、p><b>  Loop</b></p><p><b>  Else</b></p><p>  ListView1.Enabled = False</p><p><b>  End If</b></p><p><b>  End Sub</b>

98、;</p><p>  Private Sub ListView1_Click()</p><p>  Text1.Text = ListView1.SelectedItem</p><p>  'Adodc1.Refresh</p><p>  Text2.SetFocus</p><p>  End Sub

99、 </p><p><b>  第4章 總 結(jié)</b></p><p>  2012年1月,我開始了我的畢業(yè)論文工作,時(shí)至今日,論文基本完成。從最初的茫然,到慢慢的進(jìn)入狀態(tài),再到思路逐漸的清晰,真?zhèn)€學(xué)做過(guò)程難以用語(yǔ)言來(lái)表達(dá)。經(jīng)歷的長(zhǎng)時(shí)間的奮戰(zhàn),緊張而又充實(shí)的畢業(yè)設(shè)計(jì)終于落下了帷幕。</p><p>  回想這段時(shí)間的經(jīng)歷和感受,我感慨萬(wàn)

100、千,在畢業(yè)設(shè)計(jì)的過(guò)程中,我擁有了無(wú)數(shù)難忘的回憶和收獲。</p><p>  2月初,在導(dǎo)師的交流討論中我定下了我的題目:"婚慶公司管理系統(tǒng)":當(dāng)題目定下來(lái)的時(shí)候,我便開始了著手收集工作,面對(duì)浩瀚的書海,當(dāng)時(shí)的我真是有些茫然,不知從何下手。在于同學(xué)交流和導(dǎo)師的輔導(dǎo)下,我終于是我對(duì)自己現(xiàn)在的工作方向有了掌握。為了收集資料我認(rèn)真準(zhǔn)備了一個(gè)筆記本,將在圖書館,網(wǎng)絡(luò)上查到的資料全部記錄在筆記本上,盡量的

101、讓資料完整,精確,大量。然后分類并及時(shí)和同學(xué),導(dǎo)師討論。</p><p>  3月初資料收集整合完畢以后我便開始了論文的寫作,在寫作過(guò)程中遇到困難時(shí)就及時(shí)和同學(xué)討論或者聯(lián)系導(dǎo)師,在大家?guī)椭吕щy一個(gè)一個(gè)的攻克了,論文也慢慢成形了。</p><p>  經(jīng)過(guò)三個(gè)月的奮斗!當(dāng)我終于完成了所有的打字,繪圖,排版,校對(duì)之后,我整個(gè)人都很累!但同時(shí)看著電腦屏幕上的畢業(yè)設(shè)計(jì)稿件我的心理是甜的,我覺(jué)得這

102、一切都是值得的。這次畢業(yè)論文是我的一次再學(xué)習(xí),在提高的過(guò)程。在論文中我充分的運(yùn)用了大學(xué)期間所學(xué)習(xí)到的知識(shí)。</p><p>  我不會(huì)忘記這難忘的幾個(gè)月時(shí)間。畢業(yè)論文的制作給了我難忘的回憶。在我沉浸書海查找資料的日子里,面對(duì)無(wú)數(shù)書本的羅列,最難忘的是我每次找到資料時(shí)的激動(dòng)和興奮;親手設(shè)計(jì)組織結(jié)構(gòu)圖的時(shí)間里,記憶最深刻的是每一步小小的思路實(shí)現(xiàn)時(shí)那幸福的心情;為了論文我趕稿到深夜,但是看著親手打出的一字一句,心理滿滿

103、的只有喜悅毫無(wú)疲憊、這段旅程看似荊棘密布,實(shí)則蘊(yùn)藏著無(wú)盡的寶藏。我從資料收集中,掌握了很多數(shù)據(jù)庫(kù),數(shù)據(jù)庫(kù)連接的知識(shí),讓我對(duì)我所學(xué)的知識(shí)有所鞏固和提高。在整個(gè)過(guò)程中,我學(xué)習(xí)到了新知識(shí),增長(zhǎng)了見(jiàn)識(shí)。在今后的日子里,我仍然要不斷地充實(shí)自己,爭(zhēng)取在所學(xué)的領(lǐng)域有所作為。</p><p>  腳踏實(shí)地,認(rèn)真嚴(yán)謹(jǐn),實(shí)事求是的學(xué)習(xí)態(tài)度,不怕困難,堅(jiān)持不懈,吃苦耐勞的精神是我在這次設(shè)計(jì)中最大的收益。我想這事一次一直的磨練,是對(duì)我實(shí)

104、際能力的一種提升,也會(huì)對(duì)我未來(lái)的學(xué)習(xí)和工作有很大的幫助。</p><p><b>  第5章 致 謝</b></p><p>  歷時(shí)幾個(gè)月的時(shí)間終于將這篇論文寫完,在論文的寫作過(guò)程中遇到了無(wú)數(shù)的困難和障礙,都在同學(xué)和老師的幫助下度過(guò)了。尤其要強(qiáng)烈感謝我的論文指導(dǎo)老師——xx老師,他對(duì)我進(jìn)行了無(wú)私的指導(dǎo)和幫助,不厭其煩的幫助進(jìn)行論文的修改和改進(jìn)。另外,在校圖書館查找

105、資料的時(shí)候,圖書館的老師也給我提供了很多方面的支持與幫助。在此向幫助和指導(dǎo)過(guò)我的各位老師表示最中心的感謝!感謝這篇論文所涉及到的各位學(xué)者。本文引用了數(shù)位學(xué)者的研究文獻(xiàn),如果沒(méi)有各位學(xué)者的研究成果的幫助和啟發(fā),我將很難完成本篇論文的寫作。在這次畢業(yè)設(shè)計(jì)中也使我們的同學(xué)關(guān)系更進(jìn)一步了,同學(xué)之間互相幫助,有什么不懂得就一起商量,聽聽不同的看法對(duì)我們更好的理解知識(shí),所以在這里非常感謝幫助我的同學(xué)。感謝我們尊敬稱之為“室長(zhǎng)”的——xx同學(xué)。在我寫

106、論文的過(guò)程中給予我了很多素材,還在論文的撰寫和排版等過(guò)程中提供熱情的幫助。由于我的學(xué)術(shù)水平有限,所寫論文難免有不足之處,懇請(qǐng)各位老師和學(xué)友批評(píng)和指正! </p><p>  最后,再一次忠心感謝幫助我完成設(shè)計(jì)和論文的老師和同學(xué),謝謝!</p><p><b>  第6章 參考文獻(xiàn)</b></p><p>  [1]胡勝利,動(dòng)態(tài)報(bào)表在VB6.0

107、中的設(shè)計(jì)和實(shí)現(xiàn)[J].江蘇技術(shù)師范學(xué)院學(xué)報(bào).2002,8</p><p>  [2]李占宣,數(shù)據(jù)庫(kù)中面向復(fù)雜應(yīng)用的查詢方法[J].電腦學(xué)習(xí).2009,Vol.4,No.10-12</p><p>  [3]劉銘徽,基于VB的圖書管理系統(tǒng)設(shè)計(jì)[J].湖北經(jīng)濟(jì)學(xué)院學(xué)報(bào)(人文社會(huì)科學(xué)版),2009,Vol.6(3),No.207-208</p><p>  [4]喬美娥,

108、ADO技術(shù)在VB系統(tǒng)開發(fā)中的高級(jí)應(yīng)用[J].中國(guó)科技信息.2008,Vol.24,No.84-85</p><p>  [5]楊艷,淺析,VB中三種數(shù)據(jù)訪問(wèn)技術(shù)[J].中小企業(yè)管理與科技(上旬刊),2009,Vol.4,No.244</p><p>  [6]郭鵬,VB中處理復(fù)雜查詢的方法[J].中國(guó)高新技術(shù)企業(yè).2008,Vol.17,No.149</p><p>

109、;  [7]姚小兵,VB中ADO技術(shù)的應(yīng)用[J].電腦與信息技術(shù).2005,Vol.13(4),No.22-24</p><p>  [8]孫濱,周揚(yáng),郭曉東.動(dòng)態(tài)鏈接庫(kù)技術(shù)及應(yīng)用[J].電腦編程技巧與維護(hù).2009,Vol.8上,No.35-38</p><p>  [9]戴經(jīng)國(guó),李運(yùn)智,謝東.關(guān)系數(shù)據(jù)庫(kù)的關(guān)鍵詞檢索[J].計(jì)算機(jī)系統(tǒng)應(yīng)用.2009,Vol.8,No.37-41</

溫馨提示

  • 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ì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論