账套代码

----------------------------------------------
create proc proc_createcasher
(@locate varchar(50))
as
 if not exists(select name from sysdatabases)
   create database 分支进销存
     on
     (name='进销存_data',
     filename='@locate/进销存_data.mdf',
     maxsize=10MB,
     filegrowth=10%)
     log on
     (name='进销存_log',
     filename='@locate/进销存_log.ldf',
     maxsize=5MB,
     filegrowth=1MB)
       go
-----------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute
  then
    begin
      edit1.Text:=opendialog1.FileName;
    end;
end;
-----------------------------------------------
create proc proc_删除分支进销存
as
if exists(select name from sysdatabases)
drop database 分支进销存