VB文档管理系统设计及源代码 第11页
为了实现组卷，还需要用到文档资料和档案柜资料的2个窗体，它们分别是在添加文档到卷宗来的时候，有2个文本号选择和档案柜号选择按钮激发的事件结果。这二个窗体运行的界面如下：
 
说明：选择某个档案柜号，然后点击确定，几个触发它的click事件，将当前的档案号添加到组卷窗体的档案号中，click事件的语句是：Form5.Text5.Text = DataGrid1.Text
文件资料窗体运行界面：                                                
 
控件有：确定和关闭按钮二个控件。该窗体装载是load事件自动实现对文件数据库中的状态是“否”的文件搜索到记录集中，并作为网格容器控件的数据源。网格控件的click事件是将选中的记录添加到组卷窗体中的相应文本框中。作为组卷的数据信息。load事件的代码如下：
Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb;"
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select  文件号,文件名,状态 from file where 状态='否' ", db, adOpenStatic, adLockOptimistic
  Set DataGrid1.DataSource = adoPrimaryRS
4.5系统菜单的实现
设计一个菜单系统，一般要经过几个步骤：菜单系统的规划，建立菜单与子菜单，把任务分配到菜单系统中，生成菜单程序，测试和运行菜单系统等，VB6.0是通过设计窗体来完成菜单的设计界面的，本系统设计的菜单运行如下：
 
各个菜单项的click事件代码如下：
Private Sub exit_Click()
End
End Sub
Private Sub file_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
End Sub
Private Sub jiangui_Click()
Form4.Show
End Sub
Private Sub setup_Click()
Form3.Show
End Sub
Private Sub zhujuan_Click()
Form5.Show
End Sub
其中的Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2是控制窗体在屏幕中的位置居中。

总  结
            
经过多日来的努力《文档管理系统》终于完成了。回顾这次毕业设计的过程，我觉得收获很大，现借撰写论文总结的机会，谈一谈我的体会。
通过这次毕业设计，我掌握了一种新的数据库系统开发工具Visual Basic6.0。我对于它具有的可视化的编程环境和连接数据库的便捷性用感触颇深，Visual Basic6.0这些数据库的连接提供了多种方法。比如DATA控件对初学着就非常容易掌握，当然利用语句对数据库的连接就可以实现对数据库的高级应用。Visual Basic6.0这种面向对象的数据库开发工具提供了窗体这种户非常友好的交互方式。利用设计好的窗体据库的记录进行操作，不但使用户更清楚记录的具体变更情况，也使开发人员的工作轻松了许多。
同时，在这次毕业设计过程中，我始终遵循软件工程的思想，这使我的工作进度明显加快，也使我少走了不少弯路。软件工程的思想，指导我一步一步从系统分析，到系统设计，再到系统实现，让我对整个系统的开发过程有了明显的全局观念，也合理地安排了整个设计的时间。
以上是我在本次毕业设计中的体会，也许认识到的问题还很肤浅，这也正是我今后要努力提高的。

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] 下一页