谁能给我一段参考代码，特简单的。

Question

用ListView 绑定数据显示  就可以   想要完整的代码。 最好说一下用什么连接的数据库（想看看有多少种方式）。 越详细越好 ！ 有注释更好！

Answer 1

begin
  with adoquery1 do
  begin
    close;
    sql.clear;
    sql.add('select a,b from table');
    open;
    while not eof do
    begin
      with listview1.items.add do
      begin
        caption := fieldbyname('a').asstring;
        subitems.add(fieldbyname('b').asstring);
      end;
      next;
    end;
  end;
end;

Answer 2

http://hi.csdn.net/space-6879313-do-album-picid-836048.html这种有网格的是怎么做的？

Answer 3

我的数据库是自定义的,
student.dat内容如下:
T嗕 )D:\DELPHI实例\自定义数据库E型\Student.dat                              鯩 鯩 ?  修改记录  M 鯩 鯩 ?  修改记录    鯩 鯩 ?  ?A                         z諥 x冧 饍             t冧 t冧 D
                                                              AAAA                                       x   k   ?B         X勪 €勪 爠                (DB 8冧 DB 8冧                                 8冧         T勪 T勪 d   4 B 饍 ? (勪   `   (   #   芤A     T B 饍 ? (勪 H      苡A     t B 饍 ? ?     男       !   ,   cDSFDFDSFDSFDDDDDDDDDDDDDDDDSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCCCCC                                    y                                                                                                                               實 )D:\DELPHI实例\自定义数据库E型\Student.dat                              鯩 P1 ?  修改记录  M 鯩 P1 ?  修改记录    鯩 P1 p  ?A                         z諥 皧 (嬩             瑠 瑠 D
                                                              BBBB                                       x   k   ?B         悑 笅 貗                (DB p婁 DB p婁                                 p婁         寢 寢 d   4 B (嬩 ? `嬩   `   (   #   芤A     T B (嬩 ? `嬩 H      苡A     t B (嬩 ? ?     女             JDSFDFDSFDSFDDDDDDDDDDDDDDDDSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB  貕 淠y 
   鯩 ?  P1 ,!@ 栗 P?  
  ?  ?@ X? ?@ ?@ P?  
  €>  趱 T1 絮 ?'@ €>  o.F     nTF ?  IF 
   氢 
  氢 X  剳 P? 郌            P? [      
*  ? ? JFIF 


       C  

 $.' ",#(7),01444'9=82<.342 C
2!!22222222222222222222222222222222222222222222222222   ?
" 

   






        

 ? 
  
}
 !1AQa"q2亼?#B绷R佯$3br?
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz儎厗噲墛挀敃枟槞殺￥ウЖ┆渤吹斗腹郝媚牌侨墒矣哉肿刭卺忏溴骁栝犟蝮趱鲼? 
 








      

 ? 
 
w 
!1AQaq"2?B憽绷 #3R?br?$4??&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz們剠唶垑姃摂晼棙櫄ⅲぅΗī炒刀犯购旅呐魄壬室釉罩棕仝忏溴骁栝牝篝貊鼬 
  ? ?e粬潴!?<ＦG 蟈镅 猢?胥o \座T眨軈?n 绗?麒 馮f稔z? ~? RQJ惚n 绗?麒 馮f稔z? ~? RQE履y? 灠 撸 臦浛?黆IE骘? ~? Fn 绗?麒 馯%\,G浛?黆? 灠 撸 臫擰p?n 绗?麒 馮f稔z? ~? RQE履y? 灠 撸 臦浛?黆IE骘? ~? Fn 绗?麒 馯%\,Cg 6 跬昅P? 菎魁s_錝S栤[?︱-n?m?r3?7谙? ? ?裊>?絤  焟鞫 ? 齤?迨*熪}砜?  Z楉囍埝  酲皊G筺姦o鞭埝  酲鹷椒?  隥f耦\ⅸ z埝  酴~倨wZ ? 2-裈飉  }锋+沴幙块鶴as枪r姠殐5靨?翟皶r褊⒅i?QE!? ?渴Θl 闫唼汞颟┧q-巖莐籥?gc舋_d捚鴫o?wV!c瞐訟壹肭W? 寮顗`?栞拽Z軹Q嶫t=诬菽顨%=羭c酩P燍x孇?癔炏塽雵2嫂M胶?酳怒霃 1 ??埋駨C?p軯絆}鸗?筠/?茥鞵 蟞匡炳5?X掷眢~C?N滑繕~??淬仃\%U}］~?孇?鉍赼 炑遚黭?穟忷K??雤訙-繇  J8?饻烛=醉P 蟲匡炳4焜凗{? }忨?mS 峭奏燒j?樊'呓窼枥镺鸅=巜掠R~耧媠#?摢?s朕昻釠y嶳襱l搋箨鴵]窙蘉FbW'N曣?笘鏜烸欦Mt陃瀾?@鷣]X|L*籜耋H莩汛?褃(册 雿喍?E+??藚踆烽TV?没?僢?? 甼j喯?m 霘 *殰?劁酾?￣樧泑C;磧 
 蝎训?玂^w懔籎?? B璲籥頴?lzG欅?d醌瘿愠遥稡?j3#隴稐?B{)f窰?沚?<q蝬瘲?k?p裓?巚P51?(Yr畗┳簃鰠q7兪櫨`胓诖-您覭<挓.4'f:VH辺?┣c4?罽1€}+∮?稯旳j蠆O慬尀祐 2?и祳釜轖?砹l?=j=Εm h刑W
输徠7f?U愿
 R@=鹤D-mO.琩澫4?檛藫澥q嘃q^熰%蚣;Ns?進X?碖?軹P0q餁酷+??l.\?? 杵?祣豉?拵櫈涐釰!?笞 dj?戰濣?l间c?u折]Z９驑I)RMQY$6胥o \座T?燑x? ?59n%逼k???? s? :锏阃燒q??i瑌
