Á¬½Ó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Êý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
³¡¾°ÈçÏ£º
¿Í»§°Ñ±¸·ÝºÃµÄÊý¾Ý¿â£¬·¢¸øÎÒ£¬ÎÒÔÚ±¾»ú»¹Ôºó£¬ÔËÐÐдºÃµÄ´æ´¢¹ý³Ì£¬±È½Ï¿ì£¬²¢ÇÒÔÚʵʩÄDZßÔËÐÐͬÑù±È½Ï¿ì¡£µ«Êǵ±ÊµÊ©ÔÚ¿Í»§ÄDZßÔËÐеÄʱºòËٶȾͷdz£µÄÂý£¬Ê±¼ä³¬³öÁ˳ÌÐòµÄʱ¼äÏÞÖÆ¡£Ô¶³ÌÔÚ¿Í»§ÄÇ ......
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......