2000字范文,分享全网优秀范文,学习好帮手!
2000字范文 > 获取 TUniConnection.SpecificOptions默认值和下拉框列表值

获取 TUniConnection.SpecificOptions默认值和下拉框列表值

时间:2024-02-20 22:47:55

相关推荐

获取 TUniConnection.SpecificOptions默认值和下拉框列表值

TUniConnection的SpecificOptions参数决定了数据库连接配置参数,但可惜的是,SpecificOptions设计器界面,Devart公司只能让它在设计期配置!

SpecificOptions参数为什么那么有用呢?举个例子讲,如果你要连接MSSQL,可能碰到老版本的OLEDB或者当下的NativeClient版本,具体参数可选为:prAuto、prSQL、prNativeClient、prCompact。

因此,我们如果自己做界面参数配置,必须获取SpecificOptions默认值和下拉框表列表值。

首先在界面上放TUniConnection,设置ProviderName为SQL Server;在界面上放置TSQLServerUniProvider

代码如下

typeTMyConn = class(TUniConnection)end;procedure TForm7.btn1Click(Sender: TObject);varOptionsList: TOptionsList;i: Integer;Msg: string;List: TStringList;beginmmo1.Clear;List := TStringList.Create;if TMyConn(UniConnection1).CanGetProvider thenbeginOptionsList := TMyConn(UniConnection1).GetProvider.GetConnectionOptions;for i := 0 to OptionsList.Count - 1 dobeginList.Clear;OptionsList[i].GetValuesList(List);Msg := Msg + OptionsList[i].OptionName +' - ' +VarToStr(OptionsList[i].GetDefaultValue) + ' = ' +OptionsList[i].GetAsString(OptionsList[i].GetDefaultValue) +':' + sLineBreak + List.Text + sLineBreak;end;mmo1.Lines.Add(Msg);end;List.Free;

默认的unidac配置参数界面

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。