第一篇：VB操作wincc腳本心得

Vbs 操作wincc畫面腳本總結(jié)

一： 不使用變量單純的操作界面

1.操作某個(gè)畫面中控件的屬性 如 Home1.Pdl（總窗體）下的 畫面窗口2（畫面窗口）

Sub OnClick(ByVal Item)

Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems(“圓1”)objCircle.Radius = 60

Set screenname=HMIRuntime.Screens(“Home1”)

//獲取要操作的窗體

Set pwname=screenname.ScreenItems(“畫面窗口2”)

//獲取要操作的控件，這里填入你要操作的控件名

MsgBox(objCircle.Radius)

//輸出圓的半徑

MsgBox(pwname.Picturename)

//輸出當(dāng)前畫面窗口2的名字 End Sub

注意

當(dāng)調(diào)用某窗體下的某控件的某個(gè)屬性時(shí),需要聲明兩個(gè)對(duì)象，一個(gè)接納這個(gè)控件，一個(gè)接納值

例如

Dim object Dim value Set object =HMIRuntime.Screens(“Home1”).ScreenItems(“畫面窗口2”)Set value=object.picturename

2.更改畫面窗口的對(duì)象

Sub OnClick(Byval Item)

Dim opObject Set opObject=HMIRuntime.Screens(“Home1”).ScreenItems(“畫面窗口2”)opObject.PictureName=“Page1.Pdl” End Sub 3.設(shè)置文本

Set titleTxt=HMIRuntime.Screens(“Home1”).ScreenItems(“靜態(tài)文本2”)titleTxt.Text =titleTxt.Text+“EF” //獲取文本的值并追加字符

4.vb 字符串函數(shù)

VB的字符串截取函數(shù)有Left（字符串，n），返回字符串前N個(gè)字符；Mid（字符串，p，n），從第p個(gè)字符開始，向后截取N個(gè)字符；right（字符串，n），返回字符串的最后n個(gè)字符。

獲取下標(biāo)

VB中的InStr()函數(shù)與InStrRev()函數(shù)：

都是在主字符串當(dāng)中搜尋尋找子字符串，返回找到的子字符串在主字符串中出現(xiàn)的位置； 不同在于；

InStr()函數(shù)，從左開始向右尋找，InStrRev()函數(shù)，從右開始向左尋找。

截取 right 和left

獲取長(zhǎng)度 Len 二：操作變量

1.Dim objTag Dim AText Set objTag = HMIRuntime.Tags(“a”)

//獲取變量 objTag.Read

//執(zhí)行讀取

Set AText=ScreenItems(“靜態(tài)文本2”)//獲取控件 AText.Text=objTag.Value //給控件寫入值 objTag.Value =100 //給目標(biāo)變量寫入值 objTag.Write

//執(zhí)行寫入

2.vb 中 Switch 語句的變體

Dim objTag Dim AText Set objTag = HMIRuntime.Tags(“a”)

//獲取內(nèi)部變量a的值

objTag.Read

//必須要有這一步，這是讀取操作，同理如果改寫值必須要有ogjTag.write Set AText=ScreenItems(“靜態(tài)文本2”)

Select Case objTag.Value Case 1 AText.Text=“a” Case 2 AText.Text=“b” Case Else AText.Text=objTag.Value End Select

三．彈出對(duì)話框

設(shè)置

buttons 參數(shù)可以有以下值：

常數(shù) 值 描述

vbOKOnly 0 只顯示確定按鈕。vbOKCancel 1 顯示確定和取消按鈕。

vbAbortRetryIgnore 2 顯示放棄、重試和忽略按鈕。vbYesNoCancel 3 顯示是、否和取消按鈕。vbYesNo 4 顯示是和否按鈕。

vbRetryCancel 5 顯示重試和取消按鈕。vbCritical 16 顯示臨界信息圖標(biāo)。vbQuestion 32 顯示警告查詢圖標(biāo)。vbExclamation 48 顯示警告消息圖標(biāo)。vbInformation 64 顯示信息消息圖標(biāo)。vbDefaultButton1 0 第一個(gè)按鈕為默認(rèn)按鈕。vbDefaultButton2 256 第二個(gè)按鈕為默認(rèn)按鈕。vbDefaultButton3 512 第三個(gè)按鈕為默認(rèn)按鈕。vbDefaultButton4 768 第四個(gè)按鈕為默認(rèn)按鈕。

vbApplicationModal 0 應(yīng)用程序模式：用戶必須響應(yīng)消息框才能繼續(xù)在當(dāng)前應(yīng)用程序中工作。

vbSystemModal 4096 系統(tǒng)模式：在用戶響應(yīng)消息框前，所有應(yīng)用程序都被掛起。

第一組值(0-5)用于描述對(duì)話框中顯示的按鈕類型與數(shù)目；第二組值(16, 32, 48, 64)用于描述圖標(biāo)的樣式；第三組值(0, 256, 512)用于確定默認(rèn)按鈕；而第四組值(0, 4096)則決定消息框的樣式。在將這些數(shù)字相加以生成 buttons 參數(shù)值時(shí)，只能從每組值中取用一個(gè)數(shù)字。返回值

MsgBox 函數(shù)有以下返回值：

常數(shù) 值 按鈕 vbOK 1 確定 vbCancel 2 取消 vbAbort 3 放棄 vbRetry 4 重試 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否

下面的例子演示了 MsgBox 函數(shù)的用法：

Dim MyVar

MyVar = MsgBox(“Hello World!”, 65, “MsgBox Example”)' MyVar contains either 1 or 2, depending on which button is clicked.你要求是有是和否兩個(gè)按鈕那么MyVar = MsgBox(“Hello World!”, 65, “MsgBox Example”)中的65改成4就可以了！

vbs腳本中：

if msgbox(“確實(shí)要啟動(dòng)設(shè)備嗎？”，4，“警告”)=6 then

hmiruntime.tags(“tag1”).write 1

end if

第二篇：VB心得（范文模版）

VB心得

這學(xué)期選修了VB這門學(xué)科，想從學(xué)習(xí)中對(duì)計(jì)算機(jī)有更深刻的認(rèn)知，也對(duì)我大學(xué)中的2級(jí)考試奠定基礎(chǔ)。那么談?wù)勥@學(xué)期的學(xué)習(xí)中對(duì)vb的認(rèn)知和心得體會(huì)。

