unitmain.pas

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

        StatusBar.Panels[4].Text := strUserInfo;

        //是否显示历史指令删除按钮
        FormOrder4.BtnDel.Visible := False;
        FormOrder4.BtnDel.Enabled := False;
        //是否显示dsp调试窗口
        mxOutLookBarPro1.Header[1].Button[0].Visible := False;
      end;
    2:begin
        bLoginOK := True;
        MyUser   := '管理员';
        strUserInfo := '操作人:【' + MyUser + '】您拥有全部权限';
        StatusBar.Panels[4].Text := strUserInfo;

        //是否显示历史指令删除按钮
        FormOrder4.BtnDel.Visible := False;
        FormOrder4.BtnDel.Enabled := False;
        //是否显示dsp调试窗口
        mxOutLookBarPro1.Header[1].Button[0].Visible := False;
      end;
    3:begin
        bLoginOK := True;
        MyUser   := '拓新电力';
        strUserInfo := '操作人:【' + MyUser + '】你想干什么就干什么';
        StatusBar.Panels[4].Text := strUserInfo;

        //是否显示历史指令删除按钮
        FormOrder4.BtnDel.Visible := True;
        FormOrder4.BtnDel.Enabled := True;
        //是否显示dsp调试窗口
        mxOutLookBarPro1.Header[1].Button[0].Visible := True;
      end;
    4:begin
        if ( bLoginOK = False ) then
        begin
          bLoginOK := False;
          MessageBox(self.Handle,'密码输入错误超过三次, 系统自动退出！', '密码错误', MB_ICONSTOP);
          Close();
        end
        else begin
          bLoginOK := True;
          MessageBox(self.Handle,'密码输入错误超过三次, 重新登录失败！', '登录失败', MB_ICONSTOP);
        end;

      end;
    else begin
           bLoginOK := False;
      end;

  end;
end;

procedure TFormMain.ToolBtnExitClick(Sender: TObject);
begin
  Close();
end;

procedure TFormMain.mxOutlookBarPro1Headers0Buttons0Click(Sender: TObject);
begin
  if (MyUser = '管理员') or  (MyUser = '拓新电力') then
  begin
    //FormBasic0.WindowState:=wsMaximized; //窗体最大化显示
    //FormBasic0.BorderStyle:=bsNone;			 //不要标题栏
    //FormBasic0.Parent:=Panel1;           //父亲窗口
    FormBasic0.Parent := Panel;
    FormBasic0.Width  := Panel.Width;
    FormBasic0.Height := Panel.Height;
    // 以上三条语句 =
    //FormBasic1.Dock(Panel, BoundsRect);

    self.Caption := strCaption + ' ─【变 电 站】';

    FormBasic0.Show();
    SetMenuCheck(0);
  end
  else begin
         MessageBox(self.Handle, pAnsiChar( MyUser + '没有【变 电 站】操作的权限'), '警告', MB_ICONSTOP);
  end;
end;

procedure TFormMain.mxOutlookBarPro1Headers0Buttons1Click(Sender: TObject);
begin
  if (MyUser = '管理员') or  (MyUser = '拓新电力') then
  begin
    //FormBasic2.WindowState:=wsMaximized; //窗体最大化显示
    //FormBasic2.BorderStyle:=bsNone;			 //不要标题栏
    //FormBasic2.Parent:=Panel1;           //父亲窗口
    FormBasic1.Parent := Panel;
    FormBasic1.Width  := Panel.Width;
    FormBasic1.Height := Panel.Height;
    // 以上三条语句 =
    //FormBasic1.Dock(Panel, BoundsRect);

    self.Caption := strCaption +  ' ─【线路信息】';

    FormBasic1.Show();
    SetMenuCheck(1);
  end
  else begin
         MessageBox(self.Handle, pAnsiChar( MyUser + '没有【线路信息】操作的权限'), '警告', MB_ICONSTOP);
  end;
end;

procedure TFormMain.mxOutlookBarPro1Headers0Buttons2Click(Sender: TObject);
begin
  if (MyUser = '管理员') or  (MyUser = '拓新电力') then
  begin
    //FormBasic2.WindowState:=wsMaximized; //窗体最大化显示
    //FormBasic2.BorderStyle:=bsNone;			 //不要标题栏
    //FormBasic2.Parent:=Panel1;           //父亲窗口
    FormBasic2.Parent := Panel;
    FormBasic2.Width  := Panel.Width;
    FormBasic2.Height := Panel.Height;

    self.Caption := strCaption +  ' ─【变台信息】';

    FormBasic2.Show();
    SetMenuCheck(2);
  end
  else begin
         MessageBox(self.Handle, pAnsiChar( MyUser + '没有【变台信息】操作的权限'), '警告', MB_ICONSTOP);
  end;
