办公自动化系统论文

办公自动化系统论文内容摘要：

_Timer() 39。 ////设置 NEWS = SELECT news_date,news_text FROM tbOA_news WHERE (news_acceptPerson = 39。 amp。 Mid((1).Text, 6, Len((1).Text) 5) amp。 39。 ) ORDER BY news_date DESC Call setNewsDataGrid_Caption 39。 //////设置通知 = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE (notice_acceptPerson = 39。 amp。 Mid((1).Text, 6, Len((1).Text) 5) amp。 39。 ) ORDER BY notice_date DESC Call setNoticeDataGrid_Caption 39。 调用自定义过程 河北科技大学专科毕业论文 14 End Sub 自定义过程 setNewsDataGrid_Caption()用来初始化新闻 MSHFlexGrid2 控件的列标题和表格 宽度。 Sub setNewsDataGrid_Caption() ‘ 初始化行序号 For i = 1 To (i, 0) = i Next ‘ 初始化表格标题和列宽 (0, 0) = 序号 : (0, 1) = 发布日期 (0, 2) = 新闻内容 : (0) = 400 (1) = 1000: (2) = 6700 End Sub 新闻管理 新闻管理包含 3 个部分：新闻发布、新闻接收、已发新闻。 其中新闻发布用来将新闻发布给某部门中某人；新闻接收用来接收其他职员发布新闻；已发新闻用来浏览将新闻发布给其他职员的新闻。 下面笔者分别讲解新闻发布、新闻接收和已发新闻的开发过程。 新闻发布 新闻管理窗体的设计结果如图 6 所示。 图 6 新闻发布设计图 （ 1）新建 1 个窗体，设置窗体的“名称”属性为 frmNews_issue、 Caption属性为“新闻发布”， MaxButton 属性为 False。 （ 2）在窗体中添加 4 个 Label 控件、 2 个 Combo 控件、 3 个 ADO 控件、 2 个TextBox 控件和 2 个 CommandButton 控件。 （ 3）添加 DTPicker 控件，该控件属于 ActiveX 控件，在使用之前必须从“部件”对话框中添加到工具箱中。 添加方法为：在“工程” /“部件”对话框中河北科技大学专科毕业论文 15 勾选“ Microsoft Windows Common Controls ”列表项，添加 DTPicker 控件后，其名称为默认的 DTPicker1。 （ 4）程序代码。 新闻发布就是将要发布的新闻按部门、职员和新闻数据存储到 tbOA_news 数据表中。 在【发布新闻】按钮的 Click 事件下添加如下代码： Private Sub cmdSave_Click() (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = 0 (6).Value = MsgBox 通知发布成功。 , vbInformation End Sub Form 窗体载入时，主要实现以下 功能： （ 1）建立 adoNews 控件和 adoDept 控件数据库连接。 （ 2）为 Combo1 控件中添加部门名称数据。 （ 3）获取系统操作职员姓名，并通过 Text2 控件显示出来。 （ 4）使 DTPicker1 控件显示系统当前日期。 Form 窗体的 Load 事件过程中的代码如下： Private Sub Form_Load() = PublicStr ‘ 建立数据库连接 = select * from tbOA_news ‘ 检索数据表数据 = PublicStr = select * from tbOA_dept For i = 0 To – 1 ‘ 将所有部门名称添加到 Combo1中 (1).Value Next i = Mid((1).Text, 6, Len((1).Text) 5) ‘ 获取操作员姓名 = Date ‘ 显示系统当前日期 End Sub 在 Combo1 控件中选择不同的部门，检索该部门的所有员 工并将其添加到Combo2 控件中。 Combo1 控件 Click 事件的代码如下： Private Sub Combo1_Click() = PublicStr = select * from tbOA_employee 河北科技大学专科毕业论文 16 For i = 0 To 1 (1).Value Next i End Sub 新闻接收 新闻接收窗体的设计结果如图 7 所示。 图 7 新闻接收设计图 （ 1）新建一个窗体，设置窗体的“名称”属性为 frmNews_incept、 Caption属性为“新闻接收”、 MaxButton 属性为 False。 （ 2）添加 4个 ComandButton 控件和 1个 Adodc 控件。 （ 3）添加 2个 DTPicker 控件，名称分别为 DTPicker1 和 DTPicker2。 （ 4）添加 DataGrid 控件，使用默认名称。 （ 5）程序代码。 在窗体装载过程中，将 adoNews 控件查询的数据通过 DataGrid 控件显示，代码如下： Private Sub Form_Load() = PublicStr ‘ 建立数据库连接 ‘ 数据库查询（以日期为标准降序 查询） = select * from tbOA_news where news_acceptPerson=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 order by news_date desc Set = adoNews ‘ 将数据源绑定到 DataGrid表格中 Call setDataGrid_Caption End Sub 通过鼠标选择 DataGrid 表格中数据，然后单击【删除】按钮，将选中的数据删除，代码如下： 河北科技大学专科毕业论文 17 Private Sub cmdDel_Click() On Error Resume Next End Sub 在日期输入框输入开始日期和截止日期后，单击【查询】按钮，将在DataGrid 控件中显示相应查询结果，代码如下： Private Sub cmdFind_Click() = PublicStr = select * from tbOA_news where news_date between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。 and news_acceptPerson=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 order by news_date desc Set = adoNews Call setDataGrid_Caption ‘ 调用自定义过程 End Sub 单击【显示所有新闻】按钮后，显示系统操作职员接收到的所有新闻，代码如下： Private Sub Command1_Click() = PublicStr = select * from tbOA_news where news_acceptPerson=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 order by news_date desc Set = adoNews Call setDataGrid_Caption End Sub 由于本系统数据表中的字段都是英文字段，因此将 ADO Data 控件绑定到DataGrid 控件后， DataGrid 控件的列标题都为英文字段名称，为方便用户使用，笔者在此建立了 setDataGrid_Caption()过程，该过程主要用于设置 DataGrid 控件的列标题和列宽，代码如下： Sub setDataGrid_Caption() (0).Caption = 序号 (1).Caption = 通日期 (2).Caption = 发布新闻人 (3).Caption = 接收部门 (4).Caption = 接收人 (5).Visible = False (6).Caption = 新闻内容 (0).Width = 600 (1).Width = 1000 (2).Width = 1000 (3).Width = 2020 (4).Width = 1000 河北科技大学专科毕业论文 18 (6).Width = 4000 End Sub 已发新闻 已发新闻窗体的设计结果如图 8 所示。 图 8 已发新闻窗体设计图 （ 1）新建 1 个窗体，将窗体的“名称”属性设置为 frmNews_toNews，设置Caption 属性为“已发布新闻”，设置 MaxButton 属性为 False。 （ 2）添加 ADO 控件，设置“名称”属性为 adoNews，设置 Visible 属性为False；添加 DataGrid 控件 “名称”属性为默认名称 DataGrid1；添加CommandButton 控件名称为默认名称、其 Caption 属性为“退出”。 （ 3）程序代码。 在窗体装载过程中，将 adoNews 控件查询的数据通过 DataGrid 控件显示，代码如下： Private Sub Form_Load() = PublicStr = select * from tbOA_news where news_person=39。 + Mid((1).Text, 6, Len((1).Text) 5) + 39。 Set = adoNews Call setDataGrid_Caption End Sub 39。 此处代码，请参见光盘 传送文件 文件传送在 OA 办公自动化系统中占据很重要的位置，本系统文件传送可以传送多种类型的文件（如 EXE， BAT， RAR， FRM， DOC 等等）。 传送文件窗体的设计结果如图 9所示。 河北科技大学专科毕业论文 19 图 9 传送文件窗体设计结果 窗体设计 （ 1）新建 1 个窗体，设置窗体“名称”属性为 frmFile、 Caption 属性为“文件传送” 、 MaxButton 属性为 False。 （ 2）添加 2 个 Combo 控件、 4 个 TextBox 控件、 3 个 CommandButton 控件，其属性设置如图 所示。 （ 3）添加 2 个 ADO 控件，名称分别为 adoDept 和 adoEmployee，其 Visible属性均为 False。 （ 4）添加 1个 DTPicker 控件，默认名称为 DTPicker1。 （ 5）添加 CommonDialog 控件，默认名称 CommonDialog1。 CommonDialog 控件为 ActiveX 控件，在使用之前必须从“部件”对话框中添加到工具箱 中。 添加方法为：在“工程” /“部件”对话框中勾选“ Microsoft Common Dialog ”列表项。 程序代码设计 在 Form 窗体装载中，主要实现以下功能： （ 1）建立 adoDept 控件数据库连接。 （ 2）为 Combo1 控件中添加部门名称数据。 （ 3）获取系统操作职员姓名，并通过 txtName 控件显示出来。 （ 4）使 DTPicker1 控件显示系统当前。