Where]) in ''' + str + ''' select UserName,Age,Sex,ZZMM,BDate,InDate,Tel,[Where] from users'; 重要的代码就是上面的一句，Insert into 插入新的数据到Users表中的UserName,Age,Sex,ZZMM,BDate,InDate,Tel,[Where]各字段中。In ''' + str + '''到数据库文件中的Users表。Str是数据库完整的数据库文件路径。Select UserName,Age,Sex,ZZMM,BDate,InDate,Tel,[Where] from users 也是来自用户表。 整个的原理就是从现有的数据库中的Users表中使用Select语句查询出各字段，insert into并插入到Str数据库文件的Users表中。 with dm1.ADOConnection1 do begin Connected := True; Execute(sSql); end; 上面的代码是将ADOConnection数据库连接控件打开，并执行sSql中的Sql语句，以完成该项功能。 showmessage('导出员工表成功！'); 显示导出成功的消息框。下面的代码是导入数据的代码功能分析。 str := ExtractFilePath(Application.ExeName) + 'databak\data.mdb';同样是得到数据库的文件名和完整的地址。 sSql := 'insert into users(UserName,Age,Sex,ZZMM,BDate,InDate,Tel,[Where]) select UserName,Age,Sex,ZZMM,BDate,InDate,Tel,[Where] from users in ''' + str + ''''; 上面的代码与开始分析代码不一样的了。原理是从原来导出的数据库文件中（Str变量中的数据库文件），查询Select各字段，然后插入到现有的数据库文件Users表中。 with dm1.ADOConnection1 do begin Connected := True; Execute(sSql); end; 上面的代码是将ADOConnection数据库连接控件打开，并执行sSql中的Sql语句，以完成该项功能。 showmessage('导入员工表成功！'); 显示导入成功的消息框。 第五章 测试结果这一章中没有什么实际的东西可以分析了，只是程序在运行过程中的截图。下面将各大功能添加、修改、删除、查询、报表打印、数据库备份与恢复、数据导入与导出的运行图截出。 物品信息修改图 库存查询图 物品报表图 数据备份图 数据导入与导出图 结束语 通过这个设计，我了解了Delphi的操作，以及其基本的语法的使用，能够担任这一工作岗位的程序设计工作。在这里我参考了网上的其它程序设计功能并简化处理了，由于本人的能力所限现在只能够完成一个这样简单的程序设计。其它很多代码参考了网上提供的一些源代码，并加以修改使之能适应本系统。本人第一次设计一个完整的程序，其中还有很美中不足的地方，比如在系统管理中没有设计成多权限的管理，可能会在管理上造成一些混乱。在此次设计过程中XX导师给我了很大的帮助，在我设计的最困难时刻是XX导师的支持，本设计才得以完成，在这里我要感谢他。在这里还要感谢这些能将自己源代码共享的朋友，没有你们，我的设计难以完成。 本设计还不成熟，请各位指导老师还有同行和同学们多多指正。 参考文献： 1． Delphi 6.0 数据库实例编程 中国水利水电出版社 2. 实用Delphi 6.0教程 科学出版社 3． Delphi 程序设计实例祥解/周龙 范亚宁等编 西安电子科技大学出版社 4． Delphi 6.0深度解析 5. Delphi6.0数据库编程精通 6. 从零开始---Access 2000基础培训教程/老虎工作室 严向东着 人民邮电出版社 7. Access2000教程 北京希望电子出版社
