Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖеÄͼƬÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÓõÄÊÇ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 / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

DELPHI DLLʵ²Î´«´°Ìå

//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

Ôõô֪µÀDelphiϵͳº¯ÊýµÄ·µ»ØÖµ£¿

ÎÒÔÚDelphi 7Öбàд´úÂëʱҪµ÷ÓÃϵͳº¯Êý£¬°´×¡Ctrlµã»÷×ó¼ü¸ú×ÙÕâ¸öº¯ÊýµÄ¶¨Ò壬×îºóµ½ÁËWindows.pas£¬¿ÉÊÇÕâµØ·½¿´²»µ½º¯ÊýµÄ·µ»ØÖµÑ½£¿
¿´µ½µÄº¯ÊýÀàËÆ£º
function FindNextFile; external kernel32 name 'Find ......

delphi Ò³Ãæ¼ä´«ÖµÎÊÌâ

unit song;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,question;
type
  TForm1 = class(TForm)
  Lab ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