在日常生活中我們經(jīng)常會(huì)有這樣的體會(huì)，就是去做自己感興趣的事情時(shí)，時(shí)間好像一直不夠用，而從事自己不喜歡干的事情時(shí)候，好像度日如年一般。我剛接觸VB是第一次上選修課，老師給我們講課，我們一人一臺(tái)機(jī)對(duì)著電腦屏幕看老師的課件，上面全是VB的專有名詞，一個(gè)都不懂，老師叫我們實(shí)操，我對(duì)著VB軟件系統(tǒng)無從下手。之后就去圖書館查閱了有關(guān)VB教程的書，決心自學(xué)。但每次看到一行行枯燥的程序代碼眼皮不自覺地就要打架。后來幾乎是“頭懸梁，錐刺股”才得入門?，F(xiàn)在想來，這種入門大可不必。嚴(yán)謹(jǐn)求實(shí)的態(tài)度是非常正確的，但既然面對(duì)初學(xué)者，也許換一種思路更貼切。少一些隱晦，多一些直觀；少一些專業(yè)術(shù)語，多一些例子。

慢慢地，我了解到VB的特點(diǎn)，ＶＢ是在原來的Ｂasic語言基礎(chǔ)上發(fā)展而來的．Ｖisual指的是可視的圖形用戶界面開發(fā)方法.不需編寫大量代碼去描述界面元素的外觀和位置,只要把預(yù)先建立的對(duì)象添加到屏幕上的某點(diǎn)即可.如果使用者諸多PAINT之類的繪圖程序,則實(shí)際上已經(jīng)掌握了創(chuàng)建用戶界面的必要技巧.BASIC指的是B語言,一種在計(jì)算機(jī)技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言之一.VB在原來BASIC語言的基礎(chǔ)上進(jìn)一步發(fā)展至今包含了數(shù)百條語句,函數(shù)及關(guān)鍵詞,其中很多和WINDOWS GUI有直接關(guān)系,VB不僅是可視語言,而且是面向?qū)ο蟮木幊陶Z言.其特點(diǎn)是概念多,實(shí)踐性強(qiáng),涉及面廣.之后,了解到一些基本的概念,含義.例如類,就是創(chuàng)建對(duì)象實(shí)例的模板包含了創(chuàng)建的屬性描述和行為特征的定義.而此中的對(duì)象又是類的一個(gè)實(shí)例,繼承了類的屬性,方法,而VB中長(zhǎng)用的對(duì)象有窗體,控件等.但我們?cè)诮⒅氨仨毲宄?duì)象的三要素:屬性,方法和事件.而建立程序的步驟大致可分為:(1)啟動(dòng)程序,裝載和顯示窗體.(2)窗體等待事件的發(fā)生.(3)事件發(fā)生時(shí),執(zhí)行對(duì)應(yīng)的事件發(fā)生過程.(4)再重復(fù)的過程。(5)最后直接遇到“END”結(jié)束語句結(jié)束程序的運(yùn)行或按“結(jié)束”強(qiáng)行停止程序的運(yùn)行.再用VB創(chuàng)建一個(gè)應(yīng)用程序,第一步驟是創(chuàng)建窗體,它是用戶與應(yīng)用程序進(jìn)行交互操作的可視部分,窗體是創(chuàng)建界面的基本構(gòu)造模塊,也是創(chuàng)建應(yīng)用程序所使用的對(duì)象.而后必要設(shè)置窗體的屬性,從而構(gòu)出窗體的外觀,設(shè)置好的窗體,窗體就作為對(duì)象,能夠?qū)ζ涠x的事件作出響應(yīng),這也是所謂的窗體事件,而窗體事件又包括窗體本身事件,鍵盤事件和鼠標(biāo)事件.在了解窗體基本知識(shí)就還應(yīng)了解VB的語言基礎(chǔ),其中包括了代碼模塊(窗體模塊,標(biāo)準(zhǔn)模塊,類模塊),注釋,分行和續(xù)行,數(shù)據(jù)類節(jié)(字節(jié)型,邏輯型,數(shù)值型,日期型),變量與常數(shù),運(yùn)算符與表達(dá)式,數(shù)組,控制結(jié)構(gòu),子過程和函數(shù).同時(shí),為了編程,我們還應(yīng)培養(yǎng)良好的編程習(xí)慣,首先是對(duì)象,變量及過程的命名約定,然結(jié)構(gòu)化編碼約定.學(xué)習(xí)VB程序設(shè)計(jì)后,增加對(duì)此的認(rèn)識(shí),深入學(xué)習(xí)VB程序就可掌握新的軟件,新的編程環(huán)境,學(xué)習(xí)此課程,讓我學(xué)會(huì)使用開發(fā)環(huán)境,開發(fā)工具的方法，并鍛煉我的意志，令我多一門技術(shù)?？偠灾?，這學(xué)期的VB課程讓我收獲了很多，為我下學(xué)期的計(jì)算機(jī)2級(jí)考試打下了基礎(chǔ)。

第三篇：VB心得

在這次VB課程設(shè)計(jì)過程中，我最大的收獲就是有二，一是與其臨淵羨魚，不如退而結(jié)網(wǎng)，無論什么事情，一定要去做，困難在你的勇氣和毅力下是抬不了頭的。二是深刻地認(rèn)識(shí)到，做事情一定要有耐心，無論遇到什么困難，都不能心煩，否則就很難把事情好。一開始，我以為三天就可以把課程設(shè)計(jì)搞好，誰知道我們搞了差不多一個(gè)星期。界面的設(shè)計(jì)倒是沒什么問題，最有問題的就是編程了，編程是非常耗時(shí)和精力的。這一點(diǎn)我是深有體會(huì)的。有一次我的代碼有點(diǎn)錯(cuò)誤，但我看了一遍又一遍，還是找不出問題所在，最后發(fā)現(xiàn)就是少了一個(gè)空格，就是一個(gè)空格花了我整整一個(gè)上午。唉！難怪我經(jīng)常聽到說，編程實(shí)在是太麻煩了，看到頭都大了，看到就心煩了。就是一個(gè)小小的問題就讓你花去一個(gè)早上的時(shí)間。所以我們無論做任何事情都要細(xì)心和耐心。無論做什么事情，我認(rèn)為最重要的是在做事過程中學(xué)到東西，吸取教訓(xùn)。

