标题 | 也谈使用VB编制办公软件 |
范文 | 邢建春 摘要:随着信息化技术的不断推进,各种程序开发软件层出不穷,然而VB以其优越稳定可靠的性能仍然在程序开发应用领域占有着很重要的位置。VB(Visual Basic)是由微软公司开发的编程语言,具有操作性强、稳定可靠、拥有可视的人机画面、较轻易实现数据库的对接等特点被广大程序员所认可。通过使用VB提供的组件功能开发出《电子办公软件》应用程序,取得了文件自动生成、提高工作效率的效果。 关键词:VB 编制;办公软件 中图分类号:TP393 文献标识码:A 文章编号:1009-3044(2018)27-0094-02 在当前信息时代,各种用于程序开发的软件有数十种之多,然而VB以其优越稳定可靠的性能仍然在程序开发应用领域占有着很重要的位置。VB(Visual Basic)是由微软公司开发的编程语言。具有操作性强、稳定可靠、拥有可视的人机画面、较轻易实现数据库的对接等特点被广大程序员所认可。我使用VB提供的组件功能开发出《电子办公软件》应用程序,投入使用后,获得了好评,达到文件自动生成、提高工作效率的目的。现就软件设计研发过程阐述如下 1 研发背景 我公司作为通信方面的主要运营商,接受上级公司和地方政府的双重领导,与地方政府在行政事务中有较多的联系,每年接受地方政府方面的各类文件近千件,涉及我公司的各类文件近200件,来文单位有30余个,需要根据每个文件内容逐个填写文件收发记录、来文单位、文件编号、书写文件批办单等工作,有时还要根据文件要求内容对政府部门进行汇报,文件查找起来复杂、烦琐,研发针对性强的文件处理软件可解放文件员的劳动强度,提高工作效率。 2 研发原理 采用模版+应用软件+数据库形式来实现,根据整个画面前景和后景要素约近50项,初步估算各类控件设计约300项左右,总体来说数据量相对较小,采用VB来进行程序开发较易实现,且扩展灵活,便于操作管理。具体研发使用固定模版,固定文件批办单格式,文件批办单由此应用软件自动回填完成,其中来文单位、公文文号及批办意见设计为自动记忆功能,通过数据库自动添加并进行高频置顶处理,实现电子化替代手工填写的方式,自动生成、收文纳入数据库管理。 3 程序实现 按照办公习惯将程序分别设置为基本信息等不同的功能模块,功能按键置于画面右侧,实现文件生成、预览、选择打印、取消、返回上级、退出等6个功能。 在基本信息等界面中,录入办公要求的相关内容,管理操作的人员设置使用ACCESS调用进行维护和管理。当全部画面的相关信息参数填写、选择完成后,即可生成预制的文件,通过选择功能键“预览”和“选择打印”等可以分别实现校对和打印。“退出”功能键实现的是程序的退出关闭功能。 此应用软件经过调试试用后,可以将烦琐的纸质文字填写转变为电子生成,并借助电脑功能實现公文的登记批办、管理和检索查找,提高了工作效率,为公司节约了成本,达到了预期的效果。 最后,对程序进行了美化,分别设置了封面、标题栏和状态栏。 4 部分程序代码 Option Explicit Private Sub Form_Load() ' 初始化TabStrip控件的位置和大小 Dim i As Integer '使TabStrip控件大小随着窗体变化 TabStrip1.Top = 0 TabStrip1.Left = 0 TabStrip1.Width = Me.ScaleWidth TabStrip1.Height= Me.ScaleHeight Cmd2.Enabled = False Cmd3.Enabled = False …… Tex1.Text = Year(Now()) Tex2.Text = Month(Now()) Tex3.Text = Day(Now()) Tex4.Text = Hour(Now()) Tex5.Text = Minute(Now()) If Val(Minute(Now())) > 19 Then Tex5.Text = Minute(Now()) - 20 Tex4.Text = Hour(Now()) End If If Val(Minute(Now())) < 20 Then Tex4.Text = Hour(Now()) - 1 Tex5.Text = (Minute(Now()) - 20 + 59) End If End Sub Private Sub Option1_Click() Lab41.Visible = False Tex41.Visible = False Text12.Visible = True Text13.Visible = True Opt1.Visible = True Opt2.Visible = False End Sub Private Sub Option2_Click() Lab41.Visible = True Tex41.Visible = True Text1.Visible = False Label4.Visible = False Combo1.Visible = True …… Opt1.Visible = False Opt2.Visible = True End Sub Private Sub Cmd1_Click() Dim WordApp Dim Word '判断编号是否为空 If Tex7.Text = "" Then MsgBox "请输入文件编号!", 48, "提示" Exit Sub End If Set WordApp = CreateObject("Word.Application") Set Word = WordApp.Documents.Open("d:\bangong\bangong.doc") Word.bookmarks.Item("dizhi").range.Text = dizhi Word.bookmarks.Item("renyuan11").range.Text = xingming Word.bookmarks.Item("bookyear5").range.Text = year1 Word.bookmarks.Item("bookday6").range.Text = day1 Word.saveas (current_file) Word.Close WordApp.quit Set WordApp = Nothing Set Word = Nothing MsgBox "存盘成功!", 0, "提示" End Sub Private Sub Cmd2_Click() Dim WordApp Dim Word current_file = "d:\bangong\" + bianhao + ".doc" Set WordApp = CreateObject("Word.Application") Set Word = WordApp.Documents.Open(current_file) WordApp.Visible = True Set WordApp = Nothing Set Word = Nothing End Sub Private Sub Cmd3_Click() WordApp.printout Word.Close WordApp.quit Set WordApp = Nothing Set Word = Nothing End Sub Private Sub Cmd4_Click() Cmd2.Enabled = False Cmd3.Enabled = False Tex1.Text = Year(Now()) Tex2.Text = Month(Now()) Tex3.Text = Day(Now()) Tex4.Text = Hour(Now()) Tex5.Text = Minute(Now()) Text6.Text = "" Text7.Text = "" Tex38.Text = "" Tex39.Text = "" Tex41.Text = "" Tex42.Text = "" Tex43.Text = "" Tex44.Text = "" Tex47.Text = "" Tex51.Text = "" Tex68.Text = "" Text1.Visible = False Label4.Visible = False Label5.Visible = False End Sub Private Sub Cmd5_Click() Form3.Hide '窗體3隐藏 Form2.Show '窗体2显示 End Sub 参考文献: [1] 将word文档按分页另存为多个word文件的VBA代码-网络学院-中原硅谷网[EB/OL].http://school.zzit.com.cn/OfficeSoft/Word/20110105/296308.html. [2] 张立科. Visual Basic 6.0程序设计参考手册[M].北京:人民邮电出版社,2003. [通联编辑:光文玲] |
随便看 |
|
科学优质学术资源、百科知识分享平台,免费提供知识科普、生活经验分享、中外学术论文、各类范文、学术文献、教学资料、学术期刊、会议、报纸、杂志、工具书等各类资源检索、在线阅读和软件app下载服务。