ÎÒÓõÄÊÇsql server2000£¬¶¨ÒåÓÐ×Ö¶ÎѧºÅ£¨¹Ø¼ü×Ö£©£¬¡¡¡¡¡¡£¬ÕÕÆ¬£¨varchar(100))£¬ÒÔϲ¿·Ö´úÂ룺
procedure TfrmStuInfoMng.Label10Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image2.Picture.LoadfromFile(OpenPictureDialog1.FileName);
end;
end;
var
strPicPath:String;
procedure TfrmStuInfoMng.Label11Click(Sender: TObject);
begin
strPicPath := ExtractFilePath(Application.ExeName) + '\Images\' +DBEdit1.Text+ '.jpg';
Image2.Picture.SaveToFile(strPicPath);
Application.MessageBox('±£´æ³É¹¦!','ÕÕÆ¬±£´æ',MB_OK+MB_ICONASTERISK);
end;
ÆäÖеÚÒ»¸ö¹ý³ÌÊÇʵÏÖÉÏ´«ÕÕÆ¬¹¦Äܵģ¬µÚ¶þ¸ö¹ý³ÌÊÇʵÏÖ°´Ñ§ºÅ±£´æÕÕÆ¬µÄ¹¦Äܵ쬱£´æÂ·¾¶¾ÍÔÚÎÒµÄ.exe¿ÉÖ´ÐÐÎļþÏÂÎÒËù¼ûµÄImagesÎļþ¼ÐÏ£¬²¢ÃüÃûΪ¹Ø¼ü×ÖѧºÅ¡£
ÒòΪÎÒÔÚÊý¾Ý¿â´æµÄÊÇvarcharÀàÐ͵Ä×ֶΣ¬ËùÒÔµ±ÎÒ´ò¿ªÎÒËù×öµÄ´°¿Úʱ£¬²¢Ã»ÓÐÏÔʾÎÒ±£´æµÄÕÕÆ¬£¬±¾ÏëÓÃÒÔÏ´úÂëʵÏÖ£º
procedure TfrmStuInfoMng.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
Image2.Picture.LoadfromFile(strPicPath);
end;
¿ÉÊǶ¯²»ÁË£¡£¡£¬¼´±ãÎÒ°Ñstrpicpath¶¨ÒåΪȫ¾Ö±äÁ¿Ò²²»¿ÉÓã¬ÎÒÏëÎʵÄÊÇÎÒдµÄ¹ý³ÌTfrmStuInfoMng.ADOQuery1AfterScroll(DataSet:TDataSet)£»ÊDz»ÊÇ´íÁË £¬ÕýÈ·µÄ¸ñʽÊÇÔõôÑùµÄ£¡£¡£¿
£¨Ë³±ã²å²¥Ò»Ï£¬ÎÒ½¨µÄÁíÒ»¸ö±íÀïÃæÓÐedit£¬checkbox¿Ø¼þ£¬È«¶¼²»¿ÉÒÔÑ¡ÔñÁË£¿£¡ÎªÊ²Ã´°¡£¡ÆäÖпؼþµÄenabaleʱ¼äȫΪtrue£¡£¡Ë¿ÉÒÔ¸æËßÎÒ°¡£¡£¡£©
ÀÏʦ²¼ÖÃÁËÒ»¸ö¿ÎÌ⣬ÐèÒªÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ£¬µ«ÊÇÎÒÃÇ»¹Ã»ÓÐѧ¹ýDelphi£¬¸÷λ¸ßÊÖÄÜ·ñÖ¸µãһϣ¬ÈçºÎ½øÐÐϵͳÉè¼Æ£¬Ê±¼ä±È½Ï½ô¼±£¬Ð»Ð»°¡
ÎÒÒ²²»¶®£¬Ò²Ïëѧ£¡
ÎÒÒ²Êǰ¡£¬¸Ð¾õDelphiͦºÃµÄ£¬ÏÖ ......
°¥£¬¿´ÁËpascal¾«Òª£¬¶ÔÓï·¨ãÂã¶®¶®£¬È»ºó¿´Á˵ãdelphiµÄ²Ù×÷½çÃæ£¬×Ô¼ºÑ§ÁË2ÖÜÁË£¬¸Ð¾õģģºýºýµÄ¡£»ù±¾Ã»Ñ§µ½É¶¡£¡£ÊÖÉÏÓиö×öºÃµÄÏîÄ¿£¬Ò²¿´²»¶®¡£¡£Ôõô¼ÌÐøÑ§ÏÂÈ¥ÄØ¡£¡£»¹ÓÐÐÂÊÖ±àдpascal³ÌÐòÓÐɶºÃµÄÈí¼þÄØ
......
ÎÒÔÚDelphi 7Öбàд´úÂëʱҪµ÷ÓÃϵͳº¯Êý£¬°´×¡Ctrlµã»÷×ó¼ü¸ú×ÙÕâ¸öº¯ÊýµÄ¶¨Ò壬×îºóµ½ÁËWindows.pas£¬¿ÉÊÇÕâµØ·½¿´²»µ½º¯ÊýµÄ·µ»ØÖµÑ½£¿
¿´µ½µÄº¯ÊýÀàËÆ£º
function FindNextFile; external kernel32 name 'Find ......