這是我第一次系統(tǒng)的、完整的接觸到軟件設(shè)計(jì)的全過程。在這次課程設(shè)計(jì)中我得到了鍛煉，也有很多體會(huì)。以前僅僅是對(duì)軟件開發(fā)有一個(gè)大體的印象，通過這次VB課程設(shè)計(jì)，我對(duì)軟件的開發(fā)有了切身的體會(huì)。軟件并不像我原來所想的那樣神秘，而是有著一個(gè)相對(duì)固定的模式和流程。軟件的制作是一個(gè)系統(tǒng)的工程，需要我們掌握多方面的知識(shí)。在此次設(shè)計(jì)中，覺得自己的知識(shí)有很大的欠缺，遇到了許多不懂的東西，無奈下去翻書才發(fā)現(xiàn)許多東西書上都有，只怪平常太少看書，聽課又不夠認(rèn)真。以前學(xué)習(xí)計(jì)算機(jī)語言，總是靜不下心來，不能認(rèn)真的看書。這次的課程設(shè)計(jì)，為了順利的完成編程任務(wù)，認(rèn)真的細(xì)讀了VB課本，有了一定的心得體會(huì)。所以在以后的學(xué)習(xí)中，自己一定要全身心投入，這樣學(xué)習(xí)才會(huì)有效率，才會(huì)有效果。

第四篇：VB操作word總結(jié)

請(qǐng)耐心看完：?jiǎn)栴}出現(xiàn)得較復(fù)雜。

我的目的：

將多個(gè)文檔內(nèi)容逐一拷貝粘貼到另一文檔后面

我的方法：

wordapp=new word.application

Set doc = wordapp.Documents.Add

while

pathTemp = App.Path & “temp.doc”

LoadFile rs(“word”), pathTemp

Set doctemp = wordapp.Documents.Open(pathTemp)

doctemp.Content.Select

wordapp.Selection.copy

Set myRange = doc.Range(Start:=doc.Content.End 缺少參數(shù) 3文件不存在 ' '*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0)As Integer Attribute ReplacePic.VB_Description = “查找FindStr,并替換為PicFile所指向的圖片文件,替換次數(shù)由time參數(shù)確定,為0時(shí)，替換所有” '******************************************************************************** '

從Word.Range對(duì)象mysel中查找所有FindStr，并替換為PicFile圖像 ' 替換次數(shù)由time參數(shù)確定，為0時(shí)，替換所有

'******************************************************************************** If Len(C_PicFile)= 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = “".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)Loop ReplacePic = i End Function Public Function FindThis(FindStr As String)As Boolean Attribute FindThis.VB_Description = ”查找FindStr,如果模板中有FindStr則返回True“ If Len(FindStr)= 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ”“.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0)As Integer Attribute ReplaceChar.VB_Description = ”查找FindStr,并替換為RepStr,替換次數(shù)由time參數(shù)確定,為0時(shí)，替換所有“ '******************************************************************************** '

從Word.Range對(duì)象mysel中查找FindStr，并替換為RepStr ' 替換次數(shù)由time參數(shù)確定，為0時(shí)，替換所有

'******************************************************************************** Dim findtxt As Boolean If Len(FindStr)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With

If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function

Public Function GetPic(PicData()As Byte, FileName As String)As Boolean Attribute GetPic.VB_Description = ”把圖像數(shù)據(jù)PicData,存為PicFile指定的文件“ '******************************************************************************** '

把圖像數(shù)據(jù)PicData,存為PicFile指定的文件

'******************************************************************************** On Error Resume Next If Len(FileName)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If Open FileName For Binary As #1 If Err.Number <> 0 Then C_ErrMsg = 3 Exit Function End If '二進(jìn)制文件用Get,Put存放，讀取數(shù)據(jù) Put #1, , PicData Close #1 C_PicFile = FileName GetPic = True End Function

Public Sub DeleteToEnd()Attribute DeleteToEnd.VB_Description = ”刪除從當(dāng)前位置到結(jié)尾的所有內(nèi)容“ mysel.EndKey Unit:=wdStory, Extend:=wdExtend mysel.Delete Unit:=wdCharacter, Count:=1 End Sub Public Sub MoveEnd()Attribute MoveEnd.VB_Description = ”光標(biāo)移動(dòng)到文檔結(jié)尾“ '光標(biāo)移動(dòng)到文檔結(jié)尾 mysel.EndKey Unit:=wdStory End Sub Public Sub GotoLine(LineTime As Integer)mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=”“ End Sub Public Sub OpenDoc(view As Boolean)Attribute OpenDoc.VB_Description = ”打開Word文件,View確定是否顯示W(wǎng)ord界面“ On Error Resume Next '******************************************************************************** '

打開Word文件，并給全局變量mysel賦值

'******************************************************************************** If Len(C_TemplateDoc)= 0 Then mywdapp.Documents.Add Else mywdapp.Documents.Open(C_TemplateDoc)End If If Err.Number <> 0 Then C_ErrMsg = 4 RaiseEvent HaveError Exit Sub End If

mywdapp.Visible = view mywdapp.Activate Set mysel = mywdapp.Application.Selection 'mysel.Select

End Sub Public Sub OpenWord()On Error Resume Next '******************************************************************************** '

打開Word程序，并給全局變量mywdapp賦值

'******************************************************************************** Set mywdapp = CreateObject(”word.application“)If Err.Number <> 0 Then C_ErrMsg = 1 RaiseEvent HaveError Exit Sub End If End Sub Public Sub ViewDoc()Attribute ViewDoc.VB_Description = ”顯示W(wǎng)ord程序界面“ mywdapp.Visible = True End Sub Public Sub AddNewPage()Attribute AddNewPage.VB_Description = ”插入分頁符“ mysel.InsertBreak Type:=wdPageBreak End Sub Public Sub WordCut()Attribute WordCut.VB_Description = ”剪切模板所有內(nèi)容到剪切板“ '保存模板頁面內(nèi)容 mysel.WholeStory mysel.Cut mysel.HomeKey Unit:=wdStory End Sub Public Sub WordCopy()Attribute WordCopy.VB_Description = ”拷貝模板所有內(nèi)容到剪切板“ mysel.WholeStory mysel.Copy mysel.HomeKey Unit:=wdStory End Sub Public Sub WordDel()mysel.WholeStory mysel.Delete mysel.HomeKey Unit:=wdStory End Sub Public Sub WordPaste()Attribute WordPaste.VB_Description = ”拷貝剪切板內(nèi)容到當(dāng)前位置“ '插入模塊內(nèi)容 mysel.Paste End Sub Public Sub CloseDoc()Attribute CloseDoc.VB_Description = ”關(guān)閉Word文件模板“ '******************************************************************************** '

關(guān)閉Word文件模本 '******************************************************************************** On Error Resume Next

mywdapp.ActiveDocument.Close False If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub QuitWord()'******************************************************************************** '

關(guān)閉Word程序

