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

¡¾Delphi報±í開發¡¿FastReport

½ñÌ쿪ʼÑо¿FastReport¡£
ÒÔÏÂÊǶ¯Ì¬´´½¨FASTREPORTµÄDEMO
var
Page: TfrxReportPage;
Band: TfrxBand;
DataBand: TfrxMasterData;
Memo: TfrxMemoView;
begin
{ clear a report }
frxReport1.Clear;
{ add a dataset to the list of ones accessible for a report }
frxReport1.DataSets.Add(frxDBDataSet1);
{ add a page }
Page := TfrxReportPage.Create(frxReport1);
{ create a unique name }
Page.CreateUniqueName;
{ set sizes of fields, paper and orientation by default }
Page.SetDefaults;
{ modify paper's orientation }
Page.Orientation := poLandscape;
{ add a report title band}
Band := TfrxReportTitle.Create(Page);
Band.CreateUniqueName;
{ it is sufficient to set the «Top» coordinate and height for a band }
{ both coordinates are in pixels }
Band.Top := 0;
Band.Height := 20;
{ add an object to the report title band }
Memo := TfrxMemoView.Create(Band);
Memo.CreateUniqueName;
Memo.Text := 'Hello FastReport!';
Memo.Height := 20;
{ this object will be stretched according to band's width }
Memo.Align := baWidth;
{ add the masterdata band }
DataBand := TfrxMasterData.Create(Page);
DataBand.CreateUniqueName;
DataBand.DataSet := frxDBDataSet1;
{ the Top coordinate should be greater than the previously added band's
top + height}
DataBand.Top := 100;
DataBand.Height := 20;
{ add an object on master data }
Memo := TfrxMemoView.Create(DataBand);
Memo.CreateUniqueName;
{ connect to data }
Memo.DataSet := frxDBDataSet1;
Memo.DataField := 'xm';
Memo.SetBounds(0, 0, 100, 20);
{ adjust the text to the right object's margin }
Memo.HAlign := haRight;
{ show the report }
frxReport1.ShowReport;
FastReportÎÊÌâÕûÀí
http://blog.163.com/ex_plus/blog/static/1795953220090811151264/
FastReport ³ÌÐòÔ±Êֲᠠ  
http://www.evget.com/zh-CN/Info/ReadInfo.aspx?id=9451
       
ͨÓôòÓ¡Ä£¿é¡£
ÔÚϵͳÖо­³£ÐèÒªÓõ½¶ÔÒѾ­µÃµ½µÄÊý¾Ý¼¯£¬½øÐдòÓ¡¡£Îª´ËÌØÒâÖ


Ïà¹ØÎĵµ£º

delphi×Ö·û´®×ª»»ÎªcharÊý×é

var
  arrChar : array [0..4] of Char;
  b : Byte;
  s : string;
begin
  s := 'Test';
  Move(Pointer(s)^, arrChar, Length(s));   //string to array of char
  ShowMessage(arrChar);
  b := Ord(s[1]);   //First byte string to one single byte ......

delphi ±àÒëºó³öÏÖiphist.dat Îļþ

 ºÜÆæ¹Ö£¬×òÌìÔÚ±àÒë³ÌÐòµÄʱºò£¬³öÏÖ¹ý£¬iphist.dat Îļþ¡£Ã¿´ÎÖ´Ðж¼³öÏÖ£¬×Ðϸ²é¿´´úÂ룬ʲôҲûÓа¡£¡ºóÀ´ÔÚÍøÕ¾ÕÒµ½Ô­Òò£º
 Ê¹ÓÃÁËIPWatch ¿Ø¼þµÄ
Ò»°ã²úÉúÕâ¸öÎļþÊÇÒòΪʹÓÃÁËindyµÄ TIdIPWatch ¿Ø¼þ
¸Ã¿Ø¼þÓиö
ipÀúÊ·µÄ¹¦ÄÜ¡£
historyfilenameÖ¸¶¨µÄÊDZ£´æipÀúÊ·¼Ç¼µÄÎļþÃû£¬Ä¬ÈÏÊÇiphist.Dat ......

DelphiÖÐÓÃADOϵÁпؼþ»ñµÃ´æ´¢¹ý³ÌµÄReturnÖµ

ÔÚDelphiÖÐAdoϵÁпؼþʹÓÃxxxxx.Parameters.Refresh,¿ÉÒÔ»ñµÃ´æ´¢¹ý³ÌµÄReturnÖµ
ÒÔTADOStoredProcΪÀý
  ADOStoredProc1.Connection := 'xxxx';
  ADOStoredProc1.ProcedureName := 'XXXX';
  ADOStoredProc1.Parameters.Refresh;   //ˢд洢¹ý³ÌµÄ²ÎÊýÁбí
 //²ÎÊý¸³Öµ
 ADO ......

Delphi¶¨Ê±Showmessageʼþ

ÔÚDelphiÖУ¬µ÷ÓÃShowmessageºó£¬ÈçºÎʹµ¯³öµÄ¶Ô»°¿òÔÚÒ»ÃëÖÓºó×Ô¶¯¹Ø±Õ£¬¶ø²»ÓÃÊÖ¶¯È¥µãÈ·¶¨
1:ÓÃtimer¿Ø¼þµÄº¯Êý
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