desktop.pas

来自「服务信息管理系统」· PAS 代码 · 共 180 行

unit Desktop;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, ExtCtrls, Buttons, StdCtrls;

type
  Tdesktopform = class(TForm)
    ImageList: TImageList;
    ImageList1: TImageList;
    Image1: TImage;
    mainCoolBar: TCoolBar;
    mainToolBar: TToolBar;
    ToolButton1: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton2: TToolButton;
    ListView1: TListView;
    ListView2: TListView;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CreateParams(var Params: TcreateParams);
    procedure ListView2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    czyqx_mainqx: string; //操作员权限  主权限
    czyqx_jlcxqx: string; //操作员权限  经理查询权限
  end;

var
  desktopform: Tdesktopform;
implementation
uses mainform;
{$R *.dfm}

procedure Tdesktopform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tdesktopform.ToolButton8Click(Sender: TObject);
begin
  SysForm.meuexitClick(Sender);
end;

procedure Tdesktopform.ToolButton1Click(Sender: TObject);
begin
  sysform.N11Click(sender);
end;

procedure Tdesktopform.ToolButton2Click(Sender: TObject);
begin
  sysform.N12Click(sender);
end;

procedure Tdesktopform.ListView1Click(Sender: TObject);
var
  lsbl_text: string;
begin
  if ListView1.Selected <> nil then
    begin
      lsbl_text := ListView1.Selected.Caption;
      if lsbl_text = '经理查询' then
        begin
          if Copy(czyqx_mainqx, 9, 1) = '1' then
            begin
              ListView2.Visible := True;
            end
          else
            begin
              ListView2.Visible := False;
            end;
        end
      else
        begin
          ListView2.Visible := False;
        end;
    end;
end;

procedure Tdesktopform.FormCreate(Sender: TObject);
begin
  czyqx_mainqx := sysform.GetCzyqx(sys_czybh, '', '1');
  czyqx_jlcxqx := sysform.GetCzyqx(sys_czybh, '009', '2');
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
  Self.Brush.Bitmap := Image1.Picture.Bitmap;
end;

procedure Tdesktopform.ListView1DblClick(Sender: TObject);
var
  lsbl_text: string;
begin
  if ListView1.Selected <> nil then
    begin
      lsbl_text := ListView1.Selected.Caption;
      if lsbl_text = '电话受理' then
        begin
          SysForm.N13Click(Sender);
        end;
      if lsbl_text = '经理查询' then
        begin
          if Copy(czyqx_mainqx, 9, 1) = '1' then
            begin

            end
          else
            begin
              MessageDlg('对不起，您无此操作权限', mtError, [mbOk], 0);
            end;
        end;
      if lsbl_text = '客户资料' then
        begin
          sysform.meukhzlxxClick(Sender);
        end;
      if lsbl_text = '服务单查询' then
        begin
          sysform.MenufwdjbClick(Sender);
        end;
      if lsbl_text = '取机单查询' then
        begin
          sysform.Undo1Click(Sender);
        end;
    end;
end;

procedure Tdesktopform.FormResize(Sender: TObject);
begin
  Self.Top := 0;
  Self.Left := 0;
  Self.Height := sysform.Height - 69;
  Self.Width := sysform.Width - 12;
end;

procedure Tdesktopform.FormShow(Sender: TObject);
begin
  Self.Top := 0;
  Self.Left := 0;
  Self.Height := sysform.Height - 69;
  Self.Width := sysform.Width - 12;
end;

procedure Tdesktopform.CreateParams(var params: TcreateParams);
begin
  inherited createparams(params);
  with params do
    begin
      style := style and (not ws_caption);
      style := style or ws_popup or ws_thickframe or ws_clipchildren;
    end;
end;

procedure Tdesktopform.ListView2DblClick(Sender: TObject);
var
  lsbl_text: string;
begin
  if ListView2.Selected <> nil then
    begin
      lsbl_text := ListView2.Selected.Caption;
      if lsbl_text = '服务量统计' then
        begin
          SysForm.fwltjMenuClick(Sender);
        end;
    end;
end;

end.