main.pas

一个简单的自动计算安全天数的软件

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, SUIStatusBar, StdCtrls, Grids, DBGrids, SUIDBCtrls,
  ExtCtrls, SUIForm, SUIDlg, SUIGrid;

type
  Tmainform = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    suiStatusBar1: TsuiStatusBar;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    suiMessageDialog1: TsuiMessageDialog;
    StringGrid1: TsuiStringGrid;
    procedure Timer4Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure stringGrid1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    procedure listshow;
    procedure clearstrbox;
    function jsts(V1,V2:TDatetime):integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation
  uses datamode, shezhi;
{$R *.dfm}

procedure Tmainform.timer1timer(Sender: TObject);
begin
  suiStatusBar1.Panels[0].Text := FormatDateTime('yyyy''年''mm''月''dd''日''hh''时''mm''分''ss''秒''', Now);
end;

procedure Tmainform.Timer2Timer(Sender: TObject);
begin
    suiStatusBar1.Panels[2].Text := '隐患险于明火';
    //suiform1.caption:='隐患险于明火';
    timer2.Enabled:=false;
    timer3.Enabled:=true;
    timer4.Enabled:=false;
end;

procedure Tmainform.Timer3Timer(Sender: TObject);
begin
   suiStatusBar1.Panels[2].Text := '防范胜于救灾';
   //suiform1.caption:='防范胜于救灾';
   timer2.Enabled:=false;
   timer3.Enabled:=false;
   timer4.Enabled:=true;
end;

procedure Tmainform.Timer4Timer(Sender: TObject);
begin
   suiStatusBar1.Panels[2].Text := '责任重于泰山';
   //suiform1.caption:='责任重于泰山';
   timer2.Enabled:=true;
   timer3.Enabled:=false;
   timer4.Enabled:=false;
end;

procedure tmainform.clearstrbox;
begin
  stringgrid1.update;
end;

procedure tmainform.listshow;
var icol,iraw,colcount,rawcount:integer;
begin
  clearstrbox;
  dm.anqtb.Close;
  dm.anqtb.TableName:='aqjs';
  try
     dm.anqtb.Open;
  except
     showMessage('数据表打开错误！！！');
     exit;
  end;
  colcount:=dm.anqtb.FieldCount;
  for icol:=0 to colcount-1 do
     begin
       stringgrid1.cells[icol,0]:=dm.anqtb.fields[icol].fieldname;
     end;
  rawcount:=dm.anqtb.RecordCount;
  for iraw:=0 to rawcount-1 do
  begin
    for icol:=0 to colcount-1 do
    begin
    if icol=2 then
      stringgrid1.cells[icol,iraw+1]:=inttostr(jsts(dm.anqtb.fieldbyname('起始日期').AsDateTime,now))
    else
      stringgrid1.cells[icol,iraw+1]:=dm.anqtb.fields[icol].text;
    end;
    dm.anqtb.Next;
  end;
end;
procedure TmainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//判断是否确定退出当前应用程序
if suiMessageDialog1.showmodal()=mrYes then
   Application.Terminate;
end;

procedure Tmainform.stringgrid1DblClick(Sender: TObject);
begin
    szform := TszForm.Create(nil);
    szform.ShowModal();
    szform.Free();
    clearstrbox;
    listshow;
end;

function Tmainform.jsts(V1,V2:TDatetime):integer;
begin
  //ShortDateFormat:='y/m/d';
  //DateSeparator := '-';
  Result:=Trunc(v2-v1)
end;

procedure Tmainform.FormCreate(Sender: TObject);
begin
  listshow;
end;

end.