Á¬½ÓACCESS³öÏÖδָ¶¨µÄ´íÎó£¬Á¬½ÓSQLûÓÐÎÊÌâ
procedure TForm4.FormShow(Sender: TObject);
begin
with dataa.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð = Case ²Ù×÷Ô±¼¶±ð when 1 then ''ϵͳ¹ÜÀíÔ±'' when 2 then ''²Ù×÷Ô±'' end from ²Ù×÷Ô±ÐÅÏ¢±í');
Open;
end;
if Dataa.ADOQuery2.RecordCount>0 then
DataSource1.DataSet := Dataa.ADOQuery2
else
DataSource1.DataSet := Nil;
Combobox1.ItemIndex := 0 ;
Button1.SetFocus;
end;
ÒÔÉÏ´úÂëÁ¬½ÓACCESS³öÏÖδָ¶¨´íÎ󣬵«ÊÇÁ¬½ÓSQLûÓÐÎÊÌ⣬Äܵõ½Êý¾Ý£¿ÇëÎÊÎÊÌâ³ö´íÔÚÄĶù£¿
Èç¹ûÎÒû¼Ç´í£¬accessûÓÐCase then £¬ºÃÏñÓÐiif£¬markÒ»ÏÂÏÈ
ÊÔÊÔ£º
'select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð =iif(²Ù×÷Ô±¼¶±ð=1,''ϵͳ¹ÜÀíÔ±'',''²Ù×÷Ô±'' ) from ²Ù×÷Ô±ÐÅÏ¢±í'
×¢Ò⣺ÕâÀï²Ù×÷Ô±¼¶±ð·Ç1¾ÍÊDzÙ×÷Ô±£¬·ñÔò:
'select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð =iif(²Ù×÷Ô±¼¶±ð=1,''ϵͳ¹ÜÀíÔ±'',iif (²Ù×÷Ô±¼¶±ð=2,''²Ù×÷Ô±'','ÆäËüÈËÔ±) ) from ²Ù×÷Ô±ÐÅÏ¢±í'
'select ²Ù×÷Ô±±àºÅ,²Ù×÷Ô±ÐÕÃû,²Ù×÷Ô±ÃÜÂë,²Ù×÷Ô±¼¶±ð =iif(²Ù×÷Ô±¼¶±ð=1,''ϵͳ¹ÜÀíÔ±'',''²Ù×÷Ô±'' ) from ²Ù×÷Ô±ÐÅÏ¢±í'
³öÏÖдíÎó´íÎó
Ïà¹ØÎÊ´ð£º
ÎÒÓжà¸ö±íA B C ½á¹¹ÊÇÒ»ÑùµÄ£¬¶¼ÓÐ2¸ö×Ö¶ÎnameºÍcontent,ÎÒÒªËÑË÷ËùÒÔ±íËùÓÐ×Ö¶ÎÖаüº¬¡°Öйú¡±µÄÄÚÈÝ Õâ¸öSQLÓï¾äÔõôд
ÈçºÎ½«¶à¸ö±íµÄ²éѯ½á¹ûÁ¬³ÉÒ»¸ö±í Õâ¸öSQLÓï¾äÔõôд ±íµÄ½á¹¹ÊÇÒ»ÑùµÄ
ÀýÈç£ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
³¡¾°ÈçÏ£º
¿Í»§°Ñ±¸·ÝºÃµÄÊý¾Ý¿â£¬·¢¸øÎÒ£¬ÎÒÔÚ±¾»ú»¹Ôºó£¬ÔËÐÐдºÃµÄ´æ´¢¹ý³Ì£¬±È½Ï¿ì£¬²¢ÇÒÔÚʵʩÄDZßÔËÐÐͬÑù±È½Ï¿ì¡£µ«Êǵ±ÊµÊ©ÔÚ¿Í»§ÄDZßÔËÐеÄʱºòËٶȾͷdz£µÄÂý£¬Ê±¼ä³¬³öÁ˳ÌÐòµÄʱ¼äÏÞÖÆ¡£Ô¶³ÌÔÚ¿Í»§ÄÇ ......
ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......