【Delphi-ADO】Delphi读取INI连接数据库远程操作数据库

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls,IniFiles, Grids, DBGrids, Mask, DBCtrls;
9. type
10.   TForm1 = class(TForm)
11.     Button1: TButton;
12.     DBGrid1: TDBGrid;
13.     DBEdit1: TDBEdit;
14.     DBEdit2: TDBEdit;
15.     DBEdit3: TDBEdit;
16.     Button2: TButton;
17.     Button3: TButton;
18.     Label1: TLabel;
19.     Label2: TLabel;
20.     Label3: TLabel;
21.     procedure Button1Click(Sender: TObject);
22.     procedure Button2Click(Sender: TObject);
23.     procedure Button3Click(Sender: TObject);
24.   private
25.     { Private declarations }
26.   public
27.  //  procedure   InitCnn();   
29.     { Public declarations }
30.   end;
32. var
33.   Form1: TForm1;
35. implementation
37. uses  UDM2;
39. {$R *.dfm}
41. procedure InitCnn();
42.   var   
43.       strCnn: WideString;
44.       iniFile: TIniFile;
45.       strDatabase,strDataServer,strUserID,strPW:string;
46.       strTemp:   string;
47.   begin
48.         strTemp := ExtractFilePath(paramstr(0))+'data/cnn.ini';
49.      //    showmessage(strTemp);
50.       try   
51.           iniFile :=   TIniFile.Create(strTemp);
52.           strDataServer := iniFile.ReadString('Server', 'DataServer','');
53.           strDatabase := iniFile.ReadString('Server', 'Database','');
54.           strUserID := iniFile.ReadString('Server', 'UserID','');
55.           strPW := iniFile.ReadString('Server', 'Password','');
56.        //   showmessage(strDataServer);
57.        //   showmessage(strDatabase);
58.       //    showmessage(strUserID);
59.       //    showmessage(strPW);
60.   //Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=.
61.       finally
62.           iniFile.Free;   
63.       end;
64.       {*
65.       strCnn := 'Provider=SQLOLEDB.1;Password=' + strPW;
66.       strCnn := strCnn + ';Persist Security Info=True;User ID=';
67.       strCnn := strCnn + strUserID;
68.       strCnn := strCnn + ';Initial Catalog=' + strDatabase;
69.       strCnn := strCnn + ';DataSource=' + strDataServer;
70.       *}
71.       strCnn := 'Provider=SQLOLEDB.1;Persist Security Info=False;Password='+strPW+';User ID='+strUserID+';Initial Catalog='+strDatabase+';Data Source='+strDataServer;
72.       try
73.           with   DM.MainCnn   do
74.           begin   
75.               Connected := False;
76.               ConnectionString := strCnn;
77.               Connected := True;
78.               showmessage('数据库连接成功~');
79.               
80.           end;
81.       except   
82.           MessageBox(0,   '连接数据库失败'#13'请确认数据库程序是否启动',   '系统提示',
83.               MB_ICONERROR);
84.           Halt(0);
85.       end;   
86.   end;
89. procedure TForm1.Button1Click(Sender: TObject);
90. begin
91.    InitCnn();
92.   with DM.ADOQuery1 do
93.     begin
94.      DM.ADOQuery1.SQL.Clear;
95.      DM.ADOQuery1.SQL.Add('select * from jobs');
96.      DM.ADOQuery1.Active:=true;
97.      DBGrid1.DataSource := DM.DataSource1;
98.      DM.ADOQuery1.Open;
99. end;
100.    
101. end;
103. procedure TForm1.Button2Click(Sender: TObject);
104. begin
105. InitCnn();
106. with DM.ADOQuery1 do
107. begin
108. DM.ADOQuery1.SQL.Clear;
109. DM.ADOQuery1.SQL.Add('select * from jobs');
110. DM.ADOQuery1.Active:=true;
111. DBEdit1.DataSource := DM.DataSource1;
112. DBEdit1.DataField := 'job_desc';
113. DBEdit2.DataSource := DM.DataSource1;
114. DBEdit2.DataField := 'min_lvl';
115. DBEdit3.DataSource := DM.DataSource1;
116. DBEdit3.DataField := 'max_lvl';
117. DM.ADOQuery1.Append;
118. DM.ADOQuery1.Open;
119. Button3.Enabled:=true;
120. end;
121. end;
123. procedure TForm1.Button3Click(Sender: TObject);
124. begin
125. //InitCnn();
126. //with DM.ADOQuery1 do
127. //begin
128. //DM.ADOQuery1.SQL.Clear;
129. //DM.ADOQuery1.SQL.Add('select * from jobs');
130. //DM.ADOQuery1.Active:=true;
131. //DBEdit1.DataSource := DM.DataSource1;
132. //DBEdit1.DataField := 'job_desc';
133. //DBEdit2.DataSource := DM.DataSource1;
134. //DBEdit2.DataField := 'min_lvl';
135. //DBEdit3.DataSource := DM.DataSource1;
136. //DBEdit3.DataField := 'max_lvl';
137. DM.ADOQuery1.Post;
138. //DM.ADOQuery1.Open;
139. //end;
140. Button3.Enabled:=false;
141. end;
143. end.

1. ini文件
3. [Server]   
4. DataServer=192.168.66.100             
5. Database=pubs   
6. UserID=sa   
7. Password=