文件名称：Delphi7.0编写的数据库系统初始化程序.rar
文件大小：58KB
文件格式：RAR
更新时间：2022-07-30 05:19:50
Delphi源码-系统相关
Delphi编写的数据库系统初始化程序源码，Delphi7.0版本开发的，请将名为qygl的脚本文件拷贝到应用程序所在的目录，注意，初始化会清空数据表中所有数据，在使用时小心，建议在使用前进行数据备份，以防止误删除数据造成数据丢失。相关的源代码： if Application.MessageBox('确实要进行初始化吗?','提示',mb_YesNO) = Id_Yes then begin if FileExists(ExtractFilePath(application.ExeName) '\qygl.SQL') = False then begin Application.MessageBox('请将名为qygl的脚本文件拷贝到应用程序所在的目录.','提示',64); Exit; end; Try Winexec(pchar('isqlw -S . -d qygl -E -i ' ExtractFilePath(application.ExeName) '\qygl.sql ' ' -o c:\ww.txt'),4); Application.MessageBox('初始化成功.','提示',64); Close; Except Application.MessageBox('初始化失败.','提示',64); Close; End;
【文件预览】：
srcfans.com
----初始化()
--------Project2.dsk(5KB)
--------Unit1.dfm(299KB)
--------Unit1.ddp(51B)
--------Project2.dof(2KB)
--------Project2.res(876B)
--------Unit1.pas(1KB)
--------Project2.cfg(434B)
--------Project2.dpr(188B)
--------Unit1.dcu(5KB)