umain.pas

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

begin
  if F_WTS=nil then
    F_WTS:=TF_WTS.Create(self);
  F_WTS.Show;
end;

procedure Tfrmmain.N29Click(Sender: TObject);
begin
  If F_ZHXDCX=nil then
    F_ZHXDCX:=TF_ZHXDCX.Create(self);
  F_ZHXDCX.PageControl1.ActivePageIndex:=0;
  F_ZHXDCX.Show;
end;

procedure Tfrmmain.N30Click(Sender: TObject);
begin
  If F_MXDCX=nil then
    F_MXDCX:=TF_MXDCX.Create(self);
  //F_MXDCX.PageControl1.ActivePageIndex:=0;
  F_MXDCX.Show;
end;

procedure Tfrmmain.N31Click(Sender: TObject);
begin
 If F_WTDCX=nil then
   F_WTDCX:=TF_WTDCX.Create(Application);
  F_WTDCX.PageControl1.ActivePageIndex:=0;
  F_WTDCX.Show;
end;

procedure Tfrmmain.N33Click(Sender: TObject);
begin
   frmnxcx:=Tfrmnxcx.Create(nil);
   frmnxcx.ShowModal ;
   frmnxcx.Free;
end;

procedure Tfrmmain.N8Click(Sender: TObject);
begin 
  If frmddcx=nil then application.CreateForm(Tfrmddcx,frmddcx);
  Outlook1.Visible:=False;
  Panel1.Visible:=true;
  Panel2.Visible:=false;

  frmddcx.Show;
end;

procedure Tfrmmain.N24Click(Sender: TObject);
begin
{  frmcalendar:=Tfrmcalendar.Create(self);
  frmcalendar.show;}
end;

procedure Tfrmmain.N12Click(Sender: TObject);
begin
//ShellExecute(handle,'open',pchar('D:\新建文件夹\汇丰\Help\销售管理帮助.chm'),nil,nil,SW_Shownormal);
ShellExecute(handle,'open',pchar(spath+'\help\销售管理帮助.chm'),nil,nil,SW_Shownormal);
end;

procedure Tfrmmain.N18Click(Sender: TObject);
begin
dm.Imy.Add_Class;
end;

procedure Tfrmmain.N25Click(Sender: TObject);
begin
 dm.Imy.Cus_Detail;
end;

procedure Tfrmmain.N3Click(Sender: TObject);
begin
  if frmlogin = nil then Application.CreateForm(Tfrmlogin,frmlogin);
  frmlogin.Showmodal;
end;

procedure Tfrmmain.N4Click(Sender: TObject);
begin
   if Application.MessageBox('您真的要注销吗？','提示',4+32)=IDNO then
   exit;
   n15.Enabled :=false;   n1.Enabled :=false;
   n2.Enabled :=false;    n3.Enabled :=true;
   N4.Enabled :=false;    N17.Enabled :=false;
   N21.Enabled :=false;
   n41.Enabled:=false;
   StatusBar1.Panels[0].Text :='  就绪';
   StatusBar1.Panels[2].Text :='  操作员：  ';
   StatusBar1.Panels[3].Text :='  销售管理';
   StatusBar1.Panels[4].Text :='  日期：  ';
   frmmain.Outlook1.Enabled:=false;
end;

procedure Tfrmmain.N17Click(Sender: TObject);
begin
  //Outlook1.Visible:=False;
  //Panel2.Visible:=False;
  if frmChangePass=nil then Application.CreateForm(TfrmChangePass,frmChangePass);
  frmChangePass.ShowModal;
end;

procedure Tfrmmain.Outlook1TabChange(Sender: TObject; Item: String);
begin
  //ListBox1.Items.Add('The OnTabChange Event has occured: Tab has changed to '+ Item);
end;

procedure Tfrmmain.N35Click(Sender: TObject);
begin
  if frmDatabaseSet = nil then Application.CreateForm(TfrmDatabaseSet,frmDatabaseSet);
   frmDatabaseSet.Showmodal;
end;

