execsql.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

use Fxhldata
if not exists (select name from sysusers where name = 'dba')
exec sp_adduser 'dba'



grant create table, create view, create function, create procedure, create default, create rule , backup database, backup log to dba




/*-------------------------------------------------------------*/
use master
if not exists (select name from sysdatabases where name = 'XsFxhldata') 
create database XsFxhldata

use XsFxhldata
if not exists (select name from sysusers where name = 'dba')
exec sp_adduser 'dba'
grant create table, create view, create function, create procedure, create default, create rule , backup database, backup log to dba