阅读 103

DELPHI 调用系统 ADO 配置窗体 提高软件易用性

最近DELPHI好像不太景气哦,把自己的代码拿出来晒晒。高手别喷哦。

直接上代码

implementation

uses AdoConEd;

var  saveconnstr:string;

 

procedure TFsetup.BTAUTOClick(Sender: TObject);
var
tmpF:TConnEditForm; //配置向导
begin
try
  tmpf:=TConnEditForm.Create(application);
  tmpf.ConnectionString.Text:=saveconnstr;//原参数传入
  tmpf.ShowModal;
  if length(tmpf.ConnectionString.Text))>0 then
     saveconnstr:=trim(ConnectionString.Text); //新参数传回
finally
  tmpf.Free;

end;

end;

 

 

 

原文:https://www.cnblogs.com/jijm123/p/13958142.html

文章分类
代码人生
版权声明:本站是系统测试站点,无实际运营。本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 XXXXXXo@163.com 举报,一经查实,本站将立刻删除。
相关推荐