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

DelphiÖÐÓÃTListViewÏÔʾÊý¾Ý¿âÊý¾Ý

Ê×ÏÈ´´½¨Ò»¸öеÄÏîÄ¿£¬È»ºóÏò´°ÌåÉÏÌí¼ÓÒ»¸öTQuery×é¼þºÍÒ»¸öTListView×é¼þ.
¡¡ÉèÖÃTQuery×é¼þµÄDatabaseNameÊôÐÔÉèÖÃΪDBDEMOS£¬SQLÊôÐÔÉèÖÃΪselect * from country¡£È»ºóÌí¼Ó³ÌÐò³õʼ»¯´úÂëÈçÏ£º
with adoquery1 do
  begin
  close;
  ADOConnection1:=TADOConnection.Create(nil);
  Adoconnection1.LoginPrompt:=false;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False';
  adoquery1.Connection :=  ADOConnection1;
  SQL.Clear;
  SQL.add('select * from BOSS');
  Open;
  end;
  for i:=0 to adoquery1.FieldCount-1 do
begin
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=adoquery1.Fields[i].FieldName;
end;
adoquery1.First;
while not adoquery1.Eof do
begin
TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=adoquery1.Fields[0].AsString;
for i:=1 to adoquery1.FieldCount-1 do
begin
TempItem.SubItems.Add(adoquery1.Fields[i].AsString);
end;
adoquery1.Next;
end;
¡¡³ÌÐòÊ×ÏÈͨ¹ýListView1.ViewStyle:=vsReportÓï¾äÉèÖÃTListView×é¼þµÄViewStyleÊôÐÔֵΪvsReport¡£È»ºóͨ¹ýµÚ1¸öÑ­»·ÖеÄTempColumn:=self.ListView1.Columns.AddºÍTempColumn.Caption:=Query1.Fields[i].FieldNameÓï¾äÔÚTListView×é¼þµÄ±êÌâÐÐÖÐÏÔʾÊý¾Ý¿âÖÐ×ֶεÄÃû³Æ¡£×îºóͨ¹ýÒ»¸öÑ­»·ÖðÐÐÊä³öÊý¾Ý¿âµÄËùÓÐÊý¾Ý¡£
±£´æÎļþ£¬È»ºó°´F9¼üÔËÐгÌÐò


Ïà¹ØÎĵµ£º

DelphiдµÄÑéÖ¤Éí·ÝÖ¤ºÅÓÐЧÐÔº¯Êý


function ValidatePID(const APID: string): string;
{ÄÚ²¿º¯Êý,È¡Éí·ÝÖ¤ºÅУÑéλ,×îºóһλ,¶Ô18λÓÐЧ}
function GetVerifyBit(sIdentityNum: string): Char;
var
    nNum: Integer;
begin
    Result := #0;
    nNum := StrToInt(sIdentityNum[1]) * 7 +
  ......

ÈçºÎÈÃDelphiµ÷ÓÃÍⲿ³ÌÐò²¢µÈ´ýÆäÔËÐÐÐÅÏ¢£¨Èç½áÊø£©

º¯ÊýÒ»£º
view plaincopy to clipboardprint?
uses 
    Windows,  
    SysUtils,  
    Classes,  
    ShellAPI;  
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......

Delphi³£ÓÿؼþÃüÃû¹æ·¶

 ³£ÓÿؼþÃüÃûǰ׺
¿Ø¼þÀàÃû
ǰ׺
TFormµÈ´°ÌåÀà 
frm
TButton, TSpeedButtonµÈËùÓеİ´Å¥Àà 
btn
TCheckBoxµÈËùÓеļì²é¿ò 
chk
TRadioButtonµ¥Ñ¡°´Å¥Àà
rdo
TListBoxµÈËùÓеÄÁбí¿òÀà 
lst
TPanelµÈËùÓеÄÃæ°åÀà
pnl
TLabel, TStaticTextµÈËùÓÐÓÃÀ´ÏÔʾµÄ±êÇ©Àà 
lbl
TE ......

DelphiÉî¶È̽Ë÷Ö®×Ô¶¯Íê³ÉÍâ¿ÇÀ©Õ¹

ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼­¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༭¿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾ­ÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³ ......

delphi canvasʹÓÃ

ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æÍ¼³¡Ëù,¼´±¾ÎÄËùÊöµÄ   
CANVASÀà,ÔÚDELPHIÖÐµÄºÜ¶à¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ   
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æÍ¼,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ   
×÷һЩÆÁÄ»ÌØ¼¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»    ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