penaltyflashfrm.pas

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

unit PenaltyFlashfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RxGIF, ExtCtrls, RXCtrls, StdCtrls,DB, Buttons,JPEG;

type
  TPenaltyFlashForm = class(TForm)
    Panel1: TPanel;
    RxLabel1: TRxLabel;
    Image1: TImage;
    RxLabel2: TRxLabel;
    RxLabel3: TRxLabel;
    RxLabel4: TRxLabel;
    RxLabel5: TRxLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PenaltyFlashForm: TPenaltyFlashForm;

implementation
uses DataModule1;
{$R *.dfm}

procedure TPenaltyFlashForm.FormShow(Sender: TObject);
var
   AName:String;
   MS:TMemoryStream;
begin
   with DM.TBJiangFa do
   begin
      Open;
      Last;
      RxLabel1.Caption :=FieldByName('F_Object').AsString;
      RxLabel2.Caption :='姓名：  '+FieldByName('F_Name').AsString;
      AName:=FieldByName('F_Name').AsString;
      
      RxLabel4.Caption :='日期：  '+FieldByName('F_Date').AsString;
      RxLabel5.Caption :='金额：  '+FieldByName('F_Number').AsString;
      Memo1.Text :=FieldByName('F_Memo').AsString;
      close;
   end;

   MS:=TMemoryStream.Create;
   with DM.TBWorker_L do
   begin
      Open;
      Locate('M_Name',AName,[locaseinsensitive]);
      (fieldByName('M_Picture')as TBlobField).SaveToStream(MS);
      MS.Position :=0;
      Image1.Picture.Graphic:=nil;
      Image1.Picture.Graphic:=TJPEGImage.Create;
      Image1.Picture.Graphic.LoadFromStream(MS);
      MS.Free;
      RxLabel3.Caption :='部门：  '+FieldByName('M_Department').AsString;
      Close;
   end;
end;

end.