'******************************************************************************** On Error Resume Next mywdapp.Quit

If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub SavetoDoc()Attribute SavetoDoc.VB_Description = ”保存當(dāng)前文檔為FileName指定文件“ On Error Resume Next '并另存為文件FileName If Len(C_newDoc)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Sub End If mywdapp.ActiveDocument.SaveAs(C_newDoc)

If Err.Number <> 0 Then C_ErrMsg = 3 RaiseEvent HaveError Exit Sub End If End Sub

Public Property Get TemplateDoc()As String Attribute TemplateDoc.VB_Description = ”模板文件名.“ TemplateDoc = C_TemplateDoc End Property Public Property Let TemplateDoc(ByVal vNewValue As String)C_TemplateDoc = vNewValue End Property Public Property Get newdoc()As String Attribute newdoc.VB_Description = ”執(zhí)行CloseDoc方法時(shí)，將模板文件另存為此文件名指定的新文件.如果不指定，在執(zhí)行CloseDoc方法時(shí)，將產(chǎn)生一個(gè)錯(cuò)誤“ newdoc = C_newDoc End Property Public Property Let newdoc(ByVal vNewValue As String)C_newDoc = vNewValue End Property Public Property Get PicFile()As String Attribute PicFile.VB_Description = ”圖像文件名“ PicFile = C_PicFile End Property Public Property Let PicFile(ByVal vNewValue As String)C_PicFile = vNewValue End Property Public Property Get ErrMsg()As Integer Attribute ErrMsg.VB_Description = ”錯(cuò)誤信息.ErrMsg代碼: 1-word沒有安裝 2-缺少參數(shù) 3-沒權(quán)限寫文件 4-文件不存在“ ErrMsg = C_ErrMsg End Property 請(qǐng)問如何正確殺掉word進(jìn)程？

樓主btl19792008（btl19792008）2005-11-04 17:05:03 在 VB / 數(shù)據(jù)庫(包含打印，安裝，報(bào)表)提問 我的word程序運(yùn)行幾次，在資源管理器中就會(huì)出現(xiàn)很多word進(jìn)程。

我的代碼寫的不對(duì)嗎？

代碼如下：

Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application“)

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

Set docTemplate = Nothing

Set appTemplate = Nothing

問題點(diǎn)數(shù)：100、回復(fù)次數(shù)：9Top 樓bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回復(fù)于 2005-11-04 17:31:33 得分 0 markTop 樓province_（雍昊）回復(fù)于 2005-11-04 18:03:37 得分 0 要先QUIT再NOTHING。Top 樓faysky2（出來混，遲早是要還嘀）回復(fù)于 2005-11-04 19:21:30 得分 0

'引用Microsoft Word X.0 Object Library

Private Sub Command1_Click()

On Error GoTo connecterr

Dim wordApp As Object

Set wordApp = CreateObject(”word.application“)

wordApp.Visible = True

Dim myDoc As Object

Set myDoc = wordApp.Documents.Open(”c:Test.dot“)

wordApp.selection.TypeText(” Hello“)

myDoc.Close '關(guān)閉

wordApp.Quit

'退出

Set myDoc = Nothing

Set wordApp = Nothing

Exit Sub

connecterr:

End Sub

Top 樓faysky2（出來混，遲早是要還嘀）回復(fù)于 2005-11-04 19:24:16 得分 0 Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application“)

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

'**************

docTemplate.Close

appTemplate.Quit

'**************

Set docTemplate = Nothing

Set appTemplate = NothingTop 樓rainstormmaster（暴風(fēng)雨 v2.0）回復(fù)于 2005-11-06 11:01:27 得分 0 沒有office沒法測(cè)試，不過我想你可以參考一下這個(gè)：

http://blog.joycode.com/mvm/archive/2004/04/25/20208.aspxTop 6 樓ahlegend（愛之傳奇）回復(fù)于 2005-11-06 20:51:45 得分 0 QuitTop 樓szjhxu（天野）回復(fù)于 2005-11-06 22:01:48 得分 0 Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application")

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

appTemplate.quit

Set docTemplate = Nothing

Set appTemplate = NothingTop 樓zhf_btj（鬧鬧）回復(fù)于 2005-11-15 21:54:47 得分 0 引用四樓

faysky2()

myDoc.Close '關(guān)閉

wordApp.Quit

'退出

Set myDoc = Nothing

Set wordApp = Nothing

這樣應(yīng)該能退干凈了...我的就是..光用Close和Quit.沒用Nothing就老有多余的進(jìn)程

偶爾試下加個(gè)Nothing就OK了~~~~Top 樓lfh103856111（）回復(fù)于 2005-11-16 12:46:09 得分 0 對(duì),注意quit就行了

第五篇：VB實(shí)習(xí)心得

vb實(shí)訓(xùn)心得

這次實(shí)訓(xùn)，我覺得我真收獲挺多的，以前愚昧無知，現(xiàn)在感覺是豁然開朗，visualbasic程序設(shè)計(jì)，剛開始學(xué)vb時(shí)不知道是干啥用的，我覺得很新鮮，于是乎很認(rèn)真的聽講，我發(fā)現(xiàn)這門課程很有趣，老師幽默而卻講課生動(dòng)，很吸引人，就這樣，喜歡上vb了，感覺挺有用的，剛開始就想著還可以自己編軟件，多好啊！其實(shí)真沒那么容易啊，要學(xué)好vb也是一件不容易的事，經(jīng)過這次實(shí)訓(xùn)，我覺得我的vb有大大的提升，總而言之，最重要的是多做例題多實(shí)踐多鍛煉多操

作。下面在介紹一下vb的發(fā)展過程： visualbasic(簡(jiǎn)稱vb)是microsoft公司于1998年推出的可視化 開發(fā)工具。visual意為“可視化”，它是指開發(fā)圖形用戶界面（gui）時(shí)，無須編寫大量代碼去描述界面元素的位置和外觀。basic是指basic語言，這是一種面向初學(xué)者的語言。visualbasic是基于ｂasic的可視化程序設(shè)計(jì)語言，它繼承了basic語言簡(jiǎn)單易懂的特點(diǎn)，采用面相對(duì)對(duì)象、事件驅(qū)動(dòng)的編程機(jī)制，提供了直觀的可視化程序設(shè)計(jì)方法。visualbasic是目前面向?qū)ο箝_發(fā)的主要語言之一，是最簡(jiǎn)單、最容易使用的語言，因此它是初學(xué)者學(xué)習(xí)可視化編程語言的最佳選擇。在以windows操作系統(tǒng)為平臺(tái)的眾多可視化編程工具中，visualbasic具有易用性、通用性和開發(fā)效率高等特點(diǎn)，這使得 visualbasic特別適合于一般應(yīng)用程序的開發(fā)，成為最流行的 windows應(yīng)用程序開發(fā)語言。visualbasic6.0現(xiàn)有三種版本：學(xué)習(xí)

