umain.pas

相关的销售服务管理行业的一个软件

{*******************************************************}
{                                                       }
{                     汇丰鞋业 ERP                      }
{                                                       }
{    版权所有 (C) 2001,2005 清华同方股份有限公司9.10    }
{                                                       }
{*******************************************************}
unit Umain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus,  ExtCtrls, jpeg, Outlook, ComCtrls, StdCtrls, Db, ADODB,ShellAPI,
  OleServer, Word97,Gys_Kh_TLB, ComObj;

type
  Tfrmmain = class(TForm)
    sd1: TMenuItem;      N1: TMenuItem;    N2: TMenuItem;    N3: TMenuItem;
    N4: TMenuItem;       N5: TMenuItem;    N6: TMenuItem;    N7: TMenuItem;
    N8: TMenuItem;       N9: TMenuItem;    N12: TMenuItem;   N13: TMenuItem;
    N14: TMenuItem;      N15: TMenuItem;   N16: TMenuItem;   N17: TMenuItem;
    N18: TMenuItem;      N19: TMenuItem;   N22: TMenuItem;
    N25: TMenuItem;   N10: TMenuItem;
    N11: TMenuItem;      N20: TMenuItem;   N26: TMenuItem;   N27: TMenuItem;
    N29: TMenuItem;   N30: TMenuItem;   N31: TMenuItem;    Panel1: TPanel;
    Image1: TImage;
    N35: TMenuItem;     N36: TMenuItem;    gdg1: TMenuItem;    N37: TMenuItem;
    N38: TMenuItem;     N39: TMenuItem;    N40: TMenuItem;
    N42: TMenuItem;
    StatusBar1: TStatusBar;
    N43: TMenuItem;     Label1: TLabel;   N44: TMenuItem;   N45: TMenuItem;
    N46: TMenuItem;     N47: TMenuItem;   N48: TMenuItem;   MainMenu1: TMainMenu;
    N50: TMenuItem;   N52: TMenuItem;
    N53: TMenuItem;     N49: TMenuItem;   N54: TMenuItem;
    N41: TMenuItem;
    N55: TMenuItem;
    N28: TMenuItem;
    N34: TMenuItem;
    N56: TMenuItem;
    N21: TMenuItem;
    LTitle: TLabel;
    Panel2: TPanel;
    Image2: TImage;
    Splitter1: TSplitter;
    Outlook1: TOutlook;
    N23: TMenuItem;
    N24: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure Outlook1ItemClick(Sender: TObject; Item: String);
    procedure N19Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure Outlook1TabChange(Sender: TObject; Item: String);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N011Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N21Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
 
  private
      BM:TBaseMessage;
    bCloseAll:Boolean;
    { Private declarations }
  public

    { Public declarations }
  end;
  //procedure   FrmKhShow;stdcall;  external  'lydll.dll';
var
  frmmain: Tfrmmain;

implementation

uses Uorder, U_FHP, Uabout, U_BGD, U_BGDCX, U_FPCX, U_ZHXD, U_MXD, U_WTD,
  U_ZHXDCX, U_MXDCX, U_WTDCX, ulogin, ChangePass, DatabaseSet,
  U_BGJC, FXStoreFrm, SellDailyFrm, DailyProductFindFrm, DailyStoreFindFrm,
  DailyProductStatFrm,Udata, DailyStoreStatFrm, Uddcx,import1, U_DM,
  SYS_DataModal, Uxsrb, Ufrmckcon, Uhzqd, Unxck, Uneworder, Unit1, Uxsrbcx1,
  UDataVar;


{$R *.DFM}

procedure Tfrmmain.N6Click(Sender: TObject);
begin
   close;
end;

