Database1.Connected:=False;
Database1.Params.Values['USERNAME']:='SYSDBA';
Database1.Params.Values['PASSWORD']:='csdn';
Database1.LoginPrompt:=False;
Database1.DatabaseName:='MYDB';
Table1.DatabaseName:='MYDB';
Table1.TableName:='EMPLOYEE';
Table1.Open;
Database1.Params.Values['USERNAME']:='SYSDBA';
Database1.Params.Values['PASSWORD']:='csdn';
Database1.LoginPrompt:=False;
Database1.DatabaseName:='MYDB';
Table1.DatabaseName:='MYDB';
Table1.TableName:='EMPLOYEE';
Table1.Open;
Database1.LoginPrompt:=False; !
Database1.LoginPrompt:=False; !!
Database1.LoginPrompt:=False; !!!
关于如何登陆有密码的
看以前的帖子
但这样在发布时是十分麻烦的
使用ADO吧,
procedure TForm1.Database1Login(Database: TDatabase;
LoginParams: TStrings);
begin
LoginParams.Add('username')=sa;
LoginParams.Add('password')='your password';
end;