版、專業(yè)版和企業(yè)版。vb集成了一系列功能，在vb程序設(shè)計(jì)環(huán)境中能夠完成程序的編寫、調(diào)試、查錯(cuò)、運(yùn)行、編譯、保存等基本操作，同時(shí)還提供了大量程序

設(shè)計(jì)的“零部件”（在vb中稱為函數(shù)、控件），能夠很方便的根據(jù)

需要“組裝”成一個(gè)復(fù)雜的程序。vb開發(fā)的應(yīng)用程序的運(yùn)行采用事件驅(qū)動(dòng)原理。程序設(shè)計(jì)人

員不僅在程序設(shè)計(jì)時(shí)不需要考慮程序代碼執(zhí)行的先后問題，而且同一

個(gè)對(duì)象可以因用戶的不同操作而產(chǎn)生不同的結(jié)果。vb中提供的編輯器不僅提供了典型的windows文字處理應(yīng)

用程序的各種功能，如剪切、復(fù)制、粘貼等，使得程序的輸入和修改

非常方便。而且在vb代碼窗口輸入代碼時(shí)，對(duì)于vb中的對(duì)象的屬性、方法，內(nèi)置的函數(shù)、已定義的自定義函數(shù)、過程，已定義的變量等，能自動(dòng)給出拼寫提示。這樣可大大減少編程人員的記憶量。

在vb開發(fā)環(huán)境下，通過api(application program interface)函數(shù)調(diào)用，可充分使用windows提供的各種系統(tǒng)資源，來擴(kuò)充所開發(fā)的應(yīng)用程序的功能。

vb全面支持windows系統(tǒng)的ole（object linking and embedding）技術(shù)，因此可以方便、快捷地實(shí)現(xiàn)不同應(yīng)用程序之間的動(dòng)態(tài)數(shù)據(jù)交換。

另外，在vb中，可以開發(fā)出包括標(biāo)準(zhǔn)exe（標(biāo)準(zhǔn)windows應(yīng)

用程序）、activex控件、activex exe(對(duì)象的嵌入和鏈接)等多種

類型的應(yīng)用程序。visual basic 語言的特點(diǎn)：

1、面向?qū)ο蟮目梢暬O(shè)計(jì)平臺(tái)

2、事件驅(qū)動(dòng)的編程機(jī)制

3、結(jié)構(gòu)化的程序設(shè)計(jì)語言

4、強(qiáng)大的數(shù)據(jù)庫功能和網(wǎng)絡(luò)開發(fā)功能

5、充分利用windows資源

6、方便實(shí)用的程序指導(dǎo) 我們已經(jīng)學(xué)了一學(xué)期vb了，大家知道vb都能做什么呢？記事

本、畫圖、做一些小游戲等等，其實(shí)還有好多好多東西都能用vb編 出來，世界著名的三大軟件之一---spss就是用vb開發(fā)的。現(xiàn)代社

會(huì)，隨著計(jì)算機(jī)科學(xué)技術(shù)飛速發(fā)展，vb也不斷改進(jìn)，他已經(jīng)徹底擺

脫了“玩具語言”的形象，成為編制通用windows應(yīng)用程序、數(shù)據(jù)庫

應(yīng)用程序、多媒體應(yīng)用程序以及網(wǎng)絡(luò)應(yīng)用程序的理想工具。vb不僅

是一種編程語言，而且是集應(yīng)用程序開發(fā)、調(diào)試和測(cè)試于一體的集成開發(fā)環(huán)境。

作為當(dāng)代大學(xué)生，我們?cè)谝钥萍紴橹鲗?dǎo)的新世紀(jì)里，一定要掌握 vb這門課程，有利的發(fā)揮我們的才能和智慧，輝煌我們的人生！篇二：vb實(shí)習(xí)體會(huì) vb實(shí)習(xí)體會(huì)

我對(duì)于visualbasic的學(xué)習(xí)，是從初中開始的。當(dāng)時(shí)舟山市的中考政策有考級(jí)加分制度，考出全國(guó)二級(jí)能加10分。在此誘惑下報(bào)名參加培訓(xùn)班，考了兩次，第一次筆試未通過，第二次才全通過。雖然考了兩次，但是那時(shí)候已經(jīng)能夠編出幾個(gè)沒有什么邏輯性可言的小小游戲了。

所以這次認(rèn)識(shí)實(shí)習(xí)，對(duì)我來說難度并不大。然而由于選課上面的原因，認(rèn)識(shí)實(shí)習(xí)和電子實(shí)習(xí)沖突，導(dǎo)致我沒有上過一節(jié)認(rèn)識(shí)實(shí)習(xí)課。所以我的vb水平基本沒有什么進(jìn)步，這個(gè)五子棋，也是建立在初中的經(jīng)驗(yàn)上的。vb本身也不是很難。尤其在gui編程上能夠體現(xiàn)出來。我接觸過幾種gui的編程，桌面應(yīng)用里面有swing、qt庫的編程，另外還有android和j2me的編程。這些程序在gui開發(fā)上面雖然不能說難，但代碼量也是很大的（qt和android有可視化輔助設(shè)計(jì)，稍微好一點(diǎn)）。而微軟確實(shí)對(duì)程序員比較照顧，出了很多的編程方式都比較簡(jiǎn)易，比如windowsform式的編程，這在vb和c#上體現(xiàn)的非常到位，大大降低了程序員的門檻。值得一提的是，我初中的學(xué)校，超過三分之一的人通過了全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)vb，可見vb的簡(jiǎn)單程度。

雖然vb很簡(jiǎn)單，但說實(shí)話我不太喜歡vb。一方面是長(zhǎng)期接觸類c語法，讓我對(duì)于類c語法的語言比較偏愛（java、c++、php等）。另一方面是vb是一種windowsonly的語言，可移植性比較差。

而從業(yè)界發(fā)展的視角來看，隨著蘋果煥發(fā)第二春以及google的崛起，微軟的勢(shì)力開始萎縮。在終端方面，高端智能手機(jī)以及平板電腦正悄悄取代個(gè)人pc機(jī)的地位。而互聯(lián)網(wǎng)云計(jì)算的概念更加使得這些終端設(shè)備能夠替代傳統(tǒng)pc。而微軟在這方面幾乎可以被稱作是慘敗的。所以，開發(fā)windows桌面應(yīng)用漸漸顯得不入時(shí)，況且是用可移植性非常差的vb6來開發(fā)。

