mrcrm_zjm.pas

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

begin
  if a[13] = 'True' then
  begin
    application.CreateForm(TFRM_KHFKFX, FRM_KHFKFX);
    FRM_KHFKFX.ShowModal;
    FRM_KHFKFX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N18Click(Sender: TObject);
begin
  if a[14] = 'True' then
  begin
    application.CreateForm(TFRM_KHTSFX, FRM_KHTSFX);
    FRM_KHTSFX.ShowModal;
    FRM_KHTSFX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N19Click(Sender: TObject);
begin
  if a[15] = 'True' then
  begin
    application.CreateForm(TFRM_KHXX_ZCX, FRM_KHXX_ZCX);
    FRM_KHXX_ZCX.ShowModal;
    FRM_KHXX_ZCX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N20Click(Sender: TObject);
begin
  if a[16] = 'True' then
  begin
    application.CreateForm(TFRM_LXRXX_ZCX, FRM_LXRXX_ZCX);
    FRM_LXRXX_ZCX.ShowModal;
    FRM_LXRXX_ZCX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N21Click(Sender: TObject);
begin
  if a[17] = 'True' then
  begin
    application.CreateForm(TFRM_KHFK_ZCX, FRM_KHFK_ZCX);
    FRM_KHFK_ZCX.ShowModal;
    FRM_KHFK_ZCX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N22Click(Sender: TObject);
begin
  if a[18] = 'True' then
  begin
    application.CreateForm(TFRM_KHTS_ZCX, FRM_KHTS_ZCX);
    FRM_KHTS_ZCX.ShowModal;
    FRM_KHTS_ZCX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N23Click(Sender: TObject);
begin
  if a[19] = 'True' then
  begin
    application.CreateForm(TFRM_FK_ZCX, FRM_FK_ZCX);
    FRM_FK_ZCX.ShowModal;
    FRM_FK_ZCX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N24Click(Sender: TObject);
begin
  if a[20] = 'True' then
  begin
    application.CreateForm(TFRM_TS_ZCX, FRM_TS_ZCX);
    FRM_TS_ZCX.ShowModal;
    FRM_TS_ZCX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.word1Click(Sender: TObject);
var
  word : olevariant;
  ini : Tinifile;
  ssp : string;
begin
  ssp := '调用word';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  word := createoleobject('word.application');
  word.visible := true;
  word.documents.add;
end;

procedure TFRM_CRM.Excel1Click(Sender: TObject);
var
  excel,sheet,workbooks : variant;
  ini : Tinifile;
  ssp : string;
begin
  ssp := '调用Excel';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  excel := createoleobject('excel.application');
  excel.visible := true;
  sheet := excel.workbooks.add;
end;

procedure TFRM_CRM.N29Click(Sender: TObject);
var
   dir : pchar;
  ini : Tinifile;
  ssp : string;
begin
  ssp := '计算器';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;

  Getmem(dir,255);
  getsystemdirectory(dir,255);
  dir := pchar(dir+'\calc.exe');
  winexec(dir,sw_show);
  
end;

procedure TFRM_CRM.N26Click(Sender: TObject);
begin
  if a[21] = 'True' then
  begin
    application.CreateForm(TFRM_KHXX_BB, FRM_KHXX_BB);
    FRM_KHXX_BB.ShowModal;
    FRM_KHXX_BB.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N27Click(Sender: TObject);
begin
  if a[22] = 'True' then
  begin
    application.CreateForm(TFRM_LXRXXBB, FRM_LXRXXBB);
    FRM_LXRXXBB.ShowModal;
    FRM_LXRXXBB.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N32Click(Sender: TObject);
begin
  if a[23] = 'True' then
  begin
    application.CreateForm(TFRM_YWWL_BB, FRM_YWWL_BB);
    FRM_YWWL_BB.ShowModal;
    FRM_YWWL_BB.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N33Click(Sender: TObject);
begin
  if a[24] = 'True' then
  begin
    application.CreateForm(TFRM_KHFK_BB, FRM_KHFK_BB);
    FRM_KHFK_BB.ShowModal;
    FRM_KHFK_BB.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N34Click(Sender: TObject);
