谁有数据库的实训报告总结 vb数据库实训总结

谁有数据库的实训报告总结

原发布者:流逝在黑暗里

20xx年x月28号，我们商务班踏上了实训的道路。而1月9号我们实训也已经结束。为期8天的实训让我领会到了许多平时课堂上所没有接受的课外知识，很让人受益匪浅，懂得如何去运用，而进行的一次分析设计综合的训练。本次实训的目的是让我们掌握数据库设计的方法、原理和技术，把理论与实践相结合，巩固课堂教学内容。经过我们小组的激烈讨论，这次实训我们从12个选题当中选择了仓储管理系统。大部分小组都选图书借阅管理系统，而我们小组就是不走寻常路的。仓储管理看似简单的一个选择，却很复杂。当老师让我们设计数据流图的时候，我们自我感觉是已经做流最充分的准备了，可是当老师给我们检查的时候，错误和漏洞一个个被发现并指正。而我们虚心接受了老师的指导。而我们发现简单的一个仓储管理系统包含了很繁琐而杂多的多系，所以我们果断摘取其中的一个部分----物流。仓储管理是现代物流不可或缺的重要环节。首先，仓储管理是对货物质量的保证；其次仓储管理是保证生产顺利进行的必要条件；最后，合理性的仓储管理是加快商品流通、节约流通费用的必要手段。现在真正到了我们创建数据库的时候了，当然首要的任务是建表了，表是建立关系数据库的基本结构，用来存储数据具有已定义的属性，在表的操作过程中，有查看表信息、查看表属性、修改表中的数据、删除表中的数据及修改表和删除表的操作。从实训中让我更明白一些知识，表是数据最重要的一个数据对象，表的创建好坏直接关系到数数据库的成

vb数据库实训总结

在VB中压缩ACCESS数据库 如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在Access项目中进行这样的压缩不会影响到数据库对象（例如表或视图），因为它们是存储在Microsoft SQL Server数据库中而不是在Access项目本身中。同样，这样的压缩也不会影响到Access项目中的自动编号。在Access数据库中，如果已经从表的末尾删除了记录，压缩该数据库是就会重新设置自动编号值。添加的下一个记录的自动编号值将会比表中没有删除的最后记录的自动编号值大一。 下面介绍如何在VB中用一个CompactJetDatabase过程实现对Access数据库文件的压缩处理，在这个过程中有一个可选参数，就是在压缩前你是否需要把原有的数据库文件备份到临时目录（True或False）。我用此办法使21.6MB的数据库压缩到仅仅300KB。 ‘这些代码可放在模块中，在其他窗体也使用 Public Declare Function GetTempPath Lib "kernel32" Alias _ "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Const MAX_PATH = 260 Public Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True) On Error GoTo CompactErr Dim strBackupFile As String Dim strTempFile As String ‘检查数据库文件是否存在 If Len(Dir(Location)) Then ‘如果需要备份就执行备份 If BackupOriginal = True Then strBackupFile = GetTemporaryPath & "backup.mdb" If Len(Dir(strBackupFile)) Then Kill strBackupFile FileCopy Location, strBackupFile End If ‘创建临时文件名 strTempFile = GetTemporaryPath & "temp.mdb" If Len(Dir(strTempFile)) Then Kill strTempFile ‘通过DBEngine压缩数据库文件 DBEngine.CompactDatabase Location, strTempFile ‘删除原来的数据库文件 Kill Location ‘拷贝刚刚压缩过临时数据库文件至原来位置 FileCopy strTempFile, Location ‘删除临时文件 Kill strTempFile Else End If CompactErr: Exit Sub End Sub Public Function GetTemporaryPath() Dim strFolder As String Dim lngResult As Long strFolder = String(MAX_PATH, 0) lngResult = GetTempPath(MAX_PATH, strFolder) If lngResult <> 0 Then GetTemporaryPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1) Else GetTemporaryPath = "" End If

数据库原理与应用课程设计

1、数据库课程设计要求见 文档”数据库原理及应用课程设计要求“
2、该压缩包里含参考资料、部分源文件、成品3个文件夹
3、参考资料文件夹里含学习课件、相关CDM图、业务流程图、数据字典、流程图 应该怎样做的资料 实验指导书、还有些习题作业、这个实验无关的sql语句练习、
2个另外独立完整的数据库课程设计：图书馆管理系统、小型超市管理系统
4、部分源文件文件夹里含文档里画的一些流程图、CDM图之类的、还有生成的SQL脚本
5、成品文件夹只含一个完成的数据库设计。