checkdutyfrm.pas

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

unit CheckDutyfrm;

interface

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

type
  TCheckDutyForm = class(TForm)
    Image1: TImage;
    RxLabel1: TRxLabel;
    RxLabel2: TRxLabel;
    RxLabel3: TRxLabel;
    RxLabel4: TRxLabel;
    Memo1: TMemo;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    RxLabel5: TRxLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FormStep:Word;
    procedure MoveForm;
    procedure showfields;
    { Private declarations }
  public
    LateNo:Byte;
    { Public declarations }
  end;

var
  CheckDutyForm: TCheckDutyForm;


implementation
uses DataModule1;

{$R *.dfm}

procedure TCheckDutyForm.FormCreate(Sender: TObject);
begin
    top:=150;
    Left:=1080;
    FormStep:=0;
end;

procedure TCheckDutyForm.Timer1Timer(Sender: TObject);
begin
   if Left>350 then
   begin
     Left:=Left-FormStep;
     FormStep:=trunc(Left/9);
   end;
end;

procedure TCheckDutyForm.BitBtn1Click(Sender: TObject);
begin
   
   with DM.qryKaoqin do
   begin
     Edit;
     FieldByName('K_Penalty').AsInteger :=StrToInt(Edit1.Text);
     FieldByName('K_Check').AsString :='已批复';
     Post;
     Next;
     if not Eof then
     begin
       MoveForm;
       ShowFields;
     end
     else
     begin
       CLose;
       DM.CSShu.Socket.SendText('考勤'); 
       CheckDutyForm.Close;
     end;
   end;
end;

procedure TCheckDutyForm.MoveForm;
begin
   Left:=1080;
   Timer1.Enabled :=True;
end;

procedure TCheckDutyForm.FormShow(Sender: TObject);
begin
    MoveForm;
    ShowFields;
end;

procedure TCheckDutyForm.showfields;
var
  ANo:String;
  MS:TMemoryStream;
begin
   with DM.qryKaoqin do
   begin
      RxLabel1.Caption :='姓    名：'+FieldByName('K_Name').AsString;
      RxLabel2.Caption :='部    门：'+FieldByName('K_Department').AsString;
      RxLabel3.Caption :='到岗时间：';
      RxLabel5.Caption :=TimeToStr(FieldByName('K_Time').AsDateTime);
      RxLabel4.Caption :='罚    金：';
      Edit1.Text :=FieldByName('K_Penalty').AsString;
      Memo1.Text :=FieldByName('K_Reason').AsString;
      ANo:=DM.GetManinfo(FieldByName('K_No').AsString).MNo;
      DM.TBWorker_L.Open;
      DM.TBWorker_L.Locate('M_No',ANo,[locaseinsensitive]);
      MS:=TMemoryStream.Create;
      (DM.TBWorker_L.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;
      DM.TBWorker_L.Close;
   end;
end;

end.