【正文】 它是無數(shù)教誨、關(guān)愛和幫助的結(jié)果。解決的方法是在“CommboBox”控件的屬性窗口中將其“Style”屬性設(shè)置為“0Dropdown”。禁止全屏End Sub 按鈕“打開”“下一首”“上一首”代碼如下：Private Sub Command1_Click()On Error GoTo mp3 = True 39。 amp。在本窗體中用到“MSChart”控件，該控件為“ActiveX”控件，因此在使用之前必須從“部件”中添加上中，添加方法為：在“部件”對話框中選中“Micrsoft Chart Control (OLEDB)”項。投票項目的名稱是動態(tài)生成的，有幾項活動將生成幾個“CheckBox”控件。 amp。 str() amp。文本框顯示文件路徑 = Exit SuberrHandler:39。* 建立“adoDept”控件的數(shù)據(jù)庫連接。 order by notice_dateSet = adoNoticeCall setNotice_CaptionEnd Sub 新聞管理 新聞管理包含3個部分：新聞發(fā)布、新聞接收、已發(fā)新聞。其中，發(fā)布通知用來將通知發(fā)布給某部門某人，接收用來接收其他職員發(fā)布的通知，已發(fā)通知是用來查看發(fā)布給其他職員的通知。Initial Catalog=db_OA 39。5）添加“StatusBar”（狀態(tài)欄）控件，它主要用來顯示操作員信息、系統(tǒng)時間及公司名稱網(wǎng)站。(1) = 39。Persist Security Info=False。（3） 文件管理模塊該模塊主要負責文件的發(fā)布、接收等。*由于該系統(tǒng)的使用對象多，因此要有較好的權(quán)限管理。tbOA_notice通知表主要用來存儲辦公通知信息。調(diào)用frm_login窗口End Sub 登錄界面設(shè)計本系統(tǒng)屬于OA辦公自動化系統(tǒng)，用戶權(quán)限分為系統(tǒng)管理員和普通用戶兩種。設(shè)置treeview控件的樹狀菜單 Set n1 = (, tvwChild, 通知管理, 通知管理, 1) Set node1 = (n1, tvwChild, 發(fā)布通知, 發(fā)布通知, 1) Set node1 = (n1, tvwChild, 接收通知, 接收通知, 1) Set node1 = (n1, tvwChild, 已發(fā)通知, 已發(fā)通知, 1) Set n2 = (, tvwChild, 新聞管理, 新聞管理, 1) Set node2 = (n2, tvwChild, 新聞發(fā)布, 新聞發(fā)布, 1) Set node2 = (n2, tvwChild, 接收新聞, 接收新聞, 1) Set node2 = (n2, tvwChild, 已發(fā)新聞, 已發(fā)新聞, 1) Set n3 = (, tvwChild, 文件傳送, 文件傳送, 1) Set node3 = (n3, tvwChild, 傳送文件, 傳送文件, 1) Set node3 = (n3, tvwChild, 接收文件, 接收文件, 1) Set node3 = (n3, tvwChild, 已發(fā)文件, 已發(fā)文件, 1) Set n4 = (, tvwChild, 交流管理, 交流管理, 1) Set node4 = (n4, tvwChild, 意見箱, 意見箱, 1) Set node4 = (n4, tvwChild, 投票活動, 投票活動, 1) Else 39。激活窗體的Activate事件，Private Sub Form_Activate() For i = 1 To 39。刷新新聞 = pstr = select top 8 news_date,news_text from tboa_news order by news_date descCall setNewsDataGrid_Caption39。 + str() + 39。3）程序代碼類似于“發(fā)布通知”窗體的代碼類似這里就不再贅述了。設(shè)置bo1 = pstr = select * from tboa_deptFor i = 0 To 1 (0).ValueNext i 39。下面是“刪除文件記錄”按鈕的“Click”事件代碼：Private Sub cmddel_Click()On Error Resume Next 39。 39。 (1).Text amp。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。!!! = = ElseIf = Then = 請輸入用戶密碼！ ElseIf isbool() = True Or isbool() = True ThenMsgBox 用戶密碼中不能包含空格！請重新輸入密碼！, vbInformation, 提示： = = ElseIf = Then = 請輸入 確認密碼！ ElseIf Then MsgBox 兩次輸入的密碼不一致，請重新輸入！, vbInformation, 提示： = = Else (0).Value = (1).Value = (2).Value = Abs() 39。如果出錯，跳轉(zhuǎn)到trip語句 Case 4 On Error GoTo trip = End SelectEnd Sub2 播放器 ： 該窗體中用到“Windows Media Player”控件，添加方法：從“部件”對話框中添加“Windows Media Player”列表項，該控件是利用操作系統(tǒng)自帶的一種播放器。將打開的文件名放到列表框中 mp3list(j 1) = str 39。裝載文件(1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = Now(7).Value = (8).Value = 39。同時，衷心感謝實習單位——******的領(lǐng)導和同事。遇到問題不要鉆牛角尖，要學會變通的繞開，重新尋找思考的角度。上一首歌的url On Error GoTo nexturl If mp3list(uj 1) Then = mp3list(uj 1) Elsenexturl: = mp3list(1) End If End Sub3 幫助 “幫助”窗體是在新建一個窗體時選擇新建一個“幫助”窗體，：第五章 問題分析與解決 由于“ADO”屬性中記錄源命令類型設(shè)置不同出現(xiàn)的問題在設(shè)置“ADO”屬性時，如果在“記錄源”選項卡的“命令類型”下拉列表框中選擇“2adCmdTable”：、。 存放數(shù)組長度 部分代碼如下：列表框的Dbllick事件代碼如下： Private Sub List1_DblClick()For i = 1 To UBound(mp3list) If mp3list(i) Like * + + * Then = mp3list(i) Exit For End IfNext i End Sub窗體裝載過程中，將播放文件夾中自帶的音樂文件 Private Sub Form_Load() = ReDim mp3list(1) As String 39。 amp。 Check1(i).Caption amp。 39。 amp。 amp。 如果為真則轉(zhuǎn)到errhandler 處，執(zhí)行exit sub 語句39。添加“DataGrid”控件，名稱為默認名稱“DataGrid1”程序代碼與“接收新聞”中的代碼設(shè)計類似，這里就不再贅述了。 + + 39。 設(shè)置標志，標題欄 = cdlOFNHideReadOnly39。設(shè)置新聞 = = pstr 39。該控件屬于ActiveX控件，在使用之前必須從“部件”對話框中將其添加到工具箱中?！跋到y(tǒng)登錄”窗體的設(shè)計結(jié)果如下圖所示：2. 代碼設(shè)計雙擊“登錄”按鈕（labLogin）添加如下事件代碼：Private Sub labLogin_Click()Set con = New Set rs = New = pstrmysql=select * from dbOA_user where user_name =39。 主要數(shù)據(jù)表的結(jié)構(gòu)表1 dbOA_user字段名數(shù)據(jù)類型長度主鍵否描述usernamevachar20Y用戶名userjpwdvachar20N密碼userbitbitN權(quán)限標記表2 tbOA_news字段名數(shù)據(jù)類型長度主鍵否描述news_idintY新聞IDnews_datedatetimeN新聞發(fā)布時間news_personvachar12N發(fā)布人news_acceptDeptvachar50N新聞接收部門news_acceptPersonvachar12N接收人news_bitbitN標記news_textvachar50N備注表3 tbOAnotice字段名數(shù)據(jù)類型長度主鍵否描述notice_idintY通知IDnotice_datedatetimeN通知時間notice_personvachar12N發(fā)布通知人notice_acceptDeptvachar30N通知部門notice_acceptPersonvachar12N通知人notice_bitbit1N標記notice_textvachar500N備注表4 tbOA_file字段名數(shù)據(jù)類型長度主鍵否描述file_idintYIDfile_subjectvarchar30N文件主題file_textvarchar50N文件描述file_personvarchar16N傳送人file_deptvarchar30N接收部門file_namevarchar16N接收人file_datedatetime8N傳送日期file_fileimage16N文件file_typevarchar20N文件類型表5 tbOA_idea字段名數(shù)據(jù)類型長度主鍵否描述idear_idintY意見IDidear_subjectvarchar30N意見主題idear_textvarchar50N意見內(nèi)