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

本文介绍了使用Delphi编程语言创建和删除SQL数据库表的方法,包括动态启动TAdoQuery对象,连接数据库,构建SQL语句,执行创建或删除操作,并显示操作结果。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值