⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 trendtjfrm.pas

📁 一个电力企业的后台管理程序
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 

//--------------业扩咨询
    close; sql.Clear;
    sql.Text:='drop Table T_YKZX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YKZX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=1 to 12 do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from YkGcZx where Year(SlTime)='''+Edt_OnlyMonthSelect.Text+''' and Month(Sltime)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YKZX ( Thedate,TheValue) values ('''+IntToStr(i)+'月'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

//--------------用户投诉
    close; sql.Clear;
    sql.Text:='drop Table T_YHTS';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YHTS ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=1 to 12 do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientComp where Year(Slsj)='''+Edt_OnlyMonthSelect.Text+''' and Month(Slsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YHTS ( Thedate,TheValue) values ('''+IntToStr(i)+'月'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;


//--------------用户咨询
    close; sql.Clear;
    sql.Text:='drop Table T_YHZX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YHZX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=1 to 12 do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientAsk where Year(Slsj)='''+Edt_OnlyMonthSelect.Text+''' and Month(Slsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YHZX ( Thedate,TheValue) values ('''+IntToStr(i)+'月'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

   close; sql.Clear;
   sql.Text:='select a.TheDate,a.theValue gz,b.theValue Yk,c.thevalue ts,d.thevalue zx,a.thevalue+b.thevalue+c.thevalue+d.thevalue S from T_GZGX a,T_YKZX b,T_YHTS c,T_YHZX d where a.thedate=b.thedate and a.thedate=c.thedate and a.thedate=d.thedate';
   Open;
 end;

end;//按年统计

//============================================
if CmBox_SelectTJStyle.Text='按月统计' then
begin

 QRLbl_DateRange.caption:=intToStr(CurYear)+'年'+Edt_OnlyMonthSelect.Text+'月';

 with DM_TrendTJ.Qr_TrendTJ do
 begin

    TJPrBar.Position:=5;
    TJPrBar.Update;
//------------故障报修
    close; sql.Clear;
    sql.Text:='drop Table T_GZGX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_GZGX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=1 to DayNum do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientElecOut where Year(zzflsj)='''+IntToStr(CurYear)+''' and Month(zzflsj)='''+Edt_OnlyMonthSelect.Text+''' and Day(zzflsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_GZGX ( Thedate,TheValue) values ('''+IntToStr(i)+'日'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

//--------------业扩咨询
    close; sql.Clear;
    sql.Text:='drop Table T_YKZX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YKZX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=1 to DayNum do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from YkGcZx where Year(SlTime)='''+IntToStr(CurYear)+'''  and Month(Sltime)='''+Edt_OnlyMonthSelect.Text+''' and Day(Sltime)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YKZX ( Thedate,TheValue) values ('''+IntToStr(i)+'日'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

//--------------用户投诉
    close; sql.Clear;
    sql.Text:='drop Table T_YHTS';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YHTS ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=1 to DayNum do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientComp where Year(Slsj)='''+IntToStr(CurYear)+''' and  Month(Slsj)='''+Edt_OnlyMonthSelect.Text+''' and Day(Slsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YHTS ( Thedate,TheValue) values ('''+IntToStr(i)+'日'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;


//--------------用户咨询
    close; sql.Clear;
    sql.Text:='drop Table T_YHZX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YHZX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=1 to DayNum do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientAsk where Year(Slsj)='''+IntTostr(CurYear)+''' and Month(Slsj)='''+Edt_OnlyMonthSelect.Text+''' and Day(Slsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YHZX ( Thedate,TheValue) values ('''+IntToStr(i)+'日'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

   close; sql.Clear;
   sql.Text:='select a.TheDate,a.theValue gz,b.theValue Yk,c.thevalue ts,d.thevalue zx,a.thevalue+b.thevalue+c.thevalue+d.thevalue S from T_GZGX a,T_YKZX b,T_YHTS c,T_YHZX d where a.thedate=b.thedate and a.thedate=c.thedate and a.thedate=d.thedate';
   Open;
 end;

end;//按月统计

//============================================
if CmBox_SelectTJStyle.Text='按日统计' then
begin

 QRLbl_DateRange.caption:=formatDateTime('yyyy"年"MM"月"DD"日"',DatePicker.date);

 with DM_TrendTJ.Qr_TrendTJ do
 begin

    TJPrBar.Position:=5;
    TJPrBar.Update;
//------------故障报修
    close; sql.Clear;
    sql.Text:='drop Table T_GZGX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_GZGX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=0 to 23 do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientElecOut where year(zzflsj)='''+IntToStr(Uyear)+''' and Month(zzflsj)='''+IntToStr(UMonth)+''' and Day(zzflsj)='''+IntToStr(Uday)+''' and DateName(Hour,zzflsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_GZGX ( Thedate,TheValue) values ('''+IntToStr(i)+'时'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

//--------------业扩咨询
    close; sql.Clear;
    sql.Text:='drop Table T_YKZX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YKZX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=0 to 23 do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from YkGcZx where year(SlTime)='''+IntToStr(Uyear)+''' and Month(SlTime)='''+IntToStr(UMonth)+''' and Day(SlTime)='''+IntToStr(Uday)+''' and DateName(Hour,SlTime)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YKZX ( Thedate,TheValue) values ('''+IntToStr(i)+'时'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

//--------------用户投诉
    close; sql.Clear;
    sql.Text:='drop Table T_YHTS';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YHTS ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=0 to 23 do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientComp where year(Slsj)='''+IntToStr(Uyear)+''' and Month(Slsj)='''+IntToStr(UMonth)+''' and Day(Slsj)='''+IntToStr(Uday)+''' and DateName(Hour,Slsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YHTS ( Thedate,TheValue) values ('''+IntToStr(i)+'时'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;


//--------------用户咨询
    close; sql.Clear;
    sql.Text:='drop Table T_YHZX';
    try
       ExecSQL;
    except
    end;

    close; sql.Clear;
    sql.Text:='Create Table Ecsc_Sa.T_YHZX ( Thedate char(50),TheValue int)';
    ExecSQL;


    for i:=0 to 23 do
    begin
     DM_TrendTJ.Qr_Temp.Close;
     DM_TrendTJ.Qr_Temp.SQL.Clear;
     DM_TrendTJ.Qr_Temp.SQL.Text:='Select count(*) from ClientAsk where year(Slsj)='''+IntToStr(Uyear)+''' and Month(Slsj)='''+IntToStr(UMonth)+''' and Day(Slsj)='''+IntToStr(Uday)+''' and DateName(Hour,Slsj)='''+IntToStr(i)+''' and Slr='''+RxDBLpCb_Agent.Value+'''';
     DM_TrendTJ.Qr_Temp.Open;

     close; sql.Clear;
     sql.Text:='insert into T_YHZX ( Thedate,TheValue) values ('''+IntToStr(i)+'时'+''','+DM_TrendTJ.Qr_Temp.fieldbyname('column1').asstring+')';
     ExecSQL;

     TJPrBar.Position:=TJPrBar.Position+1;
     TJPrBar.Update;
   end;

   close; sql.Clear;
   sql.Text:='select a.TheDate,a.theValue gz,b.theValue Yk,c.thevalue ts,d.thevalue zx,a.thevalue+b.thevalue+c.thevalue+d.thevalue S from T_GZGX a,T_YKZX b,T_YHTS c,T_YHZX d where a.thedate=b.thedate and a.thedate=c.thedate and a.thedate=d.thedate';
   Open;
 end;

end;//按日统计

end;//-------------OneAgentSelected



 QRep_CHART1.PreviewModeless;
 QRep_CHART1.Hide;

 Sleep(1000);
 TJPrBar.Position:=100;
 TJPrBar.Update;
 TJPrBar.Enabled:=False;

 Cursor:=CrDefault;
 Screen.Cursor:=CrDefault;
 SpBtn_Stat.Enabled:=True;

end;

procedure TForm_TrendTJ.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
 FPageCount := PageNum ;
 UpdatePanelShow;
end;

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

procedure TForm_TrendTJ.FormDestroy(Sender: TObject);
begin
   Form_TrendTJ:=nil;
end;

end.
123

⌨️ 快捷键说明

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