dayreportfrm.pas

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

unit DayReportfrm;

interface

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

type
  TDayReportForm = class(TForm)
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DayReportForm: TDayReportForm;

implementation

uses DataModule1;

{$R *.dfm}

procedure TDayReportForm.FormCreate(Sender: TObject);
begin
    left:=7;
    Top:=45;
    Width:=1008;
    Height:=670;
end;

procedure TDayReportForm.BitBtn1Click(Sender: TObject);
begin
    DM.CSShu.Socket.SendText('OK');
end;

end.