ÎÒÓõÄÊÇ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£¡£¡Ë¿ÉÒÔ¸æËßÎÒ°¡£¡£¡£©
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
1¡¢ÎÒÄÜ·ñÔÚdelphiÀïµ÷ÓÃÁíÍâÒ»¸öºǫ́³ÌÐò£¬µ«ÊÇÎÒ²»ÐèÒªµÈ´ýÕâ¸öºǫ́³ÌÐòÖ´ÐÐÍê³É£¬»¹¿ÉÒÔ¼ÌÐøÖ´ÐбðµÄ³ÌÐò¡£ÇëÎʾßÌåÔõôÑù²ÅÄÜʵÏÖ¡£
2¡¢ÎÒÄÜ·ñÔÚdelphiÉÏÖ´ÐÐÒ»¸ö¿ì½Ý¼ü£¬Ê¹delphi´°¿Ú³ÌÐòÄܹ»Ë¢ÐÂһϡ£[/size ......