procedure Tfrmmain.Outlook1ItemClick(Sender: TObject; Item: String);
begin
   If item = '订单管理' then begin
                     if n19.Enabled=false then exit;
                    N19.OnClick(Nil); end ;
   If item = '地区管理' then  begin
                     if n18.Enabled=false then exit;
                           N18.OnClick(Nil); end ;
   If item = '客户管理' then  begin
                     if n25.Enabled=false then exit;
                       N25.OnClick (Nil);  end;
   If item = '客户分类' then  begin
                   if n21.Enabled=false then exit;
                       N21.OnClick (Nil);  end;
   If item = '分销店管理' then begin
                   if n44.Enabled=false then exit;
                      N44.OnClick(Nil);  end;
   If item = '销售日报' then begin
                    if n45.Enabled=false then exit;
                       N45.OnClick (Nil);  end;
   If item = '发货票' then  begin
                    if n10.Enabled=false then exit;
                       N10.OnClick (Nil);  end;
   If item = '报关单' then  begin
                    if n11.Enabled=false then exit;
                       N11.OnClick (Nil);  end;
   If item = '装箱单' then begin
                    if n20.Enabled=false then exit;
                       N20.OnClick (Nil);  end;
   If item = '货物明细单' then begin
                    if n26.Enabled=false then exit;
                       N26.OnClick (Nil);  end;
   If item = '报关委托书' then  begin
                    if n27.Enabled=false then exit;
                       N27.OnClick (Nil);  end;
   If item = '订单查询' then  begin
                    if n8.Enabled=false then exit;
                       N8.OnClick (Nil);  end;
   If item = '发货票查询' then  begin
                    if n9.Enabled=false then exit;
                       N9.OnClick (Nil);  end;
   If item = '报关单查询' then  begin
                    if n28.Enabled=false then exit;
                       N28.OnClick (Nil);  end;
   If item = '装箱单查询' then  begin
                    if n29.Enabled=false then exit;
                       N29.OnClick (Nil);  end;
   If item = '货物明细单查询' then    begin
                    if n30.Enabled=false then exit;
                       N30.OnClick (Nil);  end;
   If item = '委托书查询' then  begin
                    if n31.Enabled=false then exit;
                       N31.OnClick (Nil);  end;
   If item = '按分销店查询' then  begin
                    if n48.Enabled=false then exit;
                       N52.OnClick (Nil);  end;
   If item = '按产品查询' then  begin
                    if n48.Enabled=false then exit;
                       N50.OnClick (Nil);  end;
   If item = '按分销店统计' then  begin
                    if n53.Enabled=false then exit;
                       N49.OnClick (Nil);  end;
   If item = '按产品统计' then begin
                    if n53.Enabled=false then exit;
                       N54.OnClick (Nil);  end;
end;

procedure Tfrmmain.N19Click(Sender: TObject);
begin
 If frmorder=nil then Frmorder:=TFrmorder.Create(Application);
  frmOrder.Show;
//  if Frmneworder=nil   then Frmneworder:=TFrmneworder.Create(Application);
 // Frmneworder.show;
end;

procedure Tfrmmain.N10Click(Sender: TObject);
begin
  if F_FHP=nil then F_FHP:=TF_FHP.Create(Application);
  F_FHP.Show;
end;

procedure Tfrmmain.N14Click(Sender: TObject);
begin
  frmabout := Tfrmabout.Create(Application);
  frmabout.ShowModal;
  frmabout.Free;
end;

procedure Tfrmmain.N11Click(Sender: TObject);
begin
  If F_BGD=nil then
    F_BGD:=TF_BGD.Create(Application);
  F_BGD.Show;
end;

procedure Tfrmmain.N28Click(Sender: TObject);
begin
  If F_BGDCX=nil then
    F_BGDCX:=TF_BGDCX.Create(Application);
  F_BGDCX.show;
end;

procedure Tfrmmain.N9Click(Sender: TObject);
begin
  If F_FPCX=nil then
    F_FPCX:=TF_FPCX.Create(Application);
  F_FPCX.Show;
end;

procedure Tfrmmain.N20Click(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  if F_ZHXD=nil then
    F_ZHXD:=TF_ZHXD.Create(self);
  F_ZHXD.Show;
end;

procedure Tfrmmain.N26Click(Sender: TObject);
begin
  if f_MXD=nil then
    Application.createform(Tf_mxd,f_MXD);
  F_MXD.Show;
end;

procedure Tfrmmain.N27Click(Sender: TObject);