f_selectname.pas

来自「销售业绩核算系统」· PAS 代码 · 共 150 行

unit F_selectname;

interface

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

type
  TForm_selectname = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    Panel2: TPanel;
    marquee: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure ListView1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_selectname: TForm_selectname;

implementation

uses F_DM, F_main;

{$R *.dfm}

procedure TForm_selectname.ListView1DblClick(Sender: TObject);
begin
close;
end;

procedure TForm_selectname.BitBtn1Click(Sender: TObject);
var
row,i,h:integer;

begin
 with dm do
  begin
   adotable.open;
   row:=adotable.RecordCount;

      for h :=0  to 10 do
      begin
      for i :=0  to row-1 do
       begin
        //listview1.Items.Add(adotable('name'));
        //listview1.Items.AddItem(nil,adotable('name'))
        listview1.AddItem(adotable.FieldValues['name'],nil);
        adotable.Next;
        end;
        adotable.First;
        end
   end;
end;



procedure TForm_selectname.Timer1Timer(Sender: TObject);
begin
if marquee.Left+160<=10 then
  marquee.left:=300 ;
marquee.Left:=marquee.left-3;
end;

procedure TForm_selectname.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TForm_selectname.Button1Click(Sender: TObject);
var
row,i,h:integer;

begin
 with dm do
  begin
   adotable.Open;
   row:=adotable.RecordCount;
     for h:=0 to 10 do
     begin
      for i :=0  to row-1 do
       begin
        //listview1.Items.Add(adotable('name'));
        //listview1.Items.AddItem(nil,adotable('name'))
        listview1.AddItem(adotable.FieldValues['name'],nil);
        adotable.Next;
        end;
        adotable.First;
     end;
   end;
end;

procedure TForm_selectname.FormActivate(Sender: TObject);
var
row,i:integer;
begin

//清空
listview1.Clear;
 //添加内容
 with dm do
  begin
   adotable.Open;
   adotable.First;
   row:=adotable.RecordCount;
      for i :=0  to row-1 do
       begin
        //listview1.Items.Add(adotable('name'));
        //listview1.Items.AddItem(nil,adotable('name'))
        listview1.AddItem(adotable.FieldValues['name'],nil);
        adotable.Next;
        end;
     adotable.Close;
   end;

end;

procedure TForm_selectname.SpeedButton2Click(Sender: TObject);
begin
listview1.ViewStyle:=vssmallicon;
end;

procedure TForm_selectname.SpeedButton3Click(Sender: TObject);
begin
 listview1.ViewStyle:=vsicon;
end;

procedure TForm_selectname.SpeedButton4Click(Sender: TObject);
begin
 listview1.ViewStyle:=vslist;
end;

end.