main.pas

该系统将温度数据以类似股票K线显示方式进行分析

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, Menus, ToolWin, ActnMan, ActnCtrls, StdActns, StdCtrls,
  jpeg, ExtCtrls,DateUtils,
  ComCtrls, Buttons, DB, ADODB,IniFiles,kxiancommon, upass, uSystemMonitor,
  GridsEh, DBGridEh,TempAddr,RightMan;

type
    TMainForm = class(TForm)
    amMain: TActionManager;
    acZXKZ: TAction;
    acPJLVIEW: TAction;
    pnlMain: TPanel;
    acPJLMAKER: TAction;
    btzxjc: TBitBtn;
    btBatchMaker: TBitBtn;
    Button1: TButton;
    AcRIGHT: TAction;
    adoqRight: TADOQuery;
    Button2: TButton;
    ADOQtime: TADOQuery;
    bSysCheck: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure acZXKZExecute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure bSysCheckClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
//    procedure Button1Click(Sender: TObject);
  private
        FUserID: STRING;
        FUserName: string;

  public
        property UserID: STRING read FUserID write FUserID;
        property UserName: string read FUserName write FUserName;
  end;

var
  MainForm: TMainForm;

implementation

uses uRightsManage, uUserManage;
{$R *.DFM}

procedure TMainForm.FormResize(Sender: TObject);
begin
    left := Screen.Width - Width;
    top := 0;
end;

procedure TMainForm.acZXKZExecute(Sender: TObject);
begin
    with tfTempAddr.Create(MainForm) do
     try
           ShowModal;
     finally
    free
 end;

 end;

procedure  TMainForm.FormCreate(Sender: TObject);
var iRight, iSecs :integer;
var SqlTime, LocalTime :tDateTime;
begin
        adoqRight.connection := adocwdkz;
        adoqTime.Connection := adocwdkz;
        with adoqTime do
        begin
                sql.Text :='select geTDate() as SqlTime ';
                open;
                first;
                SqlTime := FieldByName('SqlTime').AsDateTime;
                LocalTime :=Now();
                iSecs := SecondsBetween(SqlTime, LocalTime);
                if (iSecs >60) OR (iSecs<-60) then
                   begin
                        ShowMessage('时间同步警告！本机时间与SQL服务器时间不同步，达'+intToStr(iSecs)+'秒，超过系统60秒极限偏差，服务器时间'
                        +DateTimeToStr(SqlTime)+'本机时间'+DatetimeToStr(localTime)+'请更正本机时间');
                        close;
                        Application.Terminate;
                   end
                else
                   close;

        end;


end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
        Application.Terminate;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
    with tPassEditDlg.Create(Self) do
    try
           ShowModal;
    finally
    free
 end;
end;


procedure TMainForm.bSysCheckClick(Sender: TObject);
begin
    with tfSystemMonitor.Create(Self) do
    try
           ShowModal;
    finally
    free
 end;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
    with TRightsManageFrm.Create(MainForm) do
     try
           ShowModal;
     finally
    free
 end;
end;

end.