u_userview1.pas

语音坐席,支持录音及语音回访,和自动催款

unit U_UserView1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TUserView = class(TForm)
    ListView1: TListView;
    procedure FormShow(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    FSelIndex:Integer;
    { Private declarations }
  public
    { Public declarations }
    Property SelIndex:Integer Read FSelIndex;
  end;

var
  UserView: TUserView;

implementation
Uses U_Main;
{$R *.dfm}

procedure TUserView.FormShow(Sender: TObject);
Var I:Integer;
begin
     FSelIndex:=-1;
     ListView1.Items.Clear;
     
     For I:=0 TO FindNum Do
     Begin
          With ListView1.Items.Add Do
          Begin
               Caption:=FindUsers[I].BH;

               SubItems.Add(FindUsers[I].XM);
               SubItems.Add(FindUsers[I].DZ);
               SubItems.Add(FindUsers[I].LXFS);
          End;
     End;
end;

procedure TUserView.ListView1DblClick(Sender: TObject);
begin
     If ListView1.Selected<>Nil Then
     Begin
          FSelIndex:=ListView1.Selected.Index;
          ModalResult:=mrOK;
     End;
end;

procedure TUserView.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     If Key=VK_ESCAPE Then
        ModalResult:=mrCancel
     Else If Key=VK_RETURN Then
          ListView1DblClick(Sender);
end;

end.