unmain.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

end;

procedure TMain_Frm.N25Click(Sender: TObject);
begin
  frmSetup:=TfrmSetup.Create(self);
  frmSetup.Show;
end;

procedure TMain_Frm.N15Click(Sender: TObject);
begin
  if xfind_frm<>nil then exit;
  xfind_frm:=TXfind_frm.Create(nil);
  xfind_frm.Show;
  xfind_frm.Left:=10;xfind_frm.Top:=10;
  xfind_frm.Height:=176;
end;

procedure TMain_Frm.N16Click(Sender: TObject);
begin
  if FindoutPerPlan_frm<>nil then exit;
  PeruserFind:=FindPlan;
  FindoutPerPlan_frm:=TFindoutPerPlan_frm.Create(self);
  FindoutPerPlan_frm.ListView2.Visible:=False;
  FindoutPerPlan_frm.Show;
  FindoutPerPlan_frm.Width:=1000;
  FindoutPerPlan_frm.Top:=5;
  FindoutPerPlan_frm.Left:=5;
  FindoutPerPlan_frm.Height:=600;

end;

procedure TMain_Frm.N29Click(Sender: TObject);
begin
{  if FindoutPerPlan_frm<>nil then exit;
  PeruserFind:=FindValues;
  FindoutPerPlan_frm:=TFindoutPerPlan_frm.Create(self);
  FindoutPerPlan_frm.ListView1.Visible:=False;
  FindoutPerPlan_frm.Show;
  FindoutPerPlan_frm.Width:=877;
  FindoutPerPlan_frm.Top:=10;
  FindoutPerPlan_frm.Left:=10;
  FindoutPerPlan_frm.Height:=550;   }

  if PerUpdatafind_frm<>nil then exit;
  PerUpdatafind_frm:=TPerUpdatafind_frm.Create(Application);
  PerUpdatafind_frm.Show;
  PerUpdatafind_frm.Width:=431;
  PerUpdatafind_frm.Top:=30;
 // PerUpdatafind_frm.Left:=30;
  PerUpdatafind_frm.Height:=280;

end;

procedure TMain_Frm.FormResize(Sender: TObject);
begin
  {image1.Top:=0;image1.Width:=;image1.Height:=;
  image1.Left:=0;  }
end;

procedure TMain_Frm.CleaDistroryData;      //清除历史数据
var
  ado_tmp:TADOQuery;
begin
  ado_tmp:=TADOQuery.Create(self);
  with ado_tmp do
  begin            {

  Months_between(Sysdate, udate)>=60/30                            -- Created on 2004-12-27 by ADMINISTRATOR

 --delete from aaa where  Months_between(Sysdate, t)>1
  }
    try
      Connection:=DM.AdoConn;
      DM.AdoConn.BeginTrans;
      sql.Text:='delete from t_bdata where Months_between(Sysdate, udate)>='+inttostr(SaveDay);
      ExecSQL;
      dm.AdoConn.CommitTrans;
      free;
    except
      dm.AdoConn.RollbackTrans;
      free;
    end;
  end;
end;

procedure TMain_Frm.FormPaint(Sender: TObject);
begin
    canvas.Font.Size:=20;
    canvas.Font.Color:=RGB(200,200,200);
    Canvas.TextOut(700,620,'欢迎使用本系统 V1.0');

end;

procedure TMain_Frm.N13Click(Sender: TObject);
begin
  if UpDataModi_frm<>nil then exit;
  UpDataModi_frm:=TUpDataModi_frm.Create(nil);
  UpDataModi_frm.Show;
end;

procedure TMain_Frm.ReadSkin;
var
  Skin: string;
begin
  Skin:= ExtractFilePath(Application.ExeName)+'plugin\skin';
  if FileExists(skin) then begin
    SkinData1.SkinFile := skin; SkinData1.Colors[csButtonFace]:=rgb(222,222,222);
    SkinData1.Active:=True; SkinData1.Colors[csTitleTextActive]:=clNavy;
    TBar1.Visible:=True;
  end else ToolBar1.Visible:=True;
end;

procedure TMain_Frm.FormCreate(Sender: TObject);
begin
   id:= GlobalFindAtom('MyHotkey');
  if GlobalFindAtom('MyHotkey') = 0 then
  begin
    id:=GlobalAddAtom('MyHotkey');
  end else begin
    Halt;
  end;
  ReadSkin;
end;

procedure TMain_Frm.N32Click(Sender: TObject);
begin
  About_Frm:=TAbout_frm.Create(Application);
  About_Frm.Show;
  SetWindowPos(About_Frm.Handle,HWND_TOPMOST,About_Frm.left,About_Frm.Top,About_Frm.width,About_Frm.Height,0);
end;



procedure TMain_Frm.Timer1Timer(Sender: TObject);
begin
  Panel3.Caption:='操作时间:'+DateTimeToStr(Date)+' '+ TimeToStr(time);
end;

procedure TMain_Frm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('你真的想退出本系统么？','退出',36)=7 then CanClose:=False;
end;

procedure TMain_Frm.FormDestroy(Sender: TObject);
begin
  GlobalDeleteAtom(id);
end;

procedure TMain_Frm.N14Click(Sender: TObject);
begin
  with dm.AQ20 do
  begin
    SQL.Text:='select * from VIEW_EMPLOYEE';
    Prepared:=True;
    Open;
  end;
  DM.RvP.ProjectFile:='DJREP.rav';
  DM.RvP.SelectReport('rep_employee',True);
  DM.RvP.Execute;
end;

