📄 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
{ 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;
{$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;
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);
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;
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,'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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -