unit_systemwake.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_SystemWake;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, StdCtrls, DBCtrls, ADODB, DBTables, Spin, ComCtrls, Grids, DBGrids,Unit_Public,
  TFlatButtonUnit;
type
  TFrm_SystemWake = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Query_PUB: TQuery;
    FlatButton1: TFlatButton;
    Query_Tmp: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatButton1Click(Sender: TObject);
  private
    { Private declarations }
    function sheri:integer;
    function qianfei:integer;
    function jieri(sss:string):integer;
  public
    { Public declarations }
  end;
var
  Frm_SystemWake: TFrm_SystemWake;
implementation
uses
  main;
{$R *.DFM}
function TFrm_SystemWake.qianfei: integer;
begin
  //返回欠费人数
  Query_PUB.Close ;
  Query_PUB.sql.clear;
  Query_PUB.sql.add ('select count(sid) from t_q_owefee where 1=1 '// where owetime<sysdate-1 '//如果欠费时间过了24小时
  +' and off_no_home='+inttostr(jx)+' '
  +' and cityno='''+ps_cityno+'''' );
  if jbdm = 4 then
    Query_PUB.SQL.Text :=Query_PUB.SQL.text+' and wk_no='''+gh+'''';
  Query_PUB.Open ;
  result := Query_PUB.Fields[0].AsInteger  ;
end;
function TFrm_SystemWake.sheri:integer;
var
  LSystemDate :TDatetime;
  sqlstr :string;
begin
  //得到后台数据库系统时间
  Query_Tmp.close;
  Query_Tmp.sql.text :='select sysdate from dual';
  Query_Tmp.open;
  LSystemDate :=Query_Tmp.fieldbyname('sysdate').asdatetime;
  //返回生日人数
  Query_PUB.close;
  sqlstr :='select count(sid) from t_f_custinfo where VIPH is not null '; //如果生日的月日与当前数据库系统时间的月日相同！
  sqlstr :=sqlstr+' and sr>=to_date('
   +#39+FormatDateTime('YYYY-MM-DD',LSystemDate)+' 00:00:00'+#39
   +','+#39+' yyyy-mm-dd hh24:mi:ss'+#39+')';

  sqlstr :=sqlstr+' and sr<=to_date('
   +#39+FormatDateTime('YYYY-MM-DD',LSystemDate)+' 23:59:59'+#39
   +','+#39+' yyyy-mm-dd hh24:mi:ss'+#39+')';

  sqlstr :=sqlstr+' and off_no_home='+inttostr(jx)+' ';
  sqlstr :=sqlstr+' and cityno='''+ps_cityno+'''';
  if jbdm=4 then
    sqlstr := sqlstr+' and gh='''+gh+'''';
    
  Query_PUB.SQL.Text := sqlstr;
  Query_PUB.Open ;
  result:=Query_PUB.fields[0].AsInteger  ;
end;
function TFrm_SystemWake.jieri(sss:string): integer;
var
  ss1,ss2:string;
  dt:tdatetime;
  y,m,d:word;
begin
  //接收一个数字字符串，然后返回这个字符串所表示的时间
  //与当前时间的所差的天数
  ss1:=copy(sss,1,2);
  ss2:=copy(sss,3,2);
  dt:=strtodate(Fun_GetDate());
  decodedate(dt,y,m,d);
  sss:=inttostr(y)+'-'+ss1+'-'+ss2;
  dt:=strtodate(sss)-strtodate(Fun_GetDate());
  result:=trunc(dt);
end;

procedure TFrm_SystemWake.FormCreate(Sender: TObject);
begin
  label1.Caption :='1、今天生日有:'+inttostr(sheri)+'人';
  label2.Caption :='2、欠费有：'+inttostr(qianfei)+'人';
  label3.Hide ;
{  Query_PUB.Close ;
  Query_PUB.SQL.Clear ;
  Query_PUB.SQL.Add ('select * from t_d_holiday where (to_date((to_char(sysdate,''yyyy'')||holiday_date),''yyyymmdd'')-sysdate) between 0 and 7');
  try
    Query_PUB.Open ;  //数据时间比当前时间大的天数是否在7天内！
    sss:= Query_PUB.fieldbyname('holiday_date').asstring;
  except
  end;
  if sss='' then
    begin
     label3.caption:='3、7天内没有节日';
    end
  else
    begin
      label3.Caption :='3、再过'+inttostr(jieri(sss))+'天就要过节'+
      Query_PUB.fieldbyname('holiday_content').asstring;
    end;
  Query_PUB.Close ;
}end;
procedure TFrm_SystemWake.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree;
end;

procedure TFrm_SystemWake.FlatButton1Click(Sender: TObject);
begin
  Close;
end;

end.