begin
            ADOConnection1.ConnectionString := reg.ReadString('ibps');
            showmessage(ADOConnection1.ConnectionString);
            //ADOConnection1.ConnectionString:='Provider=MSDAORA.1;Password=ibps;User ID=ibps;Data Source=ibps;Persist Security Info=True';
            ADOConnection1.LoginPrompt := True;
            ADOConnection1.Connected := True;
        end
只有在程序里面写死了密码,请高人指点