【正文】 他們從多方面給予我畢業(yè)設(shè)計大量的支持，讓我能夠全身心地投入到論文的寫作中。**老師雖身負(fù)教學(xué)、科研重任，但仍能抽出時間，不時召集我和同組的同學(xué)以督責(zé)課業(yè)，耳提面命，殷殷之情盡在諄諄教誨中。第一次花費如此長的時間和如此多的精力來完成一篇論文，其中的艱辛與困難難以訴說，敲完最后一個字符，重新從頭細(xì)細(xì)閱讀早已不陌生的文字，我感觸頗多。這對于我以后做人做事都有一個很大的啟發(fā)。只顯示文件名結(jié)論本次設(shè)計讓我從中嘗到很多知識，設(shè)計中用到的很多控件在平常學(xué)習(xí)中從來沒有用過的，所以在做的過程中碰到了許多的問題，有的一個問題困繞著我好幾天；有時明明覺得程序語法沒有錯誤可是就是運行不起來；有時因“隱蔽”的拼寫的錯誤耽誤畢業(yè)設(shè)計的進(jìn)度……各種各樣的困難，不像實訓(xùn)時做的課程設(shè)計，畢業(yè)設(shè)計比平時做的東西要多得多，各種資料都是通過自己查閱、收集，功能的設(shè)計需要通過調(diào)查分析……雖然出現(xiàn)許多困難，但是通過網(wǎng)上查閱資料、圖書館查閱書籍、尋求老師的幫助，最終完成了任務(wù)。主要代碼如下：Dim As , rs As , st As StreamSet = New = pstrSet rs = New select * from tboa_file, , adOpenStatic, adLockOptimisticSet st = New = adTypeBinary 39。這些對話框作為Windows的資源，在VB中已被做成“公共對話框”控件。 找出播放文件在數(shù)組中的位置 strnext = For i = 1 To UBound(mp3list) If strnext = mp3list(i) Then uj = i Exit For End If Next i 39。重新定義數(shù)組的長度 ReDim Preserve mp3list(j) As String Mid(str, Len(str) strlen + 2) 39。 指定缺省的過濾器 = 2 str = filestr = \ = str strlen = InStr(StrReverse(str), \) ml = False 39。加載媒體 = False = True 39。列表框數(shù)組Dim strnext As StringDim ml As BooleanDim i As IntegerDim uj As IntegerDim j As Integer 39。 變量聲明如下：Dim strlen As IntegerDim str As String 39。 Set = adoUser Call setDataGrid_Caption End IfEnd Sub 其它模塊1 瀏覽器 窗體中的按鈕控件是一組數(shù)組控件，做法是：在工具箱中添加一個按鈕后，選中它右擊復(fù)制，然后粘貼，就可以設(shè)計出數(shù)組控件了。 MsgBox 已經(jīng)刪除成功！, vbInformation, 溫馨提示： End If = select * from dboa_user where user_name39。 操作員信息 ？, vbQuestion + vbYesNo) = vbYes Then = select * from dbOA_user where user_name=39。更新數(shù)據(jù) = = = MsgBox 用戶添加成功！, vbInformation, 提示：End IfEnd Sub函數(shù)isbool（）是判斷文本框內(nèi)是否為空Function isbool(str As String) As BooleanFor i = 1 To Len(str) If Mid(str, i, 1) Then isbool = False Else isbool = True Exit For End IfNext iEnd Function4 修改密碼（1） ：部分代碼設(shè)計如下：“修改”按鈕的Click事件代碼：Private Sub cmdUserUpdate_Click() = = If = ThenMsgBox 請在下拉菜單中選擇要修改的操作員信息！,vbInformation,提示： ElseIf (Len() 6 And ) Or (Len() 6 And ) Then = = * 密碼必須為6位字符。在“顯示列表” 按鈕的Click事件下添加如下代碼： Private Sub cmdChart_Click()If = 顯示列表 Then Call setDataGrid = True = False = 顯示圖表Else Call showMsChart = False = True = 顯示列表End IfEnd Sub“清楚投票結(jié)果”按鈕的Click事件代碼如下：Private Sub cmdClear_Click() = select *from tbOA_voteIf 0 Then For i = 0 To 1 (3).Value = 0 Next iEnd IfSet con = New = pstrSet rs = New select * from tboa_voterecord, conSet rs = (DELETE FROM tbOA_voteRecord) 39。投票項目被選中后，累計投票數(shù)量 End IfNext i = select * from tbOA_voterecord 39。 amp。If 0 ThenMsgBox 您已經(jīng)參與過此次投票，不能再次參與！, vbInformation, 提示： = False 39。設(shè)置投票名稱Check1(0).ToolTipText = (2).ValueFor i = 1 To 1 39。 文件保存在： amp。 (0).Value amp。 】嗎？, vbQuestion + vbYesNo) = vbYes Then = (8).Text39。 order by file_date desc End Sub雙擊“DataGrid”表格中的一行，可以下載文件的事件代碼如下：Private Sub DataGrid1_DblClick()On Error GoTo UNEXIf MsgBox(是否接收 amp。 order by file_date desc End Sub單擊“顯示所有文件”按鈕的事件代碼如下 ：Private Sub cmdshow_Click() = pstr = select * from tboa_file where file_acceptperson =39。 and 39。 and file_date between 39。 order by file_date desc Call setDataGrid_CaptionEnd Sub在日期輸入框中輸入開始日期和截止日期后，“查詢”按鈕，將查詢結(jié)果顯示在DataGrid控件中，代碼如下：Private Sub cmdFind_Click() = pstr = select * from tboa_file where file_acceptperson=39。 and 39。 and file_date between 39。當(dāng)數(shù)據(jù)表中沒有數(shù)據(jù)時，進(jìn)行錯誤處理End SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub cmdFind_Click() = pstr = select * from tboa_file where file_acceptperson=39。End Sub2. 文件接收1）窗體設(shè)計文件接收”窗體主要用來接收其他員工傳送來的文件，并且將文件下載保存到本機中。 (*.txt)|*.txt|Batch Files (*.bat)|*.bat39。 設(shè)置“CancelError”為 True = TrueOn Error GoTo errHandler 39。設(shè)置bo2 = pstr = select user_name from dboa_userFor i = 0 To 1 (0).ValueNext i39。* 獲取系統(tǒng)操作員的姓名，并通過“txtName”控件顯示出來。其它控件設(shè)置，在這里就不再贅述了。3 已發(fā)新聞“已發(fā)新聞”：添加“ADO”控件，名稱為“adoNews”，設(shè)置其“Visible”屬性為“False”。2 新聞接收1）添加4個“CommandButton”和一個“ADO”控件。下面介紹新聞發(fā)布、新聞接收和已發(fā)新聞的開發(fā)過程。 amp。order by notice_date descSet = adoNoticeCall setDataGrid_CaptionEnd Sub“顯示所有通知”按鈕代碼如下：Private Sub cmdshow_Click() = pstr = select * from tboa_notice where notice_acceptperson =39。and 39。顯示用戶For i = 0 To 1 (0).ValueNext i39。 用戶按了“取消”按鈕Exit SubCase 2 Case 3 Case 4Case 5 Unload Me End SelectEnd Sub。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語句39。刷新通知 = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date desc Call setNoticeDataGrid_CaptionEnd IfEnd Sub自定義過程setNewsDataGrid_Caption()用來初始化新聞MSHFlexGrid2控件的列標(biāo)題和表格寬度。設(shè)置通知 = pstr = select top 8 notice_date,notice_person,notice_acceptdept,notice_acceptperson,notice_text from tboa_notice order by notice_date descSet = adoNoticeCall setNoticeDataGrid_CaptionEnd Sub每隔一分鐘就更新一次最新新聞和最新通知。User ID=sa。Private Sub Form_Load()39。展開全部節(jié)點