如果要我選擇桌面應(yīng)用程序開發(fā)工具的話，我恐怕會(huì)選擇c#。它既有 windowsform的編程方式，擁有vb.net的幾乎所有的便利特性，而且是類java 語法，使得程序員能夠非?？斓倪m應(yīng)。另外，.net的可移植性比較強(qiáng)。c#運(yùn)行在.net平臺(tái)上，理論上可以像java那樣易于移植，而且在linux上也出現(xiàn)了mono這樣的開源版本。而vb6則不行。

當(dāng)然，語言的問題總是微乎其微的。這一次實(shí)習(xí)最大的收獲應(yīng)該是大致了解了五子棋程序的原理。比如說怎么判斷五子連珠等等。雖然沒有更上一層樓編出ai，但是總的來說，這是我第一次用vb開發(fā)出一個(gè)像樣點(diǎn)的游戲了。篇三：vb實(shí)習(xí)報(bào)告

實(shí)習(xí)報(bào)告

一、前言 實(shí)習(xí)時(shí)間 2012年12月21——12月26日 實(shí)習(xí)地點(diǎn)

楊凌職業(yè)技術(shù)學(xué)院南校區(qū)機(jī)房 實(shí)習(xí)目的

1、熟練掌握visuabasic語言的語法規(guī)則，visualbasic程序調(diào)試一般方法和技巧，并能利用visuabasic語言實(shí)現(xiàn)簡(jiǎn)單程序的設(shè)計(jì)。

2、掌握基本的模塊設(shè)計(jì)與實(shí)現(xiàn)數(shù)據(jù)文件讀寫、人機(jī)界面設(shè)計(jì)等；

3、熟練運(yùn)用測(cè)量平差及程序設(shè)計(jì)知識(shí)，編寫測(cè)量程序；

4、進(jìn)一步鞏固《vb程序設(shè)計(jì)》課程中所學(xué)到的知識(shí)，熟練掌握并綜合運(yùn)用所學(xué)的編程技巧。實(shí)習(xí)要求

保持學(xué)習(xí)態(tài)度端正，盡量完善作業(yè)達(dá)到高質(zhì)量高數(shù)量的作業(yè)

二、實(shí)習(xí)任務(wù)及內(nèi)容

1、進(jìn)入主界面面應(yīng)有登陸界面，類似于“學(xué)生成績(jī)查詢系統(tǒng)”界面。

2、設(shè)計(jì)并實(shí)現(xiàn)系統(tǒng)的主界面，界面的名稱可以自己取，比如測(cè)量程序集等

三、實(shí)習(xí)過程

編輯主界面

打開vb在form1中添加“用戶名”、“密碼”、“登陸”、“幫助”控件，以及修改對(duì)應(yīng)的名稱，并編輯如圖所示的代碼：

右單擊窗體添加，并添加窗體；在visual basic中，是通過菜單編輯器建

立和管理菜單的，其打開方式為：在工具→菜單編輯器中；對(duì)form2進(jìn)行一級(jí)、二級(jí)菜單編輯，并注意一級(jí)菜單和二級(jí)菜單的區(qū)別

主窗體：

接下來對(duì)各個(gè)二級(jí)菜單中的程序進(jìn)行編輯：

1、進(jìn)行對(duì)閉合水準(zhǔn)路線計(jì)算的界面設(shè)置如下

點(diǎn)擊“輸入測(cè)站數(shù)及測(cè)站數(shù)”按鈕輸入基本信息，在點(diǎn)擊計(jì)算，就和已在界面上顯示出計(jì)算結(jié)果；

分別雙擊各個(gè)按鈕進(jìn)行編程：

2、對(duì)于地形圖分幅與編號(hào)，圍繞其核心公式： lw=(z-31)*6°+(d-1)δl le=lw+δl bs=(h-1)*4°+(4°/δb-c)δb bn= bs+δb 其代碼為：

3、角度弧度轉(zhuǎn)換：

輸入角度的各項(xiàng)數(shù)值，點(diǎn)擊“角度->弧度”就和顯示出弧度值，同理也可實(shí)現(xiàn)弧度到角度的轉(zhuǎn)換

4、距離相對(duì)誤差計(jì)算：

5、三角高程界面設(shè)置及代碼：

根據(jù)《地形測(cè)量》理論知識(shí)所知，在界面中需設(shè)置如圖所示的控件，在輸入已知數(shù)據(jù)框中輸入數(shù)值，有核心計(jì)算公式h=dtan(α)+i-v即可算出高差，所以在編寫代碼時(shí)圍繞其核心公式進(jìn)行編程： 篇四：vb實(shí)訓(xùn)總結(jié)

這次我做的項(xiàng)目是用vb制作一個(gè)簡(jiǎn)單的成績(jī)管理系統(tǒng)，在實(shí)訓(xùn)剛開始的時(shí)候，做的只是幾個(gè)簡(jiǎn)單的界面，覺得其實(shí)還算比較簡(jiǎn)單的，到第二次實(shí)訓(xùn)的時(shí)候，老師說要用程序代碼制作，而我們還沒有具體學(xué)過vb程序代碼，覺得又開始沒有頭緒了，感覺無從下手。

實(shí)訓(xùn)任務(wù)問題的解決：

通過網(wǎng)上搜尋相關(guān)資料以及查閱相關(guān)書籍了解更多關(guān)于vb的知識(shí)。到了第四次實(shí)訓(xùn)的時(shí)候，雖然能實(shí)現(xiàn)基本的排版后，但是調(diào)試的時(shí)候出現(xiàn)了很多問題。而且，有時(shí)候由于考慮不周以及粗心的緣故，代碼方面存在很大的誤差。老師們教了我們很多簡(jiǎn)單實(shí)用的技巧。也讓我們意識(shí)到了要想全面完整的完成一個(gè)模塊，首先要經(jīng)行程序設(shè)計(jì)，全面分析會(huì)用到的東西及考慮可能會(huì)出現(xiàn)的情況。所以出現(xiàn)的問題也在老師的指導(dǎo)下以及團(tuán)隊(duì)的團(tuán)結(jié)精神一起探討，一起思索，順利解決了發(fā)生的問題。

