main_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

procedure Tmain_frm.N14Click(Sender: TObject);
var khth:Tkhthsear_frm;
begin

  khth:=Tkhthsear_frm.Create(owner);
  khth.ShowModal;
  khth.Free;

end;

procedure Tmain_frm.N15Click(Sender: TObject);
var khlh:Tkhlj_frm;
begin
  inherited;
  khlh:=Tkhlj_frm.Create(owner);
  khlh.ShowModal;
  khlh.Free;

end;

procedure Tmain_frm.N21Click(Sender: TObject);
var zbjfh:Tzbjfh_frm;
begin

     zbjfh:=Tzbjfh_frm.Create(owner);
     zbjfh.ShowModal;
     zbjfh.Free;

end;

procedure Tmain_frm.N22Click(Sender: TObject);
var gzjfh:Tgzjfh_frm;
begin

  gzjfh:=Tgzjfh_frm.Create(owner);
  gzjfh.ShowModal;
  gzjfh.Free;

end;

procedure Tmain_frm.N23Click(Sender: TObject);
var djyc:Tdjyc_frm;
begin

      djyc:=Tdjyc_frm.Create(owner);
      djyc.ShowModal;
      djyc.Free;

end;

procedure Tmain_frm.N24Click(Sender: TObject);
var  sgsj:Tsgsj_frm;
begin


sgsj:=Tsgsj_frm.Create(owner);
sgsj.ShowModal;
sgsj.Free;

end;

procedure Tmain_frm.N25Click(Sender: TObject);
var//
 sjrc:Tsjrcduo_frm;
begin

sjrc:=Tsjrcduo_frm.Create(owner);
sjrc.ShowModal;
sjrc.Free;

end;

procedure Tmain_frm.N26Click(Sender: TObject);
var shrcfid:Tshrcfid_frm;
begin

  shrcfid:=Tshrcfid_frm.Create(owner);
  shrcfid.ShowModal;
  shrcfid.Free;

end;

procedure Tmain_frm.N35Click(Sender: TObject);
 var fjrc:Tfjrc_frm;
begin
fjrc:=Tfjrc_frm.Create(owner);
fjrc.ShowModal;
fjrc.Free;

end;

procedure Tmain_frm.b1Click(Sender: TObject);
var fjcs:Tfjcs_frm;
begin
fjcs:=Tfjcs_frm.create(owner);
fjcs.showmodal;
fjcs.free;

end;

procedure Tmain_frm.N39Click(Sender: TObject);
var glfj:Tglfj_frm;
begin
    glfj:=Tglfj_frm.Create(owner);
    glfj.ShowModal;
    glfj.Free;
end;

procedure Tmain_frm.N37Click(Sender: TObject);
var dlpz:Tdlpz_frm;
begin
dlpz:=Tdlpz_frm.Create(owner);
dlpz.ShowModal;
dlpz.Free;

end;

procedure Tmain_frm.N45Click(Sender: TObject);
var bjsj:Tbjsj_frm;
begin

bjsj:=Tbjsj_frm.Create(owner);
bjsj.ShowModal;
bjsj.Free;
end;

procedure Tmain_frm.N47Click(Sender: TObject);
var fjdlth:Tfjdlth_frm;
begin
fjdlth:=Tfjdlth_frm.Create(owner);
fjdlth.ShowModal;
fjdlth.Free;
end;


procedure Tmain_frm.N46Click(Sender: TObject);
var fjdlpz:Tfjdlpz_frm;
begin
fjdlpz:=Tfjdlpz_frm.Create(owner);
fjdlpz.ShowModal;
fjdlpz.Free;

end;

procedure Tmain_frm.N51Click(Sender: TObject);
var khhj:Tkhhj_frm;
begin
khhj:=Tkhhj_frm.Create(owner);
khhj.ShowModal;
khhj.Free;
end;

procedure Tmain_frm.N48Click(Sender: TObject);
var dlreport:Tdlreport_frm;
begin

  dlreport:=Tdlreport_frm.Create(owner);
  dlreport.act:=1;
  dlreport.bsSkinStdLabel1.Caption:='统计代理商在时间段内手机代理的领销退存';
  dlreport.ShowModal;
  dlreport.Free;

end;

procedure Tmain_frm.N27Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin


sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='手机在某时间段内的进销存统计';
sjtj.act:=1;
sjtj.ShowModal;
sjtj.Free;

end;

procedure Tmain_frm.N56Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin


sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='在某时间段内的手机进销存统计';
sjtj.act:=2;
sjtj.ShowModal;
sjtj.Free;

end;

procedure Tmain_frm.N60Click(Sender: TObject);
var seltime:Tseltime_frm;
begin

  seltime:=Tseltime_frm.Create(owner);
  seltime.ShowModal;
  seltime.Free;

end;

procedure Tmain_frm.N61Click(Sender: TObject);
var ygsa:Tyfsacount_frm;
begin

ygsa:=Tyfsacount_frm.Create(owner);
ygsa.act:=1;
ygsa.bsSkinStdLabel1.Caption:='员工在某时间段内销售业绩统计' ;
ygsa.ShowModal;
ygsa.Free;
end;

