frm_cutuser_static.~pas

一个电力企业的后台管理程序

unit Frm_CutUser_Static;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, fcButton, fcImgBtn, fcShapeBtn, Spin,
  Buttons, DB, DBTables, ComOBJ, WorddotRpt;

type
  TForm_CutUser_Static = class(TForm)
    PC_Content: TPageControl;
    TS_UserSatisfy: TTabSheet;
    Panel1: TPanel;
    btn_Close: TSpeedButton;
    btn_Stat: TSpeedButton;
    Label4: TLabel;
    Label3: TLabel;
    SE_CurrMon: TSpinEdit;
    SE_AddUpMon: TSpinEdit;
    Label2: TLabel;
    Label1: TLabel;
    SE_CurrYear: TSpinEdit;
    SE_AddUpYear: TSpinEdit;
    Label7: TLabel;
    Label6: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    WorddotRpt: TWorddotRpt;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure btn_CloseClick(Sender: TObject);
    procedure btn_StatClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Dt_Curr,Dt_End,Dt_AddUp: TDateTime;
  public
    { Public declarations }
    function DoTS(sqlstr:string):integer;
  end;

var
  Form_CutUser_Static: TForm_CutUser_Static;

implementation

uses SystemDM, BusiCount;

{$R *.DFM}

procedure TForm_CutUser_Static.btn_CloseClick(Sender: TObject);
begin
  close;
end;

procedure TForm_CutUser_Static.btn_StatClick(Sender: TObject);
var
  CityNum_YYSF_Num, CityOver_YYSF_Num, VillNum_YYSF_Num, VillOver_YYSF_Num,
  CityNum_DFDJ_Num, CityOver_DFDJ_Num, VillNum_DFDJ_Num, VillOver_DFDJ_Num,
  CityNum_DWGZ_Num, CityOver_DWGZ_Num, VillNum_DWGZ_Num, VillOver_DWGZ_Num,
  CityNum_GDZL_Num, CityOver_GDZL_Num, VillNum_GDZL_Num, VillOver_GDZL_Num,
  CityNum_TDFM_Num, CityOver_TDFM_Num, VillNum_TDFM_Num, VillOver_TDFM_Num,
  CityNum_FWZL_Num, CityOver_FWZL_Num, VillNum_FWZL_Num, VillOver_FWZL_Num,
  CityNum_WYZG_Num, CityOver_WYZG_Num, VillNum_WYZG_Num, VillOver_WYZG_Num,
  CityNum_BZJD_Num, CityOver_BZJD_Num, VillNum_BZJD_Num, VillOver_BZJD_Num,
  CityNum_JDSH_Num, CityOver_JDSH_Num, VillNum_JDSH_Num, VillOver_JDSH_Num,
  CityNum_ZXJY_Num, CityOver_ZXJY_Num, VillNum_ZXJY_Num, VillOver_ZXJY_Num,
  CityNum_LZJS_Num, CityOver_LZJS_Num, VillNum_LZJS_Num, VillOver_LZJS_Num,
  CityNum_QT_Num, CityOver_QT_Num, VillNum_QT_Num, VillOver_QT_Num,
  CityNum_TOTAL_Num, CityOver_TOTAL_Num, VillNum_TOTAL_Num, VillOver_TOTAL_Num:integer;
