listview.pas

《delphi数据库设计与实例开发》随书光盘

unit ListView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, DB, DBTables;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Query1: TQuery;
    ListView1: TListView;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  list1:TListItem;
  i:integer=0;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Query1 do
  begin
   DatabaseName:='DBDEMOS';// 设置数据库名称
   Close;
   SQL.Clear;
   SQL.Add('select * from employee');
   Open;
  end;
 Query1.First;
 While not Query1.Eof do  {遍历Query1的所有记录 ,每查找一条记录便为ListView增加一个条目}
  begin
  List1:=ListView1.Items.Add;
  List1.ImageIndex:=i; //将新增条目的所对应的图标设置为ImageList1中所对于的图标索引
  List1.Caption:=Query1.FieldByName('LastName').AsString; //设置新增条目的Caption属性为数据表中的LastName字段内容
  Query1.Next;//记录下跳
  Inc(i); //索引值加1
 end;
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
With Query1 do
 Begin
  Close;
  SQL.Clear;
  SQL.add('select * from employee.db where LastName=:A');
  ParamByName('A').asString:=ListView1.Selected.Caption;//查找图标所对应的记录
  Open;
 end;
 {显示相应的记录}
 edit1.Text:=Query1.fieldbyName('EmpNo').AsString;
 edit2.Text:=Query1.fieldbyName('LastName').AsString;
 edit3.Text:=Query1.fieldbyName('FirstName').AsString;
 edit4.Text:=Query1.fieldbyName('PhoneExt').AsString;
 edit5.Text:=Query1.fieldbyName('HireDate').AsString;
 edit6.Text:=Query1.fieldbyName('Salary').AsString;
end;

end.