mainfrm.pas

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

        '提示',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL);
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
   setMenu;
   CurrentQry:='员工';
   QryGridForm:=TQryGridForm.Create(Application);
   try
      QryGridForm.ShowModal;
   finally
      QryGridForm.Free;
   end;
end;

procedure TMainForm.SetMenu;
begin
    case CurrentLev of
    0:begin
         N9.Enabled :=False;
         N20.Enabled :=True;
         N11.Enabled :=True;

      end;
    1:begin
         N9.Enabled :=False;
         N20.Enabled :=True;
         N11.Enabled :=True;

      end;
    2:begin
        N9.Enabled :=True;
        N20.Enabled :=True;
        N11.Enabled :=True;

      end;
    else
      begin
        N20.Enabled :=False;
        N9.Enabled :=false;
        N11.Enabled :=False;
        
      end;
    end;
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
    CurrentLev:=101;
    SetMenu;
    StatusBar1.Panels[0].Text :='    '+CurrentWorker+'已退出';
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
    BBSForm:=TBBSForm.Create(Application);
    try
       BBSForm.showmodal;
    finally
       BBSForm.free;
    end;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
    DayReportForm:=TDayReportForm.Create(Application);
    try
       DayReportForm.ShowModal;
    finally
       DayReportForm.Free;
    end;
end;

procedure TMainForm.FormShow(Sender: TObject);
var
   SameDay:Boolean;
   D:String;
   STemp:String;
   ADutyName:String;
   X,Y:Word;
begin
  SameDay:=True;
  X:=850;
  Y:=36;
  DM.GetManinfoList;
  D:=DateToStr(Date);
  with DM.TBSysParams_L do
  begin
     Open;
     First;
     if FieldByName('SetDate').AsString<>D then
     begin
        Edit;
        FieldByName('SetDate').AsString :=D;
        Post;
        SameDay:=False;
     end;
     Close;
  end;

  Image1.Canvas.Font.Size :=14;
  Image1.Canvas.Font.Color :=clBlue;
  Image1.Canvas.Font.Style :=[fsBold];
  Image1.Canvas.Font.Name :='方正舒体';

  with DM.TBDepart_L do
  begin
     Open;
     First;
     while not Eof do
     begin
        if SameDay then ADutyName:=FieldByName('D_Duty').AsString
        else
        begin
          ADutyName:=DM.GetDutyMan(FieldByName('D_Name').AsString,FieldByName('D_Duty').AsString);
          Edit;
          FieldByName('D_Duty').AsString :=ADutyName;
          Post;
        end;
        STemp:=FieldByName('D_Name').AsString+'： '+ADutyName;
        Image1.Canvas.TextOut(X,Y,Stemp);
        Next;

        Y:=Y+18;
     end;
     close;
  end;   
  
end;

procedure TMainForm.N27Click(Sender: TObject);
begin
    PenaltyForm:=TPenaltyForm.Create(Application);
    try
       PenaltyForm.showmodal;
    finally
       PenaltyForm.free;
    end;
end;

procedure TMainForm.SSShuClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   if SSShu.Socket.ReceiveText ='奖罚单' then
   begin
      PenaltyFlashForm:=TPenaltyFlashForm.Create(Application);
      try
        PenaltyFlashForm.showmodal;
      finally
        PenaltyFlashForm.free;
      end;
   end;
   if SSShu.Socket.ReceiveText ='考勤'  then
   begin


   end;
end;

procedure TMainForm.N29Click(Sender: TObject);
begin
     ShoushiForm:=TShoushiForm.Create(Application);
     try
       ShoushiForm.showmodal;
     finally
       Shoushiform.free;
     end;
end;

procedure TMainForm.Label1Click(Sender: TObject);
begin
   ShoushiRptForm:=TShoushiRptForm.Create(Application);
   try
      DM.qryShoushi.Open;
      ShoushiRptForm.QuickRep1.Preview;
   finally
      ShoushiRptForm.Free;
      DM.qryShoushi.Close;
   end;
end;

procedure TMainForm.N32Click(Sender: TObject);
begin
    ShowApplyForm(0);
end;

procedure TMainForm.N35Click(Sender: TObject);
begin
   ShowApplyForm(1);
end;

procedure TMainForm.N33Click(Sender: TObject);
begin
   ShowApplyForm(2);
end;

procedure TMainForm.N34Click(Sender: TObject);
begin
    ShowApplyForm(3);
end;

procedure TMainForm.N38Click(Sender: TObject);
begin
   ShowqryCondition(0);
end;

procedure TMainForm.N39Click(Sender: TObject);
begin
   ShowqryCondition(1);
end;

procedure TMainForm.N40Click(Sender: TObject);
begin
   ShowqryCondition(2);
end;

procedure TMainForm.N41Click(Sender: TObject);
begin
   ShowqryCondition(3);
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
    SelectForm:=TSelectForm.Create(Application);
    try
       CurrentQry:='收视';
       SelectForm.ShowModal;
    finally
       SelectForm.Free;
    end;
end;

procedure TMainForm.N43Click(Sender: TObject);
begin
   GivePrizeForm:=TGivePrizeForm.Create(Application);
   try
      GivePrizeForm.ShowModal;
   finally
      GivePrizeForm.Free;
   end;
end;

procedure TMainForm.N31Click(Sender: TObject);
begin
   InvoiceForm:=TInvoiceForm.Create(Application);
   try
      InvoiceForm.ShowModal;
   finally
      InvoiceForm.Free;
   end;
end;

procedure TMainForm.N47Click(Sender: TObject);
begin
   setMenu;
   CurrentQry:='开票';
   QryGridForm:=TQryGridForm.Create(Application);
   try
      QryGridForm.ShowModal;
   finally
      QryGridForm.Free;
   end;
      
end;

procedure TMainForm.N45Click(Sender: TObject);
begin
   CurrentQry:='奖品';
   QryGridForm:=TQryGridForm.Create(Application);
   try
      QryGridForm.ShowModal;
   finally
      QryGridForm.Free;
   end;
end;

procedure TMainForm.N48Click(Sender: TObject);
begin
   CurrentQry:='奖罚单';
   QryGridForm:=TQryGridForm.Create(Application);
   try
      QryGridForm.ShowModal;
   finally
      QryGridForm.Free;
   end;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
    ShowKaoqinFlashForm;
end;

procedure TMainForm.ShowKaoqinFlashForm;
var
   Aname:String;
begin
   with DM.qryKaoqin do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from Kaoqin');
      SQL.Add('Where (K_Date=:varDate) and (K_Penalty>:varPenalty)');
      params[0].AsDateTime :=Date;
      Params[1].AsInteger :=0;
      Open;
      First;
      AName:=FieldByName('K_Name').AsString;
   end;
   if AName<>'' then
   begin
   KaoqinFlashForm:=TKaoqinFlashForm.Create(Application);
    try
       KaoqinFlashForm.ShowModal;
       TimeKaoqinFlash.Enabled :=True;
    finally
       KaoqinFlashForm.Free;
    end;
   end
   else MessageBox(Application.Handle,pchar(ErrLate),
        '提示',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL);

end;

procedure TMainForm.TimeKaoqinFlashTimer(Sender: TObject);
begin
    KaoqinFlashForm.Close;
    
    KaoqinFlashForm:=TKaoqinFlashForm.Create(Application);
    try
       KaoqinFlashForm.ShowModal;
    finally
       KaoqinFlashForm.Free;
    end;
end;

procedure TMainForm.N49Click(Sender: TObject);
begin
   TichengForm:=TTiChengForm.Create(Application);
   try
      TichengForm.ShowModal;
   finally
      TichengForm.Free;
   end;
end;

procedure TMainForm.N36Click(Sender: TObject);
begin
   AnalyseForm:=TAnalyseForm.Create(Application);
   try
      AnalyseForm.ShowModal;
   finally
      AnalyseForm.Free;
   end;
end;

end.