公司管理软件有两个账册,在客户端通过在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;
这样可实现系统自动在两个账册上切换,而不需在登录界面上登录。