址?皢y4箂s蜹溿赧脼8费484?掅焣欦` -巟?腋<?l?鱵~5驌刧??墛供璣Cu琌qg1x
??璱鯥<wS}NQ辽囫诒Vb畳3d?L?sP? 磑>?aw  o篅rご-訑b?慴?蝧W#??9O9隙*蘲滖鵔
潇擬锤绛N? 璪%儡 `MK鐣`め廲Z髄rMs2\噥? ?焜?濭?Y梂?&`F罄?肠&t+OO?髡{yM漵?渐侷侌?趏_?zy髅鼏?蜱 5?賹?>?*w?楺E蘻$6胥o \座T?燑x? ?59n%蹦k婴F远8囍硷谱j?`0'螽桥 蹬虹?W庖#瘘?e座譶"曫嚊昒贕钋?岐\.9 ?汏IF庆揣x?zU#5C抭? 箜Sk歿K=M{k森揞]mam砄尓撔微巘趓 2藴r:WK狴?穲 疵笧嚙舄^翼????8,B?质戝h]退ζo滀~駚E X@?緮魮
福tg9醍制?
隯谌?"揋
F?睈€
?珶饐i?:膚拀??sr
毕┇xk厣g4襴G欉\磸?顥€q]_Y?}頞?臸-鱾?焗猖蕷4?挫T?鮼岬弥?溱z鳄峼筣鵡&荂叺庽朗w料?鯯]鮬?]嘲 o e5葑V3輟阿?橍Hl 闫唼汞颟??? 甼jr躃c吸B划? 雸?茓稟鳁 B疌肿7桙q漉?菆SA??蝬颺厃菠yY\酇?藘`U垽廓`裨~u"?_志Y歧牯k[SI@u? tu5wI裲5珖[,*"枓g珸髲球琱遐<舊{婊?
教?讱???]€0o?┟]J赔[嚭t?盷泌巈抵爾?蒨槐憗澵飪P鴼?/5?奔R$?尯??欚瓱?vM:i厝苈<€?┣Z鬩Z?踣m&馄諹捨遛I 
"?mn?晆h?NP捷顀氼?~捶襏`肮U曧貵浌_寫莖Z嗽黰{kΔW栘程?&;?~@离]艓檊
讎Ⅺ,Z瓌焖,a檲,A<sY鶷鰹(??彟?ネ⒛衂*<奨?焿酢FRF糤?%鴱鰡郃u&?騫涠~Rv鐜:V偹岖's綞
澕??J稐]坑趴唦?r?T]FB3?'&凹硆>^I5栲#%3磐炅徂噞圊"霊彉 ?粃?(1t?x? t譯[? 娤+- w^??萳 闫唼汞颟??? 甼jr躃c呎懃 ?苨札+採6?玦捦???w歄拭?d倇?賘JZxX
鶸TvQ竎撘?iED???润/鳶? ji霝貝JO鳶合?t 鼔??_q鲦?圎1X?q?渠龃╯茯
/祥Zz/孟hZ傟讦椈L2鶠Q惹 k?"1}蹅駜NT潿\?摖げ?\F洵#T褆]f諯?囲鈌Vf祳T?徦^x甝R;?ta<I
醗罻 錧0i6??顡??f傡U?鐟廕?碓?sxo攀鰲鱁遦?暃k+踺锵WI??kK跭]CIh颺)?,?憙廝3]?鵲1儙兮傄}?吏5Q来;Mk-狁?瀉釥溞A(櫫8?銡勿輧賆J?嶢秺^&牢嚆＄?(Xx辤瓥
?#?+ZY耊古壧jN64|5威韺檆虬鋦??I$撓?譟X饪埻2哙|豎E蝫愘 菎魁s_錝T6胥o \座T藻笘?异涳C煫瘠? 焑?鎘ń?坎,?缳3?dX喜黬?sK附?"忲=圏?鎕? 缳3Wǎ歖觅貌( dX喜黨? 焑?鏃p鰌霶? 焑伥箪繖Q?泠p霶? 焑伥箪繖Q?犰阖?焝o ?偘鐰5f?7}茠Z (
燑x? ?5Cg 6 跬昅N[塴qZw媙羼臍礞櫟m艺<謙A澁釸c恠愌€v6Jп?隇"杭斶h6簗0?$棎fUb<擂X
欀2s€?嚑?弲t]6?籏-扖鎦*evH<脳蛐挶琮?悭H????鳶?ZL拀?g)瞙 {€]K蹲e@??泣頵???餶+v#厸r苫!鄀餙;籛@?狂鲌-?￡嬷埔+鸞嚄?HUe??藜Jm瀤-D氄Η?嚉し栤怄講??② R?2ORW捈zm
弼駂w?擜狢o%Κf栮驷蜴?>?F/?鐆較9⑺??iO峥&}堰y??栲遲??r??`?P嗛鰓 銄'淖?鞒胕uwt???縲扵n 鵘FN??厉6襙雟講ZH傏HUu
*谻
諷q\罃$凅??(?QLAEP
EP6胥o \座T?燑x? ?59n%癚E?QE QE QE QE QE QE QE Cg 6 跬昅P? 菎魁s_錝S栤[筠﹚4z荆?c?d宅e韅鉨闏0?崶c峊?臑ｐ峻C羛M碚雵姆W"W懚┥|轞赪(X`漤\猡３耠=J=k?j?铁暣揔リS茠?烫?
m|??os箟 廰⒐O噕喯翧$.M碡?u%蛮??F撴YI 笪X?c┽w朞Z<隰魢~u(&燘Tc铕囍€5璁c\?栚孭诜秂? w痃聱V枼m??功\D2:懺?某;u? 糟X?蚠噙
Z+脄玙?3鹃怅OV^沁 誟u??3z毄
楺E龚QE QE

燑x? ?5Cg 6 跬昅N[塴g揲Iu,?\Ocz?~譵穨懒€!諔皊嵤v飣杠s&摟Cｈ?e?Ago糾!姠???J笶!卻鄊?韹s霁媮皋4蜽K篍葀 ?L堵呬/友@繇:.莪瓩虐ra厛+鄚壠B?诬郺B⊕势螹硯衣?[h蟛#嫆I聨I'瘾PY疰扞&讚 M黨>見??兲癍J+楆Xmw|懴鮈?_r(Z韬}滊=骄?8;仵鷼縀?Pすi?洮k
p`抆AEV厖Q@Q@? 菎魁s_錝T6胥o \座T藻笘罞RQE QE QE QE QE QE QE

燑x? ?5S栤[QHaEP
EP
EP
EP
EP
EP
EPT嗕 )

Answer 4

listview 的GridLines 属性设为True 就能显示网格了

Answer 5

下载资源下载分数修改为:0零了
资源名称:学生信息管理系统带有图片功能地址:http://download.csdn.net/source/3370568
这是个演示程序

Answer 6

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls;type  PStudent = ^TStudent ;
  TStudent = Record     //定义数据结构
    Name :String ;
    Age :Integer ;
    Gender : String ;
    CChinese : Double  ;
    CMath :  Double ;
    CEnglish :Double ;
  end;  TForm1 = class(TForm)
    ListView: TListView;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
      var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  FStudents : array of PStudent ;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
  item : TListItem ;
  stud : PStudent ;
  i :integer ;begin
    //构建列表
     for    i:= 0 to Length(FStudents)-1 do
     begin
       stud := FStudents[i] ;
       item :=  ListView.Items.Add  ;
       item.Caption := stud.Name ;
       item.SubItems.Add(stud.Gender) ;
       item.SubItems.Add(IntToStr(stud.Age)) ;
       item.SubItems.Add(FloatToStr(stud.CChinese)) ;
       item.SubItems.Add(FloatToStr(stud.CMath)) ;
       item.SubItems.Add(FloatToStr(stud.CEnglish)) ;
       item.Data := stud ;
     end ;end;procedure TForm1.FormCreate(Sender: TObject);
var
  stud :PStudent ;
begin
  //初始化数据 ，可以从数据库中加载
  setLength(FStudents,Length(FStudents)+1) ;
  new(stud) ;
  stud.Name := 'A' ;
  stud.Age := 20 ;
  stud.Gender := '男'  ;
  stud.CChinese := 80.5 ;
  stud.CMath := 90.5 ;
  stud.CEnglish := 99 ;  FStudents[High(FStudents) ] := stud ;  setLength(FStudents,Length(FStudents)+1) ;
  new(stud) ;
  stud.Name := 'B' ;
  stud.Age := 19 ;
  stud.Gender := '女'  ;
  stud.CChinese := 90.5 ;
  stud.CMath := 70.5 ;
  stud.CEnglish := 69 ;  FStudents[High(FStudents) ] := stud ;  setLength(FStudents,Length(FStudents)+1) ;
  new(stud) ;
  stud.Name := 'C' ;
  stud.Age := 18 ;
  stud.Gender := '男'  ;
  stud.CChinese := 85.5 ;
  stud.CMath := 80.5 ;
  stud.CEnglish := 89 ;  FStudents[High(FStudents) ] := stud ;
end;//各行颜色交替显示
procedure TForm1.ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if item.Index mod 2 = 0 then
  begin
    Sender.Canvas.Brush.Color:= $02E0F0D7  end
  else
    Sender.Canvas.Brush.Color := clBlue ;
end;end.不知道怎么截图

Answer 7

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls;type  PStudent = ^TStudent ;
  TStudent = Record     //定义数据结构
    Name :String ;
    Age :Integer ;
    Gender : String ;
    CChinese : Double  ;
    CMath :  Double ;
    CEnglish :Double ;
  end;  TForm1 = class(TForm)
    ListView: TListView;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
      var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  FStudents : array of PStudent ;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
  item : TListItem ;
  stud : PStudent ;
  i :integer ;begin
    //构建列表
     for    i:= 0 to Length(FStudents)-1 do
     begin
       stud := FStudents[i] ;
       item :=  ListView.Items.Add  ;
       item.Caption := stud.Name ;
       item.SubItems.Add(stud.Gender) ;
       item.SubItems.Add(IntToStr(stud.Age)) ;
       item.SubItems.Add(FloatToStr(stud.CChinese)) ;
       item.SubItems.Add(FloatToStr(stud.CMath)) ;
       item.SubItems.Add(FloatToStr(stud.CEnglish)) ;
       item.Data := stud ;
     end ;end;procedure TForm1.FormCreate(Sender: TObject);
var
  stud :PStudent ;
begin
  //初始化数据 ，可以从数据库中加载
  setLength(FStudents,Length(FStudents)+1) ;
  new(stud) ;
  stud.Name := 'A' ;
  stud.Age := 20 ;
  stud.Gender := '男'  ;
  stud.CChinese := 80.5 ;
  stud.CMath := 90.5 ;
  stud.CEnglish := 99 ;  FStudents[High(FStudents) ] := stud ;  setLength(FStudents,Length(FStudents)+1) ;
  new(stud) ;
  stud.Name := 'B' ;
  stud.Age := 19 ;
  stud.Gender := '女'  ;
  stud.CChinese := 90.5 ;
  stud.CMath := 70.5 ;
  stud.CEnglish := 69 ;  FStudents[High(FStudents) ] := stud ;  setLength(FStudents,Length(FStudents)+1) ;
  new(stud) ;
  stud.Name := 'C' ;
  stud.Age := 18 ;
  stud.Gender := '男'  ;
  stud.CChinese := 85.5 ;
  stud.CMath := 80.5 ;
  stud.CEnglish := 89 ;  FStudents[High(FStudents) ] := stud ;
end;//各行颜色交替显示
procedure TForm1.ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if item.Index mod 2 = 0 then
  begin
    Sender.Canvas.Brush.Color:= $02E0F0D7  end
  else
    Sender.Canvas.Brush.Color := clBlue ;
end;end.不知道怎么截图