ReadFile.FileName := edit1.text
解决方案 »
- 怎么样表单form1中判断form2是否已经生成了?
- 各位 :在Delphi中有没有类似VS中的flexgrid控件
- 矢量图形缩放算法(数据结构研究),高手(牛人)请进,高分捧送!
- 关于insert插入的问题
- SOCKET 新手
- 这个报表怎么解决了?
- 关于WISE制作安装程序的问题?
- SOS........................................
- 谁可以给我入门一下nt service.
- 在DELPHI6中做CLX应用程序的报表如何实现?现在的DELPHI6好像没有相应的组件……
- 《〈〈〈〈笑话。请高手帮忙bde问题。
- 100万条记录有什么办法使它查询最快? 能在三秒钟内查出,分页...?
我是这样做的可报上面的错误。
unit DBRead;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,inifiles, DB, ADODB, Grids, DBGrids;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
OpenDialog1: TOpenDialog;
DBGrid1: TDBGrid;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
//function connection_ado(ado_name:TADOConnection;ini_name:Tinifile):boolean;
end;var
Form1: TForm1;
dir,str1: string;
implementation
uses DM;
{$R *.dfm}{function connection_ado(ado_name:TADOConnection;ini_name:Tinifile):boolean;
var
Sprovider,Spassword,Ssecurity,Suser,Sinitial,Sdatasource,Sprepare,Stranslate,
Spacker,Sworkstation:string;
begin
Sprovider:=ini_name.ReadString('Parameters','provider','');//从INI文件中读取数据
Spassword:=ini_name.ReadString('parameters','Password','');
Ssecurity:=ini_name.ReadString('Parameters','Persist Security Info','');
Suser:=ini_name.ReadString('Parameters','User ID','');
Sinitial:=ini_name.ReadString('Parameters','Initial Catalog','');
Sdatasource:=ini_name.ReadString('Parameters','Data Source','');
Sprepare:=ini_name.ReadString('Parameters','Use Procedure for Prepare','');
Stranslate:=ini_name.ReadString('Parameters','Auto Translate','');
Spacker:=ini_name.ReadString('Parameters','Packet Size','');
Sworkstation:=ini_name.ReadString('Parameters','Workstation ID','');
//赋值连接信息
ado_name.ConnectionString:='Provider='+Sprovider+';'+'Password='+Spassword+';'+
'Persist Security Info='+Ssecurity+';'+'User ID='+Suser+';'+
'Initial Catalog='+Sinitial+';'+'Data Source='+Sdatasource+';'+
'Use Procedure for Prepare='+Sprepare+';'+'Auto Translate='+Stranslate+';'+
'Packet Size='+Spacker+';'+'Workstation ID='+Sworkstation;
ado_name.LoginPrompt:=true;
//释放INI文件占用资源
ini_name.Free;
end; }
//查找初始化文件
procedure TForm1.Button1Click(Sender: TObject);
var
filename:string;
i:integer;
begin
if OpenDialog1.Execute then
begin
filename:= OpenDialog1.FileName;
edit1.Text:=filename;
dir:=edit1.Text;
end;
str1:='';
i:=length(dir);
while copy(dir,i,1)<>'\' do
begin
str1:=copy(dir,i,1)+str1;
i:=i - 1;
end;
edit1.Text:=str1;
end;
//调用connection_ado函数,将初始化文件内容写入ADOconnection参数中
procedure TForm1.Button2Click(Sender: TObject);
var
ReadFile:TiniFile;
Sprovider,Spassword,Ssecurity,Suser,Sinitial,Sdatasource,Sprepare,Stranslate,
Spacker,Sworkstation:string;
begin
ReadFile:=TiniFile.Create(str1);
//assignFile(ReadFile,edit1.Text);
//ReadFile.FileName:=str1; Sprovider:=ReadFile.ReadString('Parameters','provider','');//从INI文件中读取数据
Spassword:=ReadFile.ReadString('parameters','Password','');
Ssecurity:=ReadFile.ReadString('Parameters','Persist Security Info','');
Suser:=ReadFile.ReadString('Parameters','User ID','');
Sinitial:=ReadFile.ReadString('Parameters','Initial Catalog','');
Sdatasource:=ReadFile.ReadString('Parameters','Data Source','');
Sprepare:=ReadFile.ReadString('Parameters','Use Procedure for Prepare','');
Stranslate:=ReadFile.ReadString('Parameters','Auto Translate','');
Spacker:=ReadFile.ReadString('Parameters','Packet Size','');
Sworkstation:=ReadFile.ReadString('Parameters','Workstation ID','');
//赋值连接信息
DM1.ADOConnection1.ConnectionString:='Provider='+Sprovider+';'+'Password='+Spassword+';'+'Persist Security Info='+Ssecurity+';'+'User ID='+Suser+';'+'Initial Catalog='+Sinitial+';'+'Data Source='+Sdatasource+';'+'Use Procedure for Prepare='+Sprepare+';'+'Auto Translate='+Stranslate+';'+'Packet Size='+Spacker+';'+'Workstation ID='+Sworkstation;
DM1.ADOConnection1.LoginPrompt:=true;
//释放INI文件占用资源
DM1.ADOQuery1.Close;
DM1.ADOQuery1.Open;
ReadFile.Free;
{//DM1.ADOConnection1.Connected:=true; }end;end.