劳保管理 ACCESS数据库 作为设计的一个参考

各位朋友：

大家好！ 感谢您下载本程序！

本程序是“Delphi数据库”专题讲座中的一个例子，也是去年（2001年）心铃为公司写的劳保用品管理程序的第一个版本。这第一个版本基本功能都实现了，但写的不是太好，主要是程序代码不够高效、简洁，还有许多地方需要进一步加工完善。让高手们见笑了！如果您是高手，就别看此程序了。此程序主要是供初学数据库编程的朋友看的。

程序使用方法：
delphi5.0，
本程序使用的数据库是Access97格式的数据库，首先在BDE中建立一个MSAccess类型的数据库别名lklb,指向数据库lklb.mdb。
本程序用到的其他单元和组件：
1 mylib.pas单元，这里有心铃自己编写的几个函数，包括提取汉字拼音首字母的函数（支持二级字库），在程序中采用的是uses mylib方式来使用的，无需安装，只要在当前目录下有此文件就可以了。
2 F_access.pas 此单元是用来压缩、修复access97数据库的单元，在数据库维护功能中使用，无需安装，只要在当前目录下有此文件就可以了。
3 fcopy.zip,文件拷贝组件，解压后，安装fc.dpk,用在数据库维护中的数据库备份和恢复，其实就是拷贝文件。若不安装此组件也可，你可以自己写文件拷贝代码，也不是太困难。
4 printatonce.zip,打印组件，用于打印dbgrid的内容，用在打印名单和发放清单，需要安装压缩包中的printatonceEx.pas，此组件有一个特点是，运行时系统必须安装有打印机，如果你没有打印机也要安装一个，否则程序运行时会出现非法错误。现在打印dbgrid的组件还有，如EHlib中的都可以。

几点说明：

1 本程序在D5下写的，采用的是access97库，F_access.pas单元压缩修复97库可以，但压缩ACCESS2000库似乎不行，我试过了。如果你使用的是ACCESS2000库，在D5下直接用BDE建立别名似乎是不支持的，但可以通过ODBC方式进行。
2 printatonce.zip组件在D6下无法正常安装，虽然有源码，也不行。所以如果您使用的D6,就不要安装此组件了，在D6中打开此程序时忽略此组件即可，编译时会指出一些错误指出，将这些地方删除就是了。
3 界面上数据库组件比较多，影响了查看。原来没预料到数据库组件用这么多，其实最好用一个数据窗体，把这些数据库组件都放进去，这样界面就不乱了，心铃后来也懒得再改写了，这里说明一下。
4 程序密码验证窗口采用是比较简单的算法即年份＋日子，比如今天是2002年X月23日，那么密码就是2002+23=
2025；密码天天变。

5 本程序包中提供了编译好的EXE文件，如果您想直接试用一下，那么在BDE中建立一个MSAccess类型的数据库别名lklb,指向数据库lklb.mdb即可。

最后的建议：
鉴于打印和文件拷贝都不是主要功能，所以如果您对安装组件不熟悉的话可以不安装这两个组件，在D5中打开程序时忽略他们，在编译时或在调试时将有关代码注释掉或删除就可以了。初学者主要看看是如何处理数据库的就可以了。

本程序我正在改写，改为用D6,ADO来完成，这样就无需BDE了，AC97库或AC2000库都可同时支持。讲座的后面几讲会告诉大家如何用ADO来改写。

先到这里吧，如果有问题请发信到[e-mail]