mrcrm_zjm.pas

功能强大,画面精致.是一款不可多得的客户管理系统acess数据库,用户名:yuansheng 密码:yuansheng 级别:高级用户 建议在xp系统下运行。

{********************************************************************************
*********************************************************************************
******** 作者：梁冰 *************************************************************
******** 时间：2006年12月********************************************************
*********************************************************************************
*********************************************************************************
*********************************************************************************
}
unit MRCRM_ZJM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, Grids, Outline, ExtCtrls, ComObj, shellapi, inifiles,
  jpeg, XPMan, ToolWin, ImgList;

type
  TFRM_CRM = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    StatusBar1: TStatusBar;
    TreeView1: TTreeView;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N12: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    word1: TMenuItem;
    Excel1: TMenuItem;
    N29: TMenuItem;
    Internet1: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    Timer1: TTimer;
    N44: TMenuItem;
    N45: TMenuItem;
    XPManifest1: TXPManifest;
    Image2: TImage;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ImageList2: TImageList;
    XPManifest2: TXPManifest;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure word1Click(Sender: TObject);
    procedure Excel1Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure Internet1Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_CRM: TFRM_CRM;
  jj : integer=0;
implementation
  USES MRCSH, MRQYXX, MRQYXZ, MRQYLX, MRQYZX, MRKHJB, MRKHMYD,
  MRKHXX, MRLXRXX, MRYWWL, MRFSYJ, MRKHFK, MRKHTS, MRKHFKFX,
  MRKHTSFX, MRKHXX_ZCX, MRLXRXX_ZCX, MRKHFK_ZCX, MRKHTS_ZCX,
  MRFK_ZCX, MRTS_ZCX, MRKHXXBB, MRLXRXXBB, MRYWWLBB, MRKHFKBB,
  MRKHTS_BB, MRGZBWL, MRYHGL, MRRZ, MRYHDL, MRSYBFHF, MRTT,
  MRCSBH_CX, MRXTCSH;
{$R *.dfm}

procedure TFRM_CRM.N2Click(Sender: TObject);
begin
  if Trim(a[1]) = 'True' then
  begin
    application.CreateForm(TFRM_QYXX, FRM_QYXX);
    FRM_QYXX.ShowModal;
    FRM_QYXX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N3Click(Sender: TObject);
begin
  if a[2] = 'True' then
  begin
    application.CreateForm(TFRM_QYXZ, FRM_QYXZ);
    FRM_QYXZ.ShowModal;
    FRM_QYXZ.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.FormShow(Sender: TObject);
begin
  FRM_YHDL.ShowModal;
  if dl < 4 then
  begin
    StatusBar1.Panels.Items[4].Text := '  '+datetostr(now());
    StatusBar1.Panels.Items[1].Text := '操作员名称：  '+yhmc;
  end;
end;

procedure TFRM_CRM.N4Click(Sender: TObject);
begin
  if a[3] = 'True' then
  begin
    APPLICATION.CreateForm(TFRM_QYLX, FRM_QYLX);
    FRM_QYLX.ShowModal;
    FRM_QYLX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N5Click(Sender: TObject);
begin
  if a[4] = 'True' then
  begin
    application.CreateForm(TFRM_QYZX, FRM_QYZX);
    FRM_QYZX.ShowModal;
    FRM_QYZX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N6Click(Sender: TObject);
begin
  if a[5] = 'True' then
  begin
    application.CreateForm(TFRM_KHJB, FRM_KHJB);
    FRM_KHJB.ShowModal;
    FRM_KHJB.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.TreeView1DblClick(Sender: TObject);
