我是用adoconnection连接数据库的但是当我把软件做好了之后 怎么做更改 用户名和用户密码信息的 文件呢
解决方案 »
- 急,如何在线程函数内执行当前线程里的其它函数
- Delphi WebService 生成的DLL文件 难道不可以访问外部的文件 ,比如INI
- [高分急问]如何让WindowsMediaPlayer10的版本在Windows Media Player12版本上正常运行呢?
- 多线程!在线等!!!
- 单位要我做一个发票打印程序,这次对我来说至关重要,大家帮我出出意见!
- 没学过delphi,没有pascl语言基础,学过vb,我应该怎样开始学习delphi呢,急!
- 请问高手们,如何实现文本以像素滚动?
- 数据打包处理如何进行,
- 说你胖,你就喘,给你点分你就抢
- 请教如何控制tdbchart的坐标?
- 如何用Table实现真正的模糊查询
- 求取得汉字拼音的拼单库,要求是数据库的,
[db]
ServerName=.
UserN=sa
PassWd=123
DBName=test
[otherParas]
2.在数据模块的Create事件中写如下代码
var
ComName,ProPath,PassWd,UserN,F,DBName,FilePath:string;
begin
FilePath := ExtractFilepath(Application.ExeName) ;
F:=TIniFile.Create(FilePath+'Config.Ini');
Try
ComName:=F.ReadString('System','ServerName','');
UserN:=F.ReadString('System','UserN','') ;
PassWd:=F.ReadString('System','PassWd','');
DBName:=F.ReadString('System','DBName','');
Finally F.Free;
End;
ProPath:='Provider=SQLOLEDB.1;Password='+PassWd+';Persist Security Info=True;User ID='+UserN+';Initial Catalog='+DBName+';Data Source='+ComName;
ADOConn.Close ;
ADOConn.ConnectionString :=ProPath ;
Try
LoadData:=True ;
ADOConn.Connected := True ;
Except
LoadData:=False ;
ComDlg('连接数据库失败,请重试...!',HTERROR);
Application.Terminate;
Exit ;
End;
end;
帮你顶一下
当我想编译的时候为什么会说 Application 没有定义呢 这是什么原因呢?
至于本地数据库嘛,用相对路径就行了
ExtractFilePath(ParamStr(0))返回程序的目录'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'Date.mdb;Persist Security Info=False'
当我想编译的时候为什么会说 Application 没有定义呢 这是什么原因呢?