一、数据库的准备
打开“开始／程序／Microsoft SQL Server/企业管理器”展开“控制台根目录”的目录，在标有“数据库”的目录项上点击右键，再点“新建数据库”，如“TEST”。再右键点击表，新建表，如“TABLE1”。
二、设置ODBC数据源
打开“开始／设置／控制面板／管理工具／数据源（ODBC）”，在“User DSN”下，点Add，选择“SQLServer”，完成，输入数据源名称，如“TEST-ODBC”和SQL Server服务器名称，后面一直点“下一步”到最后一页，再点“Test data source..”检测设置是否正确。如果正确显示“tests completed successfully!”的信息。
三、设置数据引擎
打开“开始／程序／Borland Delphi7/BDE Administrator”，\在"Databases"页面下，可以看到，刚才设置的ODBC数据源“TEST-ODBC”，右键，选择“OPEN”，出现输入"user name"、"Password"的对话框，输入用户名Administrator及密码后点击“OK”使它有效。这时，如果连接正常，右侧的项目名称的字体变成粗体。注意：如要修改参数值，应先鼠标右键点击左侧的数据库名称，选择“Close”，在修改参数值后，用鼠标右键点击左侧的数据库名称，选择“Apply”保存，再选择“OPen”使新的参数值生效。
四、建立连接
在Delphi窗体上添加下列组件：Database、Query、Datasource、DBGrid。其中database是连接SQLServer数据库和Query的桥梁，Query完成具体的查询要求，DBGrid是为了显示数据库内容而添加的。
如未能正常连接，在生成Database中，添加连接代码如下：
Database1.Database1Name := 'md';
Database1.DriverName := 'MSSQL';
Database1.Params.Clear;
Database1.Params.Add('Database1 NAME=' + '''TEST-ODBC'''); //据源名称
Database1.Params.Add('SERVER NAME=' + '''LOCAL'''); ///sql服务器
Database1.Params.Add('USER NAME=' + '''sa'''); //sql服务器登录名
Database1.Params.Add('PASSWORD=' + '''sa123'''); //sql服务器登录密码
Database1.Params.Add('OPEN MODE=READ/WRITE');
Database1.Params.Add('SCHEMA CACHE SIZE=8 ');
Database1.Params.Add('BLOB EDIT LOGGING=');
Database1.Params.Add('LANGDRIVER= ');
Database1.Params.Add('SQLQRYMODE=LOCAL'); /*********
Database1.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
Database1.Params.Add('DATE MODE=0');
Database1.Params.Add('SCHEMA CACHE Time =-1 ');
Database1.Params.Add('MAX QUERY TIME=300');
Database1.Params.Add('MAX ROWS=-1');
Database1.Params.Add('BATCH COUNT=200');
Database1.Params.Add('ENABLE SCHEMA CACHE=FALSE ');
Database1.Params.Add('SCHEMA CACHE DIR= ');
Database1.Params.Add('HOST NAME=' + '''MichaelMai.'''); /*********
Database1.Params.Add('APPLICATION NAME= ');
Database1.Params.Add('NATIONAL LANG NAME=');
Database1.Params.Add('ENABLE BCD=FALSE ');
Database1.Params.Add('TDS PACKET SIZE=4096');
Database1.Params.Add('BLOBS TO CACHE=64');
Database1.Params.Add('BLOB SIZE=32');
Database1.Connected := True;