【正文】
, ”提示:“End IfElseMsgBox ”沒(méi)有用戶名“, vbInformation, ”提示:“End IfEnd If End Sub退出:Private Sub Command3_Click()End End Sub(轉(zhuǎn)會(huì)界面)From2的主要功能是跳轉(zhuǎn)到他幾個(gè)功能界面所以他的控件也比較簡(jiǎn)單,只有4個(gè)mand按鈕。 Trim()amp。代碼:登錄:Private Sub Command1_Click()If(Trim(Text1)= “)ThenMsgBox ”沒(méi)有輸入“, vbExclamation, ”提示:“ Else = ”select * from mima“ ”name=39。將它們擺放到合適的位置。二、系統(tǒng)的主要功能實(shí)現(xiàn)及代碼(登陸界面)From1的主要功能是登錄,在窗口左邊部件處添加一個(gè)ADODC部件,使其鏈接數(shù)據(jù)庫(kù)。第一篇:報(bào)告書(shū)封面重慶航天職業(yè)技術(shù)學(xué)院VB程序開(kāi)發(fā)(實(shí)訓(xùn)報(bào)告)項(xiàng)目題目: 同學(xué)通訊錄專業(yè)班級(jí): 11級(jí)計(jì)算機(jī)網(wǎng)絡(luò)學(xué)生學(xué)號(hào): 11070013 學(xué)生姓名: 向舾 指導(dǎo)教師: 張揚(yáng)2013年 1 月 6 日前言“Visual Basic 程序設(shè)計(jì)”作為計(jì)算機(jī)專業(yè)的一門(mén)專業(yè)基礎(chǔ)主干課程,其目的是為了使學(xué)生建立面向?qū)ο蟮目梢暬幊趟枷?,培養(yǎng)學(xué)生邏輯編程能力,提高學(xué)生使用計(jì)算機(jī)的能力,從而培養(yǎng)學(xué)生認(rèn)識(shí)丶分析和解決的思路和能力。它作為主干課程具有以下幾點(diǎn)優(yōu)勢(shì):一是相對(duì)于C語(yǔ)言和Java等語(yǔ)言,學(xué)生學(xué)習(xí)起來(lái)難度相對(duì)較小,特別是對(duì)于高職類的計(jì)算機(jī)專業(yè)的學(xué)生:二是設(shè)計(jì)變得十分快捷丶方便,用戶無(wú)需大量的程序代碼,便可設(shè)計(jì)出適用的程序:三是就目前的現(xiàn)實(shí)來(lái)看,Visual Basic 有著廣泛的市場(chǎng)基礎(chǔ)的前景,比較適合初級(jí)編程者學(xué)習(xí)目錄......................................................4 ..................................4(登陸界面)..................................................4(轉(zhuǎn)會(huì)界面)..................................................5(查詢界面)..................................................6(刪除界面)..................................................7(添加界面)..................................................8..................................................10(1)From1(登陸界面)..............................................10(2)From2(轉(zhuǎn)換界面)..............................................10(3)From3(查詢界面)..............................................11(4)From4(刪除界面)..............................................11(5)From5(添加界面)..............................................12 ............................................13 ....................................................................14一、系統(tǒng)功能與設(shè)計(jì)本系統(tǒng)是一款通訊錄系統(tǒng),它主要功能是提供給用戶高效的查詢、添加和刪除能力,系統(tǒng)本身也比較簡(jiǎn)單,用戶的在使用時(shí)比較容易上手,本系統(tǒng)有一個(gè)登陸界面和4個(gè)分界面,在登錄界面登錄你的帳號(hào)和密碼就可以看到你所需要的功能。在窗體上分別添加一個(gè)ADODC部件、兩個(gè)text窗口、兩個(gè)mand按鈕、兩個(gè)Label窗口和一個(gè)Picture圖片窗口。在輸入代碼之后如果沒(méi)有輸入帳號(hào),系統(tǒng)就會(huì)提示“沒(méi)有輸入”,在輸入后如果帳號(hào)或密碼錯(cuò)誤就會(huì)被提示錯(cuò)誤?!?amp。 ”39。代碼:查詢:Private Sub Command2_Click() End Sub刪除:Private Sub Command3_Click() End Sub添加:Private Sub Command4_Click() End Sub退出:Private Sub Command1_Click()End End Sub(查詢界面)From3的功能主要是查詢,在窗體上添加一個(gè)ADODC部件并與數(shù)據(jù)庫(kù)連接,再在上面添加需要的部件,使其效果完美。代碼:查詢姓名: Private Sub Option1_Click()If Text3 = ”“ ThenMsgBox ”請(qǐng)輸入姓名“ Else ”sname=39。 Trim(Text3)amp?!?End If End Sub查詢電話: Private Sub Option2_Click()If Text3 = ”“ ThenMsgBox ”請(qǐng)輸入電話“ Else ”telephone=39。 Trim(Text3)amp?!?End If End Sub翻動(dòng)上下:Private Sub Command3_Click() = True If Then = False End If End SubPrivate Sub Command4_Click() = True If Then = False End If End Sub返回:Private Sub Command2_Click() End Sub(刪除界面)From4的主要功能是刪除通訊錄中的號(hào)碼,所以在窗體中添加了DataGrid部件并與數(shù)據(jù)庫(kù)連接,用戶可以清楚的看到通訊錄中有那些號(hào)碼,并可將不需要的號(hào)碼刪除。代碼:添加:Private Sub Command2_Click()If Trim()= ”“ ThenMsgBox ”請(qǐng)輸入姓名