Delphi编写的数据库系统初始化程序源码，Delphi7.0版本开发的，请将名为qygl的脚本文件拷贝到应用程序所在的目录，注意，初始化会清空数据表中所有数据，在使用时小心，建议在使用前进行数据备份，以防止误删除数据造成数据丢失。相关的源代码：
ifApplication.MessageBox('确实要进行初始化吗?','提示',mb_YesNO)=Id_Yesthen
begin
ifFileExists(ExtractFilePath(application.ExeName)'\qygl.SQL')=Falsethen
begin
Applic
