TDatabase控件的Params的参数如何用程序代码设置？

[ENIAC1946]

各位：

　　TDatabase控件的Params的参数如何用程序代码设置？

　　还请赐教！

[struggle813]

在Delphi中，有Database元件和对象，Database对象有属性:Params和LoginPrompt，充分使用这两个属性就会自动Login数据库。下面的例程就会自动Login。

例：新建一程序(Project),在Form上放置Table,Database,DataSource,DBGrid各一个，并通过Object Inspector将DBGrid的DataSource指向DataSource，DataSource的DataSet指向Table。双击Form，进入Form1的Create事件程序代码编辑，输入：
Database1.Params.Values['USERNAME']:='SYSDBA';
Database1.Params.Values['PASSWORD']:='masterkey';
Database1.LoginPrompt:=False;
Database1.DatabaseName:='MYDB';

Database1.AliasName:='IBLOCAL';
Table1.DatabaseName:='MYDB';
Table1.TableName:='EMPLOYEE';
Table1.Open;
运行程序(Run, F9)则可以自动Login Interbase，将数据表中的数据显示在DBGrid中。
注：对于不需要用户名和密码的ODBC驱动，可以设置USERNAME和PASSWORD为空。

[qianguob]

上面的应该可以了

也就想给SQL语句中的参数赋值一样的。

[Drate]

{ Move all parameter info from Params2 to Params1 }
while Params2.Count <> 0 do
begin
{ Grab the first parameter from Params2 }
TempParam := Params2[0];
{ Remove it from Params2 }
Params2.RemoveParam(TempParam);
{ And add it to Params1 }
Params1.AddParam(TempParam);
end;