end;

procedure TFormMain.mxOutlookBarPro1Headers0Buttons3Click(Sender: TObject);
begin
  if (MyUser = '管理员') or  (MyUser = '拓新电力') then
  begin
    //FormBasic3.WindowState:=wsMaximized; //窗体最大化显示
    //FormBasic3.BorderStyle:=bsNone;			 //不要标题栏
    //FormBasic3.Parent:=Panel1;           //父亲窗口
    FormBasic3.Parent := Panel;
    FormBasic3.Width  := Panel.Width;
    FormBasic3.Height := Panel.Height;

    self.Caption := strCaption +  ' ─【人员管理】';

    FormBasic3.Show();
    SetMenuCheck(3);
  end
  else begin
         MessageBox(self.Handle, pAnsiChar( MyUser + '没有【人员管理】操作的权限'), '警告', MB_ICONSTOP);
  end;
end;

procedure TFormMain.mxOutlookBarPro1Headers1Buttons0Click(Sender: TObject);
begin
  if  MyUser = '拓新电力' then
  begin
    //FormOrder0.WindowState:=wsMaximized; //窗体最大化显示
    //FormOrder0.BorderStyle:=bsNone;			 //不要标题栏
    //FormOrder0.Parent:=Panel1;           //父亲窗口
    FormOrder0.Parent := Panel;
    FormOrder0.Width  := Panel.Width;
    FormOrder0.Height := Panel.Height;

    self.Caption := strCaption +  ' ─【DSP参数调试】';

    FormOrder0.Show();
    SetMenuCheck(4);
  end
  else begin
         MessageBox(self.Handle, pAnsiChar( MyUser + '没有【DSP参数调试】操作的权限'), '警告', MB_ICONSTOP);
  end;
end;

procedure TFormMain.mxOutlookBarPro1Headers1Buttons1Click(Sender: TObject);
begin
  if (MyUser = '管理员') or  (MyUser = '拓新电力') then
  begin
    //FormOrder1.WindowState:=wsMaximized; //窗体最大化显示
    //FormOrder1.BorderStyle:=bsNone;			 //不要标题栏
    //FormOrder1.Parent:=Panel1;           //父亲窗口
    FormOrder1.Parent := Panel;
    FormOrder1.Width  := Panel.Width;
    FormOrder1.Height := Panel.Height;

    self.Caption := strCaption +  ' ─【参数设置】';

    FormOrder1.Show();
    SetMenuCheck(4);
  end
  else begin
         MessageBox(self.Handle, pAnsiChar( MyUser + '没有【参数设置】操作的权限'), '警告', MB_ICONSTOP);
  end;
end;

procedure TFormMain.mxOutlookBarPro1Headers1Buttons2Click(Sender: TObject);
begin
  //FormOrder2.WindowState:=wsMaximized; //窗体最大化显示
  //FormOrder2.BorderStyle:=bsNone;			 //不要标题栏
  //FormOrder2.Parent:=Panel1;           //父亲窗口
  FormOrder2.Parent := Panel;
  FormOrder2.Width  := Panel.Width;
  FormOrder2.Height := Panel.Height;

  self.Caption := strCaption +  ' ─【数据抄收】';

  FormOrder2.Show();
  SetMenuCheck(5);
end;

procedure TFormMain.mxOutlookBarPro1Headers1Buttons3Click(Sender: TObject);
begin
  //FormOrder3.WindowState:=wsMaximized; //窗体最大化显示
  //FormOrder3.BorderStyle:=bsNone;			 //不要标题栏
  //FormOrder3.Parent:=Panel1;           //父亲窗口
  FormOrder3.Parent := Panel;
  FormOrder3.Width  := Panel.Width;
  FormOrder3.Height := Panel.Height;

  self.Caption := strCaption +  ' ─【处理结果】';

  FormOrder3.Show();
  SetMenuCheck(6);
end;

procedure TFormMain.mxOutlookBarPro1Headers1Buttons4Click(Sender: TObject);
begin
  //FormOrder4.WindowState:=wsMaximized; //窗体最大化显示
  //FormOrder4.BorderStyle:=bsNone;			 //不要标题栏
  //FormOrder4.Parent:=Panel1;           //父亲窗口
  FormOrder4.Parent := Panel;
  FormOrder4.Width  := Panel.Width;
  FormOrder4.Height := Panel.Height;

  self.Caption := strCaption +  ' ─【历史指令】';

  FormOrder4.Show();
  SetMenuCheck(7);
end;

