crmmain_unit.pas

客户关系管理系统 DELPHI7下的

unit CRMMain_Unit;

interface

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

type
  TfrmCRMMain = class(TForm)
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    Timer1: TTimer;
    PanelTitle: TPanel;
    lblTitle: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCRMMain: TfrmCRMMain;

implementation

uses Employee_Unit, BackWall_Unit, UserLogin_Unit, DM_Unit,
  CustomerType_Unit, CustomerInfo_Unit, CustEmp_Unit, CompanyInfo_Unit,
  UserSetup_Unit, UserPwdSetup_Unit, Department_Unit, Transaction_Unit,
  TransProduction_Unit, CustomerBooking_Unit, Production_Unit,
  Eventlog_Unit1, About_Unit;



{$R *.dfm}

procedure TfrmCRMMain.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmCRMMain.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if Application.MessageBox('确定退出客户关系管理系统吗？', '客户关系管理系统', MB_OKCANCEL) = IDCANCEL then
    CanClose := False;
end;

procedure TfrmCRMMain.FormShow(Sender: TObject);
begin
  frmUserLogin := TfrmUserLogin.Create(Application);
  frmUserLogin.ShowModal;
  StatusBar1.Panels[0].Text := '当前用户编号：' + UserID + ' 姓名：' + UserName;
  StatusBar1.Panels[1].Text := '登录时间：' + DateTimeToStr(Now);
end;

procedure TfrmCRMMain.Timer1Timer(Sender: TObject);
begin
  if lblTitle.Left + lblTitle.Width > 0 then
    lblTitle.Left := lblTitle.Left - 10
  else
    lblTitle.Left := PanelTitle.Width;
end;

procedure TfrmCRMMain.FormActivate(Sender: TObject);
begin
  //frmBackWall.Show;
end;

procedure TfrmCRMMain.TreeView1Click(Sender: TObject);
begin
  if frmCRMMain.MDIChildCount > 1 then
  begin
    frmCRMMain.MDIChildren[0].Close;  //关闭MDI子窗体
  end;

  if TreeView1.Items.Item[1].Selected then
  begin
    if not Assigned(frmTransaction) then
    begin
      frmTransaction := TfrmTransaction.Create(Self);
      frmTransaction.Show;
    end
    else
      frmTransaction.BringToFront;
  end;

  if TreeView1.Items.Item[2].Selected then
  begin
    if not Assigned(frmTransProduction) then
    begin
      frmTransProduction := TfrmTransProduction.Create(Self);
      frmTransProduction.Show;
    end
    else
      frmTransProduction.BringToFront;
  end;

  if TreeView1.Items.Item[3].Selected then
  begin
    if not Assigned(frmCustomerBooking) then
    begin
      frmCustomerBooking := TfrmCustomerBooking.Create(Self);
      frmCustomerBooking.Show;
    end
    else
      frmCustomerBooking.BringToFront;
  end;

  if TreeView1.Items.Item[4].Selected then
  begin
    if not Assigned(frmProduction) then
    begin
      frmProduction := TfrmProduction.Create(Self);
      frmProduction.Show;
    end
    else
      frmProduction.BringToFront;
  end;

  if TreeView1.Items.Item[5].Selected then
  begin
    if not Assigned(frmEventlog) then
    begin
      frmEventlog := TfrmEventlog.Create(Self);
      frmEventlog.Show;
    end
    else
      frmEventlog.BringToFront;
  end;

  if TreeView1.Items.Item[7].Selected then
  begin
    frmCustomerType := TfrmCustomerType.Create(Application);
    try
      frmCustomerType.ShowModal;
    finally
      frmCustomerType.Free;
    end;
  end;

  if TreeView1.Items.Item[8].Selected then
  begin
    if not Assigned(frmCustomerInfo) then
    begin
      frmCustomerInfo := TfrmCustomerInfo.Create(Self);
      frmCustomerInfo.Show;
    end
    else
      frmCustomerInfo.BringToFront;
  end;

  if TreeView1.Items.Item[9].Selected then
  begin
    if not Assigned(frmCustEmp) then
    begin
      frmCustEmp := TfrmCustEmp.Create(Self);
      frmCustEmp.Show;
    end
    else
      frmCustEmp.BringtoFront;
  end;

  if TreeView1.Items.Item[11].Selected then
  begin
    frmCompanyInfo := TfrmCompanyInfo.Create(Self);
    try
      frmCompanyInfo.ShowModal;
    finally
      frmCompanyInfo.Free;
    end;
  end;

  if TreeView1.Items.Item[12].Selected then
  begin
    frmDepartment := TfrmDepartment.Create(Self);
    try
      frmDepartment.ShowModal;
    finally
      frmDepartment.Free;
    end
  end;

  if TreeView1.Items.Item[13].Selected then
  begin
    if not Assigned(frmEmployee) then         //检查是否存在相同的实例
    begin
      frmEmployee := TfrmEmployee.Create(Self);
      frmEmployee.Show;
    end
    else
      frmEmployee.BringToFront;
  end;

  if TreeView1.Items.Item[14].Selected then
  begin
    frmUserSetup := TfrmUserSetup.Create(Self);
    try
      frmUserSetup.ShowModal;
    finally
      frmUserSetup.Free;
    end;
  end;
  
  if TreeView1.Items.Item[15].Selected then
  begin
    frmUserPwdSetup := TfrmUserPwdSetup.Create(Self);
    try
      frmUserPwdSetup.ShowModal;
    finally
      frmUserPwdSetup.Free;
    end;
  end;      

  if TreeView1.Items.Item[17].Selected then
  begin
    frmAbout := TfrmAbout.Create(Self);
    try
      frmAbout.ShowModal;
    finally
      frmAbout.Free;
    end
  end;

end;

end.