新建数据库源程序界面运行结果展示

procedure TForm2.buildNewSQLClick(Sender: TObject);
var
MyAdo2: TAdoQuery;
MRow,x: integer;
Mtext: string;
begin
  MyAdo2:=TAdoQuery.Create(nil);        //动态启动TAdoQuery
  MyAdo2.Connection:=ADOConnection1;    //连接TAdoQuery到数据库
  MRow := MColname.Lines.Count;
  if MColname.lines[0]<>'' then
  begin
    for x:=0 to MRow-1 do
    begin
      Mtext :=Mtext+'['+MColname.lines[x]+'] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,';
    end;
    showmessage(Mtext);
  end
  else
    showmessage('请在新建列名中输入内容！');


  try
    With MyAdo2 do
    begin
      Close;
      SQL.Clear;
      SQL.add('CREATE TABLE [dbo].['+ENewTname.Text+'](');
      SQL.add('[序号] [int] IDENTITY(1,1) NOT NULL,'+Mtext+')');
      ExecSQL;
    end;
    showmessage('新建SQL数据库<'+ENewTname.Text+'>表成功！')
  except
    showmessage('新建SQL数据库表失败!'+#13+'失败原因可能如下：'+#13+'1、新建的SQL数据库表已存在！')
  end;
end;


procedure TForm2.BitBtn1Click(Sender: TObject);
var
MyAdo2: TAdoQuery;
begin
  MyAdo2:=TAdoQuery.Create(nil);        //动态启动TAdoQuery
  MyAdo2.Connection:=ADOConnection1;    //连接TAdoQuery到数据库
  try
    With MyAdo2 do
    begin
      Close;
      SQL.Clear;
      SQL.add('drop table '+ENewTname.Text);
      ExecSQL;
    end;
    showmessage('成功删除SQL数据库<'+ENewTname.Text+'>！')
  except
    showmessage('操作失败')
  end;
end;


end.