DelphiÁ¬½ÓSQL Server 2000
Ò»¡¢ÔÚ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;
Ïà¹ØÎĵµ£º
Õ⼸ÌìÓÃÁËÒ»ÏÂMicrosoft SQL Server 200µÄ·ÖÎö·þÎñ£¬Ìù³öÀ´¸ø´ó¼Ò·ÖÏíһϡ£
Çë¶à¶àÖ¸Õý¡£Ð»Ð»¡£
Ò»¡¢ÐèÇó£º
½¨Á¢Ò»¸öͼÊé¶©µ¥Í³¼ÆÏµÍ³
1¡¢Í³¼Æ¸÷¸öͼÊé¹Ý¶©µ¥ÊýÁ¿¡£
2¡¢Í³¼Æ¸÷¸öͼÊé¹Ý¶©µ¥µÄ¸÷¸ö״̬µÄÊýÁ¿Õ¼¸ÃͼÊé¹ÝµÄ¶©µ¥ÊýÁ¿µÄ°Ù·Ö±È¡£
3¡¢Í¬Ê±Í³¼ÆÔʼÊýÁ¿ºÍ´¢ÔËÊýÁ¿
¶þ¡¢Êý¾Ý±í
Ö ......
ͨ³££¬ÄãÐèÒª»ñµÃµ±Ç°ÈÕÆÚºÍ¼ÆËãһЩÆäËûµÄÈÕÆÚ£¬ÀýÈ磬ÄãµÄ³ÌÐò¿ÉÄÜÐèÒªÅжÏÒ»¸öÔµĵÚÒ»Ìì»òÕß×îºóÒ»Ìì¡£ÄãÃǴ󲿷ÖÈË´ó¸Å¶¼ÖªµÀÔõÑù°ÑÈÕÆÚ½øÐзָÄê¡¢Ô¡¢Èյȣ©£¬È»ºó½ö½öÓ÷ָî³öÀ´µÄÄê¡¢Ô¡¢ÈյȷÅÔÚ¼¸¸öº¯ÊýÖмÆËã³ö×Ô¼ºËùÐèÒªµÄÈÕÆÚ£¡ÔÚÕâÆªÎÄÕÂÀÎÒ½«¸æËßÄãÈçºÎÊ ......
¹¹½¨ Windows SOAP ·þÎñÆ÷Ó¦ÓóÌÐò
Ê×ÏÈÔÚ Windows ÉϹ¹½¨·þÎñÆ÷£¬È»ºóÔÚ Linux ÉϹ¹½¨¿Í»§»ú¡££¨Èç¹ûÐèÒª£¬¿ÉÒÔʹÓÃÆäËü·½·¨ — »òÕß½«ËüÃÇÈ«²¿¹¹½¨ÔÚ Windows »ò Linux ÉÏ¡££©¶ÔÓÚ Windows SOAP ·þÎñÆ÷£¬Æô¶¯ Delphi 7 Enterprise£¬Ö´ÐÐ File -> New -> Other£¬×ªÖÁ¶ÔÏó×ÊÔ´¿â£¨Object Repository£©µÄ ......
ÎÒÔÚÉè¼ÆÊý¾Ý¿âµÄʱºò»á¿¼Âǵ½ÄÄЩÊý¾Ý×ֶν«À´¿ÉÄܻᷢÉú±ä¸ü¡£±È·½Ëµ£¬ÐÕÊϾÍÊÇÈç´Ë£¨×¢ÒâÊÇÎ÷·½È˵ÄÐÕÊÏ£¬±ÈÈçÅ®ÐÔ½á»éºó´Ó·òÐյȣ©¡£ËùÒÔ£¬ÔÚ½¨Á¢ÏµÍ³´æ´¢¿Í»§ÐÅϢʱ£¬ÎÒÇãÏòÓÚÔÚµ¥¶ÀµÄÒ»¸öÊý¾Ý±íÀï´æ´¢ÐÕÊÏ×ֶΣ¬¶øÇÒ»¹¸½¼ÓÆðʼÈÕºÍÖÕÖ¹ÈÕµÈ×ֶΣ¬ÕâÑù¾Í¿ÉÒÔ¸ú×ÙÕâÒ»Êý¾ÝÌõÄ¿µÄ±ä»¯¡£
²ÉÓÃÓÐÒâÒåµÄ×Ö¶ÎÃû
ÓÐÒ»»ØÎÒ ......
SQL×¢Èë¹¥»÷ÊǺڿͶÔÊý¾Ý¿â½øÐй¥»÷µÄ³£ÓÃÊÖ¶ÎÖ®Ò»¡£Ëæ×ÅB/SģʽӦÓÿª·¢µÄ·¢Õ¹£¬Ê¹ÓÃÕâÖÖģʽ±àдӦÓóÌÐòµÄ³ÌÐòÔ±Ò²Ô½À´Ô½¶à¡£µ«ÊÇÓÉÓÚ³ÌÐòÔ±µÄˮƽ¼°¾ÑéÒ²²Î²î²»Æë£¬Ï൱´óÒ»²¿·Ö³ÌÐòÔ±ÔÚ±àд´úÂëµÄʱºò£¬Ã»ÓжÔÓû§ÊäÈëÊý¾ÝµÄºÏ·¨ÐÔ½øÐÐÅжϣ¬Ê¹Ó¦ÓóÌÐò´æÔÚ°²È«Òþ»¼¡£Óû§¿ÉÒÔÌá½»Ò»¶ÎÊý¾Ý¿â²éѯ´úÂ룬¸ù¾Ý³ÌÐò ......