database.sql

delphi下自动建立数据库的源代码

use master
if not exists (select name from sysxlogins where name = 'dba')
exec sp_addlogin 'dba', 'sql', 'master'

if not exists (select name from sysdatabases where name = 'Fxhldata') 
create database Fxhldata

if not exists (select name from sysdatabases where name = 'XsFxhldata') 
create database XsFxhldata