begin
  if a[25] = 'True' then
  begin
    application.CreateForm(TFRM_KHTS_BB, FRM_KHTS_BB);
    FRM_KHTS_BB.ShowModal;
    FRM_KHTS_BB.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.Internet1Click(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  ssp := '登录Internet';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  ShellExecute(handle,'open','httP://www.mingrisoft.com',nil,nil,SW_SHOWNORMAL);
end;

procedure TFRM_CRM.N30Click(Sender: TObject);
begin
  if a[26] = 'True' then
  begin
    application.CreateForm(TFRM_GZBWL,FRM_GZBWL);
    FRM_GZBWL.ShowModal;
    FRM_GZBWL.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N36Click(Sender: TObject);
begin
  if a[28] = 'True' then
  begin
    application.CreateForm(TFRM_YHGL, FRM_YHGL);
    FRM_YHGL.ShowModal;
    FRM_YHGL.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N37Click(Sender: TObject);
begin
  if a[29] = 'True' then
  begin
    application.CreateForm(TFRM_RZ, FRM_RZ);
    FRM_RZ.ShowModal;
    FRM_RZ.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N31Click(Sender: TObject);
begin
  if a[27] = 'True' then
  begin
    application.CreateForm(TFRM_CSBH_CX,FRM_CSBH_CX);
    FRM_CSBH_CX.ShowModal;
    FRM_CSBH_CX.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N38Click(Sender: TObject);
begin
  if a[30] = 'True' then
  begin
    application.CreateForm(TFRM_SYBFHF,FRM_SYBFHF);
    FRM_SYBFHF.ShowModal;
    FRM_SYBFHF.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N39Click(Sender: TObject);
begin
  if a[31] = 'True' then
  begin
    application.CreateForm(TFRM_XTCSH, FRM_XTCSH);
    FRM_XTCSH.ShowModal;
    FRM_XTCSH.Free;
  end
  else
  begin
    showmessage('超出权限');
  end;
end;

procedure TFRM_CRM.N43Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TFRM_CRM.N41Click(Sender: TObject);
begin
  application.CreateForm(TFRM_TT, FRM_TT);
  FRM_TT.ShowModal;
  FRM_TT.Free;
end;

procedure TFRM_CRM.N42Click(Sender: TObject);
begin
  jj := 1;
  FRM_YHDL.Visible := TRUE;
end;

procedure TFRM_CRM.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Application.Terminate;
end;

procedure TFRM_CRM.Timer1Timer(Sender: TObject);
begin
   StatusBar1.Panels[5].Text := ' '+timetostr(gettime());
end;

procedure TFRM_CRM.N45Click(Sender: TObject);
begin
   application.HelpFile := extractfilepath(application.ExeName)+'help\help.hlp';
   application.HelpCommand(help_finder,0);
end;

procedure TFRM_CRM.ToolButton1Click(Sender: TObject);
begin
N2.OnClick(sender);
end;

procedure TFRM_CRM.ToolButton2Click(Sender: TObject);
begin
N3.Click;
end;

procedure TFRM_CRM.ToolButton3Click(Sender: TObject);
begin
N4.Click;
end;

procedure TFRM_CRM.ToolButton4Click(Sender: TObject);
begin
N5.Click;
end;

procedure TFRM_CRM.ToolButton5Click(Sender: TObject);
begin
N6.Click;
end;

procedure TFRM_CRM.ToolButton6Click(Sender: TObject);
begin
N7.Click;
end;

procedure TFRM_CRM.ToolButton8Click(Sender: TObject);
begin
N9.Click;
end;

procedure TFRM_CRM.ToolButton9Click(Sender: TObject);
begin
N10.Click;
end;

procedure TFRM_CRM.ToolButton10Click(Sender: TObject);
begin
N11.Click;
end;

procedure TFRM_CRM.ToolButton11Click(Sender: TObject);
begin
N13.Click;
end;

procedure TFRM_CRM.ToolButton13Click(Sender: TObject);
begin
close;
end;

end.