begin
  Dt_Curr := EncodeDate(SE_CurrYear.Value,SE_CurrMon.Value,01);
  Replacetime(Dt_Curr,DateTimePicker2.time);
  Dt_End:= EncodeDate(SE_CurrYear.Value,SE_CurrMon.Value,Frm_BusiCount.Embo(SE_CurrMon.Value));
  Replacetime(Dt_End,DateTimePicker1.time);
  Dt_AddUp := EncodeDate(SE_AddUpYear.Value,SE_AddUpMon.Value,01);
  //PrepareData(FormatDateTime('YYYYMM',Dt_Curr));
  //PrepareData(FormatDateTime('YYYYMM',Dt_Addup));
  CityNum_YYSF_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=1');
  CityOver_YYSF_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=1 and (state=2 or state=9)');
  VillNum_YYSF_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=1');
  VillOver_YYSF_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=1 and (state=2 or state=9)');
  CityNum_DFDJ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=2');
  CityOver_DFDJ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=2 and (state=2 or state=9)');
  VillNum_DFDJ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=2');
  VillOver_DFDJ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=2 and (state=2 or state=9)');
  CityNum_DWGZ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=3');
  CityOver_DWGZ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=3 and (state=2 or state=9)');
  VillNum_DWGZ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=3');
  VillOver_DWGZ_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=3 and (state=2 or state=9)');
  CityNum_GDZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=4');
  CityOver_GDZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=4 and (state=2 or state=9)');
  VillNum_GDZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=4');
  VillOver_GDZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=4 and (state=2 or state=9)');
  CityNum_TDFM_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=5');
  CityOver_TDFM_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=5 and (state=2 or state=9)');
  VillNum_TDFM_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=5');
  VillOver_TDFM_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=5 and (state=2 or state=9)');
  CityNum_FWZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=6');
  CityOver_FWZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=6 and (state=2 or state=9)');
  VillNum_FWZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=6');
  VillOver_FWZL_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=6 and (state=2 or state=9)');
  CityNum_WYZG_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=7');
  CityOver_WYZG_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=7 and (state=2 or state=9)');
  VillNum_WYZG_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=7');
  VillOver_WYZG_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=7 and (state=2 or state=9)');
  CityNum_BZJD_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=8');
  CityOver_BZJD_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=8 and (state=2 or state=9)');
  VillNum_BZJD_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=8');
  VillOver_BZJD_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=8 and (state=2 or state=9)');
  CityNum_JDSH_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=9');
  CityOver_JDSH_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=9 and (state=2 or state=9)');
  VillNum_JDSH_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=9');
  VillOver_JDSH_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=9 and (state=2 or state=9)');
  CityNum_ZXJY_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=10');
  CityOver_ZXJY_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=10 and (state=2 or state=9)');
  VillNum_ZXJY_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=10');
  VillOver_ZXJY_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=10 and (state=2 or state=9)');
  CityNum_LZJS_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=11');
  CityOver_LZJS_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=11 and (state=2 or state=9)');
  VillNum_LZJS_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=11');
  VillOver_LZJS_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=11 and (state=2 or state=9)');
  CityNum_QT_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=12');
  CityOver_QT_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'1'+#39+' and COMP_TYPE=12 and (state=2 or state=9)');
  VillNum_QT_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=12');
  VillOver_QT_Num:=DoTS('select * from ClientComp where VALIDCOMP_F='+#39+'2'+#39+' and COMP_TYPE=12 and (state=2 or state=9)');
  CityNum_TOTAL_Num:= CityNum_YYSF_Num+ CityNum_DFDJ_Num+ CityNum_DWGZ_Num+ CityNum_GDZL_Num+ CityNum_TDFM_Num+ CityNum_FWZL_Num+ CityNum_WYZG_Num+ CityNum_BZJD_Num+ CityNum_JDSH_Num+ CityNum_ZXJY_Num+ CityNum_LZJS_Num+ CityNum_QT_Num;
  CityOver_TOTAL_Num:=CityOver_YYSF_Num+CityOver_DFDJ_Num+CityOver_DWGZ_Num+CityOver_GDZL_Num+CityOver_TDFM_Num+CityOver_FWZL_Num+CityOver_WYZG_Num+CityOver_BZJD_Num+CityOver_JDSH_Num+CityOver_ZXJY_Num+CityOver_LZJS_Num+CityOver_QT_Num;
  VillNum_TOTAL_Num:= VillNum_YYSF_Num+ VillNum_DFDJ_Num+ VillNum_DWGZ_Num+ VillNum_GDZL_Num+ VillNum_TDFM_Num+ VillNum_FWZL_Num+ VillNum_WYZG_Num+ VillNum_BZJD_Num+ VillNum_JDSH_Num+ VillNum_ZXJY_Num+ VillNum_LZJS_Num+ VillNum_QT_Num;
  VillOver_TOTAL_Num:=VillOver_YYSF_Num+VillOver_DFDJ_Num+VillOver_DWGZ_Num+VillOver_GDZL_Num+VillOver_TDFM_Num+VillOver_FWZL_Num+VillOver_WYZG_Num+VillOver_BZJD_Num+VillOver_JDSH_Num+VillOver_ZXJY_Num+VillOver_LZJS_Num+VillOver_QT_Num;

  WorddotRpt.Title.Clear ;
  with WorddotRpt.Title do
  begin
    Add(Format('CityNum_YYSF=%d',[CityNum_YYSF_Num]));
    Add(Format('CityOver_YYSF=%d',[CityOver_YYSF_Num]));
    Add(Format('VillNum_YYSF=%d',[VillNum_YYSF_Num]));
    Add(Format('VillOver_YYSF=%d',[VillOver_YYSF_Num]));

    Add(Format('CityNum_DFDJ=%d',[CityNum_DFDJ_Num]));
    Add(Format('CityOver_DFDJ=%d',[CityOver_DFDJ_Num]));
    Add(Format('VillNum_DFDJ=%d',[VillNum_DFDJ_Num]));
    Add(Format('VillOver_DFDJ=%d',[VillOver_DFDJ_Num]));

    Add(Format('CityNum_DWGZ=%d',[CityNum_YYSF_Num]));
    Add(Format('CityOver_DWGZ=%d',[CityOver_YYSF_Num]));
    Add(Format('VillNum_DWGZ=%d',[VillNum_YYSF_Num]));
    Add(Format('VillOver_DWGZ=%d',[VillOver_YYSF_Num]));

    Add(Format('CityNum_GDZL=%d',[CityNum_GDZL_Num]));
    Add(Format('CityOver_GDZL=%d',[CityOver_GDZL_Num]));
    Add(Format('VillNum_GDZL=%d',[VillNum_GDZL_Num]));
    Add(Format('VillOver_GDZL=%d',[VillOver_GDZL_Num]));

    Add(Format('CityNum_TDFM=%d',[CityNum_TDFM_Num]));
    Add(Format('CityOver_TDFM=%d',[CityOver_TDFM_Num]));
    Add(Format('VillNum_TDFM=%d',[VillNum_TDFM_Num]));
    Add(Format('VillOver_TDFM=%d',[VillOver_TDFM_Num]));

    Add(Format('CityNum_FWZL=%d',[CityNum_FWZL_Num]));
    Add(Format('CityOver_FWZL=%d',[CityOver_FWZL_Num]));
    Add(Format('VillNum_FWZL=%d',[VillNum_FWZL_Num]));
    Add(Format('VillOver_FWZL=%d',[VillOver_FWZL_Num]));

    Add(Format('CityNum_WYZG=%d',[CityNum_WYZG_Num]));
    Add(Format('CityOver_WYZG=%d',[CityOver_WYZG_Num]));
    Add(Format('VillNum_WYZG=%d',[VillNum_WYZG_Num]));
    Add(Format('VillOver_WYZG=%d',[VillOver_WYZG_Num]));

    Add(Format('CityNum_BZJD=%d',[CityNum_BZJD_Num]));
    Add(Format('CityOver_BZJD=%d',[CityOver_BZJD_Num]));
    Add(Format('VillNum_BZJD=%d',[VillNum_BZJD_Num]));
    Add(Format('VillOver_BZJD=%d',[VillOver_BZJD_Num]));

    Add(Format('CityNum_JDSH=%d',[CityNum_JDSH_Num]));
    Add(Format('CityOver_JDSH=%d',[CityOver_JDSH_Num]));
    Add(Format('VillNum_JDSH=%d',[VillNum_JDSH_Num]));
    Add(Format('VillOver_JDSH=%d',[VillOver_JDSH_Num]));

    Add(Format('CityNum_ZXJY=%d',[CityNum_ZXJY_Num]));
    Add(Format('CityOver_ZXJY=%d',[CityOver_ZXJY_Num]));
    Add(Format('VillNum_ZXJY=%d',[VillNum_ZXJY_Num]));
    Add(Format('VillOver_ZXJY=%d',[VillOver_ZXJY_Num]));

    Add(Format('CityNum_LZJS=%d',[CityNum_LZJS_Num]));
    Add(Format('CityOver_LZJS=%d',[CityOver_LZJS_Num]));
    Add(Format('VillNum_LZJS=%d',[VillNum_LZJS_Num]));
    Add(Format('VillOver_LZJS=%d',[VillOver_LZJS_Num]));

    Add(Format('CityNum_QT=%d',[CityNum_QT_Num]));
    Add(Format('CityOver_QT=%d',[CityOver_QT_Num]));
    Add(Format('VillNum_QT=%d',[VillNum_QT_Num]));
    Add(Format('VillOver_QT=%d',[VillOver_QT_Num]));

    Add(Format('CityNum_TOTAL=%d',[CityNum_TOTAL_Num]));
    Add(Format('CityOver_TOTAL=%d',[CityOver_TOTAL_Num]));
    Add(Format('VillNum_TOTAL=%d',[VillNum_TOTAL_Num]));
    Add(Format('VillOver_TOTAL=%d',[VillOver_TOTAL_Num]));

    Add(Format('printyear=%s',[FormatDateTime('YYYY',Dt_Curr)]));
    Add(Format('printmonth=%s',[FormatDateTime('MM',Dt_Curr)]));
  end;
  WorddotRpt.MasterDataset := nil;
  WorddotRpt.Preview := True;
  WorddotRpt.TemplateName := ExtractFilePath(Application.ExeName)+'StatReinTotal.dot';
  WorddotRpt.Execute;

  close;
end;

function TForm_CutUser_Static.DoTS(sqlstr: string): integer;
begin
  with TQuery.Create(nil) do
  try
    DataBaseName:=SysDM.DBMain.DatabaseName ;
    close;    sql.Clear ;
    sql.Text :=sqlstr;          open;
    result:=Recordcount;
  finally
    Free;
  end;
end;

procedure TForm_CutUser_Static.FormCreate(Sender: TObject);
var
 CYear,CMonth: String;
begin
 CYear := FormatDateTime('YYYY',Date);
 Se_CurrYear.Value := StrToInt(CYear);
 Se_AddUpYear.Value := StrToInt(Cyear) - 1;
 CMonth := FormatDateTime('MM',Date);
 Se_CurrMon.Value := StrToInt(CMonth);
 Se_AddUpMon.Value := StrToInt(CMonth);
end;

end.