begin
  if treeview1.Selected.Text = '区域信息设置' then
    n2.OnClick(sender);
  if treeview1.Selected.Text = '企业性质设置' then
    n3.OnClick(sender);
  if treeview1.Selected.Text = '企业类型设置' then
    n4.OnClick(sender);
  if treeview1.Selected.Text = '企业资信设置' then
    n5.OnClick(sender);
  if treeview1.Selected.Text = '客户级别设置' then
    n6.OnClick(sender);
  if treeview1.Selected.Text = '客户满意程度设置' then
    n7.OnClick(sender);
  if treeview1.Selected.Text = '客户信息' then
    n9.OnClick(sender);
  if treeview1.Selected.Text = '联系人信息' then
    n10.OnClick(sender);
  if treeview1.Selected.Text = '业务往来' then
    n11.OnClick(sender);
  if treeview1.Selected.Text = '发送邮件' then
    n13.OnClick(sender);
  if treeview1.Selected.Text = '客户反馈' then
    n15.OnClick(sender);
  if treeview1.Selected.Text = '客户投拆' then
    n16.OnClick(sender);
  if treeview1.Selected.Text = '客户反馈满意程度分析' then
    n17.OnClick(sender);
  if treeview1.Selected.Text = '客户投拆满意程度分析' then
    n18.OnClick(sender);
  if treeview1.Selected.Text = '客户信息查询' then
    n19.OnClick(sender);
  if treeview1.Selected.Text = '联系人信息查询' then
    n20.OnClick(sender);
  if treeview1.Selected.Text = '根据客户反馈满意程度查询' then
    n21.OnClick(sender);
  if treeview1.Selected.Text = '根据客户投诉满意程序查询' then
    n22.OnClick(sender);
  if treeview1.Selected.Text = '客户反馈查询' then
    n23.OnClick(sender);
  if treeview1.Selected.Text = '客户投诉查询' then
    n24.OnClick(sender);
  if treeview1.Selected.Text = '客户信息报表' then
    n26.OnClick(sender);
  if treeview1.Selected.Text = '联系人信息报表' then
    n27.OnClick(sender);
  if treeview1.Selected.Text = '调用word' then
    word1.OnClick(sender);
  if treeview1.Selected.Text = '调用Excel' then
    excel1.OnClick(sender);
  if treeview1.Selected.Text = '登录Internet' then
    Internet1.OnClick(sender);
  if treeview1.Selected.Text = '计算器' then
    N29.OnClick(sender);
  if treeview1.Selected.Text = '工作业务备忘' then
    N30.OnClick(sender);
  if treeview1.Selected.Text = '业务往来报表' then
    n32.OnClick(sender);
  if treeview1.Selected.Text = '客户反馈报表' then
    n33.OnClick(sender);
  if treeview1.Selected.Text = '客户投拆报表' then
    n34.OnClick(sender);
  if treeview1.Selected.Text = '操作员管理' then
    n36.OnClick(sender);
  if treeview1.Selected.Text = '查看日志' then
    n37.OnClick(sender);
  if treeview1.Selected.Text = '数据备份与数据恢复' then
    n38.OnClick(sender);
  if treeview1.Selected.Text = '系统数据清理' then
    n39.OnClick(sender);
  if treeview1.Selected.Text = '本单位信息' then
    n41.OnClick(sender);
  if treeview1.Selected.Text = '重新登录' then
    n42.OnClick(sender);
  if treeview1.Selected.Text = '退出系统' then
    n43.OnClick(sender);
end;

procedure TFRM_CRM.N7Click(Sender: TObject);
begin
  if a[6] = 'True' then
  begin
    application.CreateForm(TFRM_KHMYD, FRM_KHMYD);
    FRM_KHMYD.ShowModal;
    FRM_KHMYD.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N9Click(Sender: TObject);
begin
  if a[7] = 'True' then
  begin
    application.CreateForm(TFRM_KHXX, FRM_KHXX);
    FRM_KHXX.ShowModal;
    FRM_KHXX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N10Click(Sender: TObject);
begin
  if a[8] = 'True' then
  begin
    application.CreateForm(TFRM_LXRXX, FRM_LXRXX);
    FRM_LXRXX.ShowModal;
    FRM_LXRXX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N11Click(Sender: TObject);
begin
  if a[9] = 'True' then
  begin
    application.CreateForm(TFRM_YWWL, FRM_YWWL);
    FRM_YWWL.ShowModal;
    FRM_YWWL.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N13Click(Sender: TObject);
begin
  if a[10] = 'True' then
  begin
    application.CreateForm(TFRM_FSYJ, FRM_FSYJ);
    FRM_FSYJ.ShowModal;
    FRM_FSYJ.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N15Click(Sender: TObject);
begin
  if a[11] = 'True' then
  begin
    application.CreateForm(TFRM_KHFK, FRM_KHFK);
    FRM_KHFK.ShowModal;
    FRM_KHFK.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N16Click(Sender: TObject);
begin
  if a[12] = 'True' then
  begin
    application.CreateForm(TFRM_KHTS, FRM_KHTS);
    FRM_KHTS.ShowModal;
    FRM_KHTS.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N17Click(Sender: TObject);