怎样去掉程序打开时的登录窗口? 老兄,这么简单也上网来问啊你就不能先弄本书看看啊就算不看书,help总会用吧 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 LoginPrompt设为False设置Database1.LoginPrompt:=False;都是一个意思。 dbLogin.LoginPrompt:=False;连接参数可以写注册表里面 下面是一个例子,时间紧,没有写容错,见谅!procedure TUserInfo.RemoteDataModuleCreate(Sender: TObject);var regConn : TRegistry; strConn : String; sProvider : String; sPersist : String; sUserID : String; sPassword : String; sCatalog : String; sDS: String; sPrepare : String; sTranslate : String; sPacketSize : String; sWorkStation : String; sEncryption : String; sTag : String;begin //开始构造连接串 //从注册表中读取连接参数 regConn := TRegistry.Create; try regConn.RootKey := HKEY_CURRENT_USER; regConn.OpenKey('\Software\IEdu',False); sProvider := regConn.ReadString('Provider'); sPersist := regConn.ReadString('Persist Security Info'); sUserID := regConn.ReadString('User ID'); sPassword := regConn.ReadString('Password'); sCatalog := regConn.ReadString('Initial Catalog'); sDS := regConn.ReadString('Data Source'); sPrepare := regConn.ReadString('Use Procedure for Prepare'); sTranslate := regConn.ReadString('Auto Translate'); sPacketSize := regConn.ReadString('Packet Size'); sWorkStation := regConn.ReadString('Workstation ID'); sEncryption := regConn.ReadString('User Encryption for Data'); sTag := regConn.ReadString('Tag with column collation when possible'); finally regConn.Free; strConn := 'Provider=' + sProvider + ';Persist Security Info=' + sPersist + ';User ID=' + sUserID + ';Password=' + sPassword + ';Initial Catalog=' + sCatalog + ';Data Source=' + sDS + ';Use Procedure for Prepare=' + sPrepare + ';Auto Translate=' + sTranslate + ';Packet Size=' + sPacketSize + ';Workstation ID=' + sWorkStation + ';User Encryption for Data=' + sEncryption + ';Tag with column collation when possible=' + sTag; end; connMain.ConnectionString := strConn; connMain.Connected := True;end; 本人的LoginPrompt就是False,而且params中都有username、password,但问题总存在楼上这位的建议还得琢磨琢磨(本人初学delphi,嘿嘿),不知注册表只写username、password,是否可以?这里先谢谢了!!! 设数据库别名为DataName1,数据据用户名为SA,密码为空,Database设置如下:Parameter如下:DATABASE NAME=DataName1USER NAME=saPASSWORD=下面的Options 的login prompt 设为FALSE 下面一个设为TRUE DLL向主程序中一个自定义对象发送消息 继续问在线帮助的问题 在ie中如何实现普通应用程序的窗体界面啊? 为什么用QuickReport打出来的东西是歪的?(在线)急!! 请IOoOI进来接分 我完了,女朋友彻底的跟别人走了,痛苦啊.......... 怎样调用默认windows邮件客户端发电子邮件? 哪里有 Delphi OrgChart 组织控件 小精灵的问题 能否给 vcl 控件分配内存? 谁能详细说一下MessageDlg和Inputbox的使用方法。 TStringField是怎么定义出来的?
设置Database1.LoginPrompt:=False;
都是一个意思。
连接参数可以写注册表里面
procedure TUserInfo.RemoteDataModuleCreate(Sender: TObject);
var
regConn : TRegistry;
strConn : String;
sProvider : String;
sPersist : String;
sUserID : String;
sPassword : String;
sCatalog : String;
sDS: String;
sPrepare : String;
sTranslate : String;
sPacketSize : String;
sWorkStation : String;
sEncryption : String;
sTag : String;
begin
//开始构造连接串
//从注册表中读取连接参数
regConn := TRegistry.Create;
try
regConn.RootKey := HKEY_CURRENT_USER;
regConn.OpenKey('\Software\IEdu',False);
sProvider := regConn.ReadString('Provider');
sPersist := regConn.ReadString('Persist Security Info');
sUserID := regConn.ReadString('User ID');
sPassword := regConn.ReadString('Password');
sCatalog := regConn.ReadString('Initial Catalog');
sDS := regConn.ReadString('Data Source');
sPrepare := regConn.ReadString('Use Procedure for Prepare');
sTranslate := regConn.ReadString('Auto Translate');
sPacketSize := regConn.ReadString('Packet Size');
sWorkStation := regConn.ReadString('Workstation ID');
sEncryption := regConn.ReadString('User Encryption for Data');
sTag := regConn.ReadString('Tag with column collation when possible');
finally
regConn.Free;
strConn := 'Provider=' + sProvider + ';Persist Security Info=' + sPersist + ';User ID=' +
sUserID + ';Password=' + sPassword + ';Initial Catalog=' + sCatalog + ';Data Source=' +
sDS + ';Use Procedure for Prepare=' + sPrepare + ';Auto Translate=' + sTranslate + ';Packet Size=' +
sPacketSize + ';Workstation ID=' + sWorkStation + ';User Encryption for Data=' + sEncryption +
';Tag with column collation when possible=' + sTag;
end; connMain.ConnectionString := strConn;
connMain.Connected := True;
end;
但问题总存在
楼上这位的建议还得琢磨琢磨(本人初学delphi,嘿嘿),不知注册表只写username、password,是否可以?
这里先谢谢了!!!
密码为空,Database设置如下:
Parameter如下:DATABASE NAME=DataName1
USER NAME=sa
PASSWORD=下面的Options
的login prompt 设为FALSE
下面一个设为TRUE