ÎÒÓõÄÊÇ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£¡£¡Ë¿ÉÒÔ¸æËßÎÒ°¡£¡£¡£©
Ïà¹ØÎÊ´ð£º
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC....
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......
unit song;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,question;
type
TForm1 = class(TForm)
Lab ......