procedure Tfrmmain.N37Click(Sender: TObject);
begin
  TileMode := tbHorizontal;
  Tile;
end;

procedure Tfrmmain.N38Click(Sender: TObject);
begin
  TileMode := tbVertical;
  Tile;
end;

procedure Tfrmmain.N39Click(Sender: TObject);
begin
  Cascade;
end;

procedure Tfrmmain.N40Click(Sender: TObject);
begin
  ArrangeIcons;
end;

procedure Tfrmmain.N42Click(Sender: TObject);
begin
  N42.Checked := not N42.Checked ;
  StatusBar1.Visible := N42.Checked ;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
   outlook1.ActiveTab:=2;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin

  ShortDateFormat:='yyyy-mm-dd';
  Application.Title:='销售管理系统';
end;

procedure Tfrmmain.N43Click(Sender: TObject);
begin
  If F_bgjc=nil then F_bgjc:=TF_bgjc.Create(Application);
  F_bgjc.ShowModal;
end;

procedure Tfrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:= (Application.MessageBox('确实要退出此应用程序吗？','提示',36)=IDYes);
end;

procedure Tfrmmain.N011Click(Sender: TObject);
begin
  {frm_DengDan:=Tfrm_DengDan.Create(self);
  frm_DengDan.show;}
end;

procedure Tfrmmain.N44Click(Sender: TObject);
begin
  if FXStore = nil then FXStore := TFXStore.Create(Application);
  FXStore.Show;
end;

procedure Tfrmmain.N45Click(Sender: TObject);
begin
  if frmxsrb = nil then frmxsrb := Tfrmxsrb.Create(Application);
   //frmxsrb.FormMode := fmBrowse;
  frmxsrb.Show;
end;

procedure Tfrmmain.N50Click(Sender: TObject);
begin                    
{  if FindSellProductForm = nil then
    FindSellProductForm := TFindSellProductForm.Create(Application);
  FindSellProductForm.Show; }
  if DailyProductFindForm=nil then
    DailyProductFindForm := TDailyProductFindForm.Create(Application);
  DailyProductFindForm.Title := '产品销售查询';
  DailyProductFindForm.Show;
end;

procedure Tfrmmain.N52Click(Sender: TObject);
begin
 { if DailyStoreFindForm=nil then
    DailystoreFindForm := TDailyStoreFindForm.Create(Application);
  DailyStoreFindForm.Title := '分销店销售查询';
  DailyStoreFindForm.Show;}
    if FindFrameForm1=nil then
    FindFrameForm1 := TFindFrameForm1.Create(Application);
  FindFrameForm1.Title := '分销店销售查询';
  FindFrameForm1.Show;

end;

procedure Tfrmmain.N49Click(Sender: TObject);
begin
  if DailyStoreStatForm=nil then
    DailyStoreStatForm := TDailyStoreStatForm.Create(Application);
  DailyStoreStatForm.Title := '分销店销售统计';
  DailyStoreStatForm.Show;
end;

procedure Tfrmmain.N54Click(Sender: TObject);
begin
  if DailyProductStatForm=nil then
    DailyProductStatForm := TDailyProductStatForm.Create(Application);
  DailyProductStatForm.Title := '产品销售统计';
  DailyProductStatForm.Show;
end;

procedure Tfrmmain.N23Click(Sender: TObject);
begin
  ShellExecute(handle,'open',pchar(spath+'\help\销售管理帮助.chm'),nil,nil,SW_Shownormal);
end;

procedure Tfrmmain.N41Click(Sender: TObject);
begin
  SetReport(Application.Handle,DM.ADOConnection.ConnectionString,'0','eexs');
end;

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if dm.Imy<>nil then
  dm.Imy.Des;
end;

procedure Tfrmmain.N21Click(Sender: TObject);
begin
  dm.Imy.Cus_Class;
end;

procedure Tfrmmain.N32Click(Sender: TObject);
begin
   frmckcon:=Tfrmckcon.Create(nil);
   Frmckcon.ShowModal ;
   frmckcon.Free;
end;

end.