display1.~pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit Display1;

interface

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

type
  TFrm_Display1 = class(TForm)
    Panel1: TPanel;
    LB1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Display1: TFrm_Display1;

implementation

uses sys_global ;

{$R *.dfm}

function GetHourMinuteSec(M: Dword): string ;   //BjCat
var
  h, n, s: Dword ;
begin
  h := m div 3600;
  n := (m - h*3600) div 60 ;
  s := m-h*3600-n*60 ;
  result := intTostr(h)+'小时'+intTostr(n)+'分钟'+intTostr(s)+'秒'
end ;

function GetHourMinute(M: integer): string ;
var
  h, n: integer ;
begin
  h := m div 60 ;
  n := m mod 60 ;
  result := intTostr(h)+'小时'+intTostr(n)+'分钟'
end ;

procedure TFrm_Display1.Timer1Timer(Sender: TObject);
var
//BjCat  x: real ;
  tm: Dword ;
begin
  Timer1.Enabled := false ;
  if m_ICtype = '5' then  begin
    LB1.Caption := '余额: 0 元' ;
    exit ;
  end;

  if m_ICtype <> '4' then begin
//BjCat    LB1.Caption := '余额:' + floatTostrf(m_ICMoney,ffnumber,6,2)+'元, ' ;
    LB1.Caption := '已用金额:' + floatTostrf((m_StMoney-m_ICMoney),ffnumber,6,2)+'元, ' + '剩余金额:' + floatTostrf(m_ICMoney,ffnumber,6,2)+'元, ' ;
//BjCat    x := (m_montime/60000)*m_ICMoney/m_Rate ;
//BjCat    LB1.Caption := LB1.Caption + '余时:' + GetHourMinute(Trunc(X)+1) ;
    tm := (GetTickCount div 1000) - m_StartMin ;
    LB1.Caption := LB1.Caption + #13 + '已上机的时间:' + GetHourMinuteSec(tm) ;

  end
  else
    begin
    LB1.Caption := '余时:' + GetHourMinute(Trunc(m_ICMoney)) ;
    end;
  Timer1.Interval := 1500 ;
  Timer1.Enabled := true ;
end;

procedure TFrm_Display1.FormActivate(Sender: TObject);
begin
  Timer1.enabled := true ;
  Frm_Display1.top := 0 ;
  Frm_Display1.Left := Screen.Width -Frm_display1.Width-150 ;
end;
procedure TFrm_Display1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = 115)  and ([ssalt] = shift) then
    key := 0 ;
end;

end.