回复：MIS多用户操作如何解决
我用的是Sql Server2000的而且还是个人版的
具体打什么补丁啊还有防火墙什么的怎么解决
我直接在登录界面的登录按钮判断连接是否成功如果不成功则弹出数据库连接的窗体
但是这个窗体老是连不上去，下面是连接按钮的代码
var
connectstring:String;
begin
if frm_data.conn.Connected then
begin
Application.MessageBox('数据库已经连接','提示',mb_ok or mb_IconInformation);
exit;
end;
if self.RadioGroup1.ItemIndex=-1 then
begin
Application.MessageBox('请选择验证方式','提示',mb_ok or mb_IconInformation);
exit;
end;
case self.RadioGroup1.ItemIndex of
0: connectstring:='Provider=SQLOLEDB.1;Password='+Trim(Edit3.Text)+';Persist Security Info=False;User ID='+Trim(Edit2.Text)+';Initial Catalog=work;Data Source='+Trim(Edit1.Text);
1: connectstring:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=work;Data Source='+Trim(Edit1.Text);
end;
frm_data.conn.ConnectionString:=connectstring;
try
frm_data.conn.Open;
Application.MessageBox('数据库配置成功','提示',mb_ok or mb_IconInformation);
except
Application.MessageBox('数据库配置失败','提示',mb_ok or mb_IconInformation);
end;
end;
