【文章內(nèi)容簡介】 ”打開Visdata窗體，表，表字段定義如下：表名字段名字段長度字段類型 備注登錄dengluName6text用戶名Passwd8text口令學(xué)生成績表chengjSno6number學(xué)號Name8text姓名Sex2text性別Gaoshu3number高數(shù)english3number英語Jsj3number計(jì)算機(jī)學(xué)生基本表editSno6number學(xué)號Name8text姓名Sex2text性別Like50text愛好Tel10number電話Addr50text地址VB工程部分：，在此窗體上加入相應(yīng)的控件；；；“添加”按鈕中進(jìn)行判斷是對哪個(gè)表操作，然后給出輸入對話框，判斷是否輸入有效值，若值無效給出提示；若有效則判斷是否已經(jīng)存在，如果已經(jīng)存在給出存在在提示，如果不存在則插入到對應(yīng)的表中，則時(shí)更新顯示?！安樵儭卑粹o中判斷對哪一個(gè)表操作，把對應(yīng)表的信息查詢出來。“刪除”按鈕時(shí)，系統(tǒng)會(huì)判斷是否已經(jīng)選中要?jiǎng)h除的項(xiàng)；若沒有選中要?jiǎng)h除的項(xiàng)系統(tǒng)不做任何事，若已經(jīng)選中則給出是否刪除的確認(rèn)提示，確認(rèn)則真正從表中刪除，否則不刪除?！安樵儭卑粹o中判斷對哪一個(gè)表操作，把對應(yīng)表的信息查詢出來。 登錄窗體的制作 模塊功能 :此模塊主要用于驗(yàn)證用戶登錄身份。當(dāng)用戶輸入正確的用戶名和密碼后，系統(tǒng)允許用戶進(jìn)行系統(tǒng)的相應(yīng)權(quán)限的其他操作；如果輸入的用戶名和密碼有誤，系統(tǒng)將給出模提示，并且不允許其進(jìn)行進(jìn)一步的操作。表中定義：name 和passwd兩個(gè)字段，分別賦值為（xu,admin.）然后運(yùn)行VB程序部分，添加以下控件：　　在VB工程設(shè)計(jì)中的denglu設(shè)計(jì)后的格式如下： Private Sub Command1_Click() /*單擊命令按鈕1*/Dim aa As String, bb As String /*定義字符型變量aa、bb*/aa = Trim() /*將Text1框中Text屬性的賦值給aa */bb = Trim() /*將Text2框中Text屬性的賦值給bb*/If = And = Then /*如果Text1和Text2為空 */MsgBox 姓名或密碼不可為空, 64, 提示 /*提示消息框，姓名或密碼不可為空*/ /*將焦點(diǎn)設(shè)置在Text1框中*/ElseIf = Or = Then /*如果Text1或Text2為空 */MsgBox 姓名或密碼錯(cuò)誤, 64, 提示 /*提示消息框，姓名或密碼錯(cuò)誤*/ = /*將Text1框中Text屬性為空*/ = /*將Text2框中Text屬性為空*/ /*將焦點(diǎn)設(shè)置在Text1框中*/Else = select * from denglu where name=39。 amp。 aa amp。 39。and passwd=39。 amp。 bb amp。 39。 /*用Data數(shù)據(jù)控件和登錄表進(jìn)行數(shù)據(jù)鏈接*/If 0 Then /*若數(shù)據(jù)庫不為0*/Unload Me /*顯示main主窗體*/ElseMsgBox 姓名或密碼錯(cuò)誤, 64, 提示 /*提示消息框，姓名*/ = / *將Text1框中Text屬性為空*/ = /*將Text2框中Text屬性為空*/ /*將焦點(diǎn)設(shè)置在Text1框中*/End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() = amp。 \ /*用Data1數(shù)據(jù)控件自動(dòng)獲取路徑*/End Sub 系統(tǒng)主窗體的制作 添加系統(tǒng)菜單在VB工程設(shè)計(jì)環(huán)境的工具欄中單擊“菜單編輯器”，在出現(xiàn)的“菜單編輯器”對話框中，輸入顯示菜單的標(biāo)題和名稱（一般是以mnu開頭的英文，主要是用來事件編程的）添加完一個(gè)后，可以單擊“下一個(gè)”按鈕，進(jìn)行下一個(gè)菜單項(xiàng)的輸入，顯示標(biāo)題和名稱是已經(jīng)確定好且有一定實(shí)際意義。若某個(gè)菜單項(xiàng)是前一項(xiàng)的下一級菜單，可單擊向右的箭頭。加入完畢后，單擊“確定”按鈕完成。當(dāng)然可以在以后的設(shè)計(jì)過程中再加新菜單。創(chuàng)建的主窗體如下：編寫以下代碼：Private Sub bj1_Click() /*單擊學(xué)生基本情況主菜單*/ /*學(xué)生基本情況表對應(yīng)的窗體顯示*/End SubPrivate Sub bz_Click() /*單擊幫助主菜單*/ /*幫助窗體顯示*/End SubPrivate Sub cj_Click() /*單擊學(xué)生基本成績主菜單*/ /*學(xué)生基本成績表對應(yīng)的窗體顯示*/End SubPrivate Sub cx_Click(Index As Integer) /*單擊查詢子菜單*/ /*Find 主窗體顯示*/End SubPrivate Sub cx1_Click(Index As Integer)End SubPrivate Sub ll_Click() /*單擊通訊錄中的瀏覽子菜單*/ /*review主窗體顯示 */End SubPrivate Sub sc_Click(Index As Integer) /*單擊學(xué)生基本成績中的子菜單*/ /*del主窗體顯示*/End SubPrivate Sub sc1_Click(Index As Integer) /*單擊學(xué)生基本情況主菜單*/ /* dele主窗體顯示*/End SubPrivate Sub tc_Click() /*單擊主菜單中的退出子菜單*/aa = MsgBox(是否真的退出！, 36, 提示) /*彈出消息框，是否真的退出*/If aa = 6 ThenEndElse /*主窗體顯示*/End IfEnd SubPrivate Sub tx_Click() /*單擊通訊錄主菜單*/ /* tongx主窗體顯示*/End SubPrivate Sub tj_Click(Index As Integer) /*單擊學(xué)生成績表是添加子菜單*/ /* tianj主窗體顯示 */End SubPrivate Sub tj1_Click(Index As Integer) /*單擊學(xué)生基本情況表是添加子菜單*/ /* appe主窗體顯示*/End SubPrivate Sub xg_Click(Index As Integer)/*單擊學(xué)生基本情況表中的修改子菜單*/ /* edit主窗體顯示*/End SubPrivate Sub xg1_Click(Index As Integer)/*單擊學(xué)生基本成績表中的修改子菜單*/ /*chengj主窗體顯示*/End SubPrivate Sub zx_Click() /*單擊系統(tǒng)主菜單中的注銷子菜單*/aa = MsgBox(是否真的注銷！, 36, 提示) /*彈出消息框，提示是否真的注銷*/If aa = 6 ThenUnload Me /*如果注銷，返回登錄主窗體*/Else /*否則，返回主窗體 */End If 基本模塊表操作實(shí)現(xiàn) 學(xué)生基本表應(yīng)有的字段：學(xué)號、姓名、性別、愛好、電話、住址、高數(shù)、英語、計(jì)算機(jī)。分析： 學(xué)生錄入時(shí)，有學(xué)生基本情況表各學(xué)生成績表。這兩個(gè)表中的公共字段有學(xué)號、姓名。在這兩個(gè)表中以學(xué)號為關(guān)鍵字，過維護(hù)這兩個(gè)基本的表來實(shí)現(xiàn)（此操作的實(shí)現(xiàn)為以后在開發(fā)中碰到同樣的事情提供解決方案）。因?yàn)閷W(xué)生表的這兩項(xiàng)信息來學(xué)生基本表和學(xué)生成績表?；颈砭S護(hù)實(shí)現(xiàn)原則：正常情況下，我們應(yīng)該對每一項(xiàng)信息(對應(yīng)一個(gè)數(shù)據(jù)庫中的表)都制作一個(gè)專用的窗體，進(jìn)行此項(xiàng)信息的維護(hù)。鑒于這兩項(xiàng)信息有其相似性都是字符型字段，為了簡單起間，我們把這兩項(xiàng)信息的維護(hù)可以制作于一個(gè)窗體中實(shí)現(xiàn)。數(shù)據(jù)庫表及字段的命名原則：正常情況下，數(shù)據(jù)庫名稱、數(shù)據(jù)表名稱、字段名稱，以及其他數(shù)據(jù)庫對象的名稱都應(yīng)該是英文的，因?yàn)橛⑽牡挠欣谔岣邎?zhí)行效率，也有利于提高編程的速度。所以表的名稱和字段的名稱都會(huì)是英文單詞或漢語拼音，這樣有利和VB工程中的窗體名稱、控件名稱等對應(yīng)上，提高程序可讀性。實(shí)現(xiàn)思想 ：1． 學(xué)生基本表實(shí)現(xiàn)添加用于基本表維護(hù)的窗體：單擊“工程”菜單下的“添加窗體”菜單項(xiàng)，單擊“打開”按鈕，就會(huì)在當(dāng)前工程中加入一個(gè)名為Form1的窗體。 設(shè)置窗體屬性：名