procedure TFormMain.mxOutlookBarPro1Headers2Buttons0Click(Sender: TObject);
var
  NetAddress : string;
begin
  //ini中读取 NetAddress
  NetAddress := IniFile.ReadString('System', 'NetAddress', 'http://192.168.2.11/asprun/main.asp');
  //在IE中执行进入NetAddress
  ShellExecute(Application.MainForm.Handle, 'open', PChar(NetAddress), nil, nil, SW_NORMAL);
end;

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  strMsg : string;
begin
  if bLoginOK = True then
  begin
    strMsg := '提示：是否退出【' + Application.Title + '】？' + #13;
    if MessageBox(self.Handle, LPCTSTR(strMsg) , '退出系统', MB_OKCANCEL or MB_ICONQUESTION	) = IDOK then
      CanClose:= True
    else
      CanClose:= False;
  end;

end;

procedure TFormMain.WindowCloseFormCurrClick(Sender: TObject);
var
  i : integer;
begin
   ShowMessage('1');
   for i:=0 to Panel.DockClientCount - 1 do
   begin
     ShowMessage(IntToStr(i));

     if (Panel.DockClients[i] as TForm).Showing  then
     begin
       (Panel.DockClients[i] as TForm).Close ;
     end;
   end;

end;

procedure TFormMain.mxOutlookBarPro1Headers3Buttons0Click(Sender: TObject);
begin
  if (MyUser = '管理员') or  (MyUser = '拓新电力') then
  begin
    //FormBasic2.WindowState:=wsMaximized; //窗体最大化显示
    //FormBasic2.BorderStyle:=bsNone;			 //不要标题栏
    //FormBasic2.Parent:=Panel1;           //父亲窗口
    FormLineLost0.Parent := Panel;
    FormLineLost0.Width  := Panel.Width;
    FormLineLost0.Height := Panel.Height;

    self.Caption := strCaption +  ' ─【线损计算】';

    FormLineLost0.ProgressBar.Visible := False;

    FormLineLost0.Show();
    SetMenuCheck(8);
  end
  else begin
         MessageBox(self.Handle, pAnsiChar( MyUser + '没有【线损计算】操作的权限'), '警告', MB_ICONSTOP);
  end;
end;

procedure TFormMain.mxOutlookBarPro1Headers3Buttons1Click(Sender: TObject);
begin
  //FormBasic2.WindowState:=wsMaximized; //窗体最大化显示
  //FormBasic2.BorderStyle:=bsNone;			 //不要标题栏
  //FormBasic2.Parent:=Panel1;           //父亲窗口
  FormLineLost1.Parent := Panel;
  FormLineLost1.Width  := Panel.Width;
  FormLineLost1.Height := Panel.Height;

  self.Caption := strCaption +  ' ─【线损统计】';

  FormLineLost1.Show();
  SetMenuCheck(9);
end;

procedure TFormMain.mxOutlookBarPro1Headers4Buttons0Click(Sender: TObject);
begin
  FormAbout.ShowModal();
end;

procedure TFormMain.mxOutlookBarPro1Headers4Buttons1Click(Sender: TObject);
var
  NetAddress : string;
begin
  NetAddress := 'www.jztxdl.cn';
  //在IE中执行进入NetAddress
  ShellExecute(Application.MainForm.Handle, 'open', PChar(NetAddress), nil, nil, SW_NORMAL);
end;


procedure TFormMain.WindowLeftClick(Sender: TObject);
begin
  mxOutLookBarPro1.Visible := not mxOutLookBarPro1.Visible;
  WindowLeft.Checked := mxOutLookBarPro1.Visible;
end;

procedure TFormMain.FormResize(Sender: TObject);
begin
  //StatusBar.Left := 0;
  //StatusBar.Top  := self.Width;
  StatusBar.Panels[0].Width :=  1;
  StatusBar.Panels[2].Width := 180;
  StatusBar.Panels[3].Width := 170;
  StatusBar.Panels[4].Width := 250;
  StatusBar.Panels[1].Width := FormMain.Width - 600;
  ///////////////////////////////////////
  StatusBar.Panels[1].Text  := AlertWord;
  StatusBar.Panels[2].Text  := '锦州拓新电力电子公司(2005年)';
end;

procedure TFormMain.ClearMemTimerTimer(Sender: TObject);
begin
  ClearMemory()
end;

{
************************************
* Clear Memory
* From Internet
************************************
}
procedure TFormMain.ClearMemory();
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
    application.ProcessMessages;
  end;
end;

procedure TFormMain.RefreshTimerTimer(Sender: TObject);
begin
  //显示时间
  StatusBar.Panels[3].Text := DateToStr(date) + ' ' + TimeToStr(time);
end;

end.