procedure Tmain_frm.N42Click(Sender: TObject);
var ygsa:Tyfsacount_frm;
begin

ygsa:=Tyfsacount_frm.Create(owner);
ygsa.act:=2;
ygsa.bsSkinStdLabel1.Caption:='某时间段内手机的员工销售统计' ;
ygsa.ShowModal;
ygsa.Free;

end;

procedure Tmain_frm.N43Click(Sender: TObject);
var dlreport:Tdlreport_frm;
begin

  dlreport:=Tdlreport_frm.Create(owner);
  dlreport.act:=2;
  dlreport.bsSkinStdLabel1.Caption:='时间段内的手机代理商领销退存统计';
  dlreport.ShowModal;
  dlreport.Free;

end;

procedure Tmain_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
golb.redisplay;
Application.Terminate;
end;

procedure Tmain_frm.N53Click(Sender: TObject);
var login:Tlogin_frm;
i,modal:integer;
begin
login:=Tlogin_frm.Create(owner);


login.ShowModal;
modal:=golb.account;
if Modal=1 then
    for i:=0 to ComponentCount-1 do
       if Components[i] is  TMenuItem then
          TMenuItem(Components[i]).Enabled:=true;

if Modal=2 then
begin
            for i:=0 to ComponentCount-1 do
                if Components[i] is  TMenuItem then
                        TMenuItem(Components[i]).Enabled:=true;

            for i:=0 to ComponentCount-1 do
                if Components[i] is  TMenuItem then
                      if Components[i].Tag=6 then
                        TMenuItem(Components[i]).Enabled:=false;

end;
if Modal=3 then
begin
          for i:=0 to ComponentCount-1 do
              if Components[i] is  TMenuItem then
                   TMenuItem(Components[i]).Enabled:=false;
                   
            for i:=0 to ComponentCount-1 do
                if Components[i] is  TMenuItem then
                      if Components[i].Tag=1 then
                        TMenuItem(Components[i]).Enabled:=true;
end;

n53.Enabled:=false;
n54.Enabled:=true;
login.Free;


end;

procedure Tmain_frm.N54Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ComponentCount-1 do
              if Components[i] is  TMenuItem then
                   TMenuItem(Components[i]).Enabled:=false;
                   
            for i:=0 to ComponentCount-1 do
                if Components[i] is  TMenuItem then
                      if Components[i].Tag=1 then
                        TMenuItem(Components[i]).Enabled:=true;

end;

procedure Tmain_frm.N62Click(Sender: TObject);
var change:Tchange_frm;
begin
 change:=Tchange_frm.Create(owner);
 change.ShowModal;
 if golb.account=1 then
   N54Click(Sender);
 change.Free;
end;

procedure Tmain_frm.N64Click(Sender: TObject);
var about:Tabout_frm;
begin
about:=Tabout_frm.Create(owner);
about.ShowModal;
about.Free;

end;

procedure Tmain_frm.N63Click(Sender: TObject);
var s:string;
begin
 s:=ExtractFilePath(Application.ExeName)+'\help.chm';

ShellExecute(handle, nil,PChar(s), nil, nil, sw_shownormal);
end;

procedure Tmain_frm.N66Click(Sender: TObject);
var fjreport:Tfjreport_frm;
begin
fjreport:=Tfjreport_frm.Create(owner);
fjreport.ShowModal;
fjreport.Free;

end;

procedure Tmain_frm.N68Click(Sender: TObject);
var dlfjreport:Tdlfjreport_frm ;
begin
dlfjreport:=Tdlfjreport_frm.Create(owner);
dlfjreport.ShowModal;
dlfjreport.Free;

end;

procedure Tmain_frm.N55Click(Sender: TObject);
var sjlr:Tsjlr1_frm;
begin
sjlr:=Tsjlr1_frm.Create(owner);
sjlr.bsSkinStdLabel5.Caption:=N55.Caption;
sjlr.act:=1;
sjlr.ShowModal;
sjlr.Free;

end;

procedure Tmain_frm.N59Click(Sender: TObject);
var sjlr:Tsjlr1_frm;
begin
sjlr:=Tsjlr1_frm.Create(owner);
sjlr.bsSkinStdLabel5.Caption:=N59.Caption;
sjlr.act:=2;
sjlr.ShowModal;
sjlr.Free;

end;

procedure Tmain_frm.N65Click(Sender: TObject);
var fjlr:Tfjlr_frm;
begin
fjlr:=Tfjlr_frm.Create(owner);
fjlr.ShowModal;
fjlr.Free;

end;

procedure Tmain_frm.N67Click(Sender: TObject);
var reg:Treg_frm;
begin

reg:=Treg_frm.Create(owner);
reg.ShowModal;
reg.Free;

end;

procedure Tmain_frm.N52Click(Sender: TObject);
var sjno:Tsjno_frm;
begin
sjno:=Tsjno_frm.Create(owner);
sjno.ShowModal;
sjno.Free;

end;

end.