2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
sl, sql :string;
begin
sl := Edit1.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Create database ' + sl);
ADOQuery1.ExecSQL;
ShowMessage('创建成功');
end;