procedure TMain_Frm.N28Click(Sender: TObject);
begin
  with dm.AQ20 do
  begin
    SQL.Text:='select * from view_sbdj';
    Prepared:=True;
    Open;
  end;
  DM.RvP.ProjectFile:='DJREP.rav';
  DM.RvP.SelectReport('Rep_MsrNo',True);
  DM.RvP.Execute;
end;

procedure TMain_Frm.N38Click(Sender: TObject);
begin
  if Prt_MsrVal_Frm<>nil then exit;
  Prt_MsrVal_Frm:=TPrt_MsrVal_Frm.Create(nil);
  Prt_MsrVal_Frm.Show;

end;

function TMain_Frm.CheckDb:boolean; //result为真不能上传数据.
var
  ls:TStrings;
begin
  ls:=TStringList.Create;
  try
    if FileExists(copy(UserName,1,4)) then
    begin
      ls.LoadFromFile(copy(UserName,1,4));
      Result:=ls.Count>1; 
      if Result then    //大于1有要上传的数据
        Application.MessageBox('请检查上次上传的数据，并保存后在上传','提示',MB_OK+MB_ICONINFORMATION);
    end else    //没有用户文件也可以上传数据
      Result:=False;
  finally
    ls.Free;
  end;

end;

procedure TMain_Frm.Sbtn1Click(Sender: TObject);
begin
  if not distill then exit;
  try
  if foMsrI then CloseFile(fMsrI);
  except
  end;
  memo1.Lines.LoadFromFile(cfMsrI);
  AssignFile(fMsrI, cfMsrI);
  Reset(fMsrI);
  foMsrI := True;
  MICnt := Memo1.Lines.Count-1;

  try
    DjCom.SetMIs;

  except
    CloseFile(fMsrI);
    Application.MessageBox('下载计划失败!','错误',MB_OK+MB_ICONERROR);
  end;
end;

procedure TMain_Frm.Sbtn2Click(Sender: TObject);
begin
  if CheckDb then exit;
  CleaDistroryData;
  try
    DjCom.GetData;
  except
    Application.MessageBox('上传数据失败!','错误',MB_OK+MB_ICONERROR);
    Exit;
  end;
end;

procedure TMain_Frm.Sbtn3Click(Sender: TObject);
begin
  if Repass_frm<>nil then exit;
  Repass_frm:=TRepass_frm.Create(nil);
  Repass_frm.Show;
end;

procedure TMain_Frm.Sbtn4Click(Sender: TObject);
begin
  Close;
end;

procedure TMain_Frm.N39Click(Sender: TObject);
begin
  if Frm_SaveOrRestore<>nil then exit;
  Frm_SaveOrRestore:=TFrm_SaveOrRestore.Create(nil);
  Frm_SaveOrRestore.Show;
  Frm_SaveOrRestore.PageControl1.ActivePageIndex:=0;
end;

procedure TMain_Frm.N40Click(Sender: TObject);
begin
  if Frm_SaveOrRestore<>nil then exit;
  Frm_SaveOrRestore:=TFrm_SaveOrRestore.Create(nil);
  Frm_SaveOrRestore.Show;
  Frm_SaveOrRestore.PageControl1.ActivePageIndex:=1;
end;

procedure TMain_Frm.N8Click(Sender: TObject);
begin
  if Frm_FindNCPT<>nil then exit;
  Frm_FindNCPT:=TFrm_FindNCPT.Create(nil);
  Frm_FindNCPT.Show;
  Frm_FindNCPT.BitBtn3.Visible:=False;
end;

procedure TMain_Frm.N17Click(Sender: TObject);
begin
  if Frm_FindNCPT<>nil then exit;
  Frm_FindNCPT:=TFrm_FindNCPT.Create(nil);
  Frm_FindNCPT.Show;
  Frm_FindNCPT.CheckBox1.Checked:=True;
  Frm_FindNCPT.Cbx_No.ItemIndex:=Frm_FindNCPT.Cbx_No.Items.IndexOf(username);
  Frm_FindNCPT.CheckBox1.Enabled:=False;
  Frm_FindNCPT.Cbx_No.Enabled:=False;
  Frm_FindNCPT.BitBtn3.Visible:=False;

end;

procedure TMain_Frm.N31Click(Sender: TObject);
begin
  with DM.AQ7 do
  begin
    SQL.Text:='select * from view_sbdjvalue_per where '+
    '((msrvalue<dwv or msrvalue>uwv) or (msrvalue<-9999)) and (msrvalue<>-10002)'+'order by cdate desc' ;
    Prepared:=True;
    Open;
  end;
  if findout_frm=nil then
    findout_frm:=Tfindout_frm.Create(self);
  findout_frm.Show;
end;

procedure TMain_Frm.N30Click(Sender: TObject);
begin
  with DM.AQ7 do
  begin
    SQL.Text:='select * from view_sbdjvalue_per where '+
    '((msrvalue<dwv or msrvalue>uwv) or (msrvalue<-9999)) and (msrvalue<>-10002)'
    +' and (perno='+quotedstr(copy(UserName,1,4))+')' +'order by cdate desc';
    Prepared:=True;
    Open;
  end;
  if findout_frm=nil then
    findout_frm:=Tfindout_frm.Create(self);
  findout_frm.Show;

end;

procedure TMain_Frm.N43Click(Sender: TObject);
begin
  if Frm_FindNCPT<>nil then exit;
  Frm_FindNCPT:=TFrm_FindNCPT.Create(nil);
  Frm_FindNCPT.Show;
  Frm_FindNCPT.BitBtn1.Visible:=False;
end;

procedure TMain_Frm.N45Click(Sender: TObject);
begin
  if Frm_PerSelPlan=nil then
    Frm_PerSelPlan:=TFrm_PerSelPlan.Create(nil);
  Frm_PerSelPlan.Show;
end;

end.