實(shí)訓(xùn)后體會(huì)： 在程序的編寫上，有很多不足的地方，可能有些功能不太全面也不太完善，但我覺得自己是認(rèn)認(rèn)真真的做了，而且從中學(xué)到了很多，以后，我要把自己欠缺的知識(shí)點(diǎn)補(bǔ)習(xí)好，而且要學(xué)會(huì)舉一反三，融會(huì)貫通，最重要的是改掉粗心馬虎、考慮不周的習(xí)慣。我想我以后會(huì)將此程序完善好，爭(zhēng)取能夠運(yùn)用到生活中去。

“紙上得來終覺淺，絕知此事要躬行！”在短暫的實(shí)習(xí)過程中，讓我深深的感覺到自己在實(shí)際運(yùn)用中的專業(yè)知識(shí)的匱乏，剛開始的一段時(shí)間里，對(duì)一些工作感到無從下手，茫然不知所措，這讓我感到十分的難過。在學(xué)?？傄詾樽约簩W(xué)的不錯(cuò)，一旦接觸到實(shí)際，才發(fā)現(xiàn)自己知道的是多么少，這時(shí)才真正領(lǐng)悟到“學(xué)無止境”的含義。

“千里之行，始于足下”，這次短暫而又充實(shí)的實(shí)習(xí)，我認(rèn)為對(duì)我走向社會(huì)起到了一個(gè)橋梁的作用，過渡的作用，是人生的一段重要的經(jīng)歷，也是一個(gè)重要步驟，對(duì)將來走上工作崗位也有著很大幫助。

突然想起魯迅先生的一句話：這里本來沒有路，只是走的人多了，也便成了路。生活的路呢？生活的路也是人走出來的，每個(gè)人一生總要去很多陌生的地方，然后熟悉，而接著又要啟程去另一個(gè)陌生的地方。

作為初涉社會(huì)的開端，這里有許多回憶和聯(lián)想，面對(duì)殘酷的現(xiàn)實(shí)社會(huì)，每個(gè)人都無法選擇逃避，除了勇敢面對(duì)，我們也無從選擇！

走向明天，我依然走我自己！不再茫然? 此次實(shí)訓(xùn)的個(gè)人領(lǐng)悟：

在整個(gè)實(shí)訓(xùn)過程中，我每次都有許多新的體會(huì)，新的想法，想說的很多，就簡(jiǎn)要的談?wù)勎翌I(lǐng)會(huì)的八大心得：

一、堅(jiān)持：開始每次實(shí)訓(xùn)后感覺自己都很茫然糾結(jié)，自己再

也不愿去想去做了，因?yàn)槊看涡列量嗫嘞氤龊蟮拇a結(jié)

果都是運(yùn)行出錯(cuò)，讓人很頭痛，很煩惱，但是整個(gè)實(shí)訓(xùn)

結(jié)束后才發(fā)現(xiàn)，做什么是都貴在堅(jiān)持，就這個(gè)簡(jiǎn)單的計(jì)

算器也一樣，一次一次的運(yùn)行出錯(cuò)都是一個(gè)歌體會(huì)，一

次一次的總結(jié)，到最后才能制作出自己要做的任務(wù)。所

以說：堅(jiān)持就是勝利。

二、勤動(dòng)手：開始實(shí)訓(xùn)的時(shí)候覺得不會(huì)做，做不來就不做。

后來才發(fā)現(xiàn)做了點(diǎn)點(diǎn)就是積累點(diǎn)點(diǎn)，多做就有多收獲，就像我們說的經(jīng)典名言：vb沒有學(xué)會(huì)，也沒有教會(huì)，沒有看會(huì)，只有練會(huì)的，勤動(dòng)手是學(xué)習(xí)vb很重要的一個(gè)過程，甚至是一個(gè)關(guān)鍵。

三、虛心學(xué)習(xí)：在實(shí)訓(xùn)過程中，我們會(huì)碰到很多問題，有的是我們懂得的，也有很多是我們不懂的，不懂的問題我們要虛心向團(tuán)隊(duì)的成員或老師請(qǐng)教，同時(shí)我們也應(yīng)該虛心的接受，不能認(rèn)為自己懂得一些知識(shí)就飄然然。

四、錯(cuò)不可怕，就怕一錯(cuò)再錯(cuò)：

人無完人，每個(gè)人都有犯錯(cuò)的時(shí)候，不管是實(shí)訓(xùn)中還是在以后的學(xué)習(xí)中，第一次做錯(cuò)不要緊，但也主動(dòng)認(rèn)識(shí)到自己為什么做錯(cuò)了，要怎么改，不能一而再，再而三的犯錯(cuò)，知錯(cuò)能改才能獲得更多的體會(huì)以及經(jīng)驗(yàn)。

五、自主學(xué)習(xí)：

實(shí)訓(xùn)后不再像在高中學(xué)習(xí)那樣，有老師，有作業(yè)，有考試，而是一切要字跡主動(dòng)去學(xué)校去做，只要你想學(xué)習(xí)，學(xué)習(xí)的機(jī)會(huì)是有很多的。實(shí)訓(xùn)的時(shí)候，有比較多的休息時(shí)間，要利用好這些時(shí)間，少看一部小說，多了解一些感興趣以及與自己專業(yè)相關(guān)的知識(shí)。

六、團(tuán)隊(duì)精神：

不管是實(shí)訓(xùn)還是將來的工作往往不是一個(gè)人的事情，是一個(gè)團(tuán)隊(duì)在完成一個(gè)項(xiàng)目，在實(shí)訓(xùn)或者將來工作的過程中如何保持和團(tuán)隊(duì)中其他同事的交流和溝通也是相當(dāng)重要的。要有與別人溝通、交流的能力以及與個(gè)人合作的能力，合理的分工可以使大家在工作

中各盡所長(zhǎng)，團(tuán)結(jié)合作，配合默契，共赴成功。個(gè)人想要獲得好的業(yè)績(jī)，必須牢記一個(gè)規(guī)則，我們永遠(yuǎn)不能將個(gè)人利益凌駕于團(tuán)隊(duì)利益之上，在團(tuán)隊(duì)工作中，會(huì)出現(xiàn)在自己的協(xié)助下同時(shí)也從中受益的情況。反過來看，自己本身受益其中，這是保證自己成功的最重要的因素之一。

七、為人處事

作為學(xué)生面對(duì)的無非是同學(xué)、老師、家長(zhǎng)，而工作后就要考慮更為復(fù)雜的關(guān)系，無論是和同事還是領(lǐng)導(dǎo)，都要做到妥善處理，多溝通，并要設(shè)身處地地從對(duì)方的角度換位思考，而不是只考慮自己的事。

經(jīng)過這次實(shí)習(xí)，我從中學(xué)到了很多課本中沒有的知識(shí)，在學(xué)習(xí)心態(tài)上也有很大改變，很多東西我們初到實(shí)訓(xùn)后才接觸，所以我現(xiàn)在不能再像以前那樣等待更好機(jī)會(huì)的到來，要能更好的發(fā)展，要盡快丟掉對(duì)學(xué)校的依賴心理，學(xué)會(huì)在學(xué)習(xí)中獨(dú)立，敢于參加學(xué)校競(jìng)爭(zhēng)，使自己能夠快速成長(zhǎng)起來。在以后的學(xué)習(xí)生活中，我會(huì)謙虛謹(jǐn)慎，勤奮努力，加強(qiáng)修養(yǎng)，以更開闊的胸襟，更智慧的頭腦，更高尚的品德服務(wù)社會(huì)。這次實(shí)習(xí)只是我人生中一個(gè)奮斗的起點(diǎn)，我也相信自己一定會(huì)以更加飽滿的熱情和決心投入到未來的工作當(dāng)中去，相信自己一定能交出更加滿意的答卷。

八 心得體會(huì)：

在實(shí)訓(xùn)期間帶給我不僅僅是一種經(jīng)驗(yàn)，更是我人生的一筆財(cái)富。俗語說:紙上得來終覺淺。沒有把理論用于實(shí)踐是學(xué)得不深刻的。篇五：vb實(shí)訓(xùn)報(bào)告

《visual basic程序設(shè)計(jì)》

課程實(shí)習(xí)報(bào)告

實(shí)訓(xùn)題目：圖書管理系統(tǒng) 實(shí)習(xí)時(shí)間：2013年6月 班級(jí)名稱：計(jì)算機(jī) 指導(dǎo)教師：xxx老師 學(xué)生姓名：xxxxx

一、實(shí)訓(xùn)課程與題目：visual basic程序設(shè)計(jì),圖書管理系統(tǒng)的設(shè)

計(jì)與開發(fā)

二、實(shí)訓(xùn)時(shí)間和地點(diǎn)：一周，學(xué)院微機(jī)室

三、實(shí)訓(xùn)目的和要求

1、實(shí)訓(xùn)目的通過《圖書管理系統(tǒng)》應(yīng)用軟件程序設(shè)計(jì)，使學(xué)生掌握使用visual basic6.0進(jìn)行系統(tǒng)開發(fā)設(shè)計(jì)的方法及步驟；學(xué)會(huì)在vb程序中訪問數(shù)據(jù)庫，添加、刪除記錄，生成數(shù)據(jù)報(bào)表；學(xué)會(huì)vb可視化編程的方法和各種控件的應(yīng)用；掌握mdi窗體的設(shè)計(jì)方法；窗體中菜單欄、工具欄、狀態(tài)欄的設(shè)計(jì)方法及代碼編寫、窗體的添加載入、工程文件的編譯、工程打包及文件展開安裝等知識(shí)。

2、實(shí)訓(xùn)要求

設(shè)計(jì)《圖書管理系統(tǒng)》應(yīng)用軟件，應(yīng)能實(shí)現(xiàn)以下功能： ? 程序運(yùn)行，首先調(diào)用登陸窗口，接受用戶輸入的用戶名和密碼，若為合法用戶，調(diào)用mdi主窗體，若為非法用戶，當(dāng)?shù)卿洺^三次后，退出程序。? mdi主窗體是一個(gè)多文檔窗體，包含標(biāo)題欄、菜單欄和狀態(tài)欄。單擊相

應(yīng)的菜單命令，能完成相應(yīng)功能： ? 圖書借還管理：包括圖書借閱處理、圖書歸還管理和退出三項(xiàng)功能。? 圖書入庫和查找：實(shí)現(xiàn)圖書信息的添加、修改、刪除和查找功能。? 讀者登記和查找：實(shí)現(xiàn)讀者信息的添加、修改、刪除和查找功能。? 打?。簩?shí)現(xiàn)打印借書證、打印圖書清單功能 ? 設(shè)置系統(tǒng)用戶：實(shí)現(xiàn)系統(tǒng)用戶的添加、刪除和修改功能

四、實(shí)訓(xùn)內(nèi)容及方法步驟

1、需求分析 ? 設(shè)計(jì)的目的和意義

許多單位都建有圖書館，圖書管理工作涉及圖書入庫和查詢、讀者登記和查找、借書和還書等常見事務(wù)處理，采用手工操作，速度慢、效率低，容易出差錯(cuò)，隨著圖書館藏書量的劇增和讀者人數(shù)的大增，有必要用現(xiàn)代化的管理手段解決繁雜的圖書管理工作，提高工作效率和服務(wù)質(zhì)量。因此，本案例針對(duì)以上需求，開發(fā)一個(gè)實(shí)用的圖書管理系統(tǒng)，可供相關(guān)單位參考使用。? 設(shè)計(jì)技巧

? 數(shù)據(jù)表設(shè)計(jì)方法（減少冗余設(shè)計(jì)）? 公共標(biāo)準(zhǔn)模塊設(shè)計(jì) ? mdi窗體及子窗體設(shè)計(jì) ? vb菜單設(shè)計(jì)方法（對(duì)于“一般操作員”用戶，有若干菜單項(xiàng)不可用）? adodc控件設(shè)計(jì)方法

? 數(shù)據(jù)環(huán)境設(shè)計(jì)器data environment和數(shù)據(jù)報(bào)表data rpeort設(shè)計(jì)方法

2、系統(tǒng)結(jié)構(gòu)

結(jié)構(gòu)圖如下：

3、數(shù)據(jù)庫設(shè)計(jì)

? 創(chuàng)建數(shù)據(jù)庫 ? 創(chuàng)建表

表1 book表結(jié)構(gòu) ? reader表，結(jié)構(gòu)如下：

表2 reader 表結(jié)構(gòu) ? borrow表，結(jié)構(gòu)如下：

表3 borrow表結(jié)構(gòu)

? depart表，結(jié)構(gòu)如下：

表4 depart表結(jié)構(gòu)

表5 rlevel表結(jié)構(gòu) ? oper表，結(jié)構(gòu)如下：

表6 oper表結(jié)構(gòu)

4、創(chuàng)建工程

創(chuàng)建library.vbp工程，工程中包括module1.bas模塊，dataenvironment1.dsr、datareport1.dsr、datareport2.dsr三個(gè)設(shè)計(jì)器，以及frmlogin.frm、mdifrmmenu.frm等九個(gè)窗體。