📄 workstatetjfrm.pas

📁 一个电力企业的后台管理程序
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
          ParamByName('StartTime').asDateTime:=StartTime;
          ParamByName('EndTime').asDateTime:=EndTime;
          ExecSQL;

          close; sql.Clear;
          sql.Text:='create view YHTS_Num as  select count(slr) YHTS_Num from ClientComp where  Slsj>=:StartTime and Slsj<=:EndTime and slr='''+RxDBLpCb_Agent.Value+'''';
          ParamByName('StartTime').asDateTime:=StartTime;
          ParamByName('EndTime').asDateTime:=EndTime;
          ExecSQL;

          close; sql.Clear;
          sql.Text:='create view YHZX_Num as  select count(slr) YHZX_Num from ClientAsk where  Slsj>=:StartTime and Slsj<=:EndTime and slr='''+RxDBLpCb_Agent.Value+'''';
          ParamByName('StartTime').asDateTime:=StartTime;
          ParamByName('EndTime').asDateTime:=EndTime;
          ExecSQL;


          close; sql.Clear;
          sql.Text:='create view Temp1 as  select a.WorkId,a.WorkName,b.GZBX_Num from SysLogin a,GZBX_Num b where a.WorkId='''+RxDBLpCb_Agent.Value+'''';
          ExecSQL;

          close; sql.Clear;
          sql.Text:='create view Temp2 as  select a.WorkId,a.WorkName,a.GZBX_Num,b.YKZX_Num from Temp1 a,YKZX_Num b ';
          ExecSQL;

          close; sql.Clear;
          sql.Text:='create view Temp3 as  select a.WorkId,a.WorkName,a.GZBX_Num,a.YKZX_Num,b.YHTS_Num from Temp2 a,YHTS_Num b ';
          ExecSQL;

          close; sql.Clear;
          sql.Text:='create view Temp4 as  select a.WorkId,a.WorkName,a.GZBX_Num,a.YKZX_Num,a.YHTS_Num,b.YHZX_Num from Temp3 a , YHZX_Num b ';
          ExecSQL;

          close; sql.Clear;
          sql.Text:='create view Total as  select Sum(GZBX_Num) GZBX_Total,Sum(YKZX_Num) YKZX_Total,Sum(YHTS_Num) YHTS_Total,Sum(YHZX_Num) YHZX_Total from Temp4';
          ExecSQL;

          close; sql.Clear;
          sql.Text:='select * from Temp4';
          Open;

        end;
end;


procedure TForm_WorkStateTJ.ToolButton2Click(Sender: TObject);
begin
  QRPreview1.ZoomToFit;
end;

procedure TForm_WorkStateTJ.ToolButton4Click(Sender: TObject);
begin
  QRPreview1.ZoomToWidth;
end;

procedure TForm_WorkStateTJ.ToolButton3Click(Sender: TObject);
begin
  QRPreview1.Zoom:=100;
end;

procedure TForm_WorkStateTJ.ToolButton7Click(Sender: TObject);
begin
  QRPreview1.PageNumber := QRPreview1.PageNumber-1;
  if QRPreview1.PageNumber =0 then
  QRPreview1.PageNumber:=1;
  UpdatePanelShow;
end;

procedure TForm_WorkStateTJ.ToolButton6Click(Sender: TObject);
begin
  QRPreview1.PageNumber := 1;
  UpdatePanelShow;
end;

procedure TForm_WorkStateTJ.ToolButton8Click(Sender: TObject);
begin
 QRPreview1.PageNumber := QRPreview1.PageNumber+1;
 UpdatePanelShow;
end;

procedure TForm_WorkStateTJ.ToolButton9Click(Sender: TObject);
begin
 QRPreview1.PageNumber := QRPreview1.PageNumber+1;
 UpdatePanelShow;
end;

procedure TForm_WorkStateTJ.ToolButton11Click(Sender: TObject);
begin
 try
 QRPreview1.QRPrinter.PrintSetup;
 except
  showmessage('请安装打印机');
 end;
end;

procedure TForm_WorkStateTJ.ToolButton13Click(Sender: TObject);
begin
 try
  QRPreview1.QRPrinter.Print;
 except
  showmessage('请检查打印机');
 end;
end;

procedure TForm_WorkStateTJ.ToolButton14Click(Sender: TObject);
begin
   QRPreview1.Hide;
   Close;
end;

procedure TForm_WorkStateTJ.UpdatePanelShow;
begin
  Panel5.Caption :=' 第'+inttostr(QRPreview1.PageNumber)+' 页 总'+inttostr(FPageCount)+' 页  ';
end;

procedure TForm_WorkStateTJ.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
// QRPreview1.Zoom:=100;
 FPageCount := PageNum ;
 UpdatePanelShow;
end;

procedure TForm_WorkStateTJ.QRep_IMagePreview(Sender: TObject);
begin
   QRPreview1.QRPrinter := TQRPrinter(Sender);
    CurRep := self.QRep_Image;
   Show;
end;

procedure TForm_WorkStateTJ.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled:=false;
 QRPreview1.Show;
 ToolButton14.Enabled:=true;
 QRep_Image.PreviewModeless;
end;

procedure TForm_WorkStateTJ.FormShow(Sender: TObject);
var
  yy,mm,dd:word;
begin
 DecodeDate(date,yy,mm,dd);
 CurYear:=yy;
 CurMonth:=mm;
 CurDay:=dd;

 ToolButton14.Enabled:=False;
 timer1.Enabled:=true;

 Edt_OnlyMonthSelect.Text:=IntTostr(mm);
 DatePicker.Date:=Date;
 DatePicker_Start.Date:=Date-1;
 DatePicker_End.Date:=Date;
 TimePicker_Start.Time:=Time-0.5;
 TimePicker_End.Time:=Time;
 UpDown1.position:=StrToInt(Edt_OnlyMonthSelect.Text);
end;


procedure TForm_WorkStateTJ.CmBox_SelectTJStyleChange(Sender: TObject);
begin
 if CmBox_SelectTJStyle.Text='按月统计' then
 begin
   Edt_OnlyMonthSelect.Visible:=True;
   Lbl_OnlyMonthSelect.Visible:=True;
   UpDown1.Visible:=True;
   DatePicker_Start.Visible:=False;
   DatePicker_End.Visible:=False;
   TimePicker_Start.Visible:=False;
   TimePicker_End.Visible:=False;
   Lbl_to.Visible:=False;
   DatePicker.Visible:=False;
 end;
 if CmBox_SelectTJStyle.Text='按日统计' then
 begin
   Edt_OnlyMonthSelect.Visible:=False;
   Lbl_OnlyMonthSelect.Visible:=False;
   UpDown1.Visible:=False;
   DatePicker_Start.Visible:=False;
   DatePicker_End.Visible:=False;
   TimePicker_Start.Visible:=False;
   TimePicker_End.Visible:=False;
   Lbl_to.Visible:=False;
   DatePicker.Visible:=True;
 end;
 if CmBox_SelectTJStyle.Text='按任意时间统计' then
 begin
   Edt_OnlyMonthSelect.Visible:=False;
   Lbl_OnlyMonthSelect.Visible:=False;
   UpDown1.Visible:=False;
   DatePicker_Start.Visible:=True;
   DatePicker_End.Visible:=True;
   TimePicker_Start.Visible:=True;
   TimePicker_End.Visible:=True;
   Lbl_to.Visible:=True;
   DatePicker.Visible:=False;
 end;
end;

procedure TForm_WorkStateTJ.SetFDay(Value: word);
begin
   if FDay<>Value then FDay:=Value;
end;

procedure TForm_WorkStateTJ.SetFMonth(Value: word);
begin
   if FMonth<>Value then FMonth:=Value;
end;

procedure TForm_WorkStateTJ.SetFyear(Value: word);
begin
   if FYear<>Value then FYear:=Value;
end;

procedure TForm_WorkStateTJ.UpDown1Click(Sender: TObject;
  Button: TUDBtnType);
begin
  if Button=BtNext then
  begin
       Edt_OnlyMonthSelect.Text:=IntToStr(UpDown1.position);
  end  else
  begin
       Edt_OnlyMonthSelect.Text:=IntToStr(UpDown1.position);
  end;
end;

procedure TForm_WorkStateTJ.FormDestroy(Sender: TObject);
begin
   Form_WorkStateTJ:=nil;
end;

procedure TForm_WorkStateTJ.CmBox_SelectTJStyleKeyPress(Sender: TObject;
  var Key: Char);
begin
 key:=#0;
end;

procedure TForm_WorkStateTJ.Edt_OnlyMonthSelectKeyPress(Sender: TObject;
  var Key: Char);
begin
 key:=#0;
end;

procedure TForm_WorkStateTJ.CkBox_AllAgentClick(Sender: TObject);
begin
  if CkBox_AllAgent.Checked=true then
  begin
       RxDBLpCb_Agent.ClearValue;
       RxDBLpCb_Agent.Enabled:=False;
  end
  else RxDBLpCb_Agent.Enabled:=True;
end;

procedure TForm_WorkStateTJ.SpBtn_StatClick(Sender: TObject);
begin
 if CmBox_SelectTJStyle.Text='按月统计' then
 begin

   if RdBtn_report.Checked then
   begin
     QRLbl_DateRangeWTJ.Caption:=IntToStr(CurYear)+'年'+Edt_OnlyMonthSelect.Text+'月';
     if CkBox_AllAgent.Checked=true then
     begin

        DoAllAgent_OnlySelectMonth;

        DM_WorkStateTJ.Qr_Total.Close;
        DM_WorkStateTJ.Qr_Total.Open;

        QRlbl_SUM.Caption:=inttostr(DM_WorkStateTJ.Qr_Total.fieldbyname('GZBX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YKZX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHTS_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHZX_Total').asinteger);
     end  else
     begin

        DoOneAgent_OnlySelectMonth;

        DM_WorkStateTJ.Qr_Total.Close;
        DM_WorkStateTJ.Qr_Total.Open;

        QRlbl_SUM.Caption:=inttostr(DM_WorkStateTJ.Qr_Total.fieldbyname('GZBX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YKZX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHTS_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHZX_Total').asinteger);
     end;

       QRep_WTJ.PreviewModeless;
       QRep_WTJ.Hide;
   end;

   if RdBtn_Graph1.Checked then
   begin
      if CkBox_AllAgent.Checked=true then
      begin

        DoAllAgent_OnlySelectMonth;
        QRLbl_DateRange.Caption:=IntToStr(CurYear)+'年'+Edt_OnlyMonthSelect.Text+'月';
        QRep_CHART1.PreviewModeless;
        QRep_CHART1.Hide;
      end else
      begin

        DoOneAgent_OnlySelectMonth;
        QRLbl_DateRange.Caption:=IntToStr(CurYear)+'年'+Edt_OnlyMonthSelect.Text+'月';
        QRep_CHART1.PreviewModeless;
        QRep_CHART1.Hide;
      end;

   end;
 end;

 if CmBox_SelectTJStyle.Text='按日统计' then
 begin
   if RdBtn_report.Checked then
   begin
     QRLbl_DateRangeWTJ.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker.date);
     if CkBox_AllAgent.Checked=true then
     begin

        DoAllAgent_OnlySelectDay;

        DM_WorkStateTJ.Qr_Total.Close;
        DM_WorkStateTJ.Qr_Total.Open;

        QRlbl_SUM.Caption:=inttostr(DM_WorkStateTJ.Qr_Total.fieldbyname('GZBX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YKZX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHTS_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHZX_Total').asinteger);
     end else
     begin
        DoOneAgent_OnlySelectDay;

        DM_WorkStateTJ.Qr_Total.Close;
        DM_WorkStateTJ.Qr_Total.Open;

        QRlbl_SUM.Caption:=inttostr(DM_WorkStateTJ.Qr_Total.fieldbyname('GZBX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YKZX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHTS_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHZX_Total').asinteger);

     end;

       QRep_WTJ.PreviewModeless;
       QRep_WTJ.Hide;
   end;

   if RdBtn_Graph1.Checked then
   begin
      if CkBox_AllAgent.Checked=true then
      begin

        DoAllAgent_OnlySelectDay;
        QRLbl_DateRange.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker.date);
        QRep_CHART1.PreviewModeless;
        QRep_CHART1.Hide;
      end else
      begin
        DoOneAgent_OnlySelectDay;
        QRLbl_DateRange.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker.date);
        QRep_CHART1.PreviewModeless;
        QRep_CHART1.Hide;
      end;

   end;
 end;


if CmBox_SelectTJStyle.Text='按任意时间统计' then
 begin
   if RdBtn_report.Checked then
   begin
     QRLbl_DateRangeWTJ.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.date)+FormatDateTime('hh"时"mm"分"',TimePicker_Start.Time)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+FormatDateTime('hh"时"mm"分"',TimePicker_End.Time);
     if CkBox_AllAgent.Checked=true then
     begin

        DoAllAgent_BetweenTowDateTime;

        DM_WorkStateTJ.Qr_Total.Close;
        DM_WorkStateTJ.Qr_Total.Open;

        QRlbl_SUM.Caption:=inttostr(DM_WorkStateTJ.Qr_Total.fieldbyname('GZBX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YKZX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHTS_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHZX_Total').asinteger);
     end  else
     begin
        DoOneAgent_BetweenTowDateTime;

        DM_WorkStateTJ.Qr_Total.Close;
        DM_WorkStateTJ.Qr_Total.Open;

        QRlbl_SUM.Caption:=inttostr(DM_WorkStateTJ.Qr_Total.fieldbyname('GZBX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YKZX_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHTS_Total').asinteger+DM_WorkStateTJ.Qr_Total.fieldbyname('YHZX_Total').asinteger);


     end;

       QRep_WTJ.PreviewModeless;
       QRep_WTJ.Hide;
   end;

   if RdBtn_Graph1.Checked then
   begin
      if CkBox_AllAgent.Checked=true then
      begin

        DoAllAgent_BetweenTowDateTime;

        QRLbl_DateRange.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.date)+FormatDateTime('hh"时"mm"分"',TimePicker_Start.Time)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+FormatDateTime('hh"时"mm"分"',TimePicker_End.Time);
        QRep_CHART1.PreviewModeless;
        QRep_CHART1.Hide;
      end  else
      begin
        DoOneAgent_BetweenTowDateTime;

        QRLbl_DateRange.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.date)+FormatDateTime('hh"时"mm"分"',TimePicker_Start.Time)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+FormatDateTime('hh"时"mm"分"',TimePicker_End.Time);
        QRep_CHART1.PreviewModeless;
        QRep_CHART1.Hide;

      end;

   end;
 end;
end;

procedure TForm_WorkStateTJ.QRep_WTJPreview(Sender: TObject);
begin
  QRPreview1.QRPrinter := TQRPrinter(Sender);
  CurRep := self.QRep_WTJ;
  Show;
end;

procedure TForm_WorkStateTJ.QRep_CHART1Preview(Sender: TObject);
begin
  QRPreview1.QRPrinter := TQRPrinter(Sender);
  CurRep := self.QRep_CHART1;
  Show;
end;

procedure TForm_WorkStateTJ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if screen.FormCount=2 then WebIsHide(0);
  Action:=CaFree;
end;

end.
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -