用ADO自动连接数据库

        公司管理软件有两个账册，在客户端通过在COMBOBOX中选择“2005”或“2006”，自动连接这两个账册上去。

        在FORM界面画板上放置 DATASOURCE , COMBOBOX , DBGRID , ADOCONNECTION , ADOQUERY .

        COMBOBOX1  -- INTEMS: 2005 , 2006 .

        ADOCONNECTION1  --  CONNECTIONSTRING 设置连接数据库的参数；LoginPrompt=False ;

        ADOQUERY1 --  CONNECTION  : ADOCONNECTION1 ; SQL : 设置 SELECT 语句； PARAMETERS 增加两个参数： user name = sa ; password = admin ;

       S1 , S2 分别保存连接数据库的字串；

procedure TForm1.FormCreate(Sender: TObject);

begin
    ADOConnection1.Connected:=False;
    ADOConnection1.ConnectionString:=S1;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
      ADOQuery1.Active:=True;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ADOConnection1.Connected:=False;
  ADOQuery1.Active:=False;
  if ComboBox1.ItemIndex=0  then
    ADOConnection1.ConnectionString:=S1;
  else
    ADOConnection1.ConnectionString:=S2;
  ADOQuery1.Active:=True;
end;

   这样可实现系统自动在两个账册上切换，而不需在登录界面上登录。