版權(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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 畢業(yè)設(shè)計(jì)---公司人事管理系統(tǒng)
- 某公司人員管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)(論文):快遞公司管理系統(tǒng)
- 公司人事管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)---公司人事管理系統(tǒng)
- 食品公司管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)---公司資源共享管理系統(tǒng)
- 畢業(yè)設(shè)計(jì)---vf公司人事管理系統(tǒng)
- 畢業(yè)設(shè)計(jì)---公司辦公信息管理系統(tǒng)
- 畢業(yè)設(shè)計(jì)--畢業(yè)設(shè)計(jì)選題管理系統(tǒng)
- 畢業(yè)設(shè)計(jì)論文 畢業(yè)設(shè)計(jì)管理系統(tǒng)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)--畢業(yè)設(shè)計(jì)選題管理系統(tǒng)
- 畢業(yè)設(shè)計(jì) 畢業(yè)設(shè)計(jì)(論文)管理系統(tǒng)設(shè)計(jì)
- 貿(mào)易公司信息管理系統(tǒng)設(shè)計(jì)畢業(yè)設(shè)計(jì)
- 公司信息管理系統(tǒng)畢業(yè)設(shè)計(jì)開題報(bào)告
- 公司進(jìn)銷存管理系統(tǒng)畢業(yè)設(shè)計(jì)
- vf公司人事管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 畢業(yè)設(shè)計(jì)管理系統(tǒng)論文畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)---畢業(yè)設(shè)計(jì)課題綜合管理系統(tǒng)
- 畢業(yè)設(shè)計(jì)---畢業(yè)設(shè)計(jì)課題綜合管理系統(tǒng)
評(píng)論
0/150
提交評(píng)論