【实例手把手】Delphi连接SQL_Server_2000..docVIP

下载本文档

30
0
约2.85千字
约 6页
2017-01-01 发布于重庆
举报
版权申诉

【实例手把手】Delphi连接SQL_Server_2000..doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

【实例手把手】Delphi连接SQL_Server_2000.

【实例手把手】Delphi连接SQL Server 2000 分类：数据库概论 2009-11-12 14:22 18387人阅读评论(11) 收藏举报一、在Delphi7中连接MS SQL Server 2000的方法。刚开始时界面如下：添加4个控件。 ? ? ?设置控件属性过程：? 1、ADOConnection1设置 1）双击ADOConnection1，进行设置连接字符串（作用是：选取连接驱动方式和连接的数据库设置）。过程如下图所示：? ? ?2、ADOQuery1设置：? 1）ADOQuery1.connection属性为ADOConnection1; 2）ADOQuery1.SQL属性为select student.sno,sname,cname,grade from student,sc,course where student.sno=sc.sno and course.cno=sc.cno 3）ADOQuery1.Active设置为TRUE。? 3、DataSource1设置 DataSet属性为ADOQuery1? 4、DBGrid1设置 DataSource属性设置为DataSource1.? 效果图： ? 二、通过Delphi7进行设计SQL查询的界面和程序实现。 ?1、界面设计添加Edit，Button和Label控件，如图摆放和设置基本属性。 ? ? 2、在BitBtn1的Click事件内完成程序。（Edit1和Edit2的综合查询，共4种情况） procedure TForm1.BitBtn1Click(Sender: TObject); var i:integer; SqlStr:String; begin i:=0; if edit1.Text then i:=i+1; if edit2.Text then i:=i+2; case i of 0: begin SqlStr:=select student.sno,sname,cname,grade from student,sc,course +where student.sno=sc.sno and course.cno=sc.cno ; adoquery1.Close; //关闭ADOQuery1，以便于进行SQL语句更新 adoquery1.SQL.Clear; //清空SQL语句 adoquery1.SQL.Add(sqlStr); //添加新的SQL adoquery1.Open; //新SQL有效 end; 1: begin SqlStr:=select student.sno,sname,cname,grade from student,sc,course +where student.sno=sc.sno and course.cno=sc.cno and sname=+edit1.Text+; adoquery1.Close; //关闭ADOQuery1，以便于进行SQL语句更新 adoquery1.SQL.Clear; //清空SQL语句 adoquery1.SQL.Add(sqlStr); //添加新的SQL adoquery1.Open; //新SQL有效 end; 2: begin SqlStr:=select student.sno,sname,cname,grade from student,sc,course +where student.sno=sc.sno and course.cno=sc.cno and cname=+edit2.Text+; adoquery1.Close; //关闭ADOQuery1，以便于进行SQL语句更新 adoquery1.SQL.Clear; //清空SQL语句 adoquery1.SQL.Add(sqlStr); //添加新的SQL adoquery1.Open; //新SQL有效 end; 3: begin SqlStr:=select stud