unitformrec.~pas

来自「智能监控delphi源码, 操作说明 1. 在两台微机上分别运行文件夹中的可」· ~PAS 代码 · 共 94 行

unit UnitFormRec;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, StdCtrls, ComCtrls, MPlayer;

type
  TFormRec = class(TForm)
    Panel1: TPanel;
    lv1: TListView;
    mp1: TMediaPlayer;
    tmrRefresh: TTimer;
    procedure lv1DblClick(Sender: TObject);
    procedure lv1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure tmrRefreshTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRec: TFormRec;

implementation

uses UnitMain, UnitDataBase;

{$R *.dfm}

procedure TFormRec.lv1DblClick(Sender: TObject);
var
  mListItem: TListItem;
begin
  mListItem := lv1.Selected;
  if mListItem = nil then Exit; //用户没有选择任何项目
  mp1.FileName := mListItem.SubItems[1]; //清除捕捉窗体背景
  mp1.Open; //打开视频文件并播放
  mp1.Play;
end;

procedure TFormRec.lv1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin //单击发生的事件
  try
    mp1.FileName := Item.SubItems[1];
    mp1.Open;
  except
    on EMCIDeviceError do
    begin
      ShowMessage('记录文件找不到，可能文件已被删除或移走！');
    end;
  end;
end;

//刷新数据库显示内容

procedure TFormRec.tmrRefreshTimer(Sender: TObject);
var
  mListItem: TListItem;
  mDateTime: TDateTime;
begin
  if DMMain.tblEvent.Active = False then
  begin
    DMMain.tblEvent.Open; //如果没打开,则打开
  end
  else begin
    DMMain.tblEvent.Refresh(); //刷新数据
  end;

  lv1.Items.Clear; //清空用户界面
  with DMMain.tblEvent do
  begin
    First; //遍历整个表
    while not Eof do
    begin //将表中的数据显示
      mListItem := lv1.Items.Add();
      mListItem.Caption := Fields[0].AsString;
      mDateTime := Fields[1].AsDateTime;
      mListItem.SubItems.Add(DateTimeToStr(mDateTime));
      mListItem.SubItems.Add(Fields[2].AsString);
      Next;
    end;
    First;
  end;
  tmrRefresh.Enabled := False;
end;

end.