procedure sys_connect();
begin
with dm.DataModule1.Database1 do
begin
DriverName:='MSSQL';
Params.values['Server Name']:='192.100.100.14';
Params.values['Hosts Name']:='192.100.100.14';
Params.Values['DataBase Name']:='CFX';
Params.values['User Name']:='sa';
Params.Values['PassWord']:='sa';
LoginPrompt:=False;
KeepConnection:=true;
try
Connected:=true;
except
ShowMessage('连接数据库失败,请与电脑部联系!~~~~');
end;
end;
end;
begin
with dm.DataModule1.Database1 do
begin
DriverName:='MSSQL';
Params.values['Server Name']:='192.100.100.14';
Params.values['Hosts Name']:='192.100.100.14';
Params.Values['DataBase Name']:='CFX';
Params.values['User Name']:='sa';
Params.Values['PassWord']:='sa';
LoginPrompt:=False;
KeepConnection:=true;
try
Connected:=true;
except
ShowMessage('连接数据库失败,请与电脑部联系!~